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

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

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