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

CustomDrawn: Fixes compilation

Browse Source 
git-svn-id: trunk@36018 -
This commit is contained in:
sekelsenmat 2012-03-15 06:33:00 +00:00
parent 1575cf7405
commit a77dbf1589
1 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
components/customdrawn/customdrawn_wince.pas
View File

@ -7,6 +7,7 @@ interface
uses
// RTL
Classes, SysUtils, Types,
fpimage, fpcanvas,
// LazUtils
lazutf8,
// LCL -> Use only TForm, TWinControl, TCanvas and TLazIntfImage
@ -42,7 +43,7 @@ type
procedure DrawCheckBoxSquare(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
AState: TCDControlState; AStateEx: TCDControlStateEx); override;
// TCDGroupBox
procedure DrawGroupBox(ADest: TCanvas; ASize: TSize;
procedure DrawGroupBox(ADest: TFPCustomCanvas; ASize: TSize;
AState: TCDControlState; AStateEx: TCDControlStateEx); override;
// ===================================
// Common Controls Tab
@ -187,44 +188,44 @@ begin
end;
end;
procedure TCDDrawerWinCE.DrawGroupBox(ADest: TCanvas;
procedure TCDDrawerWinCE.DrawGroupBox(ADest: TFPCustomCanvas;
ASize: TSize; AState: TCDControlState; AStateEx: TCDControlStateEx);
var
FCaptionMiddle: integer;
lTextSize: TSize;
lCaption: String;
begin
FCaptionMiddle := ADest.TextHeight(cddTestStr) div 2;
FCaptionMiddle := (ADest as TCanvas).TextHeight(cddTestStr) div 2;
if FCaptionMiddle = 0 then FCaptionMiddle := AStateEx.Font.Size div 2;
if FCaptionMiddle = 0 then FCaptionMiddle := 5;
// Background
ADest.Brush.Color := AStateEx.ParentRGBColor;
ADest.Brush.FPColor := TColorToFPColor(AStateEx.ParentRGBColor);
ADest.Brush.Style := bsSolid;
ADest.Pen.Style := psSolid;
ADest.Pen.Color := AStateEx.ParentRGBColor;
ADest.Pen.FPColor := TColorToFPColor(AStateEx.ParentRGBColor);
ADest.Rectangle(0, 0, ASize.cx, ASize.cy);
// frame
ADest.Pen.Color := clBlack;
ADest.Pen.FPColor := colBlack;
ADest.Pen.Style := psSolid;
ADest.Brush.Style := bsClear;
ADest.Rectangle(0, FCaptionMiddle, ASize.cx, ASize.cy);
// ToDo: Make the caption smaller if it is too big
lCaption := AStateEx.Caption;
lTextSize := ADest.TextExtent(lCaption);
lTextSize := (ADest as TCanvas).TextExtent(lCaption);
// fill the text background
ADest.Brush.Style := bsSolid;
ADest.Brush.Color := AStateEx.ParentRGBColor;
ADest.Brush.FPColor := TColorToFPColor(AStateEx.ParentRGBColor);
ADest.Pen.Style := psClear;
ADest.Rectangle(Bounds(FCaptionMiddle, 0, lTextSize.cx+5, lTextSize.cy));
// paint text
ADest.Pen.Style := psClear;
ADest.Brush.Style := bsClear;
ADest.TextOut(FCaptionMiddle+3, 0, lCaption);
(ADest as TCanvas).TextOut(FCaptionMiddle+3, 0, lCaption);
end;
procedure TCDDrawerWinCE.DrawTab(ADest: TCanvas; ADestPos: TPoint;