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

qt: fix few issues with DrawEdge

Browse Source 
git-svn-id: trunk@17645 -
This commit is contained in:
paul 2008-12-01 14:23:42 +00:00
parent cda2f61ad0
commit eda677114d
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/qt/qtwinapi.inc
View File

@ -1054,10 +1054,13 @@ begin
end;
try
if Edge and (BDR_SUNKENOUTER or BDR_RAISEDOUTER) <> 0 then
InternalDrawEdge(True, Rect);
InternalDrawEdge(True, ClientRect);
InflateRect(ClientRect, -1, -1);
if grfFlags and BF_MONO = 0 then
ColorDark := ColorToRGB(clBtnFace);
begin
ColorLight := ColorToRGB(clBtnHiLight);
ColorDark := ColorToRGB(clBtnShadow);
end;
if Edge and (BDR_SUNKENINNER or BDR_RAISEDINNER) <> 0 then
begin
InternalDrawEdge(False, ClientRect);
@ -1066,6 +1069,9 @@ begin
finally
end;
inc(ClientRect.Right);
inc(ClientRect.Bottom);
if grfFlags and BF_MIDDLE <> 0 then
begin
Brush := CreateSolidBrush(clBtnFace);