From 411ecaa94b1adf4c117dade30a3b9b09bd3ee509 Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@lazarus-ide.org>
Date: Sat, 1 Aug 2015 06:29:19 +0000
Subject: [PATCH] cocoa: Implements basic TSpeedButton look - part 3

git-svn-id: trunk@49582 -
---
 components/customdrawn/customdrawn_wince.pas    | 4 ++--
 components/customdrawn/customdrawn_windows7.pas | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/components/customdrawn/customdrawn_wince.pas b/components/customdrawn/customdrawn_wince.pas
index 535fb3d7f9..27b2ee2097 100644
--- a/components/customdrawn/customdrawn_wince.pas
+++ b/components/customdrawn/customdrawn_wince.pas
@@ -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;
diff --git a/components/customdrawn/customdrawn_windows7.pas b/components/customdrawn/customdrawn_windows7.pas
index d8f2cce8bc..cd16d48067 100644
--- a/components/customdrawn/customdrawn_windows7.pas
+++ b/components/customdrawn/customdrawn_windows7.pas
@@ -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;