diff options
| author | Graeme Geldenhuys <graemeg@users.sourceforge.net> | 2007-03-08 14:47:04 +0000 |
|---|---|---|
| committer | Graeme Geldenhuys <graemeg@users.sourceforge.net> | 2007-03-08 14:47:04 +0000 |
| commit | 41c63d039e88f4aa3e2bc74d28f0e4b892ac0fe1 (patch) | |
| tree | 1d65306fdff90b1e82d3538a82a976dcf2cef1ff /gui/win32 | |
| parent | 6615b82afe97f92af4d1c0f7fb2e6b82b44c7ace (diff) | |
| download | fpGUI-41c63d039e88f4aa3e2bc74d28f0e4b892ac0fe1.tar.xz | |
* Reworked the Style Manager to behave like a factory pattern.
* New and custom styles can now register themselves with the gStyleManager
* I've split all the concrete styles into seperate units.
* I've rename the TStyle to TStyleAbs which more clearly shows what it is.
* Renamed TDefaultStyle to TBasicStyle to show that it it implements the basic drawing routines for a style and is recommended for custom styles to descend from.
Diffstat (limited to 'gui/win32')
| -rw-r--r-- | gui/win32/defstyle.inc | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gui/win32/defstyle.inc b/gui/win32/defstyle.inc index 7f57494a..41c36f5f 100644 --- a/gui/win32/defstyle.inc +++ b/gui/win32/defstyle.inc @@ -1,9 +1,9 @@ { fpGUI - Free Pascal GUI Library - Default Style implementation for Win32 + Basic Style implementation for Win32 - Copyright (C) 2000 - 2006 See the file AUTHORS.txt, included in this + Copyright (C) 2006 - 2007 See the file AUTHORS.txt, included in this distribution, for details of the copyright. See the file COPYING.modifiedLGPL, included in this distribution, @@ -16,7 +16,7 @@ {$DEFINE Has_DefaultStyle_GetGUIColor} -function TDefaultStyle.GetGUIColor(Color: TColor): TGfxColor; +function TBasicStyle.GetGUIColor(Color: TColor): TGfxColor; begin Color := Windows.GetSysColor(Color and $ffff); Result.Red := (Color and $ff) * 257; @@ -28,7 +28,7 @@ end; {$DEFINE Has_DefaultStyle_DrawFocusRect} -procedure TDefaultStyle.DrawFocusRect(Canvas: TFCanvas; const ARect: TRect); +procedure TBasicStyle.DrawFocusRect(Canvas: TFCanvas; const ARect: TRect); var Rect: Windows.TRect; begin |