Changeset 149 for trunk/Forms/FormMain.pas

Timestamp:

Jun 5, 2023, 8:45:38 PM (18 months ago)

Author:

chronos

Message:

• Modified: Remove U prefix from unit names.

File:

• trunk/Forms/FormMain.pas (moved) (moved from trunk/Forms/UFormMain.pas ) (7 diffs)

trunk/Forms/FormMain.pas

@@ -1 @@
-unit UFormMain;
+unit FormMain;
 
 interface
@@ -5 +5 @@
 uses
   Classes, SysUtils, LazFileUtils, Forms, Controls, Graphics, Dialogs, Menus,
-  ComCtrls;
+  ComCtrls, FormContacts;
 
 type
@@ -65 +65 @@
     procedure SetToolbarHints;
     procedure UpdateFormTitle;
+    procedure DataFileChangeExecute(Sender: TObject);
+    procedure LastOpenedFileChangeExecute(Sender: TObject);
+    procedure LoadConfig;
+    procedure SaveConfig;
   public
+    FormContacts: TFormContacts;
     procedure UpdateInterface;
   end;
 
-var
-  FormMain: TFormMain;
-
 
 implementation
@@ -78 +80 @@
 
 uses
-  UCore, UFormContacts, VCard, UVCardFile, RegistryEx;
+  Core, VCard, VCardFile, RegistryEx;
 
 resourcestring
@@ -88 +90 @@
 begin
   FormContacts.Close;
-  Core.PersistentForm1.Save(Self);
+  Core.Core.PersistentForm1.Save(Self);
+  Application.Terminate;
 end;
 
 procedure TFormMain.FormCloseQuery(Sender: TObject; var CanClose: boolean);
 begin
-  Core.AFileClose.Execute;
-  CanClose := Core.FileClosed;
+  Core.Core.AFileClose.Execute;
+  CanClose := Core.Core.FileClosed;
 end;
 
 procedure TFormMain.FormCreate(Sender: TObject);
 begin
+  Core.Core.Translator.TranslateComponentRecursive(Self);
+  Core.Core.ThemeManager1.UseTheme(Self);
+
   FormContacts := TFormContacts.Create(nil);
+  Core.Core.OnDataFileChange := DataFileChangeExecute;
+  Core.Core.OnLastOpenedListChange := LastOpenedFileChangeExecute;
 end;
 
@@ -117 +125 @@
   try
     SetToolbarHints;
-    Core.Initialize;
-    Core.ThemeManager1.UseTheme(Self);
-    Core.PersistentForm1.Load(Self);
-    Core.ScaleDPI1.ScaleControl(CoolBar1, Core.ScaleDPI1.DesignDPI);
+    Core.Core.Initialize;
+    Core.Core.ThemeManager1.UseTheme(Self);
+    Core.Core.PersistentForm1.Load(Self);
+    Core.Core.ScaleDPI1.ScaleControl(CoolBar1, Core.Core.ScaleDPI1.DesignDPI);
     CoolBar1.AutosizeBands;
 
-    FormContacts.Context := TRegistryContext.Create(Core.ApplicationInfo1.RegistryRoot,
-      Core.ApplicationInfo1.RegistryKey + '\ContactsColumns');
-    FormContacts.Contacts := TVCardFile(Core.DataFile).VCard.Contacts;
+    FormContacts.Context := TRegistryContext.Create(Core.Core.ApplicationInfo1.RegistryRoot,
+      Core.Core.ApplicationInfo1.RegistryKey + '\ContactsColumns');
+    FormContacts.Contacts := TVCardFile(Core.Core.DataFile).VCard.Contacts;
     FormContacts.ManualDock(Self, nil, alClient);
     FormContacts.Align := alClient;
@@ -166 +174 @@
 begin
   Title := '';
-  if Assigned(Core.DataFile) and
-  (ExtractFileNameWithoutExt(ExtractFileName(Core.DataFile.FileName)) <> '') then
-    Title := Title + ExtractFileNameWithoutExt(ExtractFileName(Core.DataFile.FileName));
-  if Assigned(Core.DataFile) and Core.DataFile.Modified then
+  if Assigned(Core.Core.DataFile) and
+  (ExtractFileNameWithoutExt(ExtractFileName(Core.Core.DataFile.FileName)) <> '') then
+    Title := Title + ExtractFileNameWithoutExt(ExtractFileName(Core.Core.DataFile.FileName));
+  if Assigned(Core.Core.DataFile) and Core.Core.DataFile.Modified then
     Title := Title + ' (' + SModified + ')';
   if Title <> '' then Title := Title + ' - ';
-  Title := Title + Core.ApplicationInfo1.AppName;
+  Title := Title + Core.Core.ApplicationInfo1.AppName;
   //Application.Title := Title;
   Caption := Title;
 end;
 
+procedure TFormMain.DataFileChangeExecute(Sender: TObject);
+begin
+  if Assigned(FormContacts) then begin
+    if Assigned(Core.Core.DataFile) then
+      FormContacts.Contacts := TVCardFile(Core.Core.DataFile).VCard.Contacts
+      else FormContacts.Contacts := nil;
+  end;
+
+  FormContacts.ReloadList;
+  FormContacts.UpdateInterface;
+  UpdateInterface;
+end;
+
+procedure TFormMain.LastOpenedFileChangeExecute(Sender: TObject);
+begin
+  Core.Core.LastOpenedList1.LoadToMenuItem(MenuItemFileOpenRecent, Core.Core.AFileOpenRecentExecute);
+  Core.Core.LastOpenedList1.LoadToMenuItem(PopupMenuOpenRecent.Items, Core.Core.AFileOpenRecentExecute);
+end;
+
+procedure TFormMain.LoadConfig;
+begin
+  with TRegistryEx.Create do
+  try
+    CurrentContext := Core.Core.ApplicationInfo1.GetRegistryContext;
+    MenuItemToolbar.Checked := ReadBoolWithDefault('ToolBarVisible', True);
+  finally
+    Free;
+  end;
+end;
+
+procedure TFormMain.SaveConfig;
+begin
+  with TRegistryEx.Create do
+  try
+    CurrentContext := Core.Core.ApplicationInfo1.GetRegistryContext;
+    WriteBool('ToolBarVisible', MenuItemToolbar.Checked);
+  finally
+    Free;
+  end;
+end;
+
 procedure TFormMain.UpdateInterface;
 begin