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

in RxMDI new procedure - CloseAll - close all child forms

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2563 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2012-10-16 19:17:14 +00:00
parent fcaa4dab01
commit 4eddaf1aca
1 changed files with 21 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
components/rx/rxmdi.pas
View File

@ -67,6 +67,7 @@ type
procedure ScrollRigthExecute(Sender: TObject);
procedure ShowHiddenBtnOnResize;
procedure ChildWindowsShowLast;
procedure DoCloseAll(AIgnoreBtn:TRxMDIButton);
protected
procedure Paint; override;
procedure Resize; override;
@ -124,6 +125,7 @@ type
procedure ChildWindowsAdd(F:TForm);
procedure ChildWindowsCreate(var AForm; FC:TFormClass);
procedure ChildWindowsUpdateCaption(F:TForm);
procedure CloseAll;
property CurrentChildWindow:TForm read FCurrentChildWindow write SetCurrentChildWindow;
published
@ -340,6 +342,12 @@ begin
end;
end;
procedure TRxMDIPanel.CloseAll;
begin
if Assigned(FTaskPanel) then
FTaskPanel.DoCloseAll(nil);
end;
{ TRxMDITasks }
@ -427,6 +435,17 @@ begin
Invalidate;
end;
procedure TRxMDITasks.DoCloseAll(AIgnoreBtn: TRxMDIButton);
var
i:integer;
begin
for i:=ComponentCount-1 downto 0 do
begin
if (Components[i] is TRxMDIButton) and (TRxMDIButton(Components[i]) <> AIgnoreBtn) then
TRxMDIButton(Components[i]).DoCloseMenu(nil);
end;
end;
procedure TRxMDITasks.Paint;
var
i:integer;
@ -616,24 +635,12 @@ end;
procedure TRxMDIButton.DoCloseAllMenu(Sender: TObject);
begin
{ if Assigned(WindowTabs) then
CloseAllWindowTabs;}
FNavPanel.DoCloseAll(nil);
end;
procedure TRxMDIButton.DoCloseAllExcepThisMenu(Sender: TObject);
var
i:integer;
F:TForm;
begin
{ if Assigned(WindowTabs) then
begin
for i:=WindowTabs.WindowCount-1 downto 0 do
begin
F:=WindowTabs.Item[i];
if F<>FNavForm then
F.Close;
end;
end;}
FNavPanel.DoCloseAll(Self);
end;
procedure TRxMDIButton.DoActivateMenu(Sender: TObject);