darksid
11-20-2006, 09:26 AM
program New;
var
frmDesign : TForm;
Jeffsgay1 : TButton;
procedure buttonclick(sender: TObject);
begin
Writeln('You are gay!');
frmDesign.Caption:= frmDesign.Caption + '.';
frmDesign.ModalResult:= mrOk;
end;
procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 0;
frmDesign.Top := 10;
frmDesign.Width := 200;
frmDesign.Height := 200;
frmDesign.Caption := 'You are GAY!';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := 12;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 50;
Jeffsgay1 := TButton.Create(frmDesign);
Jeffsgay1.OnClick:= @buttonclick;
Jeffsgay1.Parent := frmDesign;
Jeffsgay1.Left := 69;
Jeffsgay1.Top := 61;
Jeffsgay1.Width := 83;
Jeffsgay1.Height := 30;
Jeffsgay1.Caption := 'You are GAY!!';
Jeffsgay1.TabOrder := 2;
end;
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;
procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
begin
SafeInitForm;
SafeShowFormModal;
end.
var
frmDesign : TForm;
Jeffsgay1 : TButton;
procedure buttonclick(sender: TObject);
begin
Writeln('You are gay!');
frmDesign.Caption:= frmDesign.Caption + '.';
frmDesign.ModalResult:= mrOk;
end;
procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 0;
frmDesign.Top := 10;
frmDesign.Width := 200;
frmDesign.Height := 200;
frmDesign.Caption := 'You are GAY!';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := 12;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 50;
Jeffsgay1 := TButton.Create(frmDesign);
Jeffsgay1.OnClick:= @buttonclick;
Jeffsgay1.Parent := frmDesign;
Jeffsgay1.Left := 69;
Jeffsgay1.Top := 61;
Jeffsgay1.Width := 83;
Jeffsgay1.Height := 30;
Jeffsgay1.Caption := 'You are GAY!!';
Jeffsgay1.TabOrder := 2;
end;
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;
procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
begin
SafeInitForm;
SafeShowFormModal;
end.