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

customdrawn: Fixes compilation, bug #28470

Browse Source 
git-svn-id: trunk@49635 -
This commit is contained in:
sekelsenmat 2015-08-10 19:06:20 +00:00
parent f1a6111db4
commit 73a5b52394
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/customdrawn/customdrawn_wince.pas
View File

@ -43,7 +43,7 @@ type
procedure DrawCheckBoxSquare(ADest: TCanvas; ADestPos: TPoint; ASize: TSize; procedure DrawCheckBoxSquare(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
AState: TCDControlState; AStateEx: TCDControlStateEx); override; AState: TCDControlState; AStateEx: TCDControlStateEx); override;
// TCDGroupBox // TCDGroupBox
procedure DrawGroupBox(ADest: TFPCustomCanvas; ASize: TSize; procedure DrawGroupBox(ADest: TFPCustomCanvas; ADestPos: TPoint; ASize: TSize;
AState: TCDControlState; AStateEx: TCDControlStateEx); override; AState: TCDControlState; AStateEx: TCDControlStateEx); override;
// =================================== // ===================================
// Common Controls Tab // Common Controls Tab
@ -195,7 +195,7 @@ begin
end; end;
procedure TCDDrawerWinCE.DrawGroupBox(ADest: TFPCustomCanvas; procedure TCDDrawerWinCE.DrawGroupBox(ADest: TFPCustomCanvas;
ASize: TSize; AState: TCDControlState; AStateEx: TCDControlStateEx); ADestPos: TPoint; ASize: TSize; AState: TCDControlState; AStateEx: TCDControlStateEx);
var var
FCaptionMiddle: integer; FCaptionMiddle: integer;
lTextSize: TSize; lTextSize: TSize;