1 files changed, 50 insertions, 0 deletions
diff --git a/gui/win32/defstyle.inc b/gui/win32/defstyle.inc
new file mode 100644
index 00000000..c456fdfa
--- /dev/null
+++ b/gui/win32/defstyle.inc
@@ -0,0 +1,50 @@
+{
+    fpGUI  -  Free Pascal Graphical User Interface
+    Copyright (C) 2000 - 2001 by
+      Areca Systems GmbH / Sebastian Guenther
+    Copyright (C) 2006 by Graeme Geldenhuys 
+      member of the fpGUI development team.
+
+    Default style implementation for Win32
+
+    See the file COPYING.fpGUI, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ **********************************************************************}
+
+
+{$DEFINE Has_DefaultStyle_GetGUIColor}
+
+function TDefaultStyle.GetGUIColor(Color: TColor): TGfxColor;
+begin
+  Color := Windows.GetSysColor(Color and $ffff);
+  Result.Red := (Color and $ff) * 257;
+  Result.Green := ((Color shr 8) and $ff) * 257;
+  Result.Blue := ((Color shr 16) and $ff) * 257;
+  Result.Alpha := 0;
+end;
+
+
+{$DEFINE Has_DefaultStyle_DrawFocusRect}
+
+procedure TDefaultStyle.DrawFocusRect(Canvas: TFCanvas; const ARect: TRect);
+var
+  Rect: Windows.TRect;
+begin
+  if Canvas.InheritsFrom(TGDICanvas) then
+  begin
+    Rect := RectToWinRect(Canvas.Transform(ARect));
+    Windows.DrawFocusRect(TGDICanvas(Canvas).Handle, Rect)
+  end
+  else
+  begin
+    Canvas.SetColor(GetGUIColor(clGray));
+    Canvas.DrawRect(ARect);
+  end;
+end;
+
+