From b99c701731bc248cd6c9b81f17547a5fee9a36e3 Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graemeg@gmail.com>
Date: Wed, 7 May 2014 23:58:09 +0100
Subject: uidesigner: Preview menu now populated with real themes.

---
 uidesigner/newformdesigner.pas | 28 ++++++++++++++++++++++------
 1 file changed, 22 insertions(+), 6 deletions(-)

(limited to 'uidesigner')

diff --git a/uidesigner/newformdesigner.pas b/uidesigner/newformdesigner.pas
index 341019de..31b9431d 100644
--- a/uidesigner/newformdesigner.pas
+++ b/uidesigner/newformdesigner.pas
@@ -1,7 +1,7 @@
 {
     fpGUI  -  Free Pascal GUI Toolkit
 
-    Copyright (C) 2006 - 2013 See the file AUTHORS.txt, included in this
+    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,
@@ -62,6 +62,7 @@ type
     procedure   miHelpAboutGUI(Sender: TObject);
     procedure   miMRUClick(Sender: TObject; const FileName: string);
     procedure   SetupCaptions;
+    procedure   BuildThemePreviewMenu;
   public
     {@VFD_HEAD_BEGIN: frmMain}
     MainMenu: TfpgMenuBar;
@@ -178,6 +179,7 @@ uses
   fpg_iniutils,
   fpg_dialogs,
   fpg_constants,
+  fpg_stylemanager,
   vfdmain,
   vfd_constants;
 
@@ -463,11 +465,6 @@ begin
   begin
     Name := 'previewmenu';
     SetPosition(324, 36, 120, 20);
-    AddMenuItem('with Windows 9x', '', nil).Enabled := False;
-    AddMenuItem('with Windows XP', '', nil).Enabled := False;
-    AddMenuItem('with OpenSoft', '', nil).Enabled := False;
-    AddMenuItem('with Motif', '', nil).Enabled := False;
-    AddMenuItem('with OpenLook', '', nil).Enabled := False;
   end;
 
   {@VFD_BODY_END: frmMain}
@@ -500,6 +497,8 @@ begin
     end;
   end;
 
+  BuildThemePreviewMenu;
+
   chlPalette.Items.Sort;
   MainMenu.AddMenuItem('&File', nil).SubMenu     := filemenu;
   MainMenu.AddMenuItem('&Settings', nil).SubMenu := setmenu;
@@ -964,6 +963,23 @@ begin
   btnOpen.Hint := rsOpenFormFile;
 end;
 
+procedure TfrmMain.BuildThemePreviewMenu;
+var
+  sl: TStringList;
+  i: integer;
+begin
+  sl := TStringList.Create;
+  fpgStyleManager.AssignStyleTypes(sl);
+  sl.Sort;
+  for i := 0 to sl.Count-1 do
+  begin
+    if sl[i] = 'auto' then
+      continue;
+    previewmenu.AddMenuItem(sl[i], '', nil).Enabled := False;
+  end;
+  sl.Free;
+end;
+
 constructor TfrmMain.Create(AOwner: TComponent);
 begin
   inherited Create(AOwner);
-- 
cgit v1.2.3-70-g09d2