Changeset 149 for trunk/Forms/FormContact.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/FormContact.pas (moved) (moved from trunk/Forms/UFormContact.pas ) (15 diffs)

trunk/Forms/FormContact.pas

@@ -1 @@
-unit UFormContact;
+unit FormContact;
 
 interface
@@ -6 +6 @@
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
   ComCtrls, ActnList, Menus, ExtCtrls, ExtDlgs, Buttons, VCard, LCLIntf,
-  UFormProperties, DateUtils, {$IFDEF LCLGTK2}Gtk2Globals, {$ENDIF}ContactImage,
+  FormProperties, DateUtils, {$IFDEF LCLGTK2}Gtk2Globals, {$ENDIF}ContactImage,
   ubarcodes;
 
@@ -248 +248 @@
   end;
 
-var
-  FormContact: TFormContact;
-
 
 implementation
@@ -257 +254 @@
 
 uses
-  UCore, Common, UFormImage, UFormNameDetails, DataFile;
+  Core, Common, FormImage, FormNameDetails, DataFile;
 
 resourcestring
@@ -328 +325 @@
   if Visible then LastMouse.WinControl := PageControlContact.ActivePage;
   {$ENDIF}
-  Core.PersistentForm1.Load(Self);
+  Core.Core.PersistentForm1.Load(Self);
   PhotoChange(nil);
 
@@ -363 +360 @@
   SavePictureDialog1.FilterIndex := 2;
   SavePictureDialog1.DefaultExt := '.png';
-  if Core.LastQrCodeFileName = '' then
-    Core.LastQrCodeFileName := 'QR code.png';
-  SavePictureDialog1.InitialDir := ExtractFileDir(Core.LastQrCodeFileName);
-  SavePictureDialog1.FileName := ExtractFileName(Core.LastQrCodeFileName);
+  if Core.Core.LastQrCodeFileName = '' then
+    Core.Core.LastQrCodeFileName := 'QR code.png';
+  SavePictureDialog1.InitialDir := ExtractFileDir(Core.Core.LastQrCodeFileName);
+  SavePictureDialog1.FileName := ExtractFileName(Core.Core.LastQrCodeFileName);
   if SavePictureDialog1.Execute then begin
     F := LowerCase(ExtractFileExt(SavePictureDialog1.FileName));
@@ -377 +374 @@
     else if (F = '.eps') or (F = '.ps') then BarcodeQR1.SaveToEpsFile(SavePictureDialog1.FileName)
     else raise Exception.Create(SImageTypeNotSupported);
-    Core.LastQrCodeFileName := SavePictureDialog1.FileName;
+    Core.Core.LastQrCodeFileName := SavePictureDialog1.FileName;
   end;
 end;
@@ -674 +671 @@
   if FPhoto.Used and (FPhoto.Url = '') then
     ImagePhoto.Picture.Bitmap.Assign(FPhoto.Bitmap)
-    else ImagePhoto.Picture.Assign(Core.GetProfileImage.Picture);
+    else ImagePhoto.Picture.Assign(Core.Core.GetProfileImage.Picture);
   UpdateInterface;
 end;
@@ -697 +694 @@
   PageControlContact.ActivePage.Hide;
 
-  Core.LastContactTabIndex := PageControlContact.TabIndex;
-  Core.PersistentForm1.Save(Self);
+  Core.Core.LastContactTabIndex := PageControlContact.TabIndex;
+  Core.Core.PersistentForm1.Save(Self);
 end;
 
@@ -709 +706 @@
 procedure TFormContact.APhotoLoadExecute(Sender: TObject);
 begin
-  OpenPictureDialog1.InitialDir := ExtractFileDir(Core.LastPhotoFileName);
-  OpenPictureDialog1.FileName := ExtractFileName(Core.LastPhotoFileName);
+  OpenPictureDialog1.InitialDir := ExtractFileDir(Core.Core.LastPhotoFileName);
+  OpenPictureDialog1.FileName := ExtractFileName(Core.Core.LastPhotoFileName);
   if OpenPictureDialog1.Execute then begin
     FPhoto.LoadFromFile(OpenPictureDialog1.FileName);
-    Core.LastPhotoFileName := OpenPictureDialog1.FileName;
+    Core.Core.LastPhotoFileName := OpenPictureDialog1.FileName;
   end;
 end;
@@ -724 +721 @@
 procedure TFormContact.APhotoSaveExecute(Sender: TObject);
 begin
-  SavePictureDialog1.InitialDir := ExtractFileDir(Core.LastPhotoFileName);
-  SavePictureDialog1.FileName := ExtractFileName(Core.LastPhotoFileName);
+  SavePictureDialog1.InitialDir := ExtractFileDir(Core.Core.LastPhotoFileName);
+  SavePictureDialog1.FileName := ExtractFileName(Core.Core.LastPhotoFileName);
   if SavePictureDialog1.Execute then begin
     ImagePhoto.Picture.SaveToFile(SavePictureDialog1.FileName);
-    Core.LastPhotoFileName := SavePictureDialog1.FileName;
+    Core.Core.LastPhotoFileName := SavePictureDialog1.FileName;
   end;
 end;
@@ -762 +759 @@
   if EditHomeAddressCountry.Text <> '' then Address := Address + ' ' + EditHomeAddressCountry.Text;
   if Trim(Address) <> '' then
-    OpenURL(Core.MapUrl + URLEncode(Trim(Address)));
+    OpenURL(Core.Core.MapUrl + URLEncode(Trim(Address)));
 end;
 
@@ -814 +811 @@
   if EditWorkAddressCountry.Text <> '' then Address := Address + ' ' + EditWorkAddressCountry.Text;
   if Trim(Address) <> '' then
-    OpenURL(Core.MapUrl + URLEncode(Trim(Address)));
+    OpenURL(Core.Core.MapUrl + URLEncode(Trim(Address)));
 end;
 
@@ -840 +837 @@
 procedure TFormContact.FormCreate(Sender: TObject);
 begin
-  Core.Translator.TranslateComponentRecursive(Self);
-  Core.ThemeManager1.UseTheme(Self);
+  Core.Core.Translator.TranslateComponentRecursive(Self);
+  Core.Core.ThemeManager1.UseTheme(Self);
   FContact := nil;
   FormProperties := TFormProperties.Create(nil);
@@ -852 +849 @@
   BarcodeQR1.PopupMenu := PopupMenuQrCode;
 
-  PageControlContact.TabIndex := Core.LastContactTabIndex;
+  PageControlContact.TabIndex := Core.Core.LastContactTabIndex;
 end;