paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-15 14:29:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

dockSite: call paint dock frame only only for docked controls

Browse Source 
git-svn-id: trunk@13653 -
This commit is contained in:
paul 2008-01-06 10:09:46 +00:00
parent d36fa6b624
commit db8928bd1c
2 changed files with 26 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/graphtype.pp
View File

@ -37,11 +37,18 @@ uses
type
TGraphicsColor = -$7FFFFFFF-1..$7FFFFFFF;
TGraphicsFillStyle = (
TGraphicsFillStyle =
(
fsSurface, // fill till the color (it fills all execpt this color)
fsBorder // fill this color (it fills only conneted pixels of this color)
);
TGraphicsBevelCut = (bvNone, bvLowered, bvRaised, bvSpace);
);
TGraphicsBevelCut =
(
bvNone,
bvLowered,
bvRaised,
bvSpace
);
TGraphicsDrawEffect =
(
gdeNormal, // no effect

29
lcl/ldocktree.pas
View File

@ -1138,20 +1138,23 @@ begin
try
for i := 0 to DockSite.ControlCount - 1 do
begin
ARect := DockSite.Controls[i].BoundsRect;
case DockSite.Controls[i].DockOrientation of
doHorizontal:
begin
ARect.Bottom := ARect.Top;
Dec(ARect.Top, DefaultDockGrabberSize);
end;
doVertical:
begin
ARect.Right := ARect.Left;
Dec(ARect.Left, DefaultDockGrabberSize);
end;
if DockSite.Controls[i].HostDockSite = DockSite then
begin
ARect := DockSite.Controls[i].BoundsRect;
case DockSite.Controls[i].DockOrientation of
doHorizontal:
begin
ARect.Bottom := ARect.Top;
Dec(ARect.Top, DefaultDockGrabberSize);
end;
doVertical:
begin
ARect.Right := ARect.Left;
Dec(ARect.Left, DefaultDockGrabberSize);
end;
end;
PaintDockFrame(ACanvas, DockSite.Controls[i], ARect);
end;
PaintDockFrame(ACanvas, DockSite.Controls[i], ARect);
end;
finally
ACanvas.Free;