moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-27 19:42:22 -05:00
Code Issues Releases Wiki Activity

Simba: Fix tab closing using 'x' on the tab.

Browse Source
This commit is contained in:
Merlijn Wajer 2011-02-23 12:25:59 +01:00
parent 7b771b1600
commit 46cc511b56
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Projects/Simba/simbaunit.pas
View File

@ -1622,7 +1622,7 @@ end;
procedure TSimbaForm.ActionCloseTabExecute(Sender: TObject); procedure TSimbaForm.ActionCloseTabExecute(Sender: TObject);
begin begin
if(PageControl1.PageCount > 1)then if(PageControl1.PageCount > 1)then
Self.DeleteTab(PageControl1.TabIndex,false) Self.DeleteTab(TTabSheet(Sender).TabIndex,false)
else else
Self.ClearScript; //DeleteTab would take care of this already, but yeah, it's neater this way. Self.ClearScript; //DeleteTab would take care of this already, but yeah, it's neater this way.
end; end;