paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-27 05:10:19 +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;
AState: TCDControlState; AStateEx: TCDControlStateEx); override;
// TCDGroupBox
procedure DrawGroupBox(ADest: TFPCustomCanvas; ASize: TSize;
procedure DrawGroupBox(ADest: TFPCustomCanvas; ADestPos: TPoint; ASize: TSize;
AState: TCDControlState; AStateEx: TCDControlStateEx); override;
// ===================================
// Common Controls Tab
@ -195,7 +195,7 @@ begin
end;
procedure TCDDrawerWinCE.DrawGroupBox(ADest: TFPCustomCanvas;
ASize: TSize; AState: TCDControlState; AStateEx: TCDControlStateEx);
ADestPos: TPoint; ASize: TSize; AState: TCDControlState; AStateEx: TCDControlStateEx);
var
FCaptionMiddle: integer;
lTextSize: TSize;