paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-12 05:00:53 +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

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

@ -280,41 +280,45 @@ begin
//wrap into dock site
Site := WrapDockable(AForm);
end;
//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
ok:=false;
try //begin //prevent problems with the following code!
img.AnchorParallel(akRight,0,Result); //anchor to Result=Site or to AForm?
img.AnchorParallel(akTop,0,Result);
ok:=true;
finally
if not ok then
DebugLn('error AnchorParallel');
end;
img.Anchors:=[akRight,akTop];
img.Cursor := crHandPoint;
img.Parent := AForm;
r := AForm.ClientRect;
r.bottom := 16;
r.Left := r.Right - 16;
img.BoundsRect := r;
if DockGrip <> nil then //problem: find grabber picture!?
try
img.Picture := DockGrip;
except
on E: Exception do begin
DebugLn('exception loading picture ',E.Message);
end;
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
ok:=false;
try //begin //prevent problems with the following code!
img.AnchorParallel(akRight,0,Result); //anchor to Result=Site or to AForm?
img.AnchorParallel(akTop,0,Result);
ok:=true;
finally
if not ok then
DebugLn('error AnchorParallel');
end;
//else???
img.OnMouseMove := @DockHandleMouseMove;
img.Visible := True;
img.Anchors:=[akRight,akTop];
img.Cursor := crHandPoint;
img.Parent := AForm;
r := AForm.ClientRect;
r.bottom := 16;
r.Left := r.Right - 16;
img.BoundsRect := r;
if DockGrip <> nil then //problem: find grabber picture!?
try
img.Picture := DockGrip;
except
on E: Exception do begin
DebugLn('exception loading picture ',E.Message);
end;
end;
//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;
img.BringToFront;
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
//AForm.Invalidate;