Changeset 100 for trunk/Forms/UFormContact.pas

Timestamp:

Feb 8, 2022, 5:13:22 PM (3 years ago)

Author:

chronos

Message:

• Fixed: Added workaround for missing GTK2 first mouse click event in contact window.
• Added: Button for changing contact birth day and anniversary.
• Fixed: Use english texts in file and directory dialogs.

File:

• trunk/Forms/UFormContact.pas (modified) (6 diffs)

trunk/Forms/UFormContact.pas

@@ -8 +8 @@
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
   ComCtrls, ActnList, Menus, ExtCtrls, ExtDlgs, Buttons, UContact, LCLIntf,
-  UFormProperties;
+  UFormProperties, DateUtils{$IFDEF LCLGTK2}, Gtk2Globals{$ENDIF};
 
 type
@@ -23 +23 @@
     ButtonOk: TButton;
     ButtonPrevious: TButton;
+    CalendarDialog1: TCalendarDialog;
     EditAim: TEdit;
     EditCategories: TEdit;
@@ -173 +174 @@
     PopupMenuPhoto: TPopupMenu;
     SavePictureDialog1: TSavePictureDialog;
+    SpeedButtonBirthDay: TSpeedButton;
+    SpeedButtonAniversary: TSpeedButton;
     SpeedButtonHomeEmail: TSpeedButton;
     SpeedButtonEmail: TSpeedButton;
@@ -195 +198 @@
     procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
-    procedure peedButtonHomeWebClick(Sender: TObject);
+    procedure SpeedButtonHomeWebClick(Sender: TObject);
+    procedure SpeedButtonAniversaryClick(Sender: TObject);
+    procedure SpeedButtonBirthDayClick(Sender: TObject);
     procedure SpeedButtonEmailClick(Sender: TObject);
     procedure SpeedButtonHomeEmailClick(Sender: TObject);
@@ -246 +251 @@
   UCore, UCommon;
 
+function DateToISO(Date: TDateTime): string;
+begin
+  Result := FormatDateTime('yyyy-mm-dd', Date);
+end;
+
 { TFormContact }
 
 procedure TFormContact.FormShow(Sender: TObject);
 begin
+  {$IFDEF LCLGTK2}
+  // GTK2 bug workaround https://gitlab.com/freepascal.org/lazarus/lazarus/-/issues/35720
+  if Visible then LastMouse.WinControl := PageControlContact.ActivePage;
+  {$ENDIF}
   Core.PersistentForm1.Load(Self);
 
@@ -266 +280 @@
 end;
 
-procedure TFormContact.peedButtonHomeWebClick(Sender: TObject);
+procedure TFormContact.SpeedButtonHomeWebClick(Sender: TObject);
 begin
   if EditHomeWeb.Text <> '' then OpenURL(EditHomeWeb.Text);
+end;
+
+procedure TFormContact.SpeedButtonAniversaryClick(Sender: TObject);
+var
+  Date: TDateTime;
+begin
+  if TryISOStrToDate(EditAniversary.Text, Date) then
+    CalendarDialog1.Date := Date
+    else CalendarDialog1.Date := Now;
+  if CalendarDialog1.Execute then
+    EditAniversary.Text := DateToISO(CalendarDialog1.Date);
+end;
+
+procedure TFormContact.SpeedButtonBirthDayClick(Sender: TObject);
+var
+  Date: TDateTime;
+begin
+  if TryISOStrToDate(EditBirthday.Text, Date) then
+    CalendarDialog1.Date := Date
+    else CalendarDialog1.Date := Now;
+  if CalendarDialog1.Execute then
+    EditBirthday.Text := DateToISO(CalendarDialog1.Date);
 end;