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

Fixes the wince button focus and the groupbox text background in customdrawnextras.pas

Browse Source 
git-svn-id: trunk@28857 -
This commit is contained in:
sekelsenmat 2011-01-02 12:05:00 +00:00
parent 5652dbe192
commit cb6d78faba
1 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/customdrawn/customdrawnextras.pas
View File

@ -1248,6 +1248,7 @@ begin
Pen.Color := clBlack;
Pen.Style := psSolid;
Rectangle(0, 0, Width, Height);
Rectangle(1, 1, Width - 1, Height - 1); // The border is thicken when focused
end;
else
with TmpB.Canvas do
@ -1623,15 +1624,9 @@ begin
else
ADest.Brush.Color := ColorToRGB(CDGroupBox.Parent.Color);
// Text background
ADest.Pen.Style := psClear;
ADest.Brush.Style := bsSolid;
ADest.Rectangle(FCaptionMiddle, 0, ADest.GetTextWidth(CDGroupBox.Caption) +
FCaptionMiddle, 10);
// paint text
ADest.Pen.Style := psSolid;
ADest.Brush.Style := bsClear;
ADest.Brush.Style := bsSolid; // This will fill the text background
ADest.Font.Size := 10;
ADest.TextOut(FCaptionMiddle, 0, CDGroupBox.Caption);
{$endif}