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

Revert "Revert to Tray"

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

13
Projects/SAMufasaGUI/testunit.pas
View File

@ -2007,9 +2007,18 @@ 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 begin
Form1.Hide; {Form1.Hide; }
try
Ext := TSimbaPSEventExtension.Create(MainDir + DS + 'Extensions' + DS + 'test.pas');
Ext.Free;
except
Writeln('Something went wrong with the Extensions.');
end;
end; end;
procedure TForm1.PageControl1Changing(Sender: TObject; var AllowChange: Boolean procedure TForm1.PageControl1Changing(Sender: TObject; var AllowChange: Boolean