From c6d8a731af89eabfec83617173622f1de1862564 Mon Sep 17 00:00:00 2001
From: lazarus-bart <lazarus-bart@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 29 Feb 2012 10:56:52 +0000
Subject: [PATCH] Cleanup code to set Tabsheet.Caption

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2321 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 applications/lazedit/editorpagecontrol.pp | 13 -------------
 1 file changed, 13 deletions(-)

diff --git a/applications/lazedit/editorpagecontrol.pp b/applications/lazedit/editorpagecontrol.pp
index 6de0b93e3..8e188ec90 100644
--- a/applications/lazedit/editorpagecontrol.pp
+++ b/applications/lazedit/editorpagecontrol.pp
@@ -989,27 +989,14 @@ var
   TS: TTabSheet;
   E: TEditor;
   PgIdx: Integer;
-  i, NrOfNoNames: Integer;
-  Suffix: String;
 begin
   Result := nil;
   Inc(FCounter);
-  {
-  NrOfNoNames := 0;
-  Suffix := '';
-  for i := 0 to PageCount - 1 do
-    if Pos(vTranslations.NoName, Pages[i].Caption) = 1 then Inc(NrOfNoNames);
-  if NrOfNoNames > 0 then Suffix := ' [' + IntToStr(NrOfNoNames + 1) + ']';
-  }
   TS := TTabSheet.Create(Self);
   TS.Name := 'TS' + IntToStr(FCounter);
   TS.PageControl := Self;
   PgIdx := TS.PageIndex;
 
-  TS.Caption := vTranslations.NoName + Suffix;
-
-//  exit;//<-------------------------------------------------------------
-
   E := TEditor.Create(TS);
   Result := E;
   E.FileMaskList := FFileTypeMaskList;