Experimental (work-in-progress) Windows 8 look-alike theme.

At least I think it is Windows 8 (I don't own a copy) - I am working of
screenshots I found on the internet. I liked the look, so thought I
would start on a fpGUI theme for it.

3 files changed, 539 insertions, 0 deletions

diff --git a/images/themes/win8/checkboxes.bmp b/images/themes/win8/checkboxes.bmp
new file mode 100644
index 00000000..3fc3ae6c
--- /dev/null
+++ b/images/themes/win8/checkboxes.bmp
diff --git a/images/themes/win8/radiobuttons.bmp b/images/themes/win8/radiobuttons.bmp
new file mode 100644
index 00000000..f058c37b
--- /dev/null
+++ b/images/themes/win8/radiobuttons.bmp
diff --git a/src/gui/fpg_style_win8.pas b/src/gui/fpg_style_win8.pas
new file mode 100644
index 00000000..69bad2cb
--- /dev/null
+++ b/src/gui/fpg_style_win8.pas
@@ -0,0 +1,539 @@
+{
+    fpGUI  -  Free Pascal GUI Toolkit
+
+    Copyright (C) 2006 - 2014 See the file AUTHORS.txt, included in this
+    distribution, for details of the copyright.
+
+    See the file COPYING.modifiedLGPL, included in this distribution,
+    for details about redistributing fpGUI.
+
+    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.
+
+    Description:
+      This unit implements a Windows 8 (I think) look-alike style
+
+    Author: Graeme Geldenhuys
+}
+
+unit fpg_style_win8;
+
+{$mode objfpc}{$H+}
+
+{
+    ***********************************************************
+    **********   This is still under development!   ***********
+    ***********************************************************
+
+    It needs lots of testing and debugging.
+}
+
+interface
+
+uses
+  Classes,
+  fpg_main,
+  fpg_base;
+
+type
+  TfpgWin8Style = class(TfpgStyle)
+  private
+    FImages: TfpgImages;
+    procedure   LoadThemeImages;
+  public
+    constructor Create; override;
+    destructor  Destroy; override;
+    { General }
+    procedure   DrawControlFrame(ACanvas: TfpgCanvas; x, y, w, h: TfpgCoord); override; overload;
+    function    GetControlFrameBorders: TRect; override;
+    { Buttons }
+    procedure   DrawButtonFace(ACanvas: TfpgCanvas; x, y, w, h: TfpgCoord; AFlags: TfpgButtonFlags); override; overload;
+    function    GetButtonBorders: TRect; override;
+    { Combobox }
+    procedure   DrawStaticComboBox(ACanvas: TfpgCanvas; r: TfpgRect; const IsEnabled: Boolean; const IsFocused: Boolean; const IsReadOnly: Boolean; const ABackgroundColor: TfpgColor; const AInternalBtnRect: TfpgRect; const ABtnPressed: Boolean); override;
+    { Checkbox }
+    procedure   DrawCheckbox(ACanvas: TfpgCanvas; x, y: TfpgCoord; ix, iy: TfpgCoord); override;
+  end;
+
+implementation
+
+uses
+  fpg_stylemanager
+  ;
+
+const
+  Win8BaseColors: array [0..16] of TfpgColor = (
+    $FFF0F0F0, $FF606060, $FFABADB3,
+    $FF202020, $FF474747, $FFC0C0C0,
+    $FF3399FF, $FF3399FF, $FFFFFFFF,
+    $FF2D2D2D, $FF494949, $FF24617A,
+    $FF353535, $FF434343, $FF313131,
+    $FF27546A, $FFE5E5E5);
+
+
+const
+  win8_checkboxes: array[0..2601] of byte = (
+      66, 77, 42, 10,  0,  0,  0,  0,  0,  0, 54,  0,  0,  0, 40,  0,  0,
+       0, 65,  0,  0,  0, 13,  0,  0,  0,  1,  0, 24,  0,  0,  0,  0,  0,
+     244,  9,  0,  0,196, 14,  0,  0,196, 14,  0,  0,  0,  0,  0,  0,  0,
+       0,  0,  0,112,112,112,112,112,112,112,112,112,112,112,112,112,112,
+     112,112,112,112,112,112,112,112,112,112,112,112,112,112,112,112,112,
+     112,112,112,112,112,112,112,112,112,112,112,112,112,112,112,112,112,
+     112,112,112,112,112,112,112,112,112,112,112,112,112,112,112,112,112,
+     112,112,112,112,112,112,112,112,112,112,112,112,112,188,188,188,188,
+     188,188,188,188,188,188,188,188,188,188,188,188,188,188,188,188,188,
+     188,188,188,188,188,188,188,188,188,188,188,188,188,188,188,188,188,
+     188,188,188,188,188,188,188,188,188,188,188,188,188,188,188,188,188,
+     188,188,188,188,188,188,188,188,188,188,188,188,188,188,188,188,188,
+     188,188,188,188,188,188,188,188,188,188,188,188,188,188,188,188,188,
+     188,188,188,188,188,188,188,188,188,188,188,188,188,188,188,188,188,
+     188,188,188,188,188,188,188,188,188,188,188,  0,112,112,112,255,255,
+     255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,
+     255,255,255,255,255,255,255,255,255,255,255,255,255,255,112,112,112,
+     112,112,112,255,255,255,255,255,255,255,255,255,255,255,255,255,255,
+     255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,
+     255,255,112,112,112,188,188,188,230,230,230,230,230,230,230,230,230,
+     230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,
+     230,230,230,230,230,230,230,188,188,188,188,188,188,230,230,230,230,
+     230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,
+     230,230,230,230,230,230,230,230,230,230,230,230,188,188,188,188,188,
+     188,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,
+     230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,
+     188,188,188,  0,112,112,112,255,255,255,255,255,255,255,255,255,255,
+     255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,
+     255,255,255,255,255,255,112,112,112,112,112,112,255,255,255,255,255,
+     255,255,255,255,255,255,255,255,255,255,207,207,207,255,255,255,255,
+     255,255,255,255,255,255,255,255,255,255,255,112,112,112,188,188,188,
+     230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,
+     230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,188,
+     188,188,188,188,188,230,230,230,230,230,230,230,230,230,230,230,230,
+     230,230,230,208,208,208,230,230,230,230,230,230,230,230,230,230,230,
+     230,230,230,230,188,188,188,188,188,188,230,230,230,230,230,230,230,
+     230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,
+     230,230,230,230,230,230,230,230,230,188,188,188,  0,112,112,112,255,
+     255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,
+     255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,112,112,
+     112,112,112,112,255,255,255,255,255,255,255,255,255,255,255,255, 95,
+      95, 95,  0,  0,  0,207,207,207,255,255,255,255,255,255,255,255,255,
+     255,255,255,112,112,112,188,188,188,230,230,230,230,230,230,230,230,
+     230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,
+     230,230,230,230,230,230,230,230,188,188,188,188,188,188,230,230,230,
+     230,230,230,230,230,230,230,230,230,156,156,156,112,112,112,208,208,
+     208,230,230,230,230,230,230,230,230,230,230,230,230,188,188,188,188,
+     188,188,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,
+     230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,
+     230,188,188,188,  0,112,112,112,255,255,255,255,255,255,255,255,255,
+     255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,
+     255,255,255,255,255,255,255,112,112,112,112,112,112,255,255,255,255,
+     255,255,239,239,239, 63, 63, 63,  0,  0,  0,  0,  0,  0, 47, 47, 47,
+     255,255,255,255,255,255,255,255,255,255,255,255,112,112,112,188,188,
+     188,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,
+     230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,
+     188,188,188,188,188,188,230,230,230,230,230,230,223,223,223,141,141,
+     141,112,112,112,112,112,112,134,134,134,230,230,230,230,230,230,230,
+     230,230,230,230,230,188,188,188,188,188,188,230,230,230,230,230,230,
+     230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,
+     230,230,230,230,230,230,230,230,230,230,188,188,188,  0,112,112,112,
+     255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,
+     255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,112,
+     112,112,112,112,112,255,255,255,239,239,239, 47, 47, 47,  0,  0,  0,
+       0,  0,  0, 15, 15, 15,  0,  0,  0,127,127,127,255,255,255,255,255,
+     255,255,255,255,112,112,112,188,188,188,230,230,230,230,230,230,230,
+     230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,
+     230,230,230,230,230,230,230,230,230,188,188,188,188,188,188,230,230,
+     230,223,223,223,134,134,134,112,112,112,112,112,112,119,119,119,112,
+     112,112,171,171,171,230,230,230,230,230,230,230,230,230,188,188,188,
+     188,188,188,230,230,230,230,230,230,230,230,230,230,230,230,230,230,
+     230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,
+     230,230,188,188,188,  0,112,112,112,255,255,255,255,255,255,255,255,
+     255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,
+     255,255,255,255,255,255,255,255,112,112,112,112,112,112,255,255,255,
+     159,159,159,  0,  0,  0, 15, 15, 15,207,207,207,175,175,175,  0,  0,
+       0,  0,  0,  0,207,207,207,255,255,255,255,255,255,112,112,112,188,
+     188,188,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,
+     230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,
+     230,188,188,188,188,188,188,230,230,230,186,186,186,112,112,112,119,
+     119,119,208,208,208,193,193,193,112,112,112,112,112,112,208,208,208,
+     230,230,230,230,230,230,188,188,188,188,188,188,230,230,230,230,230,
+     230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,
+     230,230,230,230,230,230,230,230,230,230,230,188,188,188,  0,112,112,
+     112,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,
+     255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,
+     112,112,112,112,112,112,255,255,255,255,255,255,127,127,127,207,207,
+     207,255,255,255,255,255,255, 79, 79, 79,  0,  0,  0, 47, 47, 47,255,
+     255,255,255,255,255,112,112,112,188,188,188,230,230,230,230,230,230,
+     230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,
+     230,230,230,230,230,230,230,230,230,230,188,188,188,188,188,188,230,
+     230,230,230,230,230,171,171,171,208,208,208,230,230,230,230,230,230,
+     149,149,149,112,112,112,134,134,134,230,230,230,230,230,230,188,188,
+     188,188,188,188,230,230,230,230,230,230,230,230,230,230,230,230,230,
+     230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,
+     230,230,230,188,188,188,  0,112,112,112,255,255,255,255,255,255,255,
+     255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,
+     255,255,255,255,255,255,255,255,255,112,112,112,112,112,112,255,255,
+     255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,239,
+     239,239, 15, 15, 15,  0,  0,  0,127,127,127,255,255,255,112,112,112,
+     188,188,188,230,230,230,230,230,230,230,230,230,230,230,230,230,230,
+     230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,
+     230,230,188,188,188,188,188,188,230,230,230,230,230,230,230,230,230,
+     230,230,230,230,230,230,230,230,230,223,223,223,119,119,119,112,112,
+     112,171,171,171,230,230,230,188,188,188,188,188,188,230,230,230,230,
+     230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,
+     230,230,230,230,230,230,230,230,230,230,230,230,188,188,188,  0,112,
+     112,112,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,
+     255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,
+     255,112,112,112,112,112,112,255,255,255,255,255,255,255,255,255,255,
+     255,255,255,255,255,255,255,255,255,255,255,175,175,175,  0,  0,  0,
+      15, 15, 15,255,255,255,112,112,112,188,188,188,230,230,230,230,230,
+     230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,
+     230,230,230,230,230,230,230,230,230,230,230,188,188,188,188,188,188,
+     230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,
+     230,230,230,230,193,193,193,112,112,112,119,119,119,230,230,230,188,
+     188,188,188,188,188,230,230,230,230,230,230,230,230,230,230,230,230,
+     230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,
+     230,230,230,230,188,188,188,  0,112,112,112,255,255,255,255,255,255,
+     255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,
+     255,255,255,255,255,255,255,255,255,255,112,112,112,112,112,112,255,
+     255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,
+     255,255,255,255,255,255,127,127,127,223,223,223,255,255,255,112,112,
+     112,188,188,188,230,230,230,230,230,230,230,230,230,230,230,230,230,
+     230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,
+     230,230,230,188,188,188,188,188,188,230,230,230,230,230,230,230,230,
+     230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,171,
+     171,171,215,215,215,230,230,230,188,188,188,188,188,188,230,230,230,
+     230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,
+     230,230,230,230,230,230,230,230,230,230,230,230,230,188,188,188,  0,
+     112,112,112,255,255,255,255,255,255,255,255,255,255,255,255,255,255,
+     255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,
+     255,255,112,112,112,112,112,112,255,255,255,255,255,255,255,255,255,
+     255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,
+     255,255,255,255,255,255,255,112,112,112,188,188,188,230,230,230,230,
+     230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,
+     230,230,230,230,230,230,230,230,230,230,230,230,188,188,188,188,188,
+     188,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,
+     230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,
+     188,188,188,188,188,188,230,230,230,230,230,230,230,230,230,230,230,
+     230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,
+     230,230,230,230,230,188,188,188,  0,112,112,112,112,112,112,112,112,
+     112,112,112,112,112,112,112,112,112,112,112,112,112,112,112,112,112,
+     112,112,112,112,112,112,112,112,112,112,112,112,112,112,112,112,112,
+     112,112,112,112,112,112,112,112,112,112,112,112,112,112,112,112,112,
+     112,112,112,112,112,112,112,112,112,112,112,112,112,112,112,112,112,
+     112,112,188,188,188,188,188,188,188,188,188,188,188,188,188,188,188,
+     188,188,188,188,188,188,188,188,188,188,188,188,188,188,188,188,188,
+     188,188,188,188,188,188,188,188,188,188,188,188,188,188,188,188,188,
+     188,188,188,188,188,188,188,188,188,188,188,188,188,188,188,188,188,
+     188,188,188,188,188,188,188,188,188,188,188,188,188,188,188,188,188,
+     188,188,188,188,188,188,188,188,188,188,188,188,188,188,188,188,188,
+     188,188,188,188,188,188,188,188,188,188,188,188,188,188,188,188,188,
+       0);
+
+
+const
+  win8_radiobuttons: array[0..2601] of byte = (
+      66, 77, 42, 10,  0,  0,  0,  0,  0,  0, 54,  0,  0,  0, 40,  0,  0,
+       0, 65,  0,  0,  0, 13,  0,  0,  0,  1,  0, 24,  0,  0,  0,  0,  0,
+     244,  9,  0,  0,196, 14,  0,  0,196, 14,  0,  0,  0,  0,  0,  0,  0,
+       0,  0,  0,255,255,255,255,255,255,255,255,255,209,209,209,168,168,
+     168,134,134,134,115,115,115,134,134,134,168,168,168,209,209,209,255,
+     255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,
+     209,209,209,168,168,168,134,134,134,115,115,115,134,134,134,168,168,
+     168,209,209,209,255,255,255,255,255,255,255,255,255,255,255,255,255,
+     255,255,255,255,255,233,233,233,214,214,214,199,199,199,189,189,189,
+     199,199,199,214,214,214,233,233,233,255,255,255,255,255,255,255,255,
+     255,255,255,255,255,255,255,255,255,255,233,233,233,214,214,214,199,
+     199,199,189,189,189,199,199,199,214,214,214,233,233,233,255,255,255,
+     255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,233,233,
+     233,214,214,214,199,199,199,189,189,189,199,199,199,214,214,214,233,
+     233,233,255,255,255,255,255,255,255,255,255,  0,255,255,255,242,242,
+     242,177,177,177,114,114,114,199,199,199,233,233,233,252,252,252,233,
+     233,233,199,199,199,114,114,114,177,177,177,242,242,242,255,255,255,
+     255,255,255,242,242,242,177,177,177,114,114,114,199,199,199,233,233,
+     233,252,252,252,233,233,233,199,199,199,114,114,114,177,177,177,242,
+     242,242,255,255,255,255,255,255,249,249,249,218,218,218,189,189,189,
+     214,214,214,223,223,223,229,229,229,223,223,223,214,214,214,189,189,
+     189,218,218,218,249,249,249,255,255,255,255,255,255,249,249,249,218,
+     218,218,189,189,189,214,214,214,223,223,223,229,229,229,223,223,223,
+     214,214,214,189,189,189,218,218,218,249,249,249,255,255,255,255,255,
+     255,249,249,249,218,218,218,189,189,189,214,214,214,223,223,223,229,
+     229,229,223,223,223,214,214,214,189,189,189,218,218,218,249,249,249,
+     255,255,255,  0,255,255,255,177,177,177,184,184,184,249,249,249,255,
+     255,255,255,255,255,255,255,255,255,255,255,255,255,255,249,249,249,
+     184,184,184,177,177,177,255,255,255,255,255,255,177,177,177,184,184,
+     184,249,249,249,255,255,255,255,255,255,255,255,255,255,255,255,255,
+     255,255,249,249,249,184,184,184,177,177,177,255,255,255,255,255,255,
+     218,218,218,209,209,209,228,228,228,230,230,230,230,230,230,230,230,
+     230,230,230,230,230,230,230,228,228,228,209,209,209,218,218,218,255,
+     255,255,255,255,255,218,218,218,209,209,209,228,228,228,230,230,230,
+     230,230,230,230,230,230,230,230,230,230,230,230,228,228,228,209,209,
+     209,218,218,218,255,255,255,255,255,255,218,218,218,209,209,209,228,
+     228,228,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,
+     228,228,228,209,209,209,218,218,218,255,255,255,  0,209,209,209,114,
+     114,114,249,249,249,255,255,255,255,255,255,255,255,255,255,255,255,
+     255,255,255,255,255,255,255,255,255,249,249,249,114,114,114,209,209,
+     209,209,209,209,114,114,114,249,249,249,255,255,255,171,171,171, 95,
+      95, 95, 42, 42, 42, 95, 95, 95,171,171,171,255,255,255,249,249,249,
+     114,114,114,209,209,209,233,233,233,189,189,189,228,228,228,230,230,
+     230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,
+     230,230,228,228,228,189,189,189,233,233,233,233,233,233,189,189,189,
+     228,228,228,230,230,230,186,186,186,145,145,145,117,117,117,145,145,
+     145,186,186,186,230,230,230,228,228,228,189,189,189,233,233,233,233,
+     233,233,189,189,189,228,228,228,230,230,230,230,230,230,230,230,230,
+     230,230,230,230,230,230,230,230,230,230,230,230,228,228,228,189,189,
+     189,233,233,233,  0,168,168,168,199,199,199,255,255,255,255,255,255,
+     255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,
+     255,255,255,255,199,199,199,168,168,168,168,168,168,199,199,199,255,
+     255,255,171,171,171, 39, 39, 39, 33, 33, 33, 33, 33, 33, 33, 33, 33,
+      39, 39, 39,171,171,171,255,255,255,199,199,199,168,168,168,214,214,
+     214,214,214,214,230,230,230,230,230,230,230,230,230,230,230,230,230,
+     230,230,230,230,230,230,230,230,230,230,230,230,230,230,214,214,214,
+     214,214,214,214,214,214,214,214,214,230,230,230,186,186,186,115,115,
+     115,112,112,112,112,112,112,112,112,112,115,115,115,186,186,186,230,
+     230,230,214,214,214,214,214,214,214,214,214,214,214,214,230,230,230,
+     230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,
+     230,230,230,230,230,230,230,214,214,214,214,214,214,  0,134,134,134,
+     233,233,233,255,255,255,255,255,255,255,255,255,255,255,255,255,255,
+     255,255,255,255,255,255,255,255,255,255,255,255,255,233,233,233,134,
+     134,134,134,134,134,233,233,233,255,255,255, 95, 95, 95, 33, 33, 33,
+      33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 95, 95, 95,255,255,
+     255,233,233,233,134,134,134,199,199,199,223,223,223,230,230,230,230,
+     230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,
+     230,230,230,230,230,230,223,223,223,199,199,199,199,199,199,223,223,
+     223,230,230,230,145,145,145,112,112,112,112,112,112,112,112,112,112,
+     112,112,112,112,112,145,145,145,230,230,230,223,223,223,199,199,199,
+     199,199,199,223,223,223,230,230,230,230,230,230,230,230,230,230,230,
+     230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,223,
+     223,223,199,199,199,  0,115,115,115,252,252,252,255,255,255,255,255,
+     255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,
+     255,255,255,255,255,252,252,252,115,115,115,115,115,115,252,252,252,
+     255,255,255, 42, 42, 42, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33,
+      33, 33, 33, 33, 42, 42, 42,255,255,255,252,252,252,115,115,115,189,
+     189,189,229,229,229,230,230,230,230,230,230,230,230,230,230,230,230,
+     230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,229,229,
+     229,189,189,189,189,189,189,229,229,229,230,230,230,117,117,117,112,
+     112,112,112,112,112,112,112,112,112,112,112,112,112,112,117,117,117,
+     230,230,230,229,229,229,189,189,189,189,189,189,229,229,229,230,230,
+     230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,
+     230,230,230,230,230,230,230,230,229,229,229,189,189,189,  0,134,134,
+     134,233,233,233,255,255,255,255,255,255,255,255,255,255,255,255,255,
+     255,255,255,255,255,255,255,255,255,255,255,255,255,255,233,233,233,
+     134,134,134,134,134,134,233,233,233,255,255,255, 95, 95, 95, 33, 33,
+      33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 95, 95, 95,255,
+     255,255,233,233,233,134,134,134,199,199,199,223,223,223,230,230,230,
+     230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,
+     230,230,230,230,230,230,230,223,223,223,199,199,199,199,199,199,223,
+     223,223,230,230,230,145,145,145,112,112,112,112,112,112,112,112,112,
+     112,112,112,112,112,112,145,145,145,230,230,230,223,223,223,199,199,
+     199,199,199,199,223,223,223,230,230,230,230,230,230,230,230,230,230,
+     230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,
+     223,223,223,199,199,199,  0,168,168,168,199,199,199,255,255,255,255,
+     255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,
+     255,255,255,255,255,255,199,199,199,168,168,168,168,168,168,199,199,
+     199,255,255,255,171,171,171, 39, 39, 39, 33, 33, 33, 33, 33, 33, 33,
+      33, 33, 39, 39, 39,171,171,171,255,255,255,199,199,199,168,168,168,
+     214,214,214,214,214,214,230,230,230,230,230,230,230,230,230,230,230,
+     230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,214,
+     214,214,214,214,214,214,214,214,214,214,214,230,230,230,186,186,186,
+     115,115,115,112,112,112,112,112,112,112,112,112,115,115,115,186,186,
+     186,230,230,230,214,214,214,214,214,214,214,214,214,214,214,214,230,
+     230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,
+     230,230,230,230,230,230,230,230,230,214,214,214,214,214,214,  0,209,
+     209,209,114,114,114,249,249,249,255,255,255,255,255,255,255,255,255,
+     255,255,255,255,255,255,255,255,255,255,255,255,249,249,249,114,114,
+     114,209,209,209,209,209,209,114,114,114,249,249,249,255,255,255,171,
+     171,171, 95, 95, 95, 42, 42, 42, 95, 95, 95,171,171,171,255,255,255,
+     249,249,249,114,114,114,209,209,209,233,233,233,189,189,189,228,228,
+     228,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,
+     230,230,230,230,230,228,228,228,189,189,189,233,233,233,233,233,233,
+     189,189,189,228,228,228,230,230,230,186,186,186,145,145,145,117,117,
+     117,145,145,145,186,186,186,230,230,230,228,228,228,189,189,189,233,
+     233,233,233,233,233,189,189,189,228,228,228,230,230,230,230,230,230,
+     230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,228,228,
+     228,189,189,189,233,233,233,  0,255,255,255,177,177,177,184,184,184,
+     249,249,249,255,255,255,255,255,255,255,255,255,255,255,255,255,255,
+     255,249,249,249,184,184,184,177,177,177,255,255,255,255,255,255,177,
+     177,177,184,184,184,249,249,249,255,255,255,255,255,255,255,255,255,
+     255,255,255,255,255,255,249,249,249,184,184,184,177,177,177,255,255,
+     255,255,255,255,218,218,218,209,209,209,228,228,228,230,230,230,230,
+     230,230,230,230,230,230,230,230,230,230,230,228,228,228,209,209,209,
+     218,218,218,255,255,255,255,255,255,218,218,218,209,209,209,228,228,
+     228,230,230,230,230,230,230,230,230,230,230,230,230,230,230,230,228,
+     228,228,209,209,209,218,218,218,255,255,255,255,255,255,218,218,218,
+     209,209,209,228,228,228,230,230,230,230,230,230,230,230,230,230,230,
+     230,230,230,230,228,228,228,209,209,209,218,218,218,255,255,255,  0,
+     255,255,255,242,242,242,177,177,177,114,114,114,199,199,199,233,233,
+     233,252,252,252,233,233,233,199,199,199,114,114,114,177,177,177,242,
+     242,242,255,255,255,255,255,255,242,242,242,177,177,177,114,114,114,
+     199,199,199,233,233,233,252,252,252,233,233,233,199,199,199,114,114,
+     114,177,177,177,242,242,242,255,255,255,255,255,255,249,249,249,218,
+     218,218,189,189,189,214,214,214,223,223,223,229,229,229,223,223,223,
+     214,214,214,189,189,189,218,218,218,249,249,249,255,255,255,255,255,
+     255,249,249,249,218,218,218,189,189,189,214,214,214,223,223,223,229,
+     229,229,223,223,223,214,214,214,189,189,189,218,218,218,249,249,249,
+     255,255,255,255,255,255,249,249,249,218,218,218,189,189,189,214,214,
+     214,223,223,223,229,229,229,223,223,223,214,214,214,189,189,189,218,
+     218,218,249,249,249,255,255,255,  0,255,255,255,255,255,255,255,255,
+     255,209,209,209,168,168,168,134,134,134,115,115,115,134,134,134,168,
+     168,168,209,209,209,255,255,255,255,255,255,255,255,255,255,255,255,
+     255,255,255,255,255,255,209,209,209,168,168,168,134,134,134,115,115,
+     115,134,134,134,168,168,168,209,209,209,255,255,255,255,255,255,255,
+     255,255,255,255,255,255,255,255,255,255,255,233,233,233,214,214,214,
+     199,199,199,189,189,189,199,199,199,214,214,214,233,233,233,255,255,
+     255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,233,
+     233,233,214,214,214,199,199,199,189,189,189,199,199,199,214,214,214,
+     233,233,233,255,255,255,255,255,255,255,255,255,255,255,255,255,255,
+     255,255,255,255,233,233,233,214,214,214,199,199,199,189,189,189,199,
+     199,199,214,214,214,233,233,233,255,255,255,255,255,255,255,255,255,
+       0);
+
+
+{ TfpgWin8Style }
+
+procedure TfpgWin8Style.LoadThemeImages;
+begin
+  //FImages.AddMaskedBMP(  // 65x13 in total.  5 images of 13x13 each.
+  //          'win8.radiobuttons',
+  //          @stdimg_radiobuttons,
+  //    sizeof(stdimg_radiobuttons), 0,0);
+
+  FImages.AddBMP(  // 65x13 pixels. 5 images of 13x13 each.
+            'win8.radiobuttons',
+            @win8_radiobuttons,
+      sizeof(win8_radiobuttons));
+
+  FImages.AddBMP(  // 65x13 pixels. 5 images of 13x13 each.
+            'win8.checkboxes',
+            @win8_checkboxes,
+      sizeof(win8_checkboxes));
+end;
+
+constructor TfpgWin8Style.Create;
+begin
+  inherited Create;
+  FImages := TfpgImages.Create;
+  LoadThemeImages;
+
+  fpgSetNamedColor(clWindowBackground, Win8BaseColors[0]);
+  //fpgSetNamedColor(clBoxColor, Win8BaseColors[1]);
+  fpgSetNamedColor(clShadow1, Win8BaseColors[2]);
+  fpgSetNamedColor(clShadow2, Win8BaseColors[1]);
+  //fpgSetNamedColor(clHilite1, Win8BaseColors[3]);
+  //fpgSetNamedColor(clHilite2, Win8BaseColors[4]);
+  //fpgSetNamedColor(clText1, Win8BaseColors[5]);
+  //fpgSetNamedColor(clText4, Win8BaseColors[6]);
+  fpgSetNamedColor(clSelection, Win8BaseColors[7]);
+  fpgSetNamedColor(clSelectionText, Win8BaseColors[8]);
+  //fpgSetNamedColor(clInactiveSel, Win8BaseColors[7]);
+  //fpgSetNamedColor(clInactiveSelText, Win8BaseColors[8]);
+  //fpgSetNamedColor(clScrollBar, Win8BaseColors[9]);
+  //fpgSetNamedColor(clButtonFace, Win8BaseColors[0]);
+  //fpgSetNamedColor(clListBox, Win8BaseColors[1]);
+  //fpgSetNamedColor(clGridLines, Win8BaseColors[2]);
+  //fpgSetNamedColor(clGridHeader, Win8BaseColors[0]);
+  fpgSetNamedColor(clWidgetFrame, Win8BaseColors[2]);
+  //fpgSetNamedColor(clInactiveWgFrame, Win8BaseColors[10]);
+  //fpgSetNamedColor(clUnset, Win8BaseColors[11]);
+  //fpgSetNamedColor(clMenuText, Win8BaseColors[5]);
+  //fpgSetNamedColor(clMenuDisabled, Win8BaseColors[0]);
+  //fpgSetNamedColor(clHintWindow, Win8BaseColors[0]);
+  //fpgSetNamedColor(clGridSelection, Win8BaseColors[7]);
+  //fpgSetNamedColor(clGridSelectionText, Win8BaseColors[8]);
+  //fpgSetNamedColor(clGridInactiveSel, Win8BaseColors[7]);
+  //fpgSetNamedColor(clGridInactiveSelText, Win8BaseColors[8]);
+  //fpgSetNamedColor(clSplitterGrabBar, Win8BaseColors[7]);
+  fpgSetNamedColor(clChoiceListBox, Win8BaseColors[16]);
+end;
+
+destructor TfpgWin8Style.Destroy;
+begin
+  FImages.Free;
+  inherited Destroy;
+end;
+
+procedure TfpgWin8Style.DrawControlFrame(ACanvas: TfpgCanvas; x, y, w, h: TfpgCoord);
+var
+  r: TfpgRect;
+begin
+  r.SetRect(x, y, w, h);
+  ACanvas.SetLineStyle(1, lsSolid);
+  ACanvas.SetColor(clWidgetFrame);
+  ACanvas.DrawRectangle(r);
+end;
+
+function TfpgWin8Style.GetControlFrameBorders: TRect;
+begin
+  Result := Rect(1, 1, 1, 1);
+end;
+
+procedure TfpgWin8Style.DrawButtonFace(ACanvas: TfpgCanvas; x, y, w, h: TfpgCoord; AFlags: TfpgButtonFlags);
+var
+  r: TfpgRect;
+begin
+  r.SetRect(x, y, w, h);
+  ACanvas.SetLineStyle(1, lsSolid);
+  if btfDisabled in AFlags then
+    ACanvas.SetColor(TfpgColor($ffd9d9d9))
+  else
+  begin
+    if btfIsDefault in AFlags then
+      ACanvas.SetColor(clSelection)
+    else
+      ACanvas.SetColor(TfpgColor($ffacacac));
+  end;
+  ACanvas.DrawRectangle(r);
+  InflateRect(r, -1, -1);
+  if btfDisabled in AFlags then
+  begin
+    ACanvas.SetColor(TfpgColor($ffefefef));
+    ACanvas.FillRectangle(r);
+  end
+  else
+    ACanvas.GradientFill(r, clWindowBackground, TfpgColor($ffe5e5e5), gdVertical);
+end;
+
+function TfpgWin8Style.GetButtonBorders: TRect;
+begin
+  Result := Rect(2, 2, 2, 2);
+end;
+
+procedure TfpgWin8Style.DrawStaticComboBox(ACanvas: TfpgCanvas; r: TfpgRect;
+    const IsEnabled: Boolean; const IsFocused: Boolean;
+    const IsReadOnly: Boolean; const ABackgroundColor: TfpgColor;
+    const AInternalBtnRect: TfpgRect; const ABtnPressed: Boolean);
+var
+  ar: TfpgRect;
+begin
+  //if IsEnabled then
+  //  ACanvas.SetColor(TfpgColor($ffacacac))
+  //else
+  //  ACanvas.SetColor(TfpgColor($ffacacac));
+  ACanvas.GradientFill(r, clWindowBackground, clChoiceListBox, gdVertical);
+
+  // paint arrow
+  ACanvas.SetColor(clShadow2);
+  ar := AInternalBtnRect;
+  { The bounding rectangle for the arrow }
+  ar.Width := 8;
+  ar.Height := 6;
+  ar.Left := AInternalBtnRect.Left + ((AInternalBtnRect.Width-ar.Width) div 2);
+  ar.Top := AInternalBtnRect.Top + ((AInternalBtnRect.Height-ar.Height) div 2);
+  DrawDirectionArrow(ACanvas, ar.Left, ar.Top, ar.Width, ar.Height, adDown);
+end;
+
+procedure TfpgWin8Style.DrawCheckbox(ACanvas: TfpgCanvas; x, y: TfpgCoord; ix, iy: TfpgCoord);
+var
+  img: TfpgImage;
+  size: integer;
+begin
+  img := FImages.GetImage('win8.checkboxes');    // Do NOT localize - return value is a reference only
+  size := GetCheckBoxSize;
+  ACanvas.DrawImagePart(x, y, img, ix, iy, size, size);
+end;
+
+
+initialization
+  fpgStyleManager.RegisterClass('win8', TfpgWin8Style);
+
+end.
+