Переглянути джерело

Remove outdated groupbox frames + cleanup 3 bevels + allow IDE to make a few extra cleanup changes.

Martijn Laan 2 місяців тому
батько
коміт
3b9f3b86a7

+ 2 - 2
Projects/Src/IDE.FilesDesignerForm.dfm

@@ -29,9 +29,9 @@ object FilesDesignerForm: TFilesDesignerForm
       Left = 0
       Top = 0
       Width = 575
-      Height = 3
+      Height = 1
       Align = alTop
-      Shape = bsBottomLine
+      Shape = bsTopLine
     end
     object InsertButton: TButton
       Left = 406

+ 9 - 5
Projects/Src/IDE.MsgBoxDesignerForm.dfm

@@ -11,13 +11,11 @@ object MsgBoxDesignerForm: TMsgBoxDesignerForm
   Font.Height = -11
   Font.Name = 'MS Sans Serif'
   Font.Style = []
-  OldCreateOrder = False
   Position = poScreenCenter
   OnCreate = FormCreate
   DesignSize = (
     548
     380)
-  PixelsPerInch = 96
   TextHeight = 13
   object TaskInstructionLabel: TNewStaticText
     Left = 18
@@ -38,7 +36,7 @@ object MsgBoxDesignerForm: TMsgBoxDesignerForm
   object TaskMessageLabel: TNewStaticText
     Left = 18
     Top = 40
-    Width = 49
+    Width = 44
     Height = 14
     Caption = 'Message'
     TabOrder = 13
@@ -105,6 +103,7 @@ object MsgBoxDesignerForm: TMsgBoxDesignerForm
     Height = 81
     Anchors = [akLeft, akTop, akRight]
     Caption = ' Message '
+    ShowFrame = False
     TabOrder = 0
     DesignSize = (
       532
@@ -126,6 +125,7 @@ object MsgBoxDesignerForm: TMsgBoxDesignerForm
     Width = 240
     Height = 60
     Caption = ' Type'
+    ShowFrame = False
     TabOrder = 6
     object cb_Suppressible: TCheckBox
       Left = 14
@@ -165,6 +165,7 @@ object MsgBoxDesignerForm: TMsgBoxDesignerForm
     Height = 60
     Anchors = [akLeft, akTop, akRight]
     Caption = ' Flags '
+    ShowFrame = False
     TabOrder = 7
     object NewStaticText1: TNewStaticText
       Left = 14
@@ -213,6 +214,7 @@ object MsgBoxDesignerForm: TMsgBoxDesignerForm
     Height = 174
     Anchors = [akLeft, akTop, akBottom]
     Caption = ' Icon '
+    ShowFrame = False
     TabOrder = 8
     DesignSize = (
       160
@@ -420,6 +422,7 @@ object MsgBoxDesignerForm: TMsgBoxDesignerForm
     Height = 174
     Anchors = [akLeft, akTop, akBottom]
     Caption = ' Buttons '
+    ShowFrame = False
     TabOrder = 9
     DesignSize = (
       169
@@ -499,6 +502,7 @@ object MsgBoxDesignerForm: TMsgBoxDesignerForm
     Height = 174
     Anchors = [akLeft, akTop, akBottom]
     Caption = ' Return values '
+    ShowFrame = False
     TabOrder = 10
     object cb_IDOK: TCheckBox
       Left = 16
@@ -698,9 +702,9 @@ object MsgBoxDesignerForm: TMsgBoxDesignerForm
       Left = 0
       Top = 0
       Width = 548
-      Height = 3
+      Height = 1
       Align = alTop
-      Shape = bsBottomLine
+      Shape = bsTopLine
       ExplicitLeft = 168
       ExplicitWidth = 50
     end

+ 3 - 2
Projects/Src/IDE.OptionsForm.dfm

@@ -12,14 +12,12 @@ object OptionsForm: TOptionsForm
   Font.Height = -11
   Font.Name = 'MS Sans Serif'
   Font.Style = []
-  OldCreateOrder = True
   Position = poScreenCenter
   OnCreate = FormCreate
   OnShow = FormShow
   DesignSize = (
     589
     424)
-  PixelsPerInch = 96
   TextHeight = 13
   object GroupBox1: TGroupBox
     Left = 8
@@ -28,6 +26,7 @@ object OptionsForm: TOptionsForm
     Height = 314
     Anchors = [akLeft, akTop, akBottom]
     Caption = ' Miscellaneous '
+    ShowFrame = False
     TabOrder = 0
     object StartupCheck: TCheckBox
       Left = 8
@@ -142,6 +141,7 @@ object OptionsForm: TOptionsForm
     Height = 57
     Anchors = [akLeft, akBottom]
     Caption = ' File Associations '
+    ShowFrame = False
     TabOrder = 1
     DesignSize = (
       281
@@ -164,6 +164,7 @@ object OptionsForm: TOptionsForm
     Height = 372
     Anchors = [akLeft, akTop, akBottom]
     Caption = ' Editor '
+    ShowFrame = False
     TabOrder = 2
     object AutoAutoCompleteCheck: TCheckBox
       Left = 8

+ 2 - 2
Projects/Src/IDE.RegistryDesignerForm.dfm

@@ -45,9 +45,9 @@ object RegistryDesignerForm: TRegistryDesignerForm
       Left = 0
       Top = 0
       Width = 496
-      Height = 3
+      Height = 1
       Align = alTop
-      Shape = bsBottomLine
+      Shape = bsTopLine
       ExplicitWidth = 500
     end
     object InsertButton: TButton

+ 1 - 0
Projects/Src/IDE.SignToolsForm.dfm

@@ -25,6 +25,7 @@ object SignToolsForm: TSignToolsForm
     Height = 201
     Anchors = [akLeft, akTop, akRight, akBottom]
     Caption = ' Sign Tools '
+    ShowFrame = False
     TabOrder = 0
     DesignSize = (
       561

+ 2 - 0
Projects/Src/IDE.StartupForm.dfm

@@ -270,6 +270,7 @@ object StartupForm: TStartupForm
     Height = 61
     Anchors = [akLeft, akTop, akRight]
     Caption = ' New file '
+    ShowFrame = False
     TabOrder = 0
     DesignSize = (
       563
@@ -312,6 +313,7 @@ object StartupForm: TStartupForm
     Height = 303
     Anchors = [akLeft, akTop, akRight, akBottom]
     Caption = ' Open file '
+    ShowFrame = False
     TabOrder = 1
     DesignSize = (
       563

+ 3 - 1
Projects/Src/IDE.Wizard.WizardFileForm.dfm

@@ -6,6 +6,7 @@ object WizardFileForm: TWizardFileForm
   Caption = 'Script Wizard File'
   ClientHeight = 297
   ClientWidth = 350
+  Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
   Font.Height = -11
@@ -13,7 +14,6 @@ object WizardFileForm: TWizardFileForm
   Font.Style = []
   Position = poScreenCenter
   OnCreate = FormCreate
-  PixelsPerInch = 96
   TextHeight = 13
   object RequiredLabel1: TNewStaticText
     Left = 8
@@ -60,6 +60,7 @@ object WizardFileForm: TWizardFileForm
     Width = 333
     Height = 149
     Caption = ' Destination '
+    ShowFrame = False
     TabOrder = 0
     object DestRootDirLabel: TNewStaticText
       Left = 12
@@ -111,6 +112,7 @@ object WizardFileForm: TWizardFileForm
     Width = 333
     Height = 93
     Caption = ' Source '
+    ShowFrame = False
     TabOrder = 3
     object SourceLabel: TNewStaticText
       Left = 12