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

RxMDI - fix update window caption

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2816 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2013-10-29 19:18:06 +00:00
parent 199b0d183e
commit 38806e4bdc
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/rx/trunk/rxmdi.pas
View File

@ -375,6 +375,9 @@ var
i:integer; i:integer;
B:TRxMDIButton; B:TRxMDIButton;
begin begin
if (FCurrentChildWindow = F) and Assigned(FCloseButton) and FCloseButton.Enabled then
FCloseButton.FInfoLabel.Caption:=F.Caption;
for i:=0 to TaskPanel.ComponentCount -1 do for i:=0 to TaskPanel.ComponentCount -1 do
begin begin
if TRxMDIButton(TaskPanel.Components[i]).NavForm = F then if TRxMDIButton(TaskPanel.Components[i]).NavForm = F then