From 41c63d039e88f4aa3e2bc74d28f0e4b892ac0fe1 Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Thu, 8 Mar 2007 14:47:04 +0000 Subject: * 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. --- gui/win32/defstyle.inc | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'gui/win32/defstyle.inc') 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 -- cgit v1.2.3-70-g09d2