paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 06:19:32 +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

11
lcl/graphtype.pp
View File

@ -37,11 +37,18 @@ uses
type type
TGraphicsColor = -$7FFFFFFF-1..$7FFFFFFF; TGraphicsColor = -$7FFFFFFF-1..$7FFFFFFF;
TGraphicsFillStyle = ( TGraphicsFillStyle =
(
fsSurface, // fill till the color (it fills all execpt this color) fsSurface, // fill till the color (it fills all execpt this color)
fsBorder // fill this color (it fills only conneted pixels of 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 = TGraphicsDrawEffect =
( (
gdeNormal, // no effect gdeNormal, // no effect

3
lcl/ldocktree.pas
View File

@ -1137,6 +1137,8 @@ begin
ACanvas.Handle := DC; ACanvas.Handle := DC;
try try
for i := 0 to DockSite.ControlCount - 1 do for i := 0 to DockSite.ControlCount - 1 do
begin
if DockSite.Controls[i].HostDockSite = DockSite then
begin begin
ARect := DockSite.Controls[i].BoundsRect; ARect := DockSite.Controls[i].BoundsRect;
case DockSite.Controls[i].DockOrientation of case DockSite.Controls[i].DockOrientation of
@ -1153,6 +1155,7 @@ begin
end; end;
PaintDockFrame(ACanvas, DockSite.Controls[i], ARect); PaintDockFrame(ACanvas, DockSite.Controls[i], ARect);
end; end;
end;
finally finally
ACanvas.Free; ACanvas.Free;
end; end;