IDE: closing all forms when IDE is closing

git-svn-id: trunk@9819 -
2025-11-09 05:39:25 +01:00 · 2006-09-05 19:41:48 +00:00 · 2006-09-05 19:41:48 +00:00 · 3080a56bcc
commit 3080a56bcc
parent 99c9e9fcce
15 changed files with 498 additions and 365 deletions
--- a/components/h2pas/h2pasdlg.lfm
+++ b/components/h2pas/h2pasdlg.lfm
@ -1,176 +1,167 @@
 object H2PasDialog: TH2PasDialog
+  Left = 245
+  Height = 501
+  Top = 205
+  Width = 785
+  HorzScrollBar.Page = 784
+  VertScrollBar.Page = 500
  Caption = 'H2PasDialog'
-  ClientHeight = 501
-  ClientWidth = 785
  KeyPreview = True
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyDown = FormKeyDown
-  PixelsPerInch = 75
  Position = poDesktopCenter
-  HorzScrollBar.Page = 784
-  VertScrollBar.Page = 500
-  Left = 245
-  Height = 501
-  Top = 205
-  Width = 785
  object MainPageControl: TPageControl
-    ActivePage = h2pasOptionsTabSheet
-    Align = alTop
-    Anchors = [akTop, akLeft, akRight, akBottom]
-    TabIndex = 2
-    TabOrder = 4
-    TabStop = True
    AnchorSideBottom.Control = OpenSettingsButton
    Height = 465
    Width = 785
+    ActivePage = FilesTabSheet
+    Align = alTop
+    Anchors = [akTop, akLeft, akRight, akBottom]
+    TabIndex = 0
+    TabOrder = 4
    object FilesTabSheet: TTabSheet
      Caption = 'FilesTabSheet'
-      ClientHeight = 435
-      ClientWidth = 781
-      Left = 2
-      Height = 435
-      Top = 28
-      Width = 781
      object CHeaderFilesCheckListBox: TCheckListBox
-        Align = alLeft
-        BorderStyle = bsSingle
-        OnItemClick = CHeaderFilesCheckListBoxItemClick
-        TabOrder = 0
-        TabStop = True
-        TopIndex = -1
        Height = 435
        Width = 255
+        Align = alLeft
+        OnClick = CHeaderFilesCheckListBoxClick
+        OnItemClick = CHeaderFilesCheckListBoxItemClick
+        TabOrder = 0
+        TopIndex = -1
      end
      object AddCHeaderFilesButton: TButton
-        BorderSpacing.Left = 6
-        BorderSpacing.InnerBorder = 4
-        Caption = 'AddCHeaderFilesButton'
-        OnClick = AddCHeaderFilesButtonClick
-        TabOrder = 1
        AnchorSideLeft.Control = CHeaderFilesSplitter1
        AnchorSideLeft.Side = asrBottom
        Left = 266
        Height = 25
        Top = 12
        Width = 185
-      end
-      object DeleteCHeaderFilesButton: TButton
        BorderSpacing.Left = 6
        BorderSpacing.InnerBorder = 4
-        Caption = 'DeleteCHeaderFilesButton'
-        OnClick = DeleteCHeaderFilesButtonClick
-        TabOrder = 2
+        Caption = 'AddCHeaderFilesButton'
+        OnClick = AddCHeaderFilesButtonClick
+        TabOrder = 1
+      end
+      object DeleteCHeaderFilesButton: TButton
        AnchorSideLeft.Control = CHeaderFilesSplitter1
        AnchorSideLeft.Side = asrBottom
        Left = 266
        Height = 25
        Top = 51
        Width = 185
-      end
-      object SelectAllCHeaderFilesButton: TButton
        BorderSpacing.Left = 6
        BorderSpacing.InnerBorder = 4
-        Caption = 'SelectAllCHeaderFilesButton'
-        OnClick = SelectAllCHeaderFilesButtonClick
-        TabOrder = 3
+        Caption = 'DeleteCHeaderFilesButton'
+        OnClick = DeleteCHeaderFilesButtonClick
+        TabOrder = 2
+      end
+      object SelectAllCHeaderFilesButton: TButton
        AnchorSideLeft.Control = CHeaderFilesSplitter1
        AnchorSideLeft.Side = asrBottom
        Left = 266
        Height = 25
        Top = 97
        Width = 185
-      end
-      object UnselectAllCHeaderFilesButton: TButton
        BorderSpacing.Left = 6
        BorderSpacing.InnerBorder = 4
-        Caption = 'UnselectAllCHeaderFilesButton'
-        OnClick = UnselectAllCHeaderFilesButtonClick
-        TabOrder = 4
+        Caption = 'SelectAllCHeaderFilesButton'
+        OnClick = SelectAllCHeaderFilesButtonClick
+        TabOrder = 3
+      end
+      object UnselectAllCHeaderFilesButton: TButton
        AnchorSideLeft.Control = CHeaderFilesSplitter1
        AnchorSideLeft.Side = asrBottom
        Left = 266
        Height = 25
        Top = 137
        Width = 185
+        BorderSpacing.Left = 6
+        BorderSpacing.InnerBorder = 4
+        Caption = 'UnselectAllCHeaderFilesButton'
+        OnClick = UnselectAllCHeaderFilesButtonClick
+        TabOrder = 4
      end
      object CHeaderFilesSplitter1: TSplitter
-        Beveled = True
-        Height = 435
-        Width = 5
-        Cursor = crHSplit
        Left = 255
        Height = 435
        Width = 5
+        Beveled = True
+      end
+      object FileInfoGroupBox: TGroupBox
+        AnchorSideLeft.Control = CHeaderFilesSplitter1
+        AnchorSideLeft.Side = asrBottom
+        AnchorSideRight.Control = FilesTabSheet
+        AnchorSideRight.Side = asrBottom
+        AnchorSideBottom.Control = FilesTabSheet
+        AnchorSideBottom.Side = asrBottom
+        Left = 260
+        Height = 247
+        Top = 188
+        Width = 521
+        Anchors = [akTop, akLeft, akRight, akBottom]
+        Caption = 'FileInfoGroupBox'
+        TabOrder = 5
+        object FileInfoLabel: TLabel
+          Left = 8
+          Height = 13
+          Top = 1
+          Width = 73
+          Caption = 'FileInfoLabel'
+          Color = clNone
+          ParentColor = False
+        end
      end
    end
    object PreH2PasTabSheet: TTabSheet
      Caption = 'PreH2PasTabSheet'
-      ClientHeight = 435
-      ClientWidth = 781
-      Left = 2
-      Height = 435
-      Top = 28
-      Width = 781
      object PreH2PasGroupBox: TGroupBox
-        Align = alClient
-        Caption = 'PreH2PasGroupBox'
-        ClientHeight = 435
-        ClientWidth = 781
-        TabOrder = 0
        Height = 435
        Width = 781
+        Align = alClient
+        Caption = 'PreH2PasGroupBox'
+        TabOrder = 0
      end
    end
    object h2pasOptionsTabSheet: TTabSheet
      Caption = 'h2pasOptionsTabSheet'
-      ClientHeight = 435
-      ClientWidth = 781
-      Left = 2
-      Height = 435
-      Top = 28
-      Width = 781
      object LibNameLabel: TLabel
-        BorderSpacing.Top = 10
-        Caption = 'LibNameLabel'
-        Color = clNone
-        ParentColor = False
        AnchorSideTop.Control = LibnameEdit
        AnchorSideTop.Side = asrCenter
        Left = 6
        Height = 13
        Top = 281
        Width = 81
-      end
-      object OutputExtLabel: TLabel
-        Caption = 'OutputExtLabel'
+        BorderSpacing.Top = 10
+        Caption = 'LibNameLabel'
        Color = clNone
        ParentColor = False
+      end
+      object OutputExtLabel: TLabel
        AnchorSideTop.Control = OutputExtEdit
        AnchorSideTop.Side = asrCenter
        Left = 6
        Height = 13
        Top = 313
        Width = 86
-      end
-      object OutputDirLabel: TLabel
-        Caption = 'OutputDirLabel'
+        Caption = 'OutputExtLabel'
        Color = clNone
        ParentColor = False
+      end
+      object OutputDirLabel: TLabel
        AnchorSideTop.Control = OutputDirEdit
        AnchorSideTop.Side = asrCenter
        Left = 6
        Height = 13
        Top = 342
        Width = 85
+        Caption = 'OutputDirLabel'
+        Color = clNone
+        ParentColor = False
      end
      object LibnameEdit: TEdit
-        BorderSpacing.Left = 6
-        BorderSpacing.Top = 6
-        OnEditingDone = LibnameEditEditingDone
-        TabOrder = 0
-        Text = 'LibnameEdit'
        AnchorSideLeft.Control = LibNameLabel
        AnchorSideLeft.Side = asrBottom
        AnchorSideTop.Side = asrBottom
@ -178,13 +169,13 @@ object H2PasDialog: TH2PasDialog
        Height = 23
        Top = 276
        Width = 113
-      end
-      object OutputExtEdit: TEdit
        BorderSpacing.Left = 6
        BorderSpacing.Top = 6
-        OnEditingDone = OutputExtEditEditingDone
-        TabOrder = 1
-        Text = 'OutputExtEdit'
+        OnEditingDone = LibnameEditEditingDone
+        TabOrder = 0
+        Text = 'LibnameEdit'
+      end
+      object OutputExtEdit: TEdit
        AnchorSideLeft.Control = OutputExtLabel
        AnchorSideLeft.Side = asrBottom
        AnchorSideTop.Side = asrBottom
@ -192,13 +183,13 @@ object H2PasDialog: TH2PasDialog
        Height = 23
        Top = 308
        Width = 80
-      end
-      object OutputDirEdit: TEdit
        BorderSpacing.Left = 6
        BorderSpacing.Top = 6
-        OnEditingDone = OutputDirEditEditingDone
-        TabOrder = 2
-        Text = 'OutputDirEdit'
+        OnEditingDone = OutputExtEditEditingDone
+        TabOrder = 1
+        Text = 'OutputExtEdit'
+      end
+      object OutputDirEdit: TEdit
        AnchorSideLeft.Control = OutputDirLabel
        AnchorSideLeft.Side = asrBottom
        AnchorSideTop.Control = OutputExtEdit
@ -207,13 +198,13 @@ object H2PasDialog: TH2PasDialog
        Height = 23
        Top = 337
        Width = 397
+        BorderSpacing.Left = 6
+        BorderSpacing.Top = 6
+        OnEditingDone = OutputDirEditEditingDone
+        TabOrder = 2
+        Text = 'OutputDirEdit'
      end
      object OutputDirBrowseButton: TButton
-        Anchors = [akTop, akLeft, akBottom]
-        BorderSpacing.InnerBorder = 4
-        Caption = '...'
-        OnClick = OutputDirBrowseButtonClick
-        TabOrder = 3
        AnchorSideLeft.Control = OutputDirEdit
        AnchorSideLeft.Side = asrBottom
        AnchorSideTop.Control = OutputDirEdit
@ -223,8 +214,17 @@ object H2PasDialog: TH2PasDialog
        Height = 23
        Top = 337
        Width = 32
+        Anchors = [akTop, akLeft, akBottom]
+        BorderSpacing.InnerBorder = 4
+        Caption = '...'
+        OnClick = OutputDirBrowseButtonClick
+        TabOrder = 3
      end
      object h2pasOptionsCheckGroup: TCheckGroup
+        Left = 6
+        Height = 264
+        Top = 4
+        Width = 768
        AutoFill = True
        Caption = 'h2pasOptionsCheckGroup'
        ChildSizing.LeftRightSpacing = 6
@ -238,70 +238,55 @@ object H2PasDialog: TH2PasDialog
        Columns = 2
        OnItemClick = h2pasOptionsCheckGroupItemClick
        TabOrder = 4
-        Left = 6
-        Height = 264
-        Top = 4
-        Width = 768
      end
    end
    object SettingsTabSheet: TTabSheet
      Caption = 'SettingsTabSheet'
-      ClientHeight = 435
-      ClientWidth = 781
-      Left = 2
-      Height = 435
-      Top = 28
-      Width = 781
      object H2PasFilenameLabel: TLabel
-        Caption = 'H2PasFilenameLabel'
-        Color = clNone
-        ParentColor = False
        AnchorSideTop.Control = H2PasFilenameEdit
        AnchorSideTop.Side = asrCenter
        Left = 6
        Height = 13
        Top = 9
        Width = 120
+        Caption = 'H2PasFilenameLabel'
+        Color = clNone
+        ParentColor = False
      end
      object OpenLastProjectOnStartCheckBox: TCheckBox
-        Caption = 'OpenLastProjectOnStartCheckBox'
-        OnChange = OpenLastProjectOnStartCheckBoxChange
-        TabOrder = 0
        Left = 6
        Height = 20
        Top = 42
        Width = 216
+        Caption = 'OpenLastProjectOnStartCheckBox'
+        OnChange = OpenLastProjectOnStartCheckBoxChange
+        TabOrder = 0
      end
      object SaveSettingsAsButton: TButton
+        Left = 6
+        Height = 26
+        Top = 82
+        Width = 137
        AutoSize = True
        BorderSpacing.InnerBorder = 4
        Caption = 'SaveSettingsAsButton'
        OnClick = SaveSettingsAsButtonClick
        TabOrder = 1
-        Left = 6
-        Height = 26
-        Top = 82
-        Width = 137
      end
      object H2PasFilenameEdit: TEdit
-        BorderSpacing.Left = 6
-        BorderSpacing.Top = 6
-        OnEditingDone = H2PasFilenameEditEditingDone
-        TabOrder = 2
-        Text = 'H2PasFilenameEdit'
        AnchorSideLeft.Control = H2PasFilenameLabel
        AnchorSideLeft.Side = asrBottom
        Left = 132
        Height = 23
        Top = 4
        Width = 352
+        BorderSpacing.Left = 6
+        BorderSpacing.Top = 6
+        OnEditingDone = H2PasFilenameEditEditingDone
+        TabOrder = 2
+        Text = 'H2PasFilenameEdit'
      end
      object h2pasFilenameBrowseButton: TButton
-        Anchors = [akTop, akLeft, akBottom]
-        BorderSpacing.InnerBorder = 4
-        Caption = '...'
-        OnClick = h2pasFilenameBrowseButtonClick
-        TabOrder = 3
        AnchorSideLeft.Control = H2PasFilenameEdit
        AnchorSideLeft.Side = asrBottom
        AnchorSideTop.Control = H2PasFilenameEdit
@ -311,28 +296,26 @@ object H2PasDialog: TH2PasDialog
        Height = 23
        Top = 4
        Width = 35
+        Anchors = [akTop, akLeft, akBottom]
+        BorderSpacing.InnerBorder = 4
+        Caption = '...'
+        OnClick = h2pasFilenameBrowseButtonClick
+        TabOrder = 3
      end
      object NewSettingsButton: TButton
+        Left = 6
+        Height = 26
+        Top = 124
+        Width = 118
        AutoSize = True
        BorderSpacing.InnerBorder = 4
        Caption = 'NewSettingsButton'
        OnClick = NewSettingsButtonClick
        TabOrder = 4
-        Left = 6
-        Height = 26
-        Top = 124
-        Width = 118
      end
    end
  end
  object OpenSettingsButton: TButton
-    Anchors = [akLeft, akBottom]
-    AutoSize = True
-    BorderSpacing.Around = 5
-    BorderSpacing.InnerBorder = 4
-    Caption = 'OpenSettingsButton'
-    OnClick = OpenSettingsButtonClick
-    TabOrder = 1
    AnchorSideLeft.Control = Owner
    AnchorSideBottom.Control = Owner
    AnchorSideBottom.Side = asrBottom
@ -340,15 +323,15 @@ object H2PasDialog: TH2PasDialog
    Height = 26
    Top = 470
    Width = 124
-  end
-  object SaveSettingsButton: TButton
    Anchors = [akLeft, akBottom]
    AutoSize = True
    BorderSpacing.Around = 5
    BorderSpacing.InnerBorder = 4
-    Caption = 'SaveSettingsButton'
-    OnClick = SaveSettingsButtonClick
-    TabOrder = 2
+    Caption = 'OpenSettingsButton'
+    OnClick = OpenSettingsButtonClick
+    TabOrder = 1
+  end
+  object SaveSettingsButton: TButton
    AnchorSideLeft.Control = OpenSettingsButton
    AnchorSideLeft.Side = asrBottom
    AnchorSideBottom.Control = Owner
@ -357,14 +340,15 @@ object H2PasDialog: TH2PasDialog
    Height = 26
    Top = 470
    Width = 122
+    Anchors = [akLeft, akBottom]
+    AutoSize = True
+    BorderSpacing.Around = 5
+    BorderSpacing.InnerBorder = 4
+    Caption = 'SaveSettingsButton'
+    OnClick = SaveSettingsButtonClick
+    TabOrder = 2
  end
  object ConvertButton: TButton
-    AutoSize = True
-    BorderSpacing.Left = 15
-    BorderSpacing.InnerBorder = 4
-    Caption = 'ConvertButton'
-    OnClick = ConvertButtonClick
-    TabOrder = 0
    AnchorSideLeft.Control = SaveSettingsButton
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = SaveSettingsButton
@ -372,15 +356,14 @@ object H2PasDialog: TH2PasDialog
    Height = 26
    Top = 470
    Width = 93
+    AutoSize = True
+    BorderSpacing.Left = 15
+    BorderSpacing.InnerBorder = 4
+    Caption = 'ConvertButton'
+    OnClick = ConvertButtonClick
+    TabOrder = 0
  end
  object CloseButton: TButton
-    Anchors = [akRight, akBottom]
-    AutoSize = True
-    BorderSpacing.Around = 5
-    BorderSpacing.InnerBorder = 4
-    Caption = 'CloseButton'
-    OnClick = CloseButtonClick
-    TabOrder = 3
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    AnchorSideBottom.Control = Owner
@ -389,5 +372,12 @@ object H2PasDialog: TH2PasDialog
    Height = 26
    Top = 470
    Width = 81
+    Anchors = [akRight, akBottom]
+    AutoSize = True
+    BorderSpacing.Around = 5
+    BorderSpacing.InnerBorder = 4
+    Caption = 'CloseButton'
+    OnClick = CloseButtonClick
+    TabOrder = 3
  end
 end
--- a/components/h2pas/h2pasdlg.lrs
+++ b/components/h2pas/h2pasdlg.lrs
@ -1,137 +1,138 @@
 { This is an automatically generated lazarus resource file }

 LazarusResources.Add('TH2PasDialog','FORMDATA',[
-  'TPF0'#12'TH2PasDialog'#11'H2PasDialog'#7'Caption'#6#11'H2PasDialog'#12'Clien'
-  +'tHeight'#3#245#1#11'ClientWidth'#3#17#3#10'KeyPreview'#9#12'OnCloseQuery'#7
-  +#14'FormCloseQuery'#8'OnCreate'#7#10'FormCreate'#9'OnDestroy'#7#11'FormDestr'
-  +'oy'#9'OnKeyDown'#7#11'FormKeyDown'#13'PixelsPerInch'#2'K'#8'Position'#7#15
-  +'poDesktopCenter'#18'HorzScrollBar.Page'#3#16#3#18'VertScrollBar.Page'#3#244
-  +#1#4'Left'#3#245#0#6'Height'#3#245#1#3'Top'#3#205#0#5'Width'#3#17#3#0#12'TPa'
-  +'geControl'#15'MainPageControl'#10'ActivePage'#7#20'h2pasOptionsTabSheet'#5
-  +'Align'#7#5'alTop'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0
-  +#8'TabIndex'#2#2#8'TabOrder'#2#4#7'TabStop'#9#24'AnchorSideBottom.Control'#7
-  +#18'OpenSettingsButton'#6'Height'#3#209#1#5'Width'#3#17#3#0#9'TTabSheet'#13
-  +'FilesTabSheet'#7'Caption'#6#13'FilesTabSheet'#12'ClientHeight'#3#179#1#11'C'
-  +'lientWidth'#3#13#3#4'Left'#2#2#6'Height'#3#179#1#3'Top'#2#28#5'Width'#3#13#3
-  +#0#13'TCheckListBox'#24'CHeaderFilesCheckListBox'#5'Align'#7#6'alLeft'#11'Bo'
-  +'rderStyle'#7#8'bsSingle'#11'OnItemClick'#7'!CHeaderFilesCheckListBoxItemCli'
-  +'ck'#8'TabOrder'#2#0#7'TabStop'#9#8'TopIndex'#2#255#6'Height'#3#179#1#5'Widt'
-  +'h'#3#255#0#0#0#7'TButton'#21'AddCHeaderFilesButton'#18'BorderSpacing.Left'#2
-  +#6#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#21'AddCHeaderFilesButton'#7
-  +'OnClick'#7#26'AddCHeaderFilesButtonClick'#8'TabOrder'#2#1#22'AnchorSideLeft'
-  +'.Control'#7#21'CHeaderFilesSplitter1'#19'AnchorSideLeft.Side'#7#9'asrBottom'
-  +#4'Left'#3#10#1#6'Height'#2#25#3'Top'#2#12#5'Width'#3#185#0#0#0#7'TButton'#24
-  +'DeleteCHeaderFilesButton'#18'BorderSpacing.Left'#2#6#25'BorderSpacing.Inner'
-  +'Border'#2#4#7'Caption'#6#24'DeleteCHeaderFilesButton'#7'OnClick'#7#29'Delet'
-  +'eCHeaderFilesButtonClick'#8'TabOrder'#2#2#22'AnchorSideLeft.Control'#7#21'C'
-  +'HeaderFilesSplitter1'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left'#3#10#1
-  +#6'Height'#2#25#3'Top'#2'3'#5'Width'#3#185#0#0#0#7'TButton'#27'SelectAllCHea'
-  +'derFilesButton'#18'BorderSpacing.Left'#2#6#25'BorderSpacing.InnerBorder'#2#4
-  +#7'Caption'#6#27'SelectAllCHeaderFilesButton'#7'OnClick'#7' SelectAllCHeader'
-  +'FilesButtonClick'#8'TabOrder'#2#3#22'AnchorSideLeft.Control'#7#21'CHeaderFi'
-  +'lesSplitter1'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left'#3#10#1#6'Heigh'
-  +'t'#2#25#3'Top'#2'a'#5'Width'#3#185#0#0#0#7'TButton'#29'UnselectAllCHeaderFi'
-  +'lesButton'#18'BorderSpacing.Left'#2#6#25'BorderSpacing.InnerBorder'#2#4#7'C'
-  +'aption'#6#29'UnselectAllCHeaderFilesButton'#7'OnClick'#7'"UnselectAllCHeade'
-  +'rFilesButtonClick'#8'TabOrder'#2#4#22'AnchorSideLeft.Control'#7#21'CHeaderF'
-  +'ilesSplitter1'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left'#3#10#1#6'Heig'
-  +'ht'#2#25#3'Top'#3#137#0#5'Width'#3#185#0#0#0#9'TSplitter'#21'CHeaderFilesSp'
-  +'litter1'#7'Beveled'#9#6'Height'#3#179#1#5'Width'#2#5#6'Cursor'#7#8'crHSplit'
-  +#4'Left'#3#255#0#6'Height'#3#179#1#5'Width'#2#5#0#0#0#9'TTabSheet'#16'PreH2P'
-  +'asTabSheet'#7'Caption'#6#16'PreH2PasTabSheet'#12'ClientHeight'#3#179#1#11'C'
-  +'lientWidth'#3#13#3#4'Left'#2#2#6'Height'#3#179#1#3'Top'#2#28#5'Width'#3#13#3
-  +#0#9'TGroupBox'#16'PreH2PasGroupBox'#5'Align'#7#8'alClient'#7'Caption'#6#16
-  +'PreH2PasGroupBox'#12'ClientHeight'#3#179#1#11'ClientWidth'#3#13#3#8'TabOrde'
-  +'r'#2#0#6'Height'#3#179#1#5'Width'#3#13#3#0#0#0#9'TTabSheet'#20'h2pasOptions'
-  +'TabSheet'#7'Caption'#6#20'h2pasOptionsTabSheet'#12'ClientHeight'#3#179#1#11
-  +'ClientWidth'#3#13#3#4'Left'#2#2#6'Height'#3#179#1#3'Top'#2#28#5'Width'#3#13
-  +#3#0#6'TLabel'#12'LibNameLabel'#17'BorderSpacing.Top'#2#10#7'Caption'#6#12'L'
-  +'ibNameLabel'#5'Color'#7#6'clNone'#11'ParentColor'#8#21'AnchorSideTop.Contro'
-  +'l'#7#11'LibnameEdit'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#6#6'He'
-  +'ight'#2#13#3'Top'#3#25#1#5'Width'#2'Q'#0#0#6'TLabel'#14'OutputExtLabel'#7'C'
-  +'aption'#6#14'OutputExtLabel'#5'Color'#7#6'clNone'#11'ParentColor'#8#21'Anch'
-  +'orSideTop.Control'#7#13'OutputExtEdit'#18'AnchorSideTop.Side'#7#9'asrCenter'
-  +#4'Left'#2#6#6'Height'#2#13#3'Top'#3'9'#1#5'Width'#2'V'#0#0#6'TLabel'#14'Out'
-  +'putDirLabel'#7'Caption'#6#14'OutputDirLabel'#5'Color'#7#6'clNone'#11'Parent'
-  +'Color'#8#21'AnchorSideTop.Control'#7#13'OutputDirEdit'#18'AnchorSideTop.Sid'
-  +'e'#7#9'asrCenter'#4'Left'#2#6#6'Height'#2#13#3'Top'#3'V'#1#5'Width'#2'U'#0#0
-  +#5'TEdit'#11'LibnameEdit'#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2
-  +#6#13'OnEditingDone'#7#22'LibnameEditEditingDone'#8'TabOrder'#2#0#4'Text'#6
-  +#11'LibnameEdit'#22'AnchorSideLeft.Control'#7#12'LibNameLabel'#19'AnchorSide'
-  +'Left.Side'#7#9'asrBottom'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2']'
-  +#6'Height'#2#23#3'Top'#3#20#1#5'Width'#2'q'#0#0#5'TEdit'#13'OutputExtEdit'#18
-  +'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#13'OnEditingDone'#7#24'Ou'
-  +'tputExtEditEditingDone'#8'TabOrder'#2#1#4'Text'#6#13'OutputExtEdit'#22'Anch'
-  +'orSideLeft.Control'#7#14'OutputExtLabel'#19'AnchorSideLeft.Side'#7#9'asrBot'
-  +'tom'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'b'#6'Height'#2#23#3'To'
-  +'p'#3'4'#1#5'Width'#2'P'#0#0#5'TEdit'#13'OutputDirEdit'#18'BorderSpacing.Lef'
-  ,'t'#2#6#17'BorderSpacing.Top'#2#6#13'OnEditingDone'#7#24'OutputDirEditEditin'
-  +'gDone'#8'TabOrder'#2#2#4'Text'#6#13'OutputDirEdit'#22'AnchorSideLeft.Contro'
-  +'l'#7#14'OutputDirLabel'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSid'
-  +'eTop.Control'#7#13'OutputExtEdit'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'L'
-  +'eft'#2'a'#6'Height'#2#23#3'Top'#3'Q'#1#5'Width'#3#141#1#0#0#7'TButton'#21'O'
-  +'utputDirBrowseButton'#7'Anchors'#11#5'akTop'#6'akLeft'#8'akBottom'#0#25'Bor'
-  +'derSpacing.InnerBorder'#2#4#7'Caption'#6#3'...'#7'OnClick'#7#26'OutputDirBr'
-  +'owseButtonClick'#8'TabOrder'#2#3#22'AnchorSideLeft.Control'#7#13'OutputDirE'
-  +'dit'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#13
-  +'OutputDirEdit'#24'AnchorSideBottom.Control'#7#13'OutputDirEdit'#21'AnchorSi'
-  +'deBottom.Side'#7#9'asrBottom'#4'Left'#3#238#1#6'Height'#2#23#3'Top'#3'Q'#1#5
-  +'Width'#2' '#0#0#11'TCheckGroup'#22'h2pasOptionsCheckGroup'#8'AutoFill'#9#7
-  +'Caption'#6#22'h2pasOptionsCheckGroup'#28'ChildSizing.LeftRightSpacing'#2#6
-  +#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24
-  +'crsHomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenou'
-  +'sChildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'Chil'
-  +'dSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cc'
-  +'lLeftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#2#7'Columns'
-  +#2#2#11'OnItemClick'#7#31'h2pasOptionsCheckGroupItemClick'#8'TabOrder'#2#4#4
-  +'Left'#2#6#6'Height'#3#8#1#3'Top'#2#4#5'Width'#3#0#3#0#0#0#9'TTabSheet'#16'S'
-  +'ettingsTabSheet'#7'Caption'#6#16'SettingsTabSheet'#12'ClientHeight'#3#179#1
-  +#11'ClientWidth'#3#13#3#4'Left'#2#2#6'Height'#3#179#1#3'Top'#2#28#5'Width'#3
-  +#13#3#0#6'TLabel'#18'H2PasFilenameLabel'#7'Caption'#6#18'H2PasFilenameLabel'
-  +#5'Color'#7#6'clNone'#11'ParentColor'#8#21'AnchorSideTop.Control'#7#17'H2Pas'
-  +'FilenameEdit'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#6#6'Height'#2
-  +#13#3'Top'#2#9#5'Width'#2'x'#0#0#9'TCheckBox'#30'OpenLastProjectOnStartCheck'
-  +'Box'#7'Caption'#6#30'OpenLastProjectOnStartCheckBox'#8'OnChange'#7'$OpenLas'
-  +'tProjectOnStartCheckBoxChange'#8'TabOrder'#2#0#4'Left'#2#6#6'Height'#2#20#3
-  +'Top'#2'*'#5'Width'#3#216#0#0#0#7'TButton'#20'SaveSettingsAsButton'#8'AutoSi'
-  +'ze'#9#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#20'SaveSettingsAsButto'
-  +'n'#7'OnClick'#7#25'SaveSettingsAsButtonClick'#8'TabOrder'#2#1#4'Left'#2#6#6
-  +'Height'#2#26#3'Top'#2'R'#5'Width'#3#137#0#0#0#5'TEdit'#17'H2PasFilenameEdit'
-  +#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#13'OnEditingDone'#7#28
-  +'H2PasFilenameEditEditingDone'#8'TabOrder'#2#2#4'Text'#6#17'H2PasFilenameEdi'
-  +'t'#22'AnchorSideLeft.Control'#7#18'H2PasFilenameLabel'#19'AnchorSideLeft.Si'
-  +'de'#7#9'asrBottom'#4'Left'#3#132#0#6'Height'#2#23#3'Top'#2#4#5'Width'#3'`'#1
-  +#0#0#7'TButton'#25'h2pasFilenameBrowseButton'#7'Anchors'#11#5'akTop'#6'akLef'
-  +'t'#8'akBottom'#0#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#3'...'#7'On'
-  +'Click'#7#30'h2pasFilenameBrowseButtonClick'#8'TabOrder'#2#3#22'AnchorSideLe'
-  +'ft.Control'#7#17'H2PasFilenameEdit'#19'AnchorSideLeft.Side'#7#9'asrBottom'
-  +#21'AnchorSideTop.Control'#7#17'H2PasFilenameEdit'#24'AnchorSideBottom.Contr'
-  +'ol'#7#17'H2PasFilenameEdit'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'
-  +#3#228#1#6'Height'#2#23#3'Top'#2#4#5'Width'#2'#'#0#0#7'TButton'#17'NewSettin'
-  +'gsButton'#8'AutoSize'#9#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#17'N'
-  +'ewSettingsButton'#7'OnClick'#7#22'NewSettingsButtonClick'#8'TabOrder'#2#4#4
-  +'Left'#2#6#6'Height'#2#26#3'Top'#2'|'#5'Width'#2'v'#0#0#0#0#7'TButton'#18'Op'
-  +'enSettingsButton'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#8'AutoSize'#9#20'Bo'
-  +'rderSpacing.Around'#2#5#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#18'O'
-  +'penSettingsButton'#7'OnClick'#7#23'OpenSettingsButtonClick'#8'TabOrder'#2#1
-  +#22'AnchorSideLeft.Control'#7#5'Owner'#24'AnchorSideBottom.Control'#7#5'Owne'
-  +'r'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#2#5#6'Height'#2#26#3'To'
-  +'p'#3#214#1#5'Width'#2'|'#0#0#7'TButton'#18'SaveSettingsButton'#7'Anchors'#11
-  +#6'akLeft'#8'akBottom'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#5#25'Borde'
-  +'rSpacing.InnerBorder'#2#4#7'Caption'#6#18'SaveSettingsButton'#7'OnClick'#7
-  +#23'SaveSettingsButtonClick'#8'TabOrder'#2#2#22'AnchorSideLeft.Control'#7#18
-  +'OpenSettingsButton'#19'AnchorSideLeft.Side'#7#9'asrBottom'#24'AnchorSideBot'
-  +'tom.Control'#7#5'Owner'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#3
-  +#134#0#6'Height'#2#26#3'Top'#3#214#1#5'Width'#2'z'#0#0#7'TButton'#13'Convert'
-  +'Button'#8'AutoSize'#9#18'BorderSpacing.Left'#2#15#25'BorderSpacing.InnerBor'
-  +'der'#2#4#7'Caption'#6#13'ConvertButton'#7'OnClick'#7#18'ConvertButtonClick'
-  +#8'TabOrder'#2#0#22'AnchorSideLeft.Control'#7#18'SaveSettingsButton'#19'Anch'
-  +'orSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#18'SaveSettings'
-  +'Button'#4'Left'#3#15#1#6'Height'#2#26#3'Top'#3#214#1#5'Width'#2']'#0#0#7'TB'
-  +'utton'#11'CloseButton'#7'Anchors'#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9
-  ,#20'BorderSpacing.Around'#2#5#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6
-  +#11'CloseButton'#7'OnClick'#7#16'CloseButtonClick'#8'TabOrder'#2#3#23'Anchor'
-  +'SideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'An'
-  +'chorSideBottom.Control'#7#5'Owner'#21'AnchorSideBottom.Side'#7#9'asrBottom'
-  +#4'Left'#3#187#2#6'Height'#2#26#3'Top'#3#214#1#5'Width'#2'Q'#0#0#0
+  'TPF0'#12'TH2PasDialog'#11'H2PasDialog'#4'Left'#3#245#0#6'Height'#3#245#1#3'T'
+  +'op'#3#205#0#5'Width'#3#17#3#18'HorzScrollBar.Page'#3#16#3#18'VertScrollBar.'
+  +'Page'#3#244#1#7'Caption'#6#11'H2PasDialog'#10'KeyPreview'#9#12'OnCloseQuery'
+  +#7#14'FormCloseQuery'#8'OnCreate'#7#10'FormCreate'#9'OnDestroy'#7#11'FormDes'
+  +'troy'#9'OnKeyDown'#7#11'FormKeyDown'#8'Position'#7#15'poDesktopCenter'#0#12
+  +'TPageControl'#15'MainPageControl'#24'AnchorSideBottom.Control'#7#18'OpenSet'
+  +'tingsButton'#6'Height'#3#209#1#5'Width'#3#17#3#10'ActivePage'#7#13'FilesTab'
+  +'Sheet'#5'Align'#7#5'alTop'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'ak'
+  +'Bottom'#0#8'TabIndex'#2#0#8'TabOrder'#2#4#0#9'TTabSheet'#13'FilesTabSheet'#7
+  +'Caption'#6#13'FilesTabSheet'#0#13'TCheckListBox'#24'CHeaderFilesCheckListBo'
+  +'x'#6'Height'#3#179#1#5'Width'#3#255#0#5'Align'#7#6'alLeft'#7'OnClick'#7#29
+  +'CHeaderFilesCheckListBoxClick'#11'OnItemClick'#7'!CHeaderFilesCheckListBoxI'
+  +'temClick'#8'TabOrder'#2#0#8'TopIndex'#2#255#0#0#7'TButton'#21'AddCHeaderFil'
+  +'esButton'#22'AnchorSideLeft.Control'#7#21'CHeaderFilesSplitter1'#19'AnchorS'
+  +'ideLeft.Side'#7#9'asrBottom'#4'Left'#3#10#1#6'Height'#2#25#3'Top'#2#12#5'Wi'
+  +'dth'#3#185#0#18'BorderSpacing.Left'#2#6#25'BorderSpacing.InnerBorder'#2#4#7
+  +'Caption'#6#21'AddCHeaderFilesButton'#7'OnClick'#7#26'AddCHeaderFilesButtonC'
+  +'lick'#8'TabOrder'#2#1#0#0#7'TButton'#24'DeleteCHeaderFilesButton'#22'Anchor'
+  +'SideLeft.Control'#7#21'CHeaderFilesSplitter1'#19'AnchorSideLeft.Side'#7#9'a'
+  +'srBottom'#4'Left'#3#10#1#6'Height'#2#25#3'Top'#2'3'#5'Width'#3#185#0#18'Bor'
+  +'derSpacing.Left'#2#6#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#24'Dele'
+  +'teCHeaderFilesButton'#7'OnClick'#7#29'DeleteCHeaderFilesButtonClick'#8'TabO'
+  +'rder'#2#2#0#0#7'TButton'#27'SelectAllCHeaderFilesButton'#22'AnchorSideLeft.'
+  +'Control'#7#21'CHeaderFilesSplitter1'#19'AnchorSideLeft.Side'#7#9'asrBottom'
+  +#4'Left'#3#10#1#6'Height'#2#25#3'Top'#2'a'#5'Width'#3#185#0#18'BorderSpacing'
+  +'.Left'#2#6#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#27'SelectAllCHead'
+  +'erFilesButton'#7'OnClick'#7' SelectAllCHeaderFilesButtonClick'#8'TabOrder'#2
+  +#3#0#0#7'TButton'#29'UnselectAllCHeaderFilesButton'#22'AnchorSideLeft.Contro'
+  +'l'#7#21'CHeaderFilesSplitter1'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'Lef'
+  +'t'#3#10#1#6'Height'#2#25#3'Top'#3#137#0#5'Width'#3#185#0#18'BorderSpacing.L'
+  +'eft'#2#6#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#29'UnselectAllCHead'
+  +'erFilesButton'#7'OnClick'#7'"UnselectAllCHeaderFilesButtonClick'#8'TabOrder'
+  +#2#4#0#0#9'TSplitter'#21'CHeaderFilesSplitter1'#4'Left'#3#255#0#6'Height'#3
+  +#179#1#5'Width'#2#5#7'Beveled'#9#0#0#9'TGroupBox'#16'FileInfoGroupBox'#22'An'
+  +'chorSideLeft.Control'#7#21'CHeaderFilesSplitter1'#19'AnchorSideLeft.Side'#7
+  +#9'asrBottom'#23'AnchorSideRight.Control'#7#13'FilesTabSheet'#20'AnchorSideR'
+  +'ight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#13'FilesTabSheet'
+  +#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#3#4#1#6'Height'#3#247#0#3
+  +'Top'#3#188#0#5'Width'#3#9#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'a'
+  +'kBottom'#0#7'Caption'#6#16'FileInfoGroupBox'#8'TabOrder'#2#5#0#6'TLabel'#13
+  +'FileInfoLabel'#4'Left'#2#8#6'Height'#2#13#3'Top'#2#1#5'Width'#2'I'#7'Captio'
+  +'n'#6#13'FileInfoLabel'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#0#0#9'TTa'
+  +'bSheet'#16'PreH2PasTabSheet'#7'Caption'#6#16'PreH2PasTabSheet'#0#9'TGroupBo'
+  +'x'#16'PreH2PasGroupBox'#6'Height'#3#179#1#5'Width'#3#13#3#5'Align'#7#8'alCl'
+  +'ient'#7'Caption'#6#16'PreH2PasGroupBox'#8'TabOrder'#2#0#0#0#0#9'TTabSheet'
+  +#20'h2pasOptionsTabSheet'#7'Caption'#6#20'h2pasOptionsTabSheet'#0#6'TLabel'
+  +#12'LibNameLabel'#21'AnchorSideTop.Control'#7#11'LibnameEdit'#18'AnchorSideT'
+  +'op.Side'#7#9'asrCenter'#4'Left'#2#6#6'Height'#2#13#3'Top'#3#25#1#5'Width'#2
+  +'Q'#17'BorderSpacing.Top'#2#10#7'Caption'#6#12'LibNameLabel'#5'Color'#7#6'cl'
+  +'None'#11'ParentColor'#8#0#0#6'TLabel'#14'OutputExtLabel'#21'AnchorSideTop.C'
+  +'ontrol'#7#13'OutputExtEdit'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2
+  +#6#6'Height'#2#13#3'Top'#3'9'#1#5'Width'#2'V'#7'Caption'#6#14'OutputExtLabel'
+  +#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#14'OutputDirLabel'#21
+  +'AnchorSideTop.Control'#7#13'OutputDirEdit'#18'AnchorSideTop.Side'#7#9'asrCe'
+  +'nter'#4'Left'#2#6#6'Height'#2#13#3'Top'#3'V'#1#5'Width'#2'U'#7'Caption'#6#14
+  +'OutputDirLabel'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#5'TEdit'#11'Libn'
+  +'ameEdit'#22'AnchorSideLeft.Control'#7#12'LibNameLabel'#19'AnchorSideLeft.Si'
+  +'de'#7#9'asrBottom'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2']'#6'Hei'
+  +'ght'#2#23#3'Top'#3#20#1#5'Width'#2'q'#18'BorderSpacing.Left'#2#6#17'BorderS'
+  +'pacing.Top'#2#6#13'OnEditingDone'#7#22'LibnameEditEditingDone'#8'TabOrder'#2
+  +#0#4'Text'#6#11'LibnameEdit'#0#0#5'TEdit'#13'OutputExtEdit'#22'AnchorSideLef'
+  +'t.Control'#7#14'OutputExtLabel'#19'AnchorSideLeft.Side'#7#9'asrBottom'#18'A'
+  +'nchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'b'#6'Height'#2#23#3'Top'#3'4'#1
+  +#5'Width'#2'P'#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#13'OnEdi'
+  ,'tingDone'#7#24'OutputExtEditEditingDone'#8'TabOrder'#2#1#4'Text'#6#13'Outpu'
+  +'tExtEdit'#0#0#5'TEdit'#13'OutputDirEdit'#22'AnchorSideLeft.Control'#7#14'Ou'
+  +'tputDirLabel'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Contr'
+  +'ol'#7#13'OutputExtEdit'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'a'#6
+  +'Height'#2#23#3'Top'#3'Q'#1#5'Width'#3#141#1#18'BorderSpacing.Left'#2#6#17'B'
+  +'orderSpacing.Top'#2#6#13'OnEditingDone'#7#24'OutputDirEditEditingDone'#8'Ta'
+  +'bOrder'#2#2#4'Text'#6#13'OutputDirEdit'#0#0#7'TButton'#21'OutputDirBrowseBu'
+  +'tton'#22'AnchorSideLeft.Control'#7#13'OutputDirEdit'#19'AnchorSideLeft.Side'
+  +#7#9'asrBottom'#21'AnchorSideTop.Control'#7#13'OutputDirEdit'#24'AnchorSideB'
+  +'ottom.Control'#7#13'OutputDirEdit'#21'AnchorSideBottom.Side'#7#9'asrBottom'
+  +#4'Left'#3#238#1#6'Height'#2#23#3'Top'#3'Q'#1#5'Width'#2' '#7'Anchors'#11#5
+  +'akTop'#6'akLeft'#8'akBottom'#0#25'BorderSpacing.InnerBorder'#2#4#7'Caption'
+  +#6#3'...'#7'OnClick'#7#26'OutputDirBrowseButtonClick'#8'TabOrder'#2#3#0#0#11
+  +'TCheckGroup'#22'h2pasOptionsCheckGroup'#4'Left'#2#6#6'Height'#3#8#1#3'Top'#2
+  +#4#5'Width'#3#0#3#8'AutoFill'#9#7'Caption'#6#22'h2pasOptionsCheckGroup'#28'C'
+  +'hildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'Ch'
+  +'ildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.'
+  +'EnlargeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHorizo'
+  +'ntal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChil'
+  +'ds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizi'
+  +'ng.ControlsPerLine'#2#2#7'Columns'#2#2#11'OnItemClick'#7#31'h2pasOptionsChe'
+  +'ckGroupItemClick'#8'TabOrder'#2#4#0#0#0#9'TTabSheet'#16'SettingsTabSheet'#7
+  +'Caption'#6#16'SettingsTabSheet'#0#6'TLabel'#18'H2PasFilenameLabel'#21'Ancho'
+  +'rSideTop.Control'#7#17'H2PasFilenameEdit'#18'AnchorSideTop.Side'#7#9'asrCen'
+  +'ter'#4'Left'#2#6#6'Height'#2#13#3'Top'#2#9#5'Width'#2'x'#7'Caption'#6#18'H2'
+  +'PasFilenameLabel'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#9'TCheckBox'#30
+  +'OpenLastProjectOnStartCheckBox'#4'Left'#2#6#6'Height'#2#20#3'Top'#2'*'#5'Wi'
+  +'dth'#3#216#0#7'Caption'#6#30'OpenLastProjectOnStartCheckBox'#8'OnChange'#7
+  +'$OpenLastProjectOnStartCheckBoxChange'#8'TabOrder'#2#0#0#0#7'TButton'#20'Sa'
+  +'veSettingsAsButton'#4'Left'#2#6#6'Height'#2#26#3'Top'#2'R'#5'Width'#3#137#0
+  +#8'AutoSize'#9#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#20'SaveSetting'
+  +'sAsButton'#7'OnClick'#7#25'SaveSettingsAsButtonClick'#8'TabOrder'#2#1#0#0#5
+  +'TEdit'#17'H2PasFilenameEdit'#22'AnchorSideLeft.Control'#7#18'H2PasFilenameL'
+  +'abel'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left'#3#132#0#6'Height'#2#23
+  +#3'Top'#2#4#5'Width'#3'`'#1#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'
+  +#2#6#13'OnEditingDone'#7#28'H2PasFilenameEditEditingDone'#8'TabOrder'#2#2#4
+  +'Text'#6#17'H2PasFilenameEdit'#0#0#7'TButton'#25'h2pasFilenameBrowseButton'
+  +#22'AnchorSideLeft.Control'#7#17'H2PasFilenameEdit'#19'AnchorSideLeft.Side'#7
+  +#9'asrBottom'#21'AnchorSideTop.Control'#7#17'H2PasFilenameEdit'#24'AnchorSid'
+  +'eBottom.Control'#7#17'H2PasFilenameEdit'#21'AnchorSideBottom.Side'#7#9'asrB'
+  +'ottom'#4'Left'#3#228#1#6'Height'#2#23#3'Top'#2#4#5'Width'#2'#'#7'Anchors'#11
+  +#5'akTop'#6'akLeft'#8'akBottom'#0#25'BorderSpacing.InnerBorder'#2#4#7'Captio'
+  +'n'#6#3'...'#7'OnClick'#7#30'h2pasFilenameBrowseButtonClick'#8'TabOrder'#2#3
+  +#0#0#7'TButton'#17'NewSettingsButton'#4'Left'#2#6#6'Height'#2#26#3'Top'#2'|'
+  +#5'Width'#2'v'#8'AutoSize'#9#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6
+  +#17'NewSettingsButton'#7'OnClick'#7#22'NewSettingsButtonClick'#8'TabOrder'#2
+  +#4#0#0#0#0#7'TButton'#18'OpenSettingsButton'#22'AnchorSideLeft.Control'#7#5
+  +'Owner'#24'AnchorSideBottom.Control'#7#5'Owner'#21'AnchorSideBottom.Side'#7#9
+  +'asrBottom'#4'Left'#2#5#6'Height'#2#26#3'Top'#3#214#1#5'Width'#2'|'#7'Anchor'
+  +'s'#11#6'akLeft'#8'akBottom'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#5#25
+  +'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#18'OpenSettingsButton'#7'OnClic'
+  +'k'#7#23'OpenSettingsButtonClick'#8'TabOrder'#2#1#0#0#7'TButton'#18'SaveSett'
+  +'ingsButton'#22'AnchorSideLeft.Control'#7#18'OpenSettingsButton'#19'AnchorSi'
+  +'deLeft.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#5'Owner'#21'Anch'
+  +'orSideBottom.Side'#7#9'asrBottom'#4'Left'#3#134#0#6'Height'#2#26#3'Top'#3
+  +#214#1#5'Width'#2'z'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#8'AutoSize'#9#20
+  +'BorderSpacing.Around'#2#5#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#18
+  +'SaveSettingsButton'#7'OnClick'#7#23'SaveSettingsButtonClick'#8'TabOrder'#2#2
+  +#0#0#7'TButton'#13'ConvertButton'#22'AnchorSideLeft.Control'#7#18'SaveSettin'
+  +'gsButton'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7
+  +#18'SaveSettingsButton'#4'Left'#3#15#1#6'Height'#2#26#3'Top'#3#214#1#5'Width'
+  +#2']'#8'AutoSize'#9#18'BorderSpacing.Left'#2#15#25'BorderSpacing.InnerBorder'
+  +#2#4#7'Caption'#6#13'ConvertButton'#7'OnClick'#7#18'ConvertButtonClick'#8'Ta'
+  +'bOrder'#2#0#0#0#7'TButton'#11'CloseButton'#23'AnchorSideRight.Control'#7#5
+  ,'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'
+  +#7#5'Owner'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#3#187#2#6'Heigh'
+  +'t'#2#26#3'Top'#3#214#1#5'Width'#2'Q'#7'Anchors'#11#7'akRight'#8'akBottom'#0
+  +#8'AutoSize'#9#20'BorderSpacing.Around'#2#5#25'BorderSpacing.InnerBorder'#2#4
+  +#7'Caption'#6#11'CloseButton'#7'OnClick'#7#16'CloseButtonClick'#8'TabOrder'#2
+  +#3#0#0#0
 ]);
--- a/components/h2pas/h2pasdlg.pas
+++ b/components/h2pas/h2pasdlg.pas
@ -36,6 +36,8 @@ type
  { TH2PasDialog }

  TH2PasDialog = class(TForm)
+    FileInfoGroupBox: TGroupBox;
+    FileInfoLabel: TLabel;
    MainPageControl: TPageControl;

    // c header files
@ -79,6 +81,7 @@ type
    CloseButton: TButton;

    procedure AddCHeaderFilesButtonClick(Sender: TObject);
+    procedure CHeaderFilesCheckListBoxClick(Sender: TObject);
    procedure CHeaderFilesCheckListBoxItemClick(Sender: TObject; Index: LongInt
      );
    procedure CloseButtonClick(Sender: TObject);
@ -116,8 +119,10 @@ type
    procedure UpdateAll;
    procedure UpdateProjectChanged; // show project settings
    procedure UpdateCaption;
+    procedure UpdateFileInfo;
    procedure ClearMessages;
    procedure CreateLazarusMenuItems;
+    function GetCurrentCHeaderFile: TH2PasFile;

    // project settings
    procedure UpdateFilesPage;
@ -190,6 +195,7 @@ begin
    DeleteCHeaderFilesButton.Caption:='Delete selected .h files';
    SelectAllCHeaderFilesButton.Caption:='Enable all .h files';
    UnselectAllCHeaderFilesButton.Caption:='Disable all .h files';
+    FileInfoGroupBox.Caption:='File information';
  h2pasOptionsTabSheet.Caption:='h2pas Options';
    h2pasOptionsCheckGroup.Caption:='Options';
    with h2pasOptionsCheckGroup.Items do begin
@ -332,15 +338,17 @@ begin
  end;
 end;

+procedure TH2PasDialog.CHeaderFilesCheckListBoxClick(Sender: TObject);
+begin
+  UpdateFileInfo;
+end;
+
 procedure TH2PasDialog.CHeaderFilesCheckListBoxItemClick(Sender: TObject;
  Index: LongInt);
 var
-  AFilename: string;
  AFile: TH2PasFile;
 begin
-  if (Index<0) then exit;
-  AFilename:=Project.LongenFilename(CHeaderFilesCheckListBox.Items[Index]);
-  AFile:=Project.CHeaderFileWithFilename(AFilename);
+  AFile:=GetCurrentCHeaderFile;
  if AFile<>nil then
    AFile.Enabled:=CHeaderFilesCheckListBox.Checked[Index];
 end;
@ -573,6 +581,22 @@ begin
  Caption:=s;
 end;

+procedure TH2PasDialog.UpdateFileInfo;
+var
+  AFile: TH2PasFile;
+  s: String;
+begin
+  AFile:=GetCurrentCHeaderFile;
+  if AFile<>nil then begin
+    s:='File: '+AFile.Filename;
+    if not FileExistsCached(AFile.Filename) then
+      s:=s+#13+'ERROR: file not found';
+    FileInfoLabel.Caption:=s;
+  end else begin
+    FileInfoLabel.Caption:='No file selected.';
+  end;
+end;
+
 procedure TH2PasDialog.ClearMessages;
 begin
  IDEMessagesWindow.Clear;
@ -592,6 +616,18 @@ begin
      @OnAddSearchAndReplaceBeforeH2PasClick);
 end;

+function TH2PasDialog.GetCurrentCHeaderFile: TH2PasFile;
+var
+  Index: LongInt;
+  AFilename: String;
+begin
+  Result:=nil;
+  Index:=CHeaderFilesCheckListBox.ItemIndex;
+  if Index<0 then exit;
+  AFilename:=Project.LongenFilename(CHeaderFilesCheckListBox.Items[Index]);
+  Result:=Project.CHeaderFileWithFilename(AFilename);
+end;
+
 procedure TH2PasDialog.UpdateFilesPage;
 var
  i: Integer;
@ -625,6 +661,8 @@ begin
    Target.Delete(Target.Count-1);
  Target.EndUpdate;
  OldSelected.Free;
+  
+  UpdateFileInfo;
 end;

 procedure TH2PasDialog.UpdateH2PasPage;
--- a/designer/anchoreditor.pas
+++ b/designer/anchoreditor.pas
@ -149,6 +149,7 @@ type
    function AnchorDesignerNoSiblingText: string;
  public
    Values: TAnchorDesignerValues;
+    destructor Destroy; override;
    procedure Refresh(Force: boolean);
    procedure OnRefreshPropertyValues;
    function GetSelectedControls: TList;
@ -170,8 +171,8 @@ type
  end;
  
 var
-  AnchorDesigner: TAnchorDesigner;
-  ShowAnchorDesigner: TNotifyEvent;
+  AnchorDesigner: TAnchorDesigner = nil;
+  ShowAnchorDesigner: TNotifyEvent = nil;

 implementation

@ -548,6 +549,12 @@ begin
  Result:='(nil)';
 end;

+destructor TAnchorDesigner.Destroy;
+begin
+  inherited Destroy;
+  if AnchorDesigner=Self then AnchorDesigner:=nil;
+end;
+
 procedure TAnchorDesigner.Refresh(Force: boolean);
 var
  SelectedControlCount: Integer;
--- a/ide/codecontextform.pas
+++ b/ide/codecontextform.pas
@ -69,6 +69,7 @@ type
    procedure Paint; override;
  public
    constructor Create(TheOwner: TComponent); override;
+    destructor Destroy; override;
    procedure SetCodeContexts(const CodeContexts: TCodeContextInfo);
    procedure UpdateHints;
    property ProcNameCodeXYPos: TCodeXYPosition read FProcNameCodeXYPos;
@ -692,5 +693,12 @@ begin
  FormCreate(Self);
 end;

+destructor TCodeContextFrm.Destroy;
+begin
+  inherited Destroy;
+  if CodeContextFrm=Self then
+    CodeContextFrm:=nil;
+end;
+
 end.

--- a/ide/codeexplorer.pas
+++ b/ide/codeexplorer.pas
@ -114,6 +114,7 @@ type
  protected
    procedure KeyUp(var Key: Word; Shift: TShiftState); override;
  public
+    destructor Destroy; override;
    procedure BeginUpdate;
    procedure EndUpdate;
    procedure Refresh;
@ -490,6 +491,13 @@ begin
  ExecuteIDEShortCut(Self,Key,Shift,nil);
 end;

+destructor TCodeExplorerView.Destroy;
+begin
+  inherited Destroy;
+  if CodeExplorerView=Self then
+    CodeExplorerView:=nil;
+end;
+
 procedure TCodeExplorerView.BeginUpdate;
 begin
  inc(FUpdateCount);
--- a/ide/findreplacedialog.pp
+++ b/ide/findreplacedialog.pp
@ -107,7 +107,8 @@ type
      read GetComponentText write SetComponentText;
  end;

-var LazFindReplaceDialog: TLazFindReplaceDialog;
+var
+  LazFindReplaceDialog: TLazFindReplaceDialog = nil;


 implementation
@ -177,6 +178,8 @@ destructor TLazFindReplaceDialog.Destroy;
 begin
  RegExpr.Free;
  inherited Destroy;
+  if LazFindReplaceDialog=Self then
+    LazFindReplaceDialog:=nil;
 end;

 procedure TLazFindReplaceDialog.TextToFindComboBoxKeyDown(
--- a/ide/main.pp
+++ b/ide/main.pp
@ -360,6 +360,7 @@ type
    // ObjectInspector + PropertyEditorHook events
    procedure OIOnSelectPersistents(Sender: TObject);
    procedure OIOnShowOptions(Sender: TObject);
+    procedure OIOnDestroy(Sender: TObject);
    procedure OIRemainingKeyDown(Sender: TObject; var Key: Word;
       Shift: TShiftState);
    procedure OIOnAddToFavourites(Sender: TObject);
@ -528,6 +529,9 @@ type
    procedure SetupIDEMsgQuickFixItems;
    procedure SetupStartProject;
    procedure ReOpenIDEWindows;
+    procedure CloseIDEWindows;
+    procedure FreeIDEWindows;
+    function CloseQueryIDEWindows: boolean;

    procedure ReloadMenuShortCuts;

@ -1118,8 +1122,6 @@ begin

  DebugLn('[TMainIDE.Destroy] A ');
  {$IFDEF IDE_MEM_CHECK}CheckHeapWrtMemCnt('TMainIDE.Destroy A ');{$ENDIF}
-  FreeThenNil(ProjInspector);
-  FreeThenNil(CodeExplorerView);

  if DebugBoss<>nil then DebugBoss.EndDebugging;

@ -1130,6 +1132,14 @@ begin
    FreeThenNil(TheControlSelection);
  end;

+  FreeThenNil(ProjInspector);
+  FreeThenNil(CodeExplorerView);
+  FreeAndNil(LazFindReplaceDialog);
+  FreeAndNil(MessagesView);
+  FreeThenNil(AnchorDesigner);
+  FreeThenNil(ObjectInspector1);
+  FreeThenNil(SourceNotebook);
+
  // disconnect handlers
  Application.RemoveAllHandlersOfObject(Self);
  Screen.RemoveAllHandlersOfObject(Self);
@ -1139,13 +1149,9 @@ begin
  FreeThenNil(Project1);

  // free IDE parts
+  FreeFormEditor;
  FreeTextConverters;
  FreeStandardIDEQuickFixItems;
-  FreeFormEditor;
-  FreeAndNil(LazFindReplaceDialog);
-  FreeAndNil(MessagesView);
-  FreeThenNil(AnchorDesigner);
-  FreeThenNil(ObjectInspector1);
  FreeThenNil(GlobalDesignHook);
  FreeThenNil(PkgBoss);
  FreeThenNil(HelpBoss);
@ -1170,7 +1176,6 @@ begin

  DebugLn('[TMainIDE.Destroy] B  -> inherited Destroy... ',ClassName);
  {$IFDEF IDE_MEM_CHECK}CheckHeapWrtMemCnt('TMainIDE.Destroy B ');{$ENDIF}
-  FreeThenNil(SourceNotebook);
  FreeThenNil(MainBuildBoss);
  inherited Destroy;
  {$IFDEF IDE_MEM_CHECK}CheckHeapWrtMemCnt('TMainIDE.Destroy C ');{$ENDIF}
@ -1205,6 +1210,12 @@ begin
  DoShowEnvGeneralOptions(eodpObjectInspector);
 end;

+procedure TMainIDE.OIOnDestroy(Sender: TObject);
+begin
+  if ObjectInspector1=Sender then
+    ObjectInspector1:=nil;
+end;
+
 procedure TMainIDE.OIRemainingKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
 begin
@ -1259,12 +1270,14 @@ end;
 procedure TMainIDE.MainIDEFormClose(Sender: TObject;
  var CloseAction: TCloseAction);
 begin
+  CloseIDEWindows;
  SaveEnvironment;
  SaveIncludeLinks;
  InputHistories.Save;
  PkgBoss.SaveSettings;
  if TheControlSelection<>nil then TheControlSelection.Clear;
  if SourceNoteBook<>nil then SourceNoteBook.ClearUnUsedEditorComponents(true);
+  FreeIDEWindows;
 end;

 procedure TMainIDE.MainIDEFormCloseQuery(Sender: TObject;
@ -1272,18 +1285,16 @@ procedure TMainIDE.MainIDEFormCloseQuery(Sender: TObject;
 var
  MsgResult: integer;
 begin
+  CanClose:=false;
  // stop debugging/compiling/...
-  if not DoResetToolStatus(true) then begin
-    CanClose:=false;
-    exit;
-  end;
+  if not DoResetToolStatus(true) then exit;
+
+  // check foreign windows
+  if not CloseQueryIDEWindows then exit;

  // check packages
  if (PkgBoss.DoSaveAllPackages([psfAskBeforeSaving])<>mrOk)
-  or (PkgBoss.DoCloseAllPackageEditors<>mrOk) then begin
-    CanClose:=false;
-    exit;
-  end;
+  or (PkgBoss.DoCloseAllPackageEditors<>mrOk) then exit;

  // check project
  if SomethingOfProjectIsModified then begin
@ -1302,12 +1313,11 @@ begin

    mrCancel, mrAbort:
      begin
-        CanClose:= false;
        Exit;
      end;
    end;
  end;
-
+  
  CanClose:=(DoCloseProject <> mrAbort);
 end;

@ -1452,16 +1462,17 @@ end;
 procedure TMainIDE.SetupObjectInspector;
 begin
  ObjectInspector1 := TObjectInspector.Create(OwningComponent);
+  ObjectInspector1.BorderStyle:=bsSizeToolWin;
+  ObjectInspector1.Favourites:=LoadOIFavouriteProperties;
+  ObjectInspector1.FindDeclarationPopupmenuItem.Visible:=true;
+  ObjectInspector1.OnAddToFavourites:=@OIOnAddToFavourites;
+  ObjectInspector1.OnFindDeclarationOfProperty:=@OIOnFindDeclarationOfProperty;
+  ObjectInspector1.OnRemainingKeyDown:=@OIRemainingKeyDown;
+  ObjectInspector1.OnRemoveFromFavourites:=@OIOnRemoveFromFavourites;
  ObjectInspector1.OnSelectPersistentsInOI:=@OIOnSelectPersistents;
  ObjectInspector1.OnShowOptions:=@OIOnShowOptions;
-  ObjectInspector1.OnRemainingKeyDown:=@OIRemainingKeyDown;
+  ObjectInspector1.OnDestroy:=@OIOnDestroy;
  ObjectInspector1.ShowFavouritePage:=true;
-  ObjectInspector1.Favourites:=LoadOIFavouriteProperties;
-  ObjectInspector1.OnAddToFavourites:=@OIOnAddToFavourites;
-  ObjectInspector1.OnRemoveFromFavourites:=@OIOnRemoveFromFavourites;
-  ObjectInspector1.FindDeclarationPopupmenuItem.Visible:=true;
-  ObjectInspector1.OnFindDeclarationOfProperty:=@OIOnFindDeclarationOfProperty;
-  ObjectInspector1.BorderStyle:=bsSizeToolWin;
  IDECmdScopeObjectInspectorOnly.AddWindowClass(TObjectInspector);

  GlobalDesignHook:=TPropertyEditorHook.Create;
@ -1733,6 +1744,51 @@ begin
  end;
 end;

+procedure TMainIDE.CloseIDEWindows;
+var
+  i: Integer;
+  AForm: TCustomForm;
+begin
+  i:=Screen.CustomFormCount-1;
+  while i>=0 do begin
+    AForm:=Screen.CustomForms[i];
+    if AForm<>MainIDEBar then
+      AForm.Close;
+    i:=Math.Min(i,Screen.CustomFormCount)-1;
+  end;
+end;
+
+procedure TMainIDE.FreeIDEWindows;
+var
+  i: Integer;
+  AForm: TCustomForm;
+begin
+  i:=Screen.CustomFormCount-1;
+  while i>=0 do begin
+    AForm:=Screen.CustomForms[i];
+    if (AForm<>MainIDEBar)
+    and ((AForm.Owner=nil) or (AForm.Owner=Application)) then begin
+      DebugLn(['TMainIDE.FreeIDEWindows ',dbgsName(AForm)]);
+      AForm.Free;
+    end;
+    i:=Math.Min(i,Screen.CustomFormCount)-1;
+  end;
+end;
+
+function TMainIDE.CloseQueryIDEWindows: boolean;
+var
+  i: Integer;
+  AForm: TCustomForm;
+begin
+  for i:=0 to Screen.CustomFormCount-1 do begin
+    AForm:=Screen.CustomForms[i];
+    if AForm<>MainIDEBar then begin
+      if not AForm.CloseQuery then exit(false);
+    end;
+  end;
+  Result:=true;
+end;
+
 procedure TMainIDE.ReloadMenuShortCuts;
 begin
  //LoadMenuShortCuts;
--- a/ide/mainbase.pas
+++ b/ide/mainbase.pas
@ -174,7 +174,6 @@ type

 var
  MainIDE: TMainIDEBase = nil;
-  SourceNotebook: TSourceNotebook = nil;

 implementation

--- a/ide/mainintf.pas
+++ b/ide/mainintf.pas
@ -204,7 +204,7 @@ type
 var
  MainIDEInterface: TMainIDEInterface;

-  ObjectInspector1: TObjectInspector;
+  ObjectInspector1: TObjectInspector = nil;

 const
  OpenFlagNames: array[TOpenFlag] of string = (
--- a/ide/msgview.pp
+++ b/ide/msgview.pp
@ -146,7 +146,7 @@ type
  end;

 var
-  MessagesView: TMessagesView;
+  MessagesView: TMessagesView = nil;
  MsgClearIDEMenuCommand: TIDEMenuCommand;
  MsgCopyIDEMenuCommand: TIDEMenuCommand;
  MsgCopyAllIDEMenuCommand: TIDEMenuCommand;
@ -307,7 +307,10 @@ begin
  FreeThenNil(FVisibleItems);
  FreeThenNil(FQuickFixItems);
  inherited Destroy;
-  IDEMessagesWindow:=nil;
+  if IDEMessagesWindow=nil then
+    IDEMessagesWindow:=nil;
+  if MessagesView=Self then
+    MessagesView:=nil;
 end;

 procedure TMessagesView.DeleteLine(Index: integer);
--- a/ide/projectinspector.pas
+++ b/ide/projectinspector.pas
@ -700,6 +700,7 @@ begin
  BeginUpdate;
  LazProject:=nil;
  inherited Destroy;
+  if ProjInspector=Self then ProjInspector:=nil;
 end;

 procedure TProjectInspectorForm.BeginUpdate;
--- a/ide/uniteditor.pp
+++ b/ide/uniteditor.pp
@ -227,6 +227,7 @@ type
    function DoFindAndReplace: Integer;
    procedure FindNext;
    procedure FindPrevious;
+    procedure InitGotoDialog;
    procedure ShowGotoLineDialog;
    procedure GetDialogPosition(Width, Height:integer; out Left,Top:integer);
    procedure ActivateHint(ClientPos: TPoint; const TheHint: string);
@ -756,10 +757,13 @@ type
    property OnPopupMenu: TSrcEditPopupMenuEvent read FOnPopupMenu write FOnPopupMenu;
  end;

+var
+  SourceNotebook: TSourceNotebook = nil;
+
  //=============================================================================

 { Goto dialog }
-
+type
  TfrmGoto = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
@ -816,16 +820,16 @@ var
  // aCompletion:
  //   The component controlling the completion form. It is created on demand
  //   and killed when the IDE ends.
-  aCompletion: TSynCompletion;
+  aCompletion: TSynCompletion = nil;
  // CurCompletionControl contains aCompletion whenever the completion form is
  // active
-  CurCompletionControl: TSynCompletion;
+  CurCompletionControl: TSynCompletion = nil;
  CurrentCompletionType: TCompletionType;
-  IdentCompletionTimer: TIdleTimer;
+  IdentCompletionTimer: TIdleTimer = nil;
  IdentCompletionCaretXY: TPoint;
-  AWordCompletion: TWordCompletion;
+  AWordCompletion: TWordCompletion = nil;

-  GotoDialog: TfrmGoto;
+  GotoDialog: TfrmGoto = nil;

 procedure RegisterStandardSourceEditorMenuItems;
 var
@ -1017,6 +1021,7 @@ var
  NewLeft: integer;
  NewTop: integer;
 begin
+  InitGotoDialog;
  GotoDialog.Edit1.Text:='';
  GetDialogPosition(GotoDialog.Width,GotoDialog.Height,NewLeft,NewTop);
  GotoDialog.SetBounds(NewLeft,NewTop,GotoDialog.Width,GotoDialog.Height);
@ -1164,6 +1169,12 @@ Begin
  LazFindReplaceDialog.Options:=OldOptions;
 End;

+procedure TSourceEditor.InitGotoDialog;
+begin
+  if GotoDialog=nil then
+    GotoDialog := TfrmGoto.Create(SourceNotebook);
+end;
+
 function TSourceEditor.DoFindAndReplace: integer;
 var
  OldCaretXY:TPoint;
@ -2805,7 +2816,7 @@ begin
  BuildPopupMenu;

  // completion form
-  aCompletion := TSynCompletion.Create(nil);
+  aCompletion := TSynCompletion.Create(Self);
    with aCompletion do
      Begin
        EndOfTokenChr:='()[].,;:-+=^*<>/';
@ -2824,11 +2835,8 @@ begin
        ShortCut:=Menus.ShortCut(VK_UNKNOWN,[]);
      end;

-  // goto dialog
-  GotoDialog := TfrmGoto.Create(self);
-
  // HintTimer
-  FHintTimer := TTimer.Create(nil);
+  FHintTimer := TTimer.Create(Self);
  with FHintTimer do begin
    Interval := 1000;
    Enabled := False;
@ -2836,7 +2844,7 @@ begin
  end;

  // HintWindow
-  FHintWindow := THintWindow.Create(nil);
+  FHintWindow := THintWindow.Create(Self);
  with FHintWindow do begin
    Visible := False;
    Caption := '';
@ -2862,7 +2870,7 @@ begin
  FKeyStrokes.Free;
  FCodeTemplateModul.Free;
  FSourceEditorList.Free;
-  Gotodialog.free;
+  FreeAndNil(Gotodialog);

  FreeThenNil(CodeContextFrm);
  FreeThenNil(aCompletion);
@ -2871,6 +2879,8 @@ begin
  SourceEditorWindow:=nil;

  inherited Destroy;
+  if SourceNotebook=Self then
+    SourceNotebook:=nil;
 end;

 procedure TSourceNotebook.InitMacros(AMacroList: TTransferMacroList);
@ -5855,11 +5865,6 @@ var h: TLazSyntaxHighlighter;
 begin
  for h:=Low(TLazSyntaxHighlighter) to High(TLazSyntaxHighlighter) do
    Highlighters[h]:=nil;
-  aCompletion:=nil;
-  CurCompletionControl:=nil;
-  GotoDialog:=nil;
-  IdentCompletionTimer:=nil;
-  AWordCompletion:=nil;
 end;

 procedure InternalFinal;
--- a/ideintf/objectinspector.pp
+++ b/ideintf/objectinspector.pp
@ -391,6 +391,7 @@ type
                                 TypeFilter: TTypeKinds;
                                 DefItemHeight: integer);
    destructor Destroy;  override;
+    function InitHints: boolean;
    function CanEditRowValue: boolean;
    procedure SaveChanges;
    function ConsistencyCheck: integer;
@ -810,18 +811,6 @@ begin

  BuildPropertyList;

-  FHintTimer := TTimer.Create(nil);
-  FHintTimer.Interval := 500;
-  FHintTimer.Enabled := False;
-  FHintTimer.OnTimer := @HintTimer;
-
-  FHintWindow := THintWindow.Create(nil);
-
-  FHIntWindow.Visible := False;
-  FHintWindow.Caption := 'This is a hint window'#13#10'Neat huh?';
-  FHintWindow.HideInterval := 4000;
-  FHintWindow.AutoHide := True;
-  
  Application.AddOnUserInputHandler(@OnUserInput,true);
 end;

@ -934,6 +923,23 @@ begin
  inherited Destroy;
 end;

+function TOICustomPropertyGrid.InitHints: boolean;
+begin
+  if not ShowHint then exit(false);
+  Result:=true;
+  FHintTimer := TTimer.Create(nil);
+  FHintTimer.Interval := 500;
+  FHintTimer.Enabled := False;
+  FHintTimer.OnTimer := @HintTimer;
+
+  FHintWindow := THintWindow.Create(Self);
+
+  FHIntWindow.Visible := False;
+  FHintWindow.Caption := 'This is a hint window'#13#10'Neat huh?';
+  FHintWindow.HideInterval := 4000;
+  FHintWindow.AutoHide := True;
+end;
+
 function TOICustomPropertyGrid.ConsistencyCheck: integer;
 var
  i: integer;
@ -1638,7 +1644,8 @@ begin
  inherited MouseDown(Button,Shift,X,Y);

  //hide the hint
-  FHintWindow.Visible := False;
+  if FHintWindow<>nil then
+    FHintWindow.Visible := False;
  
  if Button=mbLeft then begin
    if Cursor=crHSplit then begin
@ -1710,9 +1717,9 @@ begin
        if X < SplitterX then begin
          // Mouse is over property name...
          fHint := fPropRow.Name;
-          if (Canvas.TextWidth(fHint)+BorderWidth+GetTreeIconX(Index)+Indent)
-          >= SplitterX
-          then begin
+          if ((Canvas.TextWidth(fHint)+BorderWidth+GetTreeIconX(Index)+Indent)
+          >= SplitterX)
+          and InitHints then begin
            fHintRect := FHintWindow.CalcHintRect(0,fHint,nil);
            fpoint := ClientToScreen(
                                   Point(BorderWidth+GetTreeIconX(Index)+Indent,
@ -1725,7 +1732,8 @@ begin
          // Mouse is over property value...
          fHint := fPropRow.LastPaintedValue;
          if length(fHint)>100 then fHint:=copy(fHint,1,100)+'...';
-          if Canvas.TextWidth(fHint) > (ClientWidth - BorderWidth - SplitterX)
+          if (Canvas.TextWidth(fHint) > (ClientWidth - BorderWidth - SplitterX))
+          and InitHints
          then begin
            fHintRect := FHintWindow.CalcHintRect(0,fHint,nil);
            fpoint := ClientToScreen(Point(SplitterX,fPropRow.Top - TopY-1));
@ -2409,8 +2417,9 @@ var
  HintType: TPropEditHint;
 begin
  // ToDo: use LCL hintsystem
-  FHintTimer.Enabled := False;
-  if not ShowHint then exit;
+  if FHintTimer<>nil then
+    FHintTimer.Enabled := False;
+  if (not InitHints) then exit;

  Position := Mouse.CursorPos;

@ -2450,6 +2459,8 @@ end;

 Procedure TOICustomPropertyGrid.ResetHintTimer;
 begin
+  if FHintWindow=nil then exit;
+
  if FHintWIndow.Visible then
    FHintWindow.Visible := False;
     
@ -2462,7 +2473,8 @@ procedure TOICustomPropertyGrid.ValueControlMouseDown(Sender : TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: integer);
 begin
  //hide the hint window!
-  if FHintWindow.Visible then FHintWindow.Visible := False;
+  if (FHintWindow<>nil) and FHintWindow.Visible then
+    FHintWindow.Visible := False;
  ScrollToActiveItem;
 end;

@ -2498,7 +2510,8 @@ begin
    exit;
  end;

-  FHintTimer.Enabled := False;
+  if FHintTimer<>nil then
+    FHintTimer.Enabled := False;

  if (FCurrentEdit=ValueComboBox) then Begin
    //either an Event or an enumeration or Boolean
--- a/lcl/include/customform.inc
+++ b/lcl/include/customform.inc
@ -642,6 +642,7 @@ end;
 ------------------------------------------------------------------------------}
 procedure TCustomForm.DoDestroy;
 begin
+  DebugLn(['TCustomForm.DoDestroy ',dbgsName(Self)]);
  if Assigned(FOnDestroy) then FOnDestroy(Self);
 end;