paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-12 00:38:13 +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
DockManager.MessageHandler(Self, Message);
end;
CM_TEXTCHANGED:
CM_TEXTCHANGED,
CM_VISIBLECHANGED:
begin
// forward message to the dock manager is we are docked
if (HostDockSite <> nil) and (HostDockSite.UseDockManager) and
Assigned(HostDockSite.DockManager) then
HostDockSite.DockManager.MessageHandler(Self, Message);

10
lcl/ldocktree.pas
View File

@ -1620,6 +1620,7 @@ var
ARect: TRect;
Part: TLazDockHeaderPart;
Control: TControl;
AZone: TLazDockZone;
begin
case Message.msg of
LM_LBUTTONUP:
@ -1649,6 +1650,15 @@ begin
InvalidateRect(DockSite.Handle, @ARect, False);
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;