Changeset 18 for trunk/StudioPackage/Forms

Timestamp:

Sep 5, 2012, 8:53:56 PM (12 years ago)

Author:

chronos

Message:

• Used external packages are now stored in uncompressed form rather in zipped files. This allow better package version synchronisation.

Location:

trunk/StudioPackage/Forms

Files:

• UFormMain.lfm (modified) (12 diffs)
• UFormMain.pas (modified) (1 diff)

trunk/StudioPackage/Forms/UFormMain.lfm

@@ -5 +5 @@
   Width = 747
   Caption = 'LibreDevelop Studio'
-  ClientHeight = 501
+  ClientHeight = 495
   ClientWidth = 747
   Menu = MainMenu
@@ -16 +16 @@
   object StatusBar1: TStatusBar
     Left = 0
-    Height = 20
-    Top = 481
+    Height = 21
+    Top = 474
     Width = 747
     Panels = <>
@@ -27 +27 @@
     Width = 747
     Caption = 'ToolBar1'
-    Images = DataModule1.ImageListMain
     TabOrder = 1
     object ToolButton1: TToolButton
@@ -54 +53 @@
   object PageControlRight: TPageControl
     Left = 547
-    Height = 350
+    Height = 343
     Top = 26
     Width = 200
@@ -63 +62 @@
   object PageControlLeft: TPageControl
     Left = 0
-    Height = 350
+    Height = 343
     Top = 26
     Width = 200
@@ -73 +72 @@
     Left = 0
     Height = 105
-    Top = 376
+    Top = 369
     Width = 747
     Align = alBottom
@@ -80 +79 @@
   object Splitter1: TSplitter
     Left = 200
-    Height = 350
+    Height = 343
     Top = 26
     Width = 5
@@ -86 +85 @@
   object Splitter2: TSplitter
     Left = 542
-    Height = 350
+    Height = 343
     Top = 26
     Width = 5
@@ -94 +93 @@
   object PageControlCenter: TPageControl
     Left = 205
-    Height = 350
+    Height = 343
     Top = 26
     Width = 337
@@ -101 +100 @@
   end
   object MainMenu: TMainMenu
-    Images = DataModule1.ImageListMain
     left = 80
     top = 48
@@ -225 +223 @@
   end
   object ActionListMain: TActionList
-    Images = DataModule1.ImageListMain
     left = 80
     top = 104
@@ -394 +391 @@
   end
   object PopupMenuRecentFiles: TPopupMenu
-    Images = DataModule1.ImageListMain
     left = 259
     top = 69

trunk/StudioPackage/Forms/UFormMain.pas

@@ -266 +266 @@
 procedure TFormMain.LoadFromRegistry(Context: TRegistryContext);
 begin
-  LastOpenedList1.LoadFromRegistry(Context.RootKey, Context.Key + '\RecentFiles');
+  LastOpenedList1.LoadFromRegistry(RegContext(Context.RootKey, Context.Key + '\RecentFiles'));
 end;
 
 procedure TFormMain.SaveToRegistry(Context: TRegistryContext);
 begin
-  LastOpenedList1.SaveToRegistry(Context.RootKey, Context.Key + '\RecentFiles');
+  LastOpenedList1.SaveToRegistry(RegContext(Context.RootKey, Context.Key + '\RecentFiles'));
 end;