[M] Added dialogs to modify Modules. Recreated menu, view of project …

…items.

ORDESY.dpr

@@ -7,7 +7,7 @@ uses
   uLog in 'uLog.pas',
   uExplode in 'uExplode.pas',
   uShellFuncs in 'uShellFuncs.pas',
-  uProject in 'uProject.pas' {fmProject},
+  uProjectDialogs in 'uProjectDialogs.pas' {fmProject},
   uOptions in 'uOptions.pas',
   uHash in 'uHash.pas',
   uWrap in 'uWrap.pas' {fmWrap};

ORDESY.dproj

@@ -46,7 +46,7 @@
 			<DCCReference Include="uLog.pas"/>
 			<DCCReference Include="uExplode.pas"/>
 			<DCCReference Include="uShellFuncs.pas"/>
-			<DCCReference Include="uProject.pas">
+			<DCCReference Include="uProjectDialogs.pas">
 				<Form>fmProject</Form>
 			</DCCReference>
 			<DCCReference Include="uOptions.pas"/>
@@ -86,7 +86,7 @@
 						<VersionInfo Name="MajorVer">1</VersionInfo>
 						<VersionInfo Name="MinorVer">0</VersionInfo>
 						<VersionInfo Name="Release">0</VersionInfo>
-						<VersionInfo Name="Build">664</VersionInfo>
+						<VersionInfo Name="Build">764</VersionInfo>
 						<VersionInfo Name="Debug">False</VersionInfo>
 						<VersionInfo Name="PreRelease">False</VersionInfo>
 						<VersionInfo Name="Special">False</VersionInfo>
@@ -98,7 +98,7 @@
 					<VersionInfoKeys>
 						<VersionInfoKeys Name="CompanyName"/>
 						<VersionInfoKeys Name="FileDescription"/>
-						<VersionInfoKeys Name="FileVersion">1.0.0.664</VersionInfoKeys>
+						<VersionInfoKeys Name="FileVersion">1.0.0.764</VersionInfoKeys>
 						<VersionInfoKeys Name="InternalName"/>
 						<VersionInfoKeys Name="LegalCopyright"/>
 						<VersionInfoKeys Name="LegalTrademarks"/>

uMain.dfm

@@ -45,8 +45,12 @@ object fmMain: TfmMain
       Width = 217
       Height = 347
       Align = alLeft
+      DoubleBuffered = True
+      HideSelection = False
       Images = imlMain
       Indent = 19
+      MultiSelectStyle = []
+      ParentDoubleBuffered = False
       PopupMenu = ppmMain
       ReadOnly = True
       SortType = stText
@@ -184,58 +188,58 @@ object fmMain: TfmMain
     end
     object miProject: TMenuItem
       Caption = 'Project'
-      object miCreateProject: TMenuItem
-        Caption = 'Create project'
-        OnClick = miCreateProjectClick
+      object miAddProject: TMenuItem
+        Caption = 'Add project'
+        OnClick = AddProject
       end
-      object miProjectOptions: TMenuItem
-        Caption = 'Project options'
+      object miEditProject: TMenuItem
+        Caption = 'Edit project'
+      end
+      object miModule: TMenuItem
+        Caption = 'Module'
+        object AddModule1: TMenuItem
+          Caption = 'Add Module'
+        end
+        object miModuleList: TMenuItem
+          Caption = 'Module List'
+        end
+      end
+      object miItem: TMenuItem
+        Caption = 'Item'
+        object miWrapItem: TMenuItem
+          Caption = 'Wrap item'
+        end
+        object miDeployItem: TMenuItem
+          Caption = 'Deploy Item'
+        end
+        object miItemList: TMenuItem
+          Caption = 'Item list'
+        end
       end
       object miShow: TMenuItem
-        Caption = 'Show'
+        Caption = 'Show projects'
         object miShowAll: TMenuItem
           Caption = 'All'
           Checked = True
         end
       end
     end
-    object miModule: TMenuItem
-      Caption = 'Module'
-      object miCreateModule: TMenuItem
-        Caption = 'Create module'
-      end
-      object miEditModule: TMenuItem
-        Caption = 'Module options'
-      end
-    end
     object miBase: TMenuItem
       Caption = 'Base'
-      object miCreateBase: TMenuItem
-        Caption = 'Create base'
+      object miAddBase: TMenuItem
+        Caption = 'Add base'
       end
-      object miEditBase: TMenuItem
-        Caption = 'Base options'
+      object miBaseList: TMenuItem
+        Caption = 'Base list'
       end
     end
     object miScheme: TMenuItem
       Caption = 'Scheme'
-      object miCreateScheme: TMenuItem
-        Caption = 'Create scheme'
-      end
-      object miEditScheme: TMenuItem
-        Caption = 'Scheme options'
-      end
-    end
-    object miItem: TMenuItem
-      Caption = 'Item'
-      object miCreateItem: TMenuItem
-        Caption = 'Create item'
-      end
-      object miEditItem: TMenuItem
-        Caption = 'Object options'
+      object miAddScheme: TMenuItem
+        Caption = 'Add scheme'
       end
-      object miWrapItem: TMenuItem
-        Caption = 'Wrap item'
+      object miSchemeList: TMenuItem
+        Caption = 'Scheme list'
       end
     end
     object miLast: TMenuItem