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

lcl: DockManager: handle CM_VISIBLECHANGED

Browse Source 
git-svn-id: trunk@20065 -
This commit is contained in:
paul 2009-05-20 04:38:24 +00:00
parent 1b9f91ccc2
commit f22d9341c2
2 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/wincontrol.inc
View File

@ -4801,8 +4801,10 @@ begin
if FDockSite and FUseDockManager and Assigned(DockManager) then if FDockSite and FUseDockManager and Assigned(DockManager) then
DockManager.MessageHandler(Self, Message); DockManager.MessageHandler(Self, Message);
end; end;
CM_TEXTCHANGED: CM_TEXTCHANGED,
CM_VISIBLECHANGED:
begin begin
// forward message to the dock manager is we are docked
if (HostDockSite <> nil) and (HostDockSite.UseDockManager) and if (HostDockSite <> nil) and (HostDockSite.UseDockManager) and
Assigned(HostDockSite.DockManager) then Assigned(HostDockSite.DockManager) then
HostDockSite.DockManager.MessageHandler(Self, Message); HostDockSite.DockManager.MessageHandler(Self, Message);

10
lcl/ldocktree.pas
View File

@ -1620,6 +1620,7 @@ var
ARect: TRect; ARect: TRect;
Part: TLazDockHeaderPart; Part: TLazDockHeaderPart;
Control: TControl; Control: TControl;
AZone: TLazDockZone;
begin begin
case Message.msg of case Message.msg of
LM_LBUTTONUP: LM_LBUTTONUP:
@ -1649,6 +1650,15 @@ begin
InvalidateRect(DockSite.Handle, @ARect, False); InvalidateRect(DockSite.Handle, @ARect, False);
end; end;
end; end;
CM_VISIBLECHANGED:
begin
if not (csDestroying in Sender.ComponentState) then
begin
AZone := RootZone.FindZone(Sender) as TLazDockZone;
if AZone <> nil then
BuildDockLayout(TLazDockZone(AZone.Parent));
end;
end;
end end
end; end;