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

cocoa: Implements basic TSpeedButton look - part 3

Browse Source 
git-svn-id: trunk@49582 -
This commit is contained in:
sekelsenmat 2015-08-01 06:29:19 +00:00
parent c7486c896c
commit 411ecaa94b
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/customdrawn/customdrawn_wince.pas
View File

@ -32,7 +32,7 @@ type
// Standard Tab
// ===================================
// TCDButton
procedure DrawButton(ADest: TFPCustomCanvas; ASize: TSize;
procedure DrawButton(ADest: TFPCustomCanvas; ADestPos: TPoint; ASize: TSize;
AState: TCDControlState; AStateEx: TCDButtonStateEx); override;
// TCDEdit
procedure DrawEditFrame(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
@ -86,7 +86,7 @@ begin
end;
procedure TCDDrawerWinCE.DrawButton(ADest: TFPCustomCanvas;
ASize: TSize; AState: TCDControlState; AStateEx: TCDButtonStateEx);
ADestPos: TPoint; ASize: TSize; AState: TCDControlState; AStateEx: TCDButtonStateEx);
var
lDest: TCanvas absolute ADest;
Str: string;

4
components/customdrawn/customdrawn_windows7.pas
View File

@ -60,7 +60,7 @@ type
// Standard Tab
// ===================================
// TCDButton
procedure DrawButton(ADest: TFPCustomCanvas; ASize: TSize;
procedure DrawButton(ADest: TFPCustomCanvas; ADestPos: TPoint; ASize: TSize;
AState: TCDControlState; AStateEx: TCDButtonStateEx); override;
end;
@ -456,7 +456,7 @@ end;
{ TCDWin7 }
procedure TCDWin7.DrawButton(ADest: TFPCustomCanvas; ASize: TSize;
procedure TCDWin7.DrawButton(ADest: TFPCustomCanvas; ADestPos: TPoint; ASize: TSize;
AState: TCDControlState; AStateEx: TCDButtonStateEx);
var
Str: string;