Hello, Bart!
(11 Oct 1997 (Sa)) Bart Broersma wrote to All:
BB> Is ther anyone who can give me a basic understanding of how to write a
BB> simple screensave in D1/D2 ?
BB> Preferably a skeleton-like program ?
I've found such sample on CD which come with "Delphi 3 Superbible" book.
I didn't try this sample. :)
============[Start of unit1.pas - Are you ready to see it?]============
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.Top := 0;
  Form1.Left := 0;
  Form1.Width := Screen.Width;
  Form1.Height := Screen.Height;
  ShowCursor(False);
end;
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  ShowCursor(True);
  Close;
end;
end.
============[End of unit1.pas - It was too small, was it?]============
    That's all... Good luck!
                                    Eleneldil
E-mail : arilou@sbor.ru (home), arilou@laes.sbor.ru (work)
ICQ UIN: 1379978
--- Malinoldo 2.50+
---------------