paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 12:39:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Tweaking in windows options.

Browse Source 
git-svn-id: trunk@46987 -
This commit is contained in:
juha 2014-11-25 17:46:20 +00:00
parent 6a7959c6d0
commit bfbb517501
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/frames/window_options.pas
View File

@ -428,10 +428,10 @@ function TWindowOptionsFrame.GetLayoutCaption(ALayout: TSimpleWindowLayout): Str
SubIndex: LongInt;
begin
Result:=CompareText(FormName,copy(ALayout.FormID,1,length(FormName)))=0;
if not Result then exit(false);
if not Result then exit;
SubIndex:=StrToIntDef(copy(ALayout.FormID,length(FormName)+1,10),-1);
if SubIndex<0 then
GetLayoutCaption:=aCaption
GetLayoutCaption:=aCaption // Set Result of the main function.
else
GetLayoutCaption:=aCaption+' '+IntToStr(SubIndex);
end;