Changeset 113 for tags

Timestamp:

Feb 15, 2022, 10:11:54 AM (3 years ago)

Author:

chronos

Message:

• Modified: Version 1.3.0 release releated changes.

Merged revision(s) 112 from trunk:

• Fixed: Contact photo was not saved correctly.
• Fixed: URL contact photo was incorrectly encoded with BASE64 encoding.
• Fixed: Disabled not correctly working autodetection of max. line length.
• Fixed: Tab order in Contact name details window.

Location:

tags/1.3.0

Files:

• . (modified) (1 prop)
• Forms/UFormContact.lfm (modified) (14 diffs)
• Forms/UFormNameDetails.lfm (modified) (5 diffs)
• Install/deb/debian/rules (modified) (1 diff)
• Install/rpm/vcard-studio.spec (modified) (1 diff)
• Install/win/vCard Studio.iss (modified) (1 diff)
• Languages/vCardStudio.cs.po (modified) (1 diff)
• Packages/Common/UCommon.pas (modified) (7 diffs)
• Release Notes.txt (modified) (1 diff)
• UContact.pas (modified) (1 diff)
• UContactImage.pas (modified) (3 diffs)
• UCore.lfm (modified) (7 diffs)
• vCardStudio.lpi (modified) (1 diff)

tags/1.3.0/Forms/UFormContact.lfm

@@ -90 +90 @@
         Width = 265
         ParentFont = False
-        TabOrder = 2
+        TabOrder = 3
       end
       object EditPhone: TEdit
@@ -98 +98 @@
         Width = 265
         ParentFont = False
-        TabOrder = 4
+        TabOrder = 5
       end
       object Label3: TLabel
@@ -114 +114 @@
         Width = 216
         ParentFont = False
-        TabOrder = 6
+        TabOrder = 7
       end
       object Label4: TLabel
@@ -130 +130 @@
         Width = 216
         ParentFont = False
-        TabOrder = 9
+        TabOrder = 10
       end
       object Label22: TLabel
@@ -182 +182 @@
         Width = 224
         ParentFont = False
-        TabOrder = 1
+        TabOrder = 2
       end
       object Label45: TLabel
@@ -198 +198 @@
         Width = 217
         ParentFont = False
-        TabOrder = 10
+        TabOrder = 11
       end
       object Label9: TLabel
@@ -214 +214 @@
         Width = 265
         ParentFont = False
-        TabOrder = 3
+        TabOrder = 4
       end
       object EditPager: TEdit
@@ -222 +222 @@
         Width = 265
         ParentFont = False
-        TabOrder = 5
+        TabOrder = 6
       end
       object Label10: TLabel
@@ -246 +246 @@
         Width = 666
         ParentFont = False
-        TabOrder = 8
+        TabOrder = 9
       end
       object Label49: TLabel
@@ -262 +262 @@
         Width = 265
         ParentFont = False
-        TabOrder = 7
+        TabOrder = 8
       end
       object Label56: TLabel
@@ -278 +278 @@
         Width = 265
         ParentFont = False
-        TabOrder = 11
+        TabOrder = 12
       end
       object SpeedButtonWeb: TSpeedButton
@@ -335 +335 @@
         Caption = 'Details'
         OnClick = ButtonNameDetailsClick
-        TabOrder = 12
+        TabOrder = 1
       end
     end
@@ -432 +432 @@
         Anchors = [akTop, akLeft, akRight]
         Caption = 'Address'
-        ClientHeight = 259
+        ClientHeight = 285
         ClientWidth = 895
         TabOrder = 6
@@ -674 +674 @@
         Width = 920
         Caption = 'Address'
-        ClientHeight = 255
+        ClientHeight = 281
         ClientWidth = 918
         TabOrder = 9

tags/1.3.0/Forms/UFormNameDetails.lfm

@@ -21 +21 @@
     Anchors = [akTop, akLeft, akRight]
     ParentFont = False
-    TabOrder = 0
+    TabOrder = 1
   end
   object Label1: TLabel
@@ -46 +46 @@
     Anchors = [akTop, akLeft, akRight]
     ParentFont = False
-    TabOrder = 1
+    TabOrder = 3
   end
   object EditMiddleName: TEdit
@@ -80 +80 @@
     Anchors = [akTop, akLeft, akRight]
     ParentFont = False
-    TabOrder = 3
+    TabOrder = 0
   end
   object Label27: TLabel
@@ -107 +107 @@
     Caption = 'OK'
     ModalResult = 1
-    TabOrder = 5
+    TabOrder = 6
   end
   object ButtonCancel: TButton
@@ -117 +117 @@
     Caption = 'Cancel'
     ModalResult = 2
-    TabOrder = 6
+    TabOrder = 5
   end
 end

tags/1.3.0/Install/deb/debian/rules

@@ -17 +17 @@
         install -s -m 755 vCardStudio $(ROOT)/usr/bin
         install -d -m 755 $(ROOT)/usr/share/vCardStudio/Languages
-        install -m 755 Languages/vCardStudio.po $(ROOT)/usr/share/vCardStudio/Languages
-        install -m 755 Languages/vCardStudio.cs.po $(ROOT)/usr/share/vCardStudio/Languages
+        install -m 644 Languages/vCardStudio.pot $(ROOT)/usr/share/vCardStudio/Languages
+        install -m 644 Languages/vCardStudio.cs.po $(ROOT)/usr/share/vCardStudio/Languages
+        install -m 644 Languages/UFormAbout.pot $(ROOT)/usr/share/vCardStudio/Languages
+        install -m 644 Languages/UFormAbout.cs.po $(ROOT)/usr/share/vCardStudio/Languages
         install -d -m 755 $(ROOT)/usr/share/vCardStudio/Images
-        install -m 755 Images/Profile.png $(ROOT)/usr/share/vCardStudio/Images
+        install -m 644 Images/Profile.png $(ROOT)/usr/share/vCardStudio/Images
         install -d -m 755 $(ROOT)/usr/share/applications
         install -m 755 Install/deb/vCardStudio.desktop $(ROOT)/usr/share/applications
         install -d -m 755 $(ROOT)/usr/share/pixmaps
-        install -m 755 Install/deb/vCardStudio.png $(ROOT)/usr/share/pixmaps
+        install -m 644 Install/deb/vCardStudio.png $(ROOT)/usr/share/pixmaps
 
 %:

tags/1.3.0/Install/rpm/vcard-studio.spec

@@ -41 +41 @@
 install -s -m 755 vCardStudio $RPM_BUILD_ROOT/usr/bin
 install -d -m 755 $RPM_BUILD_ROOT/usr/share/vCardStudio/Languages
-install -m 644 Languages/vCardStudio.po $RPM_BUILD_ROOT/usr/share/vCardStudio/Languages
+install -m 644 Languages/vCardStudio.pot $RPM_BUILD_ROOT/usr/share/vCardStudio/Languages
 install -m 644 Languages/vCardStudio.cs.po $RPM_BUILD_ROOT/usr/share/vCardStudio/Languages
+install -m 644 Languages/UFormAbout.pot $RPM_BUILD_ROOT/usr/share/vCardStudio/Languages
+install -m 644 Languages/UFormAbout.cs.po $RPM_BUILD_ROOT/usr/share/vCardStudio/Languages
 install -d -m 755 $RPM_BUILD_ROOT/usr/share/vCardStudio/Images
 install -m 755 Images/Profile.png $RPM_BUILD_ROOT/usr/share/vCardStudio/Images

tags/1.3.0/Install/win/vCard Studio.iss

@@ -5 +5 @@
 #define MyAppNameShort "vCardStudio"
 #define MyAppVersion "1.3.0"
-#define MyAppVersionSuffix "alfa"
+;#define MyAppVersionSuffix "alfa"
 #define MyAppPublisher "Chronosoft"
 #define MyAppPublisherShort "Chronosoft"

tags/1.3.0/Languages/vCardStudio.cs.po

@@ -1478 +1478 @@
 msgid "Decode error"
 msgstr "Chyba dekódování"
+

tags/1.3.0/Packages/Common/UCommon.pas

@@ -310 +310 @@
 end;
 
-{$IFDEF Windows}
+{$IFDEF WINDOWS}
 function GetUserName: string;
 const
@@ -318 +318 @@
 begin
   L := MAX_USERNAME_LENGTH + 2;
+  Result := Default(string);
   SetLength(Result, L);
   if Windows.GetUserName(PChar(Result), L) and (L > 0) then begin
@@ -331 +332 @@
   end;
 end;
-{$endif}
+{$ENDIF}
 
 function ComputerName: string;
-{$ifdef mswindows}
+{$IFDEF WINDOWS}
 const
  INFO_BUFFER_SIZE = 32767;
@@ -349 +350 @@
   end;
 end;
-{$endif}
-{$ifdef unix}
+{$ENDIF}
+{$IFDEF UNIX}
 var
   Name: UtsName;
@@ -358 +359 @@
   Result := Name.Nodename;
 end;
-{$endif}
-
-{$ifdef windows}
+{$ENDIF}
+
+{$IFDEF WINDOWS}
 function LoggedOnUserNameEx(Format: TUserNameFormat): string;
 const
@@ -438 +439 @@
 procedure LoadLibraries;
 begin
-  {$IFDEF Windows}
+  {$IFDEF WINDOWS}
   DLLHandle1 := LoadLibrary('secur32.dll');
   if DLLHandle1 <> 0 then
@@ -449 +450 @@
 procedure FreeLibraries;
 begin
-  {$IFDEF Windows}
+  {$IFDEF WINDOWS}
   if DLLHandle1 <> 0 then FreeLibrary(DLLHandle1);
   {$ENDIF}

tags/1.3.0/Release Notes.txt

@@ +1 @@
+Version 1.3.0 (2022-02-15)
+==========================
+
+* Added: Synced update of full name and name parts in contact form. Edit name details in separate window.
+* Added: Contact field indexes cache for faster reverse search of contact fields by its index.
+* Added: New Contact Image form to show profile photo in bigger size and with URL.
+* Added: Remember last used file name for image open/save dialog.
+* Added: Buttons to show contact home and work addresses on online map. Predefined map uses openstreetmap.org and can be changed in Settings.
+* Added: Calendar buttons for changing contact birth day and anniversary.
+* Added: URLs and emails can be opened in the default applications.
+* Added: Escape new lines in text strings.
+* Added: A window for showing log output for selected test case.
+* Added: Test form available in debug mode from Tools menu with list of test cases to better support app testability.
+* Added: Allow to set default vCard version in settings dialog.
+* Added: Find button in main app toolbar.
+* Modified: Improved image loading code by image format.
+* Modified: Generate more contacts properties in Generate window.
+* Modified: Optimized update of recent opened files menu.
+* Modified: Updated speed of loading of big number of contacts.
+* Modified: Avoid loading and storing contact image during switching tabs.
+* Modified: Improved parsing vCard format.
+* Modified: Updated Common package.
+* Modified: Code optimization and cleanup.
+* Modified: Move fields initialization method to TContact class and made it static so it is initialized only once.
+* Modified: Add GTK2 theming support to snap package.
+* Fixed: Do not update interface in contact properties if the listview doesn't have handle yet.
+* Fixed: Avoid multiple interface update during main form loading.
+* Fixed: Some dynamically created forms were not translated.
+* Fixed: Added workaround for missing GTK2 first mouse click event in contact window.
+* Fixed: Use english texts in file and directory dialogs.
+* Fixed: Quoted-printable encoded text was not handled correctly for multiple lines.
+* Fixed: Non-string properties were incorrectly escaped.
+* Fixed: Wrong max line length was used for UTF-8 strings during save.
+* Fixed: Contact form controls tab order.
+* Fixed: Settings option to load previously opened file wasn't working for disabled state.
+* Fixed: Disable Find action if no file is opened.
+
 Version 1.2.0 (2021-12-15)
 ==========================

tags/1.3.0/UContact.pas

@@ -1724 +1724 @@
 begin
   Contacts.Clear;
-  MaxLineLength := 10;
+  //MaxLineLength := 10;
 
   I := 0;

tags/1.3.0/UContactImage.pas

@@ -295 +295 @@
       if Url <> '' then begin
         Contact.Fields[FieldIndex] := Url;
+        PhotoProperty.Encoding := '';
       end else begin
         PhotoProperty.Encoding := VCardBase64;
@@ -322 +323 @@
   Url := '';
   Used := False;
+  Modified := True;
 end;
 
@@ -332 +334 @@
     Url := '';
     Used := True;
+    Modified := True;
   finally
     Free;

tags/1.3.0/UCore.lfm

@@ -3 +3 @@
   OnDestroy = DataModuleDestroy
   OldCreateOrder = False
-  Height = 551
-  HorizontalOffset = 697
-  VerticalOffset = 632
-  Width = 756
-  PPI = 150
+  Height = 529
+  HorizontalOffset = 669
+  VerticalOffset = 607
+  Width = 726
+  PPI = 144
   object ImageList1: TImageList
-    Left = 120
-    Top = 208
+    Left = 115
+    Top = 200
     Bitmap = {
       4C7A120000001000000010000000801200000000000078DADD9A095855D5DAC7
@@ -165 +165 @@
   object ActionList1: TActionList
     Images = ImageList1
-    Left = 400
-    Top = 208
+    Left = 384
+    Top = 200
     object AExit: TAction
       Caption = 'Exit'
@@ -258 +258 @@
     MaxCount = 10
     OnChange = LastOpenedList1Change
-    Left = 400
-    Top = 300
+    Left = 384
+    Top = 288
   end
   object OpenDialog1: TOpenDialog
     Title = 'Open existing file'
-    Left = 400
-    Top = 380
+    Left = 384
+    Top = 365
   end
   object SaveDialog1: TSaveDialog
     Title = 'Save file as'
-    Left = 120
-    Top = 380
+    Left = 115
+    Top = 365
   end
   object ApplicationInfo1: TApplicationInfo
@@ -276 +276 @@
     VersionMinor = 3
     VersionBugFix = 0
-    VersionSuffix = 'alfa'
     HomePage = 'https://app.zdechov.net/vcard-studio'
     AuthorsName = 'Chronos'
@@ -282 +281 @@
     AppName = 'vCard Studio'
     Description = 'vCard files management tool'
-    ReleaseDate = 44606
+    ReleaseDate = 44607
     RegistryKey = '\Software\Chronosoft\vCard Studio'
     RegistryRoot = rrKeyCurrentUser
@@ -8482 +8481 @@
       0000000000000000000000000000000000000000000000000000
     }
-    Left = 120
-    Top = 300
+    Left = 115
+    Top = 288
   end
   object PersistentForm1: TPersistentForm
     MinVisiblePart = 50
     EntireVisible = False
-    Left = 400
-    Top = 130
+    Left = 384
+    Top = 125
   end
   object Translator: TTranslator
     POFilesFolder = 'Languages'
-    Left = 120
-    Top = 50
+    Left = 115
+    Top = 48
   end
   object ScaleDPI1: TScaleDPI
     AutoDetect = False
-    Left = 400
-    Top = 50
+    Left = 384
+    Top = 48
   end
   object ThemeManager1: TThemeManager
-    Left = 120
-    Top = 130
+    Left = 115
+    Top = 125
   end
   object AboutDialog1: TAboutDialog
@@ -8509 +8508 @@
     ThemeManager = ThemeManager1
     ApplicationInfo = ApplicationInfo1
-    Left = 600
-    Top = 50
+    Left = 576
+    Top = 48
   end
   object SelectDirectoryDialog1: TSelectDirectoryDialog
     Title = 'Select directory'
-    Left = 602
-    Top = 392
+    Left = 578
+    Top = 376
   end
 end

tags/1.3.0/vCardStudio.lpi

@@ -231 +231 @@
         <IsPartOfProject Value="True"/>
         <ComponentName Value="FormNameDetails"/>
+        <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
       </Unit20>