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

gtk: fill the interior one pixel smaller to avoid overllaping with the border in DrawEdge

Browse Source 
git-svn-id: trunk@23270 -
This commit is contained in:
blikblum 2009-12-25 10:45:55 +00:00
parent 6b7d886771
commit eda58ffd42
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2845,7 +2845,6 @@ var
InnerTL, OuterTL,
InnerBR, OuterBR, MiddleColor: TGDKColor;
BInner, BOuter: Boolean;
Width, Height: Integer;
R: TRect;
DCOrigin: TPoint;
begin
@ -2916,11 +2915,10 @@ begin
//Draw interiour
if ((grfFlags and BF_MIDDLE) = BF_MIDDLE) then
begin
Width := R.Right - R.Left + 1;
Height := R.Bottom - R.Top + 1;
MiddleColor := AllocGDKColor(GetSysColor(COLOR_BTNFACE));
gdk_gc_set_foreground(GC, @MiddleColor);
gdk_draw_rectangle(Drawable, GC, 1, R.Left, R.Top, Width, Height);
gdk_draw_rectangle(Drawable, GC, 1, R.Left, R.Top,
R.Right - R.Left, R.Bottom - R.Top);
end;
// adjust rect if needed