Changeset 44 for trunk/Forms

Timestamp:

Jun 25, 2012, 1:17:58 PM (13 years ago)

Author:

chronos

Message:

• Modified: Updated Common package.

Location:

trunk/Forms

Files:

• UFormMain.lfm (modified) (15 diffs)
• UFormMain.pas (modified) (6 diffs)

trunk/Forms/UFormMain.lfm

@@ -1 +1 @@
 object MainForm: TMainForm
-  Left = 215
+  Left = 204
   Height = 414
-  Top = 271
+  Top = 88
   Width = 665
   Caption = 'LazFuck'
-  ClientHeight = 389
+  ClientHeight = 395
   ClientWidth = 665
   Menu = MainMenu1
@@ -12 +12 @@
   OnDestroy = FormDestroy
   OnShow = FormShow
-  LCLVersion = '0.9.31'
+  LCLVersion = '1.1'
   WindowState = wsMaximized
   object StatusBarMain: TStatusBar
     Left = 0
-    Height = 21
-    Top = 368
+    Height = 20
+    Top = 375
     Width = 665
     Panels = <    
@@ -119 +119 @@
   object PageControlRight: TPageControl
     Left = 272
-    Height = 342
+    Height = 349
     Top = 26
     Width = 393
@@ -129 +129 @@
     object TabSheetDebug: TTabSheet
       Caption = 'Debug'
-      ClientHeight = 340
-      ClientWidth = 341
+      ClientHeight = 341
+      ClientWidth = 365
       object PanelInput: TPanel
         Left = 0
         Height = 64
         Top = 0
-        Width = 341
+        Width = 365
         Align = alTop
         BevelOuter = bvNone
@@ -145 +145 @@
         Height = 5
         Top = 64
-        Width = 341
+        Width = 365
         Align = alTop
         ResizeAnchor = akTop
@@ -153 +153 @@
         Height = 259
         Top = 69
-        Width = 341
+        Width = 365
         Align = alTop
         BevelOuter = bvNone
@@ -163 +163 @@
         Height = 5
         Top = 328
-        Width = 341
+        Width = 365
         Align = alTop
         ResizeAnchor = akTop
@@ -171 +171 @@
         Height = 86
         Top = 333
-        Width = 341
+        Width = 365
         Align = alTop
         BevelOuter = bvNone
@@ -180 +180 @@
         Left = 0
         Height = 5
-        Top = 340
-        Width = 341
+        Top = 341
+        Width = 365
         Align = alTop
         ResizeAnchor = akTop
@@ -187 +187 @@
       object PanelMemory: TPanel
         Left = 0
-        Height = 1
-        Top = 340
-        Width = 341
+        Height = 0
+        Top = 341
+        Width = 365
         Align = alClient
         BevelOuter = bvNone
@@ -198 +198 @@
   object Splitter1: TSplitter
     Left = 267
-    Height = 342
+    Height = 349
     Top = 26
     Width = 5
@@ -206 +206 @@
   object PanelLeft: TPanel
     Left = 0
-    Height = 342
+    Height = 349
     Top = 26
     Width = 267
     Align = alClient
     BevelOuter = bvNone
-    ClientHeight = 342
+    ClientHeight = 349
     ClientWidth = 267
     TabOrder = 4
     object PageControlMain: TPageControl
       Left = 0
-      Height = 219
+      Height = 226
       Top = 0
       Width = 267
@@ -226 +226 @@
       object TabSheetSource: TTabSheet
         Caption = 'Source code'
-        ClientHeight = 192
-        ClientWidth = 265
+        ClientHeight = 200
+        ClientWidth = 259
         object MemoSource: TMemo
           Left = 0
-          Height = 192
+          Height = 200
           Top = 0
-          Width = 265
+          Width = 259
           Align = alClient
           Font.Height = -12
@@ -267 +267 @@
       Left = 0
       Height = 118
-      Top = 224
+      Top = 231
       Width = 267
       ActivePage = TabSheetMessages
@@ -282 +282 @@
       Left = 0
       Height = 5
-      Top = 219
+      Top = 226
       Width = 267
       Align = alBottom

trunk/Forms/UFormMain.pas

@@ -173 +173 @@
     procedure UpdateToolBarHints;
     procedure DockInit;
+    procedure LastOpenedListChange(Sender: TObject);
   public
     Modified: Boolean;
@@ -213 +214 @@
 begin
   PageControlMain.TabIndex := 0;
-  if OpenProjectOnStart and (LastOpenedList.Count > 0) then
-    ProjectOpen(LastOpenedList[0])
+  if OpenProjectOnStart and (LastOpenedList.Items.Count > 0) then
+    ProjectOpen(LastOpenedList.Items[0])
     else AProjectNew.Execute;
   UpdateInterface;
@@ -333 +334 @@
   PageControlRight.Width := MainForm.Width div 2;
   PageControlBottom.Height := MainForm.Height div 5;
+end;
+
+procedure TMainForm.LastOpenedListChange(Sender: TObject);
+begin
+  LastOpenedList.LoadToMenuItem(MenuItemOpenRecent);
 end;
 
@@ -438 +444 @@
   Targets.Add(TTargetJava.Create);
   UpdateTargetList;
-  LastOpenedList := TLastOpenedList.Create;
-  LastOpenedList.MenuItem := MenuItemOpenRecent;
+  LastOpenedList := TLastOpenedList.Create(nil);
+  LastOpenedList.OnChange := LastOpenedListChange;
   LastOpenedList.ClickAction := AProjectOpenRecentExecute;
   LoadFromRegistry(RegistryRoot, ApplicationInfo.RegistryKey);
@@ -681 +687 @@
 procedure TMainForm.AProjectOpenRecentExecute(Sender: TObject);
 begin
-  ProjectOpen(LastOpenedList[TMenuItem(Sender).MenuIndex]);
+  ProjectOpen(LastOpenedList.Items[TMenuItem(Sender).MenuIndex]);
 end;
 
@@ -698 +704 @@
     MemoSource.Lines.SaveToFile(UTF8Decode(SaveDialog1.FileName));
     ProjectFileName := SaveDialog1.FileName;
-    LastOpenedList.Add(SaveDialog1.FileName);
+    LastOpenedList.AddItem(SaveDialog1.FileName);
     Modified := False;
     UpdateInterface;