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

RxFPC:RxMDI - add new procedure RxMDITasks.UpdateMDICaptions

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7024 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2019-07-11 09:50:37 +00:00
parent d0d3332d5b
commit 88c8be65cf
2 changed files with 31 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
components/rx/trunk/docs/rxmdi.xml
View File

@ -5,11 +5,13 @@
<element name="TRxMDIButton.DoActivateMenu"/> <element name="TRxMDIButton.DoActivateMenu"/>
<element name="TRxMDIButton"> <element name="TRxMDIButton">
<short>Кнопка на панели задач компонентов MDI</short> <short>Кнопка на панели задач компонентов MDI</short>
<descr>Кнопка предназначена для управления окнами</descr> <descr>Кнопка предназначена для управления окнами
</descr>
</element> </element>
<element name="TRxMDIButton.NavForm"> <element name="TRxMDIButton.NavForm">
<short>Указатель на связанное с кнопкой окно</short> <short>Указатель на связанное с кнопкой окно</short>
<descr>Указатель на связанное с кнопкой окно</descr> <descr>Указатель на связанное с кнопкой окно
</descr>
</element> </element>
<element name="TRxMDIPanel"> <element name="TRxMDIPanel">
<short>Основаня панель для управления окнами в режиме MDI</short> <short>Основаня панель для управления окнами в режиме MDI</short>
@ -24,10 +26,12 @@
<short>Закрыть все окна</short> <short>Закрыть все окна</short>
</element> </element>
<element name="TRxMDIPanel.ShowWindow"> <element name="TRxMDIPanel.ShowWindow">
<short>Переключить в указанную MDI форму</short><descr>Переключить в указанную MDI форму</descr> <short>Переключить в указанную MDI форму</short><descr>Переключить в указанную MDI форму
</descr>
</element> </element>
<element name="TRxMDIPanel.ChildWindowsAdd"> <element name="TRxMDIPanel.ChildWindowsAdd">
<short>Добавить указанную форму в список MDI</short><descr>Добавить указанную форму в список MDI</descr> <short>Добавить указанную форму в список MDI</short><descr>Добавить указанную форму в список MDI
</descr>
</element> </element>
<element name="TRxMDIPanel.ChildWindowsCreate"><short>Создать экземпляр MDI формы</short><descr><p>Создать экземпляр указнной MDI формы, вставить в список форм и сделать активной</p><p>В случае, если указанный экземпляр существет, то форма просто активируется</p> <element name="TRxMDIPanel.ChildWindowsCreate"><short>Создать экземпляр MDI формы</short><descr><p>Создать экземпляр указнной MDI формы, вставить в список форм и сделать активной</p><p>В случае, если указанный экземпляр существет, то форма просто активируется</p>
</descr> </descr>

29
components/rx/trunk/rxcontrols/rxmdi.pas
View File

@ -110,6 +110,7 @@ type
property MainPanel:TRxMDIPanel read FMainPanel{ write FMainPanel}; property MainPanel:TRxMDIPanel read FMainPanel{ write FMainPanel};
procedure SelectNext; procedure SelectNext;
procedure SelectPrior; procedure SelectPrior;
procedure UpdateMDICaptions;
published published
property Align; property Align;
property ShowHint; property ShowHint;
@ -625,18 +626,21 @@ end;
procedure TRxMDIPanel.ChildWindowsUpdateCaption(F: TForm); procedure TRxMDIPanel.ChildWindowsUpdateCaption(F: TForm);
var var
i:integer; i:integer;
B:TRxMDIButton; // B:TRxMDIButton;
C: TComponent;
begin begin
if (FCurrentChildWindow = F) and Assigned(FCloseButton) and FCloseButton.Enabled then if (FCurrentChildWindow = F) and Assigned(FCloseButton) and FCloseButton.Enabled then
FCloseButton.FInfoLabel.Caption:=F.Caption; 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 C:=TaskPanel.Components[i];
begin if C is TRxMDIButton then
TRxMDIButton(TaskPanel.Components[i]).UpdateCaption; if TRxMDIButton(C).NavForm = F then
exit; begin
end; TRxMDIButton(C).UpdateCaption;
exit;
end;
end; end;
end; end;
@ -1026,6 +1030,19 @@ begin
end; end;
end; end;
procedure TRxMDITasks.UpdateMDICaptions;
var
C: TComponent;
i: Integer;
begin
for i:=0 to ComponentCount -1 do
begin
C:=Components[i];
if C is TRxMDIButton then
TRxMDIButton(C).UpdateCaption;
end;
end;
{ TRxMDIButton } { TRxMDIButton }