paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 22:20:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

gtk: fix Frame3D painting

Browse Source 
git-svn-id: trunk@20105 -
This commit is contained in:
paul 2009-05-21 12:42:07 +00:00
parent 89bfcf7006
commit d066b57145
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/gtk/gtkwinapi.inc
View File

@ -4361,10 +4361,6 @@ begin
{DebugLn(['Frame3D: Drawable = ', dbgs(Drawable),
' StyleWidget = ', dbgs(StyleWidget), ' Style = ', dbgs(TheStyle),
' Offset = ', dbgs(Offset), ' ARect = ', dbgs(ARect)]);}
Area.X := ARect.Left + Offset.X;
Area.Y := ARect.Top + Offset.Y;
Area.Width := ARect.Right - ARect.Left;
Area.Height := ARect.Bottom - ARect.Top;
if FrameWidth = 1 then
ShadowType := GTKThinShadowType[Style]
else
@ -4372,6 +4368,10 @@ begin
for i := 1 to FrameWidth do
begin
Area.X := ARect.Left + Offset.X;
Area.Y := ARect.Top + Offset.Y;
Area.Width := ARect.Right - ARect.Left;
Area.Height := ARect.Bottom - ARect.Top;
gtk_paint_shadow(TheStyle,
Drawable, GTK_STATE_NORMAL,
ShadowType,