Changeset 10

Timestamp:

Aug 3, 2012, 1:55:46 PM (12 years ago)

Author:

chronos

Message:

• Fixed: Module Debug menu items creation and destruction.

Location:

trunk

Files:

• StudioCommon/ULDStudioAPI.pas (modified) (1 diff)
• StudioModules/LDModuleDebug/ULDModuleDebug.pas (modified) (3 diffs)
• StudioPackage/Forms/UFormMain.lfm (modified) (1 diff)
• StudioPackage/Forms/UFormMain.pas (modified) (3 diffs)
• StudioPackage/Forms/UFormModuleList.lfm (modified) (3 diffs)
• StudioPackage/Forms/UFormModuleList.lrs (modified) (1 diff)
• StudioPackage/UDataModule.pas (modified) (2 diffs)

trunk/StudioCommon/ULDStudioAPI.pas

@@ -89 +89 @@
 procedure TLDStudioAPI.UnregisterMainMenuItem(MenuItem: TMenuItem);
 begin
-  MenuItem.Delete(MenuItem.Parent.IndexOf(MenuItem));
+  MenuItem.Parent.Delete(MenuItem.Parent.IndexOf(MenuItem));
 end;
 

trunk/StudioModules/LDModuleDebug/ULDModuleDebug.pas

@@ -72 +72 @@
     AViewFormMemory.Caption := SViewFormMemory;
     RegisterAction(AViewFormMemory);
+    // Menu
     MenuItemViewDebug := TMenuItem.Create(nil);
     MenuItemViewDebug.Caption := SDebug;
@@ -78 +79 @@
     MenuItemViewFormOutput.Action := AViewFormOutput;
     RegisterMainMenuItem(MenuItemViewFormOutput, MenuItemViewDebug, 0);
+    MenuItemViewFormInput := TMenuItem.Create(nil);
+    MenuItemViewFormInput.Action := AViewFormInput;
+    RegisterMainMenuItem(MenuItemViewFormInput, MenuItemViewDebug, 1);
+    MenuItemViewFormMemory := TMenuItem.Create(nil);
+    MenuItemViewFormMemory.Action := AViewFormMemory;
+    RegisterMainMenuItem(MenuItemViewFormMemory, MenuItemViewDebug, 2);
+    MenuItemViewFormCPU := TMenuItem.Create(nil);
+    MenuItemViewFormCPU.Action := AViewFormCPU;
+    RegisterMainMenuItem(MenuItemViewFormCPU, MenuItemViewDebug, 3);
   end;
   inherited;
@@ -86 +96 @@
   inherited;
   with TLDStudioAPI(API) do begin
+    UnregisterMainMenuItem(MenuItemViewFormOutput);
+    FreeAndNil(MenuItemViewFormOutput);
+    UnregisterMainMenuItem(MenuItemViewFormInput);
+    FreeAndNil(MenuItemViewFormInput);
+    UnregisterMainMenuItem(MenuItemViewFormMemory);
+    FreeAndNil(MenuItemViewFormMemory);
+    UnregisterMainMenuItem(MenuItemViewFormCPU);
+    FreeAndNil(MenuItemViewFormCPU);
+    UnregisterMainMenuItem(MenuItemViewDebug);
+    FreeAndNil(MenuItemViewDebug);
     UnregisterForm(FormOutput);
     UnregisterForm(FormInput);

trunk/StudioPackage/Forms/UFormMain.lfm

@@ -8 +8 @@
   ClientWidth = 747
   Menu = MainMenu
+  OnClose = FormClose
   OnCreate = FormCreate
+  OnDestroy = FormDestroy
   OnShow = FormShow
   LCLVersion = '1.1'

trunk/StudioPackage/Forms/UFormMain.pas

@@ -124 +124 @@
     procedure AViewProjectManagerExecute(Sender: TObject);
     procedure AViewSettingsExecute(Sender: TObject);
+    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
   private
@@ -178 +180 @@
 end;
 
+procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
+begin
+  Application.Terminate;
+end;
+
 procedure TFormMain.FormCreate(Sender: TObject);
 begin
 end;
 
+procedure TFormMain.FormDestroy(Sender: TObject);
+begin
+
+end;
+
 procedure TFormMain.FormShow(Sender: TObject);
 begin
@@ -189 +201 @@
 procedure TFormMain.DockInit;
 begin
-  FormSourceCode.ManualDock(TabSheetSource, nil, alClient);
-  FormSourceCode.Align := alClient;
-  FormSourceCode.Show;
   FormProject.ManualDock(TabSheetProject, nil, alClient);
   FormProject.Align := alClient;

trunk/StudioPackage/Forms/UFormModuleList.lfm

@@ -1 +1 @@
 object FormModuleList: TFormModuleList
-  Left = 276
-  Height = 375
-  Top = 136
+  Left = 257
+  Height = 379
+  Top = 124
   Width = 694
   Caption = 'Module list'
-  ClientHeight = 375
+  ClientHeight = 379
   ClientWidth = 694
   OnCreate = FormCreate
@@ -13 +13 @@
   object ListViewModules: TListView
     Left = 8
-    Height = 336
+    Height = 340
     Top = 8
     Width = 684
@@ -57 +57 @@
     Left = 0
     Height = 26
-    Top = 349
+    Top = 353
     Width = 694
     Align = alBottom
+    Images = FormMain.ImageListMain
     ParentShowHint = False
     ShowHint = True

trunk/StudioPackage/Forms/UFormModuleList.lrs

@@ -2 +2 @@
 
 LazarusResources.Add('TFormModuleList','FORMDATA',[
-  'TPF0'#15'TFormModuleList'#14'FormModuleList'#4'Left'#3#20#1#6'Height'#3'w'#1
-  +#3'Top'#3#136#0#5'Width'#3#182#2#7'Caption'#6#11'Module list'#12'ClientHeigh'
-  +'t'#3'w'#1#11'ClientWidth'#3#182#2#8'OnCreate'#7#10'FormCreate'#6'OnHide'#7#8
-  +'FormHide'#6'OnShow'#7#8'FormShow'#10'LCLVersion'#6#3'1.1'#0#9'TListView'#15
-  +'ListViewModules'#4'Left'#2#8#6'Height'#3'P'#1#3'Top'#2#8#5'Width'#3#172#2#7
-  +'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#7'Columns'#14#1#7'C'
-  +'aption'#6#14'Identification'#0#1#7'Caption'#6#4'Name'#5'Width'#2'd'#0#1#7'C'
-  +'aption'#6#5'State'#5'Width'#2'd'#0#1#7'Caption'#6#6'Author'#5'Width'#2'F'#0
-  +#1#7'Caption'#6#7'Licence'#5'Width'#2'd'#0#1#7'Caption'#6#7'Version'#5'Width'
-  +#2'F'#0#1#7'Caption'#6#12'Dependencies'#5'Width'#3#200#0#0#0#9'OwnerData'#9#9
+  'TPF0'#15'TFormModuleList'#14'FormModuleList'#4'Left'#3#1#1#6'Height'#3'{'#1#3
+  +'Top'#2'|'#5'Width'#3#182#2#7'Caption'#6#11'Module list'#12'ClientHeight'#3
+  +'{'#1#11'ClientWidth'#3#182#2#8'OnCreate'#7#10'FormCreate'#6'OnHide'#7#8'For'
+  +'mHide'#6'OnShow'#7#8'FormShow'#10'LCLVersion'#6#3'1.1'#0#9'TListView'#15'Li'
+  +'stViewModules'#4'Left'#2#8#6'Height'#3'T'#1#3'Top'#2#8#5'Width'#3#172#2#7'A'
+  +'nchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#7'Columns'#14#1#7'Ca'
+  +'ption'#6#14'Identification'#0#1#7'Caption'#6#4'Name'#5'Width'#2'd'#0#1#7'Ca'
+  +'ption'#6#5'State'#5'Width'#2'd'#0#1#7'Caption'#6#6'Author'#5'Width'#2'F'#0#1
+  +#7'Caption'#6#7'Licence'#5'Width'#2'd'#0#1#7'Caption'#6#7'Version'#5'Width'#2
+  +'F'#0#1#7'Caption'#6#12'Dependencies'#5'Width'#3#200#0#0#0#9'OwnerData'#9#9
   +'PopupMenu'#7#10'PopupMenu1'#8'ReadOnly'#9#9'RowSelect'#9#8'TabOrder'#2#0#9
   +'ViewStyle'#7#8'vsReport'#6'OnData'#7#19'ListViewModulesData'#12'OnSelectIte'
   +'m'#7#25'ListViewModulesSelectItem'#0#0#8'TToolBar'#8'ToolBar1'#4'Left'#2#0#6
-  +'Height'#2#26#3'Top'#3']'#1#5'Width'#3#182#2#5'Align'#7#8'alBottom'#14'Paren'
-  +'tShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#1#0#11'TToolButton'#11'ToolButton1'
-  +#4'Left'#2'/'#3'Top'#2#2#6'Action'#7#17'AModuleUnregister'#0#0#11'TToolButto'
-  +'n'#11'ToolButton2'#4'Left'#2#1#3'Top'#2#2#6'Action'#7#8'AInstall'#0#0#11'TT'
-  +'oolButton'#11'ToolButton3'#4'Left'#2#24#3'Top'#2#2#6'Action'#7#10'AUninstal'
-  +'l'#0#0#0#6'TTimer'#11'TimerRedraw'#7'Enabled'#8#7'OnTimer'#7#16'TimerRedraw'
-  +'Timer'#4'left'#2'J'#3'top'#2'['#0#0#10'TPopupMenu'#10'PopupMenu1'#6'Images'
-  +#7#22'FormMain.ImageListMain'#4'left'#3#224#0#3'top'#2'@'#0#9'TMenuItem'#9'M'
-  +'enuItem3'#6'Action'#7#8'AInstall'#11'Bitmap.Data'#10':'#4#0#0'6'#4#0#0'BM6'
-  +#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0#0
-  +'d'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#255#255#255#0#231#231#231#255#164#161#161
-  +#255#148#140#141#255#148#140#141#255#148#140#141#255#148#140#141#255#152#145
-  +#146#255#152#145#146#255#152#145#146#255#152#145#146#255#146#140#140#255#146
-  +#140#140#255#140#132#133#255#163#160#161#255#248#249#249#255#255#255#255#0
-  +#206#204#203#255#183#169#167#255#169#151#150#255#194#178#175#255#213#198#194
-  +#255#222#207#203#255#214#197#196#255#214#197#196#255#214#197#196#255#216#202
-  +#201#255#239#217#220#255#177#207#165#255#199#214#183#255#170#158#162#255#225
-  +#226#226#255#255#255#255#0#208#201#201#255#156#138#133#255'gYU'#255'vhd'#255
-  +#134'us'#255#144#127'|'#255'{kh'#255'{kh'#255'vhe'#255'{nl'#255#183#163#160
-  +#255#168#168#142#255#183#177#158#255#156#146#145#255#225#225#225#255#255#255
-  +#255#0#202#198#198#255#199#187#179#255#226#216#206#255#216#205#196#255#216
-  +#205#196#255#213#201#192#255#213#201#192#255#213#201#192#255#213#201#192#255
-  +#219#208#198#255#224#214#204#255#230#215#210#255#238#223#217#255#166#159#154
-  +#255#224#223#224#255#255#255#255#0#199#200#201#255#196#185#177#255#213#198
-  +#187#255#229#212#199#255#238#223#211#255#244#232#223#255#247#239#231#255#247
-  +#239#231#255#247#239#231#255#245#234#223#255#242#230#219#255#226#213#205#255
-  +#232#216#207#255#172#164#157#255#224#225#226#255#255#255#255#0#204#204#205
-  +#255#196#183#173#255#225#204#192#255#236#221#212#255#244#235#227#255#244#235
-  +#227#255#255#238#237#255#255#239#245#255#253#238#235#255#248#241#235#255#247
-  +#238#231#255#238#227#217#255#235#221#209#255#169#160#154#255#229#231#232#255
-  +#255#255#255#0#210#212#213#255#192#178#171#255#234#216#205#255#239#229#218
-  +#255#234#222#209#255#249#227#226#255#195#213#179#255#135#202'}'#255#232#219
-  +#215#255#247#230#225#255#247#238#231#255#247#238#231#255#228#210#198#255#166
-  +#158#155#255#235#238#239#255#255#255#255#0#219#221#221#255#187#175#170#255
-  +#224#205#191#255#227#214#200#255#233#202#207#255#159#168#139#255#16#187#16
-  +#255#0#186#0#255'B'#168'<'#255#218#197#198#255#240#223#219#255#242#231#219
-  +#255#219#202#192#255#166#157#155#255#242#244#245#255#255#255#255#0#225#227
-  +#228#255#186#174#169#255#212#193#182#255#192#161#164#255#163#165#142#255'('
-  +#192'%'#255#0#208#0#255#0#193#0#255#0#175#0#255'K'#167'E'#255#199#180#177#255
-  +#226#205#202#255#210#194#183#255#167#159#158#255#246#248#249#255#255#255#255
-  +#0#231#233#233#255#181#169#168#255#220#199#192#255#159#169#139#255'Y'#203'V'
-  +#255''''#229')'#255#0#207#0#255#0#190#0#255#0#178#0#255#0#150#0#255'5'#140'/'
-  +#255#225#210#206#255#212#191#185#255#167#162#161#255#251#252#253#255#255#255
-  +#255#0#255#255#255#0#186#172#169#255#195#200#175#255#172#237#175#255#144#250
-  +#146#255'K'#228'K'#255#25#217#25#255#22#202#22#255#20#186#20#255#13#163#13
-  +#255#0#134#0#255'@'#157';'#255#189#175#164#255#198#191#193#255#255#255#255#0
-  +#255#255#255#0#255#255#255#0#182#170#166#255#175#200#161#255#187#234#190#255
-  +#157#234#157#255#131#240#130#255'Y'#231'Y'#255'U'#224'U'#255'Z'#210'Y'#255'Q'
-  +#193'Q'#255'/'#163'0'#255#19#130#18#255#146#158#127#255#207#198#203#255#255
-  +#255#255#0#255#255#255#0#255#255#255#0#173#169#168#255#197#186#174#255#174
-  +#171#151#255#143#201#134#255#166#249#169#255#143#240#144#255#134#237#134#255
-  ,#141#230#142#255'b'#194'b'#255#141#180#132#255#198#195#179#255#187#174#166
-  +#255#196#195#195#255#255#255#255#0#255#255#255#0#255#255#255#0#214#214#214
-  +#255#194#184#184#255#194#177#181#255#132#172#130#255#219#255#220#255#208#250
-  +#208#255#202#247#202#255#213#250#213#255#150#211#150#255#130#143'|'#255#207
-  +#186#197#255#192#190#191#255#236#237#237#255#255#255#255#0#255#255#255#0#255
-  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#145#183#145#255#255#255
-  +#255#255#253#255#253#255#252#255#252#255#255#255#255#255#179#215#179#255#156
-  +#172#158#255#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
-  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#154#175#154
-  +#255'm'#178'm'#255'o'#178'o'#255'o'#178'o'#255'k'#178'k'#255'b'#157'b'#255
-  +#198#197#198#255#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#0#0
-  +#9'TMenuItem'#9'MenuItem2'#6'Action'#7#10'AUninstall'#11'Bitmap.Data'#10':'#4
-  +#0#0'6'#4#0#0'BM6'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0
-  +#0#0#0#0#0#4#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#255#255#255#0#231#231#232
-  +#255#161#158#157#255#149#147#146#255#149#147#146#255#149#147#146#255#149#147
-  +#146#255#149#147#146#255#149#147#146#255#149#147#146#255#149#147#146#255#145
-  +#141#141#255#149#143#143#255#142#134#135#255#161#159#159#255#247#248#248#255
-  +#255#255#255#0#204#203#202#255#186#175#173#255#181#166#167#255#203#189#184
-  +#255#223#209#201#255#231#214#215#255#224#210#211#255#224#210#211#255#227#215
-  +#210#255#227#215#210#255#244#223#225#255#176#203#163#255#205#213#184#255#171
-  +#156#158#255#223#224#223#255#255#255#255#0#207#202#200#255#150#133#129#255'X'
-  +'DD'#255'm[Y'#255#129'nk'#255#140'xw'#255'ved'#255'l_^'#255'{je'#255'sfc'#255
-  +#188#169#163#255#156#161#134#255#178#176#154#255#160#146#143#255#224#225#226
-  +#255#255#255#255#0#202#200#199#255#188#176#167#255#206#195#185#255#196#184
-  +#176#255#196#184#176#255#196#184#176#255#193#181#173#255#193#181#173#255#193
-  +#181#173#255#196#185#178#255#203#195#189#255#213#200#198#255#224#210#205#255
-  +#161#156#151#255#224#225#226#255#255#255#255#0#202#198#197#255#202#191#183
-  +#255#222#207#197#255#238#225#208#255#240#228#212#255#243#233#221#255#245#236
-  +#227#255#245#236#227#255#245#236#227#255#245#236#227#255#251#243#228#255#234
-  +#224#211#255#234#224#211#255#170#162#156#255#223#223#224#255#255#255#255#0
-  +#199#199#199#255#195#181#172#255#232#211#184#255#173#161#175#255#175#168#189
-  +#255#249#241#227#255#244#237#228#255#244#237#228#255#250#243#232#255#238#230
-  +#224#255#156#149#187#255#208#196#193#255#242#225#207#255#166#156#150#255#227
-  +#228#229#255#255#255#255#0#203#204#204#255#194#181#169#255#166#154#194#255'y'
-  +'y'#239#255#136#136#229#255#186#177#189#255#246#233#220#255#248#236#229#255
-  +#236#225#212#255#161#156#208#255'TV'#248#255'fc'#215#255#206#192#191#255#169
-  +#161#153#255#231#233#234#255#255#255#255#0#209#210#210#255#187#175#165#255'e'
-  +'_'#213#255'[]'#255#255#156#157#255#255#147#145#224#255#187#175#188#255#235
-  +#222#206#255#164#158#210#255'uv'#249#255'<<'#255#255'*+'#241#255#164#152#172
-  +#255#172#163#155#255#237#240#241#255#255#255#255#0#215#216#217#255#189#177
-  +#165#255#207#189#185#255'oi'#205#255'ik'#255#255#157#158#255#255#133#129#220
-  +#255#134#128#195#255#130#131#250#255'VV'#255#255'77'#240#255#173#167#206#255
-  +#221#205#186#255#167#159#157#255#242#245#245#255#255#255#255#0#225#226#227
-  +#255#185#173#166#255#230#208#193#255#198#179#176#255'hg'#207#255'aa'#253#255
-  +'pp'#255#255'gh'#255#255'WW'#255#255'LK'#242#255#167#158#191#255#248#236#213
-  +#255#211#197#186#255#165#159#158#255#247#248#249#255#255#255#255#0#233#235
-  +#235#255#180#168#164#255#227#206#195#255#255#237#218#255#208#194#179#255'=;'
-  +#215#255'EF'#254#255'EF'#254#255#21#22#254#255#127'x'#190#255#245#232#196#255
-  +#240#230#222#255#204#189#179#255#168#162#161#255#251#253#254#255#255#255#255
-  +#0#232#233#234#255#177#167#162#255#226#210#199#255#181#173#156#255'VT'#188
-  +#255'77'#244#255'WW'#255#255'DE'#255#255'<<'#255#255#28#27#222#255#160#152
-  +#172#255#255#244#225#255#199#183#176#255#176#174#172#255#254#254#255#255#255
-  +#255#255#0#250#250#250#255#185#173#167#255#210#192#171#255'.+'#144#255'EG'
-  +#238#255#147#147#255#255'BC'#235#255'76'#203#255'kk'#255#255#134#135#255#255
-  +'('''#215#255#181#169#193#255#203#184#166#255#195#189#190#255#255#255#255#0
-  +#255#255#255#0#255#255#255#0#172#163#155#255']U'#183#255#141#141#255#255#230
-  +#230#255#255'TS'#230#255#154#148#183#255#216#204#190#255'XU'#196#255#149#149
-  +#250#255#221#222#255#255'B@'#228#255#134'x'#146#255#205#199#195#255#255#255
-  +#255#0#255#255#255#0#255#255#255#0#221#222#223#255'{z'#199#255#140#140#247
-  +#255#131#130#238#255#151#146#196#255#225#217#203#255#222#214#209#255#208#205
-  +#205#255'nn'#208#255#159#159#245#255'ml'#222#255#187#186#207#255#248#249#246
-  +#255#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#252#253#245#255
-  +'tt'#219#255'kk'#186#255#255#255#255#0#255#255#255#0#255#255#255#0#255#255
-  +#255#0#224#224#235#255'FF'#194#255#199#199#226#255#255#255#255#0#255#255#255
-  ,#0#255#255#255#0#0#0#9'TMenuItem'#9'MenuItem1'#6'Action'#7#17'AModuleUnregis'
-  +'ter'#11'Bitmap.Data'#10':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0
-  +#0#16#0#0#0#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0
+  +'Height'#2#26#3'Top'#3'a'#1#5'Width'#3#182#2#5'Align'#7#8'alBottom'#6'Images'
+  +#7#22'FormMain.ImageListMain'#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'
+  +#2#1#0#11'TToolButton'#11'ToolButton1'#4'Left'#2'/'#3'Top'#2#2#6'Action'#7#17
+  +'AModuleUnregister'#0#0#11'TToolButton'#11'ToolButton2'#4'Left'#2#1#3'Top'#2
+  +#2#6'Action'#7#8'AInstall'#0#0#11'TToolButton'#11'ToolButton3'#4'Left'#2#24#3
+  +'Top'#2#2#6'Action'#7#10'AUninstall'#0#0#0#6'TTimer'#11'TimerRedraw'#7'Enabl'
+  +'ed'#8#7'OnTimer'#7#16'TimerRedrawTimer'#4'left'#2'J'#3'top'#2'['#0#0#10'TPo'
+  +'pupMenu'#10'PopupMenu1'#6'Images'#7#22'FormMain.ImageListMain'#4'left'#3#224
+  +#0#3'top'#2'@'#0#9'TMenuItem'#9'MenuItem3'#6'Action'#7#8'AInstall'#11'Bitmap'
+  +'.Data'#10':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16
+  +#0#0#0#1#0' '#0#0#0#0#0#0#4#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#255#255#255
+  +#0#231#231#231#255#164#161#161#255#148#140#141#255#148#140#141#255#148#140
+  +#141#255#148#140#141#255#152#145#146#255#152#145#146#255#152#145#146#255#152
+  +#145#146#255#146#140#140#255#146#140#140#255#140#132#133#255#163#160#161#255
+  +#248#249#249#255#255#255#255#0#206#204#203#255#183#169#167#255#169#151#150
+  +#255#194#178#175#255#213#198#194#255#222#207#203#255#214#197#196#255#214#197
+  +#196#255#214#197#196#255#216#202#201#255#239#217#220#255#177#207#165#255#199
+  +#214#183#255#170#158#162#255#225#226#226#255#255#255#255#0#208#201#201#255
+  +#156#138#133#255'gYU'#255'vhd'#255#134'us'#255#144#127'|'#255'{kh'#255'{kh'
+  +#255'vhe'#255'{nl'#255#183#163#160#255#168#168#142#255#183#177#158#255#156
+  +#146#145#255#225#225#225#255#255#255#255#0#202#198#198#255#199#187#179#255
+  +#226#216#206#255#216#205#196#255#216#205#196#255#213#201#192#255#213#201#192
+  +#255#213#201#192#255#213#201#192#255#219#208#198#255#224#214#204#255#230#215
+  +#210#255#238#223#217#255#166#159#154#255#224#223#224#255#255#255#255#0#199
+  +#200#201#255#196#185#177#255#213#198#187#255#229#212#199#255#238#223#211#255
+  +#244#232#223#255#247#239#231#255#247#239#231#255#247#239#231#255#245#234#223
+  +#255#242#230#219#255#226#213#205#255#232#216#207#255#172#164#157#255#224#225
+  +#226#255#255#255#255#0#204#204#205#255#196#183#173#255#225#204#192#255#236
+  +#221#212#255#244#235#227#255#244#235#227#255#255#238#237#255#255#239#245#255
+  +#253#238#235#255#248#241#235#255#247#238#231#255#238#227#217#255#235#221#209
+  +#255#169#160#154#255#229#231#232#255#255#255#255#0#210#212#213#255#192#178
+  +#171#255#234#216#205#255#239#229#218#255#234#222#209#255#249#227#226#255#195
+  +#213#179#255#135#202'}'#255#232#219#215#255#247#230#225#255#247#238#231#255
+  +#247#238#231#255#228#210#198#255#166#158#155#255#235#238#239#255#255#255#255
+  +#0#219#221#221#255#187#175#170#255#224#205#191#255#227#214#200#255#233#202
+  +#207#255#159#168#139#255#16#187#16#255#0#186#0#255'B'#168'<'#255#218#197#198
+  +#255#240#223#219#255#242#231#219#255#219#202#192#255#166#157#155#255#242#244
+  +#245#255#255#255#255#0#225#227#228#255#186#174#169#255#212#193#182#255#192
+  +#161#164#255#163#165#142#255'('#192'%'#255#0#208#0#255#0#193#0#255#0#175#0
+  +#255'K'#167'E'#255#199#180#177#255#226#205#202#255#210#194#183#255#167#159
+  +#158#255#246#248#249#255#255#255#255#0#231#233#233#255#181#169#168#255#220
+  +#199#192#255#159#169#139#255'Y'#203'V'#255''''#229')'#255#0#207#0#255#0#190#0
+  +#255#0#178#0#255#0#150#0#255'5'#140'/'#255#225#210#206#255#212#191#185#255
+  +#167#162#161#255#251#252#253#255#255#255#255#0#255#255#255#0#186#172#169#255
+  +#195#200#175#255#172#237#175#255#144#250#146#255'K'#228'K'#255#25#217#25#255
+  +#22#202#22#255#20#186#20#255#13#163#13#255#0#134#0#255'@'#157';'#255#189#175
+  +#164#255#198#191#193#255#255#255#255#0#255#255#255#0#255#255#255#0#182#170
+  +#166#255#175#200#161#255#187#234#190#255#157#234#157#255#131#240#130#255'Y'
+  +#231'Y'#255'U'#224'U'#255'Z'#210'Y'#255'Q'#193'Q'#255'/'#163'0'#255#19#130#18
+  +#255#146#158#127#255#207#198#203#255#255#255#255#0#255#255#255#0#255#255#255
+  +#0#173#169#168#255#197#186#174#255#174#171#151#255#143#201#134#255#166#249
+  ,#169#255#143#240#144#255#134#237#134#255#141#230#142#255'b'#194'b'#255#141
+  +#180#132#255#198#195#179#255#187#174#166#255#196#195#195#255#255#255#255#0
+  +#255#255#255#0#255#255#255#0#214#214#214#255#194#184#184#255#194#177#181#255
+  +#132#172#130#255#219#255#220#255#208#250#208#255#202#247#202#255#213#250#213
+  +#255#150#211#150#255#130#143'|'#255#207#186#197#255#192#190#191#255#236#237
+  +#237#255#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255
+  +#0#255#255#255#0#145#183#145#255#255#255#255#255#253#255#253#255#252#255#252
+  +#255#255#255#255#255#179#215#179#255#156#172#158#255#255#255#255#0#255#255
+  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
+  +#255#255#255#0#255#255#255#0#154#175#154#255'm'#178'm'#255'o'#178'o'#255'o'
+  +#178'o'#255'k'#178'k'#255'b'#157'b'#255#198#197#198#255#255#255#255#0#255#255
+  +#255#0#255#255#255#0#255#255#255#0#0#0#9'TMenuItem'#9'MenuItem2'#6'Action'#7
+  +#10'AUninstall'#11'Bitmap.Data'#10':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0#0#0#0'6'#0
+  +#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0#0'd'#0#0#0'd'#0#0#0#0
+  +#0#0#0#0#0#0#0#255#255#255#0#231#231#232#255#161#158#157#255#149#147#146#255
+  +#149#147#146#255#149#147#146#255#149#147#146#255#149#147#146#255#149#147#146
+  +#255#149#147#146#255#149#147#146#255#145#141#141#255#149#143#143#255#142#134
+  +#135#255#161#159#159#255#247#248#248#255#255#255#255#0#204#203#202#255#186
+  +#175#173#255#181#166#167#255#203#189#184#255#223#209#201#255#231#214#215#255
+  +#224#210#211#255#224#210#211#255#227#215#210#255#227#215#210#255#244#223#225
+  +#255#176#203#163#255#205#213#184#255#171#156#158#255#223#224#223#255#255#255
+  +#255#0#207#202#200#255#150#133#129#255'XDD'#255'm[Y'#255#129'nk'#255#140'xw'
+  +#255'ved'#255'l_^'#255'{je'#255'sfc'#255#188#169#163#255#156#161#134#255#178
+  +#176#154#255#160#146#143#255#224#225#226#255#255#255#255#0#202#200#199#255
+  +#188#176#167#255#206#195#185#255#196#184#176#255#196#184#176#255#196#184#176
+  +#255#193#181#173#255#193#181#173#255#193#181#173#255#196#185#178#255#203#195
+  +#189#255#213#200#198#255#224#210#205#255#161#156#151#255#224#225#226#255#255
+  +#255#255#0#202#198#197#255#202#191#183#255#222#207#197#255#238#225#208#255
+  +#240#228#212#255#243#233#221#255#245#236#227#255#245#236#227#255#245#236#227
+  +#255#245#236#227#255#251#243#228#255#234#224#211#255#234#224#211#255#170#162
+  +#156#255#223#223#224#255#255#255#255#0#199#199#199#255#195#181#172#255#232
+  +#211#184#255#173#161#175#255#175#168#189#255#249#241#227#255#244#237#228#255
+  +#244#237#228#255#250#243#232#255#238#230#224#255#156#149#187#255#208#196#193
+  +#255#242#225#207#255#166#156#150#255#227#228#229#255#255#255#255#0#203#204
+  +#204#255#194#181#169#255#166#154#194#255'yy'#239#255#136#136#229#255#186#177
+  +#189#255#246#233#220#255#248#236#229#255#236#225#212#255#161#156#208#255'TV'
+  +#248#255'fc'#215#255#206#192#191#255#169#161#153#255#231#233#234#255#255#255
+  +#255#0#209#210#210#255#187#175#165#255'e_'#213#255'[]'#255#255#156#157#255
+  +#255#147#145#224#255#187#175#188#255#235#222#206#255#164#158#210#255'uv'#249
+  +#255'<<'#255#255'*+'#241#255#164#152#172#255#172#163#155#255#237#240#241#255
+  +#255#255#255#0#215#216#217#255#189#177#165#255#207#189#185#255'oi'#205#255'i'
+  +'k'#255#255#157#158#255#255#133#129#220#255#134#128#195#255#130#131#250#255
+  +'VV'#255#255'77'#240#255#173#167#206#255#221#205#186#255#167#159#157#255#242
+  +#245#245#255#255#255#255#0#225#226#227#255#185#173#166#255#230#208#193#255
+  +#198#179#176#255'hg'#207#255'aa'#253#255'pp'#255#255'gh'#255#255'WW'#255#255
+  +'LK'#242#255#167#158#191#255#248#236#213#255#211#197#186#255#165#159#158#255
+  +#247#248#249#255#255#255#255#0#233#235#235#255#180#168#164#255#227#206#195
+  +#255#255#237#218#255#208#194#179#255'=;'#215#255'EF'#254#255'EF'#254#255#21
+  +#22#254#255#127'x'#190#255#245#232#196#255#240#230#222#255#204#189#179#255
+  +#168#162#161#255#251#253#254#255#255#255#255#0#232#233#234#255#177#167#162
+  +#255#226#210#199#255#181#173#156#255'VT'#188#255'77'#244#255'WW'#255#255'DE'
+  +#255#255'<<'#255#255#28#27#222#255#160#152#172#255#255#244#225#255#199#183
+  +#176#255#176#174#172#255#254#254#255#255#255#255#255#0#250#250#250#255#185
+  +#173#167#255#210#192#171#255'.+'#144#255'EG'#238#255#147#147#255#255'BC'#235
+  +#255'76'#203#255'kk'#255#255#134#135#255#255'('''#215#255#181#169#193#255#203
+  +#184#166#255#195#189#190#255#255#255#255#0#255#255#255#0#255#255#255#0#172
+  +#163#155#255']U'#183#255#141#141#255#255#230#230#255#255'TS'#230#255#154#148
+  +#183#255#216#204#190#255'XU'#196#255#149#149#250#255#221#222#255#255'B@'#228
+  +#255#134'x'#146#255#205#199#195#255#255#255#255#0#255#255#255#0#255#255#255#0
+  +#221#222#223#255'{z'#199#255#140#140#247#255#131#130#238#255#151#146#196#255
+  +#225#217#203#255#222#214#209#255#208#205#205#255'nn'#208#255#159#159#245#255
+  +'ml'#222#255#187#186#207#255#248#249#246#255#255#255#255#0#255#255#255#0#255
+  +#255#255#0#255#255#255#0#252#253#245#255'tt'#219#255'kk'#186#255#255#255#255
+  +#0#255#255#255#0#255#255#255#0#255#255#255#0#224#224#235#255'FF'#194#255#199
+  ,#199#226#255#255#255#255#0#255#255#255#0#255#255#255#0#0#0#9'TMenuItem'#9'Me'
+  +'nuItem1'#6'Action'#7#17'AModuleUnregister'#11'Bitmap.Data'#10':'#4#0#0'6'#4
+  +#0#0'BM6'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0#0#0#0
+  +#0#4#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
   +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#220#220#220#255#178#178#178#255
+  +#220#220#220#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#220#220#220#255#178
+  +#178#178#255#220#220#220#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'yy'#168#255#0#0
+  +'g'#255'bb'#145#255#178#178#178#255#220#220#220#255#0#0#0#0#0#0#0#0#0#0#0#0
+  +'yy'#168#255#0#0'P'#255'bb'#145#255#178#178#178#255#220#220#220#255#0#0#0#0#0
+  +#0#0#0#140#140#187#255#0#0'n'#255#0'5'#255#255#0#0'h'#255'bb'#145#255#178#178
+  +#178#255#220#220#220#255#0#0#0#0'yy'#168#255#0#0'T'#255#0#21#255#255#0#0'P'
+  +#255'bb'#145#255#178#178#178#255#0#0#0#0#0#0#0#0#0#0'r'#255'a'#155#255#255#0
+  +':'#255#255#0'5'#255#255#0#0'g'#255'bb'#145#255#178#178#178#255'yy'#168#255#0
+  +#0'Y'#255#0#27#255#255#0#24#255#255#0#21#255#255#0#0'P'#255#220#220#220#255#0
+  +#0#0#0#0#0#0#0#140#140#187#255#0#0'u'#255'a'#155#255#255#0':'#255#255#0'5'
+  +#255#255#0#0'g'#255'bb'#145#255#0#0'a'#255#0'#'#255#255#0#31#255#255#0#27#255
+  +#255#0#0'T'#255'yy'#168#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#140#140#187#255#0
+  +#0'u'#255'a'#155#255#255#0':'#255#255#0'5'#255#255#0#0'g'#255#0','#255#255#0
+  +''''#255#255#0'#'#255#255#0#0'Y'#255'yy'#168#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0#0#0#140#140#187#255#0#0'u'#255'a'#155#255#255#0':'#255#255#0
+  +'5'#255#255#0'0'#255#255#0'+'#255#255#0#0'a'#255'yy'#168#255#0#0#0#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'yy'#168#255#0#0'u'#255#0'>'
+  +#255#255#0':'#255#255#0'5'#255#255#0#0'h'#255'bb'#145#255#178#178#178#255#220
+  +#220#220#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'yy'#168#255#0#0
+  +'|'#255#0'G'#255#255#0'B'#255#255#0'>'#255#255#0':'#255#255#0'5'#255#255#0#0
+  +'h'#255'bb'#145#255#178#178#178#255#220#220#220#255#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0'yy'#168#255#0#0#130#255#0'N'#255#255#0'K'#255#255#0'G'#255#255#0#0'u'
+  +#255'a'#155#255#255#0':'#255#255#0'5'#255#255#0#0'h'#255'bb'#145#255#178#178
+  +#178#255#220#220#220#255#0#0#0#0#0#0#0#0#140#140#187#255#0#0#134#255#0'T'#255
+  +#255#0'R'#255#255#0'N'#255#255#0#0'|'#255'yy'#168#255#0#0'u'#255'a'#155#255
+  +#255#0':'#255#255#0'5'#255#255#0#0'g'#255'bb'#145#255#178#178#178#255#0#0#0#0
+  +#0#0#0#0#0#0#136#255'a'#155#255#255#0'W'#255#255#0'T'#255#255#0#0#130#255'yy'
+  +#168#255#0#0#0#0#140#140#187#255#0#0'u'#255'a'#155#255#255#0':'#255#255#0'5'
+  +#255#255#0#0'h'#255#220#220#220#255#0#0#0#0#0#0#0#0#140#140#187#255#0#0#136
+  +#255'a'#155#255#255#0#0#134#255'yy'#168#255#0#0#0#0#0#0#0#0#0#0#0#0#140#140
+  +#187#255#0#0'u'#255'a'#155#255#255#0#0'n'#255'yy'#168#255#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#0#0#0#140#140#187#255#0#0#136#255#140#140#187#255#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0#0#0#140#140#187#255#0#0'u'#255#140#140#187#255#0#0#0#0#0#0#0
   +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
-  +#0#220#220#220#255#178#178#178#255#220#220#220#255#0#0#0#0#0#0#0#0#0#0#0#0#0
-  +#0#0#0#0#0#0#0#220#220#220#255#178#178#178#255#220#220#220#255#0#0#0#0#0#0#0
-  +#0#0#0#0#0#0#0#0#0'yy'#168#255#0#0'g'#255'bb'#145#255#178#178#178#255#220#220
-  +#220#255#0#0#0#0#0#0#0#0#0#0#0#0'yy'#168#255#0#0'P'#255'bb'#145#255#178#178
-  +#178#255#220#220#220#255#0#0#0#0#0#0#0#0#140#140#187#255#0#0'n'#255#0'5'#255
-  +#255#0#0'h'#255'bb'#145#255#178#178#178#255#220#220#220#255#0#0#0#0'yy'#168
-  +#255#0#0'T'#255#0#21#255#255#0#0'P'#255'bb'#145#255#178#178#178#255#0#0#0#0#0
-  +#0#0#0#0#0'r'#255'a'#155#255#255#0':'#255#255#0'5'#255#255#0#0'g'#255'bb'#145
-  +#255#178#178#178#255'yy'#168#255#0#0'Y'#255#0#27#255#255#0#24#255#255#0#21
-  +#255#255#0#0'P'#255#220#220#220#255#0#0#0#0#0#0#0#0#140#140#187#255#0#0'u'
-  +#255'a'#155#255#255#0':'#255#255#0'5'#255#255#0#0'g'#255'bb'#145#255#0#0'a'
-  +#255#0'#'#255#255#0#31#255#255#0#27#255#255#0#0'T'#255'yy'#168#255#0#0#0#0#0
-  +#0#0#0#0#0#0#0#0#0#0#0#140#140#187#255#0#0'u'#255'a'#155#255#255#0':'#255#255
-  +#0'5'#255#255#0#0'g'#255#0','#255#255#0''''#255#255#0'#'#255#255#0#0'Y'#255
-  +'yy'#168#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#140#140#187#255
-  +#0#0'u'#255'a'#155#255#255#0':'#255#255#0'5'#255#255#0'0'#255#255#0'+'#255
-  +#255#0#0'a'#255'yy'#168#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
-  +#0#0#0#0#0#0#0'yy'#168#255#0#0'u'#255#0'>'#255#255#0':'#255#255#0'5'#255#255
-  +#0#0'h'#255'bb'#145#255#178#178#178#255#220#220#220#255#0#0#0#0#0#0#0#0#0#0#0
-  +#0#0#0#0#0#0#0#0#0#0#0#0#0'yy'#168#255#0#0'|'#255#0'G'#255#255#0'B'#255#255#0
-  +'>'#255#255#0':'#255#255#0'5'#255#255#0#0'h'#255'bb'#145#255#178#178#178#255
-  +#220#220#220#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'yy'#168#255#0#0#130#255#0'N'
-  +#255#255#0'K'#255#255#0'G'#255#255#0#0'u'#255'a'#155#255#255#0':'#255#255#0
-  +'5'#255#255#0#0'h'#255'bb'#145#255#178#178#178#255#220#220#220#255#0#0#0#0#0
-  +#0#0#0#140#140#187#255#0#0#134#255#0'T'#255#255#0'R'#255#255#0'N'#255#255#0#0
-  +'|'#255'yy'#168#255#0#0'u'#255'a'#155#255#255#0':'#255#255#0'5'#255#255#0#0
-  +'g'#255'bb'#145#255#178#178#178#255#0#0#0#0#0#0#0#0#0#0#136#255'a'#155#255
-  +#255#0'W'#255#255#0'T'#255#255#0#0#130#255'yy'#168#255#0#0#0#0#140#140#187
-  +#255#0#0'u'#255'a'#155#255#255#0':'#255#255#0'5'#255#255#0#0'h'#255#220#220
-  +#220#255#0#0#0#0#0#0#0#0#140#140#187#255#0#0#136#255'a'#155#255#255#0#0#134
-  +#255'yy'#168#255#0#0#0#0#0#0#0#0#0#0#0#0#140#140#187#255#0#0'u'#255'a'#155
-  +#255#255#0#0'n'#255'yy'#168#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#140#140#187
-  +#255#0#0#136#255#140#140#187#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#140
-  +#140#187#255#0#0'u'#255#140#140#187#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
-  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
-  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#11'TActionList'#11'ActionList1'
-  +#6'Images'#7#22'FormMain.ImageListMain'#4'left'#3#224#0#3'top'#3#128#0#0#7'T'
-  +'Action'#17'AModuleUnregister'#7'Caption'#6#17'Unregister module'#4'Hint'#6
-  +#17'Unregister module'#10'ImageIndex'#2'F'#9'OnExecute'#7#24'AModuleUnregist'
-  +'erExecute'#0#0#7'TAction'#8'AInstall'#7'Caption'#6#7'Install'#4'Hint'#6#7'I'
-  +'nstall'#10'ImageIndex'#2'R'#9'OnExecute'#7#15'AInstallExecute'#0#0#7'TActio'
-  +'n'#10'AUninstall'#7'Caption'#6#9'Uninstall'#4'Hint'#6#9'Uninstall'#10'Image'
-  +'Index'#2'Q'#9'OnExecute'#7#17'AUninstallExecute'#0#0#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#11'TAct'
+  +'ionList'#11'ActionList1'#6'Images'#7#22'FormMain.ImageListMain'#4'left'#3
+  +#224#0#3'top'#3#128#0#0#7'TAction'#17'AModuleUnregister'#7'Caption'#6#17'Unr'
+  +'egister module'#4'Hint'#6#17'Unregister module'#10'ImageIndex'#2'F'#9'OnExe'
+  +'cute'#7#24'AModuleUnregisterExecute'#0#0#7'TAction'#8'AInstall'#7'Caption'#6
+  +#7'Install'#4'Hint'#6#7'Install'#10'ImageIndex'#2'R'#9'OnExecute'#7#15'AInst'
+  +'allExecute'#0#0#7'TAction'#10'AUninstall'#7'Caption'#6#9'Uninstall'#4'Hint'
+  +#6#9'Uninstall'#10'ImageIndex'#2'Q'#9'OnExecute'#7#17'AUninstallExecute'#0#0
+  +#0#0
 ]);

trunk/StudioPackage/UDataModule.pas

@@ -108 +108 @@
   ModuleManager.API := API;
 
-  Application.CreateForm(TFormMain, FormMain);
+  FormMain := TFormMain.Create(nil);
+  Application.UpdateMainForm(FormMain);
   OpenedFiles.OnOpenFile := FormMain.OpenFileExecute;
-  Application.CreateForm(TFormProject, FormProject);
-  Application.CreateForm(TFormSourceCode, FormSourceCode);
-  Application.CreateForm(TFormSettings, FormSettings);
-  Application.CreateForm(TFormModuleList, FormModuleList);
+  FormProject := TFormProject.Create(nil);
+  FormSourceCode := TFormSourceCode.Create(nil);
+  FormSettings := TFormSettings.Create(nil);
+  FormModuleList := TFormModuleList.Create(nil);
 
   TLDStudioAPI(ModuleManager.API).MainForm := FormMain;
   TLDStudioAPI(ModuleManager.API).MainMenu := FormMain.MainMenu;
   TLDStudioAPI(ModuleManager.API).FileTypes := FileTypes;
+  FormMain.Show;
 end;
 
@@ -124 +126 @@
   FreeAndNil(ModuleManager);
   FreeAndNil(API);
+  FreeAndNil(FormMain);
+  FreeAndNil(FormProject);
+  FreeAndNil(FormSourceCode);
+  FreeAndNil(FormSettings);
+  FreeAndNil(FormModuleList);
   FreeAndNil(OpenedFiles);
   FreeAndNil(FileTypes);