paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 15:40:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

customdrawn: Adds a look for the winxp edit

Browse Source 
git-svn-id: trunk@33298 -
This commit is contained in:
sekelsenmat 2011-11-04 14:57:42 +00:00
parent dcca4262d4
commit 9cb076b33b
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
components/customdrawn/customdrawn_winxp.pas
View File

@ -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.