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

dockmanager example: exclude dock grabber image if not used

Browse Source 
git-svn-id: trunk@24776 -
This commit is contained in:
dodi 2010-04-21 01:59:52 +00:00
parent 7693e5163a
commit fb7e72df4d
1 changed files with 35 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
examples/dockmanager/package/umakesite.pas
View File

@ -280,7 +280,8 @@ begin
//wrap into dock site
Site := WrapDockable(AForm);
end;
//create a docking handle - should become a component?
if DockGrip <> nil then begin
//create a docking handle - should become a component?
img := TImage.Create(AForm); //we could own the img, and be notified when its parent becomes nil
img.Align := alNone;
//if ForIDE then
@ -311,9 +312,12 @@ begin
//else???
img.OnMouseMove := @DockHandleMouseMove;
img.Visible := True;
end else
img := nil;
//make visible, so that it can be docked without problems
AForm.Visible := True;
AForm.EnableAlign;
if img <> nil then
img.BringToFront;
if ForIDE and fWrap and assigned(Site) and assigned(Site.DockManager) then begin
//site.DockManager.ResetBounds(True); //doesn't help