8
Classes, SysUtils, LCLProc, FileUtil, Forms, Controls, Graphics, Dialogs,
15
TSimpleForm = class(TForm)
17
procedure FormPaint(Sender: TObject);
19
{ private declarations }
21
{ public declarations }
25
SimpleForm: TSimpleForm;
27
function CreateSimpleForm(Name, Title: string; NewBounds: TRect;
28
DisableAutoSizing: boolean): TSimpleForm;
32
function CreateSimpleForm(Name, Title: string; NewBounds: TRect;
33
DisableAutoSizing: boolean): TSimpleForm;
35
Result:=TSimpleForm(Screen.FindForm(Name));
36
if Result is TSimpleForm then begin
37
if DisableAutoSizing then
38
Result.DisableAutoSizing;
41
Result:=TSimpleForm(TSimpleForm.NewInstance);
43
Result.Create(Application);
44
Result.Caption:=Title;
46
Result.Memo1.Lines.Text:=Name;
47
Result.BoundsRect:=NewBounds;
48
if not DisableAutoSizing then
49
Result.EnableAutoSizing;
56
procedure TSimpleForm.FormPaint(Sender: TObject);
61
LineTo(ClientWidth-1,0);
62
MoveTo(ClientWidth-1,ClientHeight-1);
63
MoveTo(0,ClientHeight-1);
65
MoveTo(ClientWidth-1,ClientHeight-1);