moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2025-02-25 16:01:48 -05:00
Code Issues Releases Wiki Activity

Revert to Tray

Browse Source
This commit is contained in:
Merlijn Wajer 2010-03-19 00:48:50 +01:00
parent 33d75cf4fe
commit d3801f0a45
1 changed files with 2 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
Projects/SAMufasaGUI/testunit.pas
View File

@ -2007,18 +2007,9 @@ begin
end; end;
procedure TForm1.ButtonTrayClick(Sender: TObject); procedure TForm1.ButtonTrayClick(Sender: TObject);
var
Ext: TSimbaPSEventExtension;
{ FIXME: Turning it into a test button again... }
begin
{Form1.Hide; }
try
Ext := TSimbaPSEventExtension.Create(MainDir + DS + 'Extensions' + DS + 'test.pas');
Ext.Free;
except
Writeln('Something went wrong with the Extensions.');
end;
begin
Form1.Hide;
end; end;
procedure TForm1.PageControl1Changing(Sender: TObject; var AllowChange: Boolean procedure TForm1.PageControl1Changing(Sender: TObject; var AllowChange: Boolean