mirror of
https://github.com/moparisthebest/Simba
synced 2024-11-17 14:55:07 -05:00
ffb90926b6
OnDestroy event for bitmaps.. Added PosterizeBitmap Added window.inc Added FormTest.mufa git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@141 3f818213-9676-44b0-a9b4-5e4c4e03d09d
36 lines
734 B
Plaintext
36 lines
734 B
Plaintext
program new;
|
|
var
|
|
TempVar : Boolean;
|
|
procedure OnClick(Sender : TObject);
|
|
begin;
|
|
TempVar := True;
|
|
Writeln('YOU HAS CLICKED THE BUTTON');
|
|
end;
|
|
function x : Boolean;
|
|
var
|
|
MyForm : TForm;
|
|
AButton : TButton;
|
|
begin;
|
|
TempVar := False;
|
|
Result := false;
|
|
MyForm := CreateForm;
|
|
MyForm.Width := 250;
|
|
MyForm.Height := 250;
|
|
AButton := CreateButton(MyForm);
|
|
AButton.Parent := MyForm;
|
|
Abutton.SetBounds(100,100,100,50);
|
|
AButton.OnClick := @OnClick;
|
|
AButton.Caption := 'Test';
|
|
MyForm.ShowModal;
|
|
MyForm.Free;
|
|
Result := TempVar;
|
|
end;
|
|
var
|
|
v : TVariantArray;
|
|
begin
|
|
if ThreadSafeCall('x',v) then
|
|
Writeln('You clicked the button! WinnOr')
|
|
else
|
|
Writeln('You did not click the button, fail all the way');
|
|
end.
|