From 9cb076b33b3c1c7f9b9214f5e00eb9cdac35b518 Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@lazarus-ide.org>
Date: Fri, 4 Nov 2011 14:57:42 +0000
Subject: [PATCH] customdrawn: Adds a look for the winxp edit

git-svn-id: trunk@33298 -
---
 components/customdrawn/customdrawn_winxp.pas | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/components/customdrawn/customdrawn_winxp.pas b/components/customdrawn/customdrawn_winxp.pas
index 4afba772de..0108a2f28c 100644
--- a/components/customdrawn/customdrawn_winxp.pas
+++ b/components/customdrawn/customdrawn_winxp.pas
@@ -24,10 +24,16 @@ type
     // TCDButton
     procedure DrawButton(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
       AState: TCDControlState; AStateEx: TCDControlStateEx); override;
+    // TCDEdit
+    procedure DrawEditBackground(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
+      AState: TCDControlState; AStateEx: TCDEditStateEx); override;
   end;
 
 implementation
 
+const
+  WINXP_FRAME_BLUE = $00B99D7F;
+
 { TCDDrawerWinXP }
 
 procedure TCDDrawerWinXP.DrawButton(ADest: TCanvas; ADestPos: TPoint;
@@ -89,6 +95,17 @@ begin
     (ASize.cy - ADest.TextHeight(Str)) div 2, Str);
 end;
 
+procedure TCDDrawerWinXP.DrawEditBackground(ADest: TCanvas; ADestPos: TPoint;
+  ASize: TSize; AState: TCDControlState; AStateEx: TCDEditStateEx);
+begin
+  // The background
+  ADest.Brush.Color := clWhite;
+  ADest.Brush.Style := bsSolid;
+  ADest.Pen.Color := WINXP_FRAME_BLUE;
+  ADest.Pen.Style := psSolid;
+  ADest.Rectangle(0, 0, ASize.cx, ASize.cy);
+end;
+
 initialization
   RegisterDrawer(TCDDrawerWinXP.Create, dsWinXP);
 end.