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

2011-02-23 12:25:59 +01:00 · 2011-02-23 12:25:59 +01:00 · 46cc511b56
parent 7b771b1600
commit 46cc511b56
1 changed files with 1 additions and 1 deletions
--- a/Projects/Simba/simbaunit.pas
+++ b/Projects/Simba/simbaunit.pas
@ -1622,7 +1622,7 @@ end;
 procedure TSimbaForm.ActionCloseTabExecute(Sender: TObject);
 begin
  if(PageControl1.PageCount > 1)then
-    Self.DeleteTab(PageControl1.TabIndex,false)
+    Self.DeleteTab(TTabSheet(Sender).TabIndex,false)
  else
    Self.ClearScript;  //DeleteTab would take care of this already, but yeah, it's neater this way.
 end;