pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Cleanup code to set Tabsheet.Caption

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2321 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
lazarus-bart
2012-02-29 10:56:52 +00:00
parent fc6cac6a8f
commit c6d8a731af
1 changed files with 0 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
applications/lazedit/editorpagecontrol.pp
View File

@ -989,27 +989,14 @@ var
TS: TTabSheet; TS: TTabSheet;
E: TEditor; E: TEditor;
PgIdx: Integer; PgIdx: Integer;
i, NrOfNoNames: Integer;
Suffix: String;
begin begin
Result := nil; Result := nil;
Inc(FCounter); 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 := TTabSheet.Create(Self);
TS.Name := 'TS' + IntToStr(FCounter); TS.Name := 'TS' + IntToStr(FCounter);
TS.PageControl := Self; TS.PageControl := Self;
PgIdx := TS.PageIndex; PgIdx := TS.PageIndex;
TS.Caption := vTranslations.NoName + Suffix;
// exit;//<-------------------------------------------------------------
E := TEditor.Create(TS); E := TEditor.Create(TS);
Result := E; Result := E;
E.FileMaskList := FFileTypeMaskList; E.FileMaskList := FFileTypeMaskList;