Changeset 487 for cprs/branches/tmg-cprs/CPRS-Chart/Options/fOptions.dfm

Timestamp:

Sep 7, 2008, 8:34:08 PM (16 years ago)

Author:

Kevin Toppenberg

Message:

adding skin support (incomplete)

File:

• cprs/branches/tmg-cprs/CPRS-Chart/Options/fOptions.dfm (modified) (4 diffs)

cprs/branches/tmg-cprs/CPRS-Chart/Options/fOptions.dfm

@@ -16 +16 @@
   OnCreate = FormCreate
   OnDestroy = FormDestroy
+  OnShow = FormShow
   PixelsPerInch = 96
   TextHeight = 13
@@ -86 +87 @@
       Height = 323
       HelpContext = 9999
-      ActivePage = tsCoverSheet
+      ActivePage = tsAppearance
       Align = alClient
       TabOrder = 0
@@ -1750 +1751 @@
         end
       end
+      object tsAppearance: TTabSheet
+        Caption = 'Appearance'
+        ImageIndex = 8
+        DesignSize = (
+          409
+          295)
+        object Label12: TLabel
+          Left = 8
+          Top = 5
+          Width = 45
+          Height = 13
+          Caption = 'Skin files:'
+          Transparent = True
+        end
+        object lbSkins: TListBox
+          Left = 8
+          Top = 24
+          Width = 281
+          Height = 241
+          Font.Charset = DEFAULT_CHARSET
+          Font.Color = clWindowText
+          Font.Height = -11
+          Font.Name = 'MS Sans Serif'
+          Font.Style = []
+          ItemHeight = 13
+          ParentFont = False
+          TabOrder = 0
+          OnDblClick = btnApplyClick
+          OnKeyPress = lbSkinsKeyPress
+        end
+        object cbSkinAtStartup: TCheckBox
+          Left = 8
+          Top = 272
+          Width = 265
+          Height = 17
+          Anchors = [akLeft, akBottom]
+          Caption = 'Load last selected skin when starting program'
+          Checked = True
+          State = cbChecked
+          TabOrder = 1
+        end
+        object btnMoreSkins: TButton
+          Left = 304
+          Top = 96
+          Width = 97
+          Height = 25
+          Caption = '&More skins...'
+          TabOrder = 2
+          OnClick = btnMoreSkinsClick
+        end
+        object btnDisableSkin: TButton
+          Left = 304
+          Top = 64
+          Width = 97
+          Height = 25
+          Caption = '&Disable skin'
+          ModalResult = 7
+          TabOrder = 3
+          OnClick = btnDisableSkinClick
+        end
+        object btnApplySkin: TButton
+          Left = 304
+          Top = 32
+          Width = 97
+          Height = 25
+          Caption = '&Apply skin'
+          TabOrder = 4
+          OnClick = btnApplySkinClick
+        end
+      end
     end
   end
   object DKLanguageController1: TDKLanguageController
-    Left = 80
-    Top = 280
+    Left = 328
+    Top = 192
     LangData = {
       0A0066726D4F7074696F6E73010200000001000000070043617074696F6E0200
-      0000080048656C7046696C6501640000000900706E6C426F74746F6D00000500
+      0000080048656C7046696C65016B0000000900706E6C426F74746F6D00000500
       62746E4F4B010100000003000000070043617074696F6E00090062746E43616E
       63656C010100000004000000070043617074696F6E00080062746E4170706C79
@@ -1852 +1923 @@
       676501020000004C000000040048696E744D000000040054657874000600496D
       61676531000005004D656D6F3101010000004F00000005004C696E6573000700
-      427574746F6E31010100000050000000070043617074696F6E00}
+      427574746F6E31010100000050000000070043617074696F6E000C0074734170
+      70656172616E6365010100000051000000070043617074696F6E0007004C6162
+      656C3132010100000052000000070043617074696F6E0007006C62536B696E73
+      00000F006362536B696E41745374617274757001010000005300000007004361
+      7074696F6E000C0062746E4D6F7265536B696E73010100000054000000070043
+      617074696F6E000E0062746E44697361626C65536B696E010100000055000000
+      070043617074696F6E000C0062746E4170706C79536B696E0101000000560000
+      00070043617074696F6E00}
   end
 end