paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-08 11:01:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

Now some drawing appears in TCDGroupBox

Browse Source 
git-svn-id: trunk@28074 -
This commit is contained in:
sekelsenmat 2010-11-04 17:06:56 +00:00
parent 1d2770f40f
commit 5e993a5501
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/customdrawn/customdrawnextras.pas
View File

@ -534,8 +534,20 @@ end;
procedure TCDGroupBoxDrawerWinCE.DrawToIntfImage(ADest: TFPImageCanvas;
CDGroupBox: TCDGroupBox);
begin
ADest.Brush.FPColor := colRed;
// Background
ADest.Brush.FPColor := colGray;
ADest.Brush.Style:=bsSolid;
ADest.Pen.Style := psClear;
ADest.Rectangle(0, 0, CDGroupBox.Width, CDGroupBox.height);
// frame
ADest.Pen.FPColor := colBlack;
ADest.Pen.Style := psSolid;
ADest.Brush.Style:=bsClear;
ADest.Rectangle(0, 5, CDGroupBox.Width - 1, CDGroupBox.height - 1);
// Caption background and caption
end;
{ TCDTrackBar }