- Timestamp:
- Feb 8, 2022, 6:07:35 PM (3 years ago)
- Location:
- trunk
- Files:
-
- 1 added
- 9 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormContact.lfm
r100 r101 1 1 object FormContact: TFormContact 2 Left = 6042 Left = 1121 3 3 Height = 773 4 Top = 4 844 Top = 472 5 5 Width = 1032 6 6 Caption = 'Contact' … … 18 18 Top = 8 19 19 Width = 1009 20 ActivePage = TabSheet General20 ActivePage = TabSheetWork 21 21 Anchors = [akTop, akLeft, akRight, akBottom] 22 22 ParentFont = False 23 TabIndex = 023 TabIndex = 2 24 24 TabOrder = 0 25 25 object TabSheetGeneral: TTabSheet … … 451 451 object GroupBox1: TGroupBox 452 452 Left = 10 453 Height = 2 52453 Height = 287 454 454 Top = 225 455 Width = 961455 Width = 897 456 456 Anchors = [akTop, akLeft, akRight] 457 457 Caption = 'Address' 458 ClientHeight = 2 24459 ClientWidth = 959458 ClientHeight = 259 459 ClientWidth = 895 460 460 TabOrder = 6 461 461 object Label36: TLabel … … 570 570 ParentFont = False 571 571 TabOrder = 1 572 end 573 object ButtonHomeAddressShow: TButton 574 Left = 10 575 Height = 39 576 Top = 208 577 Width = 182 578 Caption = 'Show on map' 579 OnClick = ButtonHomeAddressShowClick 580 TabOrder = 7 572 581 end 573 582 end … … 685 694 object GroupBox2: TGroupBox 686 695 Left = 8 687 Height = 2 57696 Height = 283 688 697 Top = 325 689 Width = 9 49698 Width = 920 690 699 Caption = 'Address' 691 ClientHeight = 2 29692 ClientWidth = 9 47700 ClientHeight = 255 701 ClientWidth = 918 693 702 TabOrder = 9 694 703 object Label31: TLabel … … 700 709 ParentFont = False 701 710 end 702 object Edit AddressWorkCountry: TEdit711 object EditWorkAddressCountry: TEdit 703 712 Left = 180 704 713 Height = 43 … … 708 717 TabOrder = 5 709 718 end 710 object Edit AddressWorkRegion: TEdit719 object EditWorkAddressRegion: TEdit 711 720 Left = 180 712 721 Height = 43 … … 732 741 ParentFont = False 733 742 end 734 object Edit AddressWorkStreetExtended: TEdit743 object EditWorkAddressStreetExtended: TEdit 735 744 Left = 180 736 745 Height = 43 … … 748 757 ParentFont = False 749 758 end 750 object Edit AddressWorkStreet: TEdit759 object EditWorkAddressStreet: TEdit 751 760 Left = 180 752 761 Height = 43 … … 764 773 ParentFont = False 765 774 end 766 object Edit AddressWorkPostOfficeBox: TEdit775 object EditWorkAddressPostOfficeBox: TEdit 767 776 Left = 633 768 777 Height = 43 … … 772 781 TabOrder = 1 773 782 end 774 object Edit AddressWorkCity: TEdit783 object EditWorkAddressCity: TEdit 775 784 Left = 633 776 785 Height = 43 … … 788 797 ParentFont = False 789 798 end 790 object Edit AddressWorkPostalCode: TEdit799 object EditWorkAddressPostalCode: TEdit 791 800 Left = 633 792 801 Height = 43 … … 803 812 Caption = 'Postal code:' 804 813 ParentFont = False 814 end 815 object ButtonWorkAddressShow: TButton 816 Left = 10 817 Height = 39 818 Top = 208 819 Width = 182 820 Caption = 'Show on map' 821 OnClick = ButtonWorkAddressShowClick 822 TabOrder = 7 805 823 end 806 824 end -
trunk/Forms/UFormContact.lrj
r100 r101 36 36 {"hash":4852682,"name":"tformcontact.label42.caption","sourcebytes":[67,105,116,121,58],"value":"City:"}, 37 37 {"hash":252071146,"name":"tformcontact.label43.caption","sourcebytes":[80,111,115,116,32,111,102,102,105,99,101,32,98,111,120,58],"value":"Post office box:"}, 38 {"hash":119121168,"name":"tformcontact.buttonhomeaddressshow.caption","sourcebytes":[83,104,111,119,32,111,110,32,109,97,112],"value":"Show on map"}, 38 39 {"hash":72942298,"name":"tformcontact.label12.caption","sourcebytes":[77,111,98,105,108,101,58],"value":"Mobile:"}, 39 40 {"hash":91186314,"name":"tformcontact.label13.caption","sourcebytes":[80,104,111,110,101,58],"value":"Phone:"}, … … 53 54 {"hash":4852682,"name":"tformcontact.label29.caption","sourcebytes":[67,105,116,121,58],"value":"City:"}, 54 55 {"hash":186708218,"name":"tformcontact.label33.caption","sourcebytes":[80,111,115,116,97,108,32,99,111,100,101,58],"value":"Postal code:"}, 56 {"hash":119121168,"name":"tformcontact.buttonworkaddressshow.caption","sourcebytes":[83,104,111,119,32,111,110,32,109,97,112],"value":"Show on map"}, 55 57 {"hash":91186314,"name":"tformcontact.label15.caption","sourcebytes":[80,104,111,110,101,58],"value":"Phone:"}, 56 58 {"hash":313530,"name":"tformcontact.label16.caption","sourcebytes":[70,97,120,58],"value":"Fax:"}, -
trunk/Forms/UFormContact.pas
r100 r101 19 19 APhotoLoad: TAction; 20 20 ActionList1: TActionList; 21 ButtonHomeAddressShow: TButton; 21 22 ButtonCancel: TButton; 23 ButtonWorkAddressShow: TButton; 22 24 ButtonNext: TButton; 23 25 ButtonOk: TButton; … … 52 54 EditHomeAddressStreet: TEdit; 53 55 EditHomeAddressStreetExtended: TEdit; 54 Edit AddressWorkCity: TEdit;55 Edit AddressWorkCountry: TEdit;56 Edit AddressWorkPostalCode: TEdit;57 Edit AddressWorkPostOfficeBox: TEdit;58 Edit AddressWorkRegion: TEdit;59 Edit AddressWorkStreet: TEdit;60 Edit AddressWorkStreetExtended: TEdit;56 EditWorkAddressCity: TEdit; 57 EditWorkAddressCountry: TEdit; 58 EditWorkAddressPostalCode: TEdit; 59 EditWorkAddressPostOfficeBox: TEdit; 60 EditWorkAddressRegion: TEdit; 61 EditWorkAddressStreet: TEdit; 62 EditWorkAddressStreetExtended: TEdit; 61 63 EditAniversary: TEdit; 62 64 EditJabber: TEdit; … … 192 194 procedure APhotoLoadExecute(Sender: TObject); 193 195 procedure APhotoSaveExecute(Sender: TObject); 196 procedure ButtonHomeAddressShowClick(Sender: TObject); 194 197 procedure ButtonNextClick(Sender: TObject); 195 198 procedure ButtonPreviousClick(Sender: TObject); 199 procedure ButtonWorkAddressShowClick(Sender: TObject); 196 200 procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); 197 201 procedure FormCreate(Sender: TObject); … … 254 258 begin 255 259 Result := FormatDateTime('yyyy-mm-dd', Date); 260 end; 261 262 function URLEncode(Text: string): string; 263 var 264 I: Integer; 265 begin 266 Result := ''; 267 for I := 1 to Length(Text) do begin 268 if not (Text[I] in ['A'..'Z', 'a'..'z', '0'..'9', '-', '_', '~', '.', ':', '/']) then 269 Result := Result + '%' + IntToHex(Ord(Text[I]), 2) 270 else 271 Result := Result + Text[I]; 272 end; 256 273 end; 257 274 … … 677 694 Contact.Fields[cfOrganization] := EditOrganization.Text; 678 695 Contact.Fields[cfDepartment] := EditDepartment.Text; 679 Contact.Fields[cfWorkAddressPostOfficeBox] := Edit AddressWorkPostOfficeBox.Text;680 Contact.Fields[cfWorkAddressStreet] := Edit AddressWorkStreet.Text;681 Contact.Fields[cfWorkAddressStreetExtended] := Edit AddressWorkStreetExtended.Text;682 Contact.Fields[cfWorkAddressCity] := Edit AddressWorkCity.Text;683 Contact.Fields[cfWorkAddressRegion] := Edit AddressWorkRegion.Text;684 Contact.Fields[cfWorkAddressCountry] := Edit AddressWorkCountry.Text;685 Contact.Fields[cfWorkAddressPostalCode] := Edit AddressWorkPostalCode.Text;696 Contact.Fields[cfWorkAddressPostOfficeBox] := EditWorkAddressPostOfficeBox.Text; 697 Contact.Fields[cfWorkAddressStreet] := EditWorkAddressStreet.Text; 698 Contact.Fields[cfWorkAddressStreetExtended] := EditWorkAddressStreetExtended.Text; 699 Contact.Fields[cfWorkAddressCity] := EditWorkAddressCity.Text; 700 Contact.Fields[cfWorkAddressRegion] := EditWorkAddressRegion.Text; 701 Contact.Fields[cfWorkAddressCountry] := EditWorkAddressCountry.Text; 702 Contact.Fields[cfWorkAddressPostalCode] := EditWorkAddressPostalCode.Text; 686 703 Contact.Fields[cfUrlWork] := EditWorkWeb.Text; 687 704 … … 699 716 EditOrganization.Text := Contact.Fields[cfOrganization]; 700 717 EditDepartment.Text := Contact.Fields[cfDepartment]; 701 Edit AddressWorkPostOfficeBox.Text := Contact.Fields[cfWorkAddressPostOfficeBox];702 Edit AddressWorkStreet.Text := Contact.Fields[cfWorkAddressStreet];703 Edit AddressWorkStreetExtended.Text := Contact.Fields[cfWorkAddressStreetExtended];704 Edit AddressWorkCity.Text := Contact.Fields[cfWorkAddressCity];705 Edit AddressWorkRegion.Text := Contact.Fields[cfWorkAddressRegion];706 Edit AddressWorkCountry.Text := Contact.Fields[cfWorkAddressCountry];707 Edit AddressWorkPostalCode.Text := Contact.Fields[cfWorkAddressPostalCode];718 EditWorkAddressPostOfficeBox.Text := Contact.Fields[cfWorkAddressPostOfficeBox]; 719 EditWorkAddressStreet.Text := Contact.Fields[cfWorkAddressStreet]; 720 EditWorkAddressStreetExtended.Text := Contact.Fields[cfWorkAddressStreetExtended]; 721 EditWorkAddressCity.Text := Contact.Fields[cfWorkAddressCity]; 722 EditWorkAddressRegion.Text := Contact.Fields[cfWorkAddressRegion]; 723 EditWorkAddressCountry.Text := Contact.Fields[cfWorkAddressCountry]; 724 EditWorkAddressPostalCode.Text := Contact.Fields[cfWorkAddressPostalCode]; 708 725 EditWorkWeb.Text := Contact.Fields[cfUrlWork]; 709 726 end; … … 771 788 end; 772 789 790 procedure TFormContact.ButtonHomeAddressShowClick(Sender: TObject); 791 var 792 Address: string; 793 begin 794 Address := ''; 795 if EditHomeAddressStreet.Text <> '' then Address := Address + ' ' + EditHomeAddressStreet.Text; 796 if EditHomeAddressStreetExtended.Text <> '' then Address := Address + ' ' + EditHomeAddressStreetExtended.Text; 797 if EditHomeAddressPostOfficeBox.Text <> '' then Address := Address + ' ' + EditHomeAddressPostOfficeBox.Text; 798 if EditHomeAddressCity.Text <> '' then Address := Address + ' ' + EditHomeAddressCity.Text; 799 if EditHomeAddressCountry.Text <> '' then Address := Address + ' ' + EditHomeAddressCountry.Text; 800 OpenURL(Core.MapUrl + URLEncode(Trim(Address))); 801 end; 802 773 803 procedure TFormContact.ButtonPreviousClick(Sender: TObject); 774 804 begin 775 805 if Assigned(FOnGetPrevious) then 776 806 Contact := FOnGetPrevious(Contact); 807 end; 808 809 procedure TFormContact.ButtonWorkAddressShowClick(Sender: TObject); 810 var 811 Address: string; 812 begin 813 Address := ''; 814 if EditWorkAddressStreet.Text <> '' then Address := Address + ' ' + EditWorkAddressStreet.Text; 815 if EditWorkAddressStreetExtended.Text <> '' then Address := Address + ' ' + EditWorkAddressStreetExtended.Text; 816 if EditWorkAddressPostOfficeBox.Text <> '' then Address := Address + ' ' + EditWorkAddressPostOfficeBox.Text; 817 if EditWorkAddressCity.Text <> '' then Address := Address + ' ' + EditWorkAddressCity.Text; 818 if EditWorkAddressCountry.Text <> '' then Address := Address + ' ' + EditWorkAddressCountry.Text; 819 OpenURL(Core.MapUrl + URLEncode(Trim(Address))); 777 820 end; 778 821 -
trunk/Forms/UFormSettings.lfm
r89 r101 1 1 object FormSettings: TFormSettings 2 2 Left = 798 3 Height = 3604 Top = 3 675 Width = 5 643 Height = 421 4 Top = 321 5 Width = 548 6 6 Caption = 'Settings' 7 ClientHeight = 3608 ClientWidth = 5 649 Constraints.MinHeight = 36010 Constraints.MinWidth = 48011 DesignTimePPI = 1 447 ClientHeight = 421 8 ClientWidth = 548 9 Constraints.MinHeight = 421 10 Constraints.MinWidth = 548 11 DesignTimePPI = 150 12 12 OnClose = FormClose 13 13 OnCreate = FormCreate 14 14 OnShow = FormShow 15 15 Position = poScreenCenter 16 LCLVersion = '2. 0.12.0'16 LCLVersion = '2.2.0.4' 17 17 object ComboBoxLanguage: TComboBox 18 Left = 2 4019 Height = 4 120 Top = 1 621 Width = 2 6418 Left = 250 19 Height = 42 20 Top = 17 21 Width = 275 22 22 ItemHeight = 0 23 23 ParentFont = False … … 26 26 end 27 27 object Label1: TLabel 28 Left = 2 429 Height = 2 430 Top = 2 431 Width = 8828 Left = 25 29 Height = 27 30 Top = 25 31 Width = 96 32 32 Caption = 'Language:' 33 ParentColor = False34 33 ParentFont = False 35 34 end 36 35 object ButtonOk: TButton 37 Left = 4 3838 Height = 3 739 Top = 3 0740 Width = 11 336 Left = 416 37 Height = 39 38 Top = 365 39 Width = 118 41 40 Anchors = [akRight, akBottom] 42 41 Caption = 'Ok' … … 47 46 end 48 47 object ButtonCancel: TButton 49 Left = 2 9450 Height = 3 751 Top = 3 0752 Width = 11 348 Left = 266 49 Height = 39 50 Top = 365 51 Width = 118 53 52 Anchors = [akRight, akBottom] 54 53 Caption = 'Cancel' … … 59 58 object CheckBoxAutomaticDPI: TCheckBox 60 59 Left = 24 61 Height = 3 062 Top = 2 0063 Width = 1 4860 Height = 31 61 Top = 257 62 Width = 154 64 63 Caption = 'Automatic DPI' 65 64 OnChange = CheckBoxAutomaticDPIChange … … 69 68 end 70 69 object SpinEditDPI: TSpinEdit 71 Left = 24 072 Height = 4 273 Top = 2 3274 Width = 1 4570 Left = 249 71 Height = 43 72 Top = 291 73 Width = 151 75 74 MaxValue = 300 76 75 MinValue = 96 … … 81 80 end 82 81 object LabelDPI: TLabel 83 Left = 5 684 Height = 2 485 Top = 2 4086 Width = 3 582 Left = 57 83 Height = 27 84 Top = 299 85 Width = 36 87 86 Caption = 'DPI:' 88 ParentColor = False89 87 ParentFont = False 90 88 Visible = False … … 92 90 object CheckBoxReopenLastFileOnStart: TCheckBox 93 91 Left = 24 94 Height = 3 095 Top = 16096 Width = 2 2692 Height = 31 93 Top = 216 94 Width = 239 97 95 Caption = 'Reopen last file on start' 98 96 ParentFont = False … … 102 100 Left = 12 103 101 Height = 2 104 Top = 288105 Width = 5 34102 Top = 346 103 Width = 517 106 104 Anchors = [akLeft, akRight, akBottom] 107 105 end 108 106 object Label2: TLabel 109 Left = 2 4110 Height = 2 4111 Top = 7 2112 Width = 6 3107 Left = 25 108 Height = 27 109 Top = 75 110 Width = 67 113 111 Caption = 'Theme:' 114 ParentColor = False115 112 ParentFont = False 116 113 end 117 114 object ComboBoxTheme: TComboBox 118 Left = 2 40119 Height = 4 1120 Top = 6 4121 Width = 2 64115 Left = 250 116 Height = 42 117 Top = 67 118 Width = 275 122 119 ItemHeight = 0 123 120 ParentFont = False … … 126 123 end 127 124 object Label3: TLabel 128 Left = 2 4129 Height = 2 4130 Top = 12 0131 Width = 1 86125 Left = 25 126 Height = 27 127 Top = 125 128 Width = 199 132 129 Caption = 'Default vCard version:' 133 ParentColor = False134 130 end 135 131 object EditDefaultVcardVersion: TEdit 136 Left = 2 40137 Height = 4 2138 Top = 11 2139 Width = 1 44132 Left = 250 133 Height = 43 134 Top = 117 135 Width = 150 140 136 TabOrder = 2 141 137 end 138 object Label4: TLabel 139 Left = 25 140 Height = 27 141 Top = 172 142 Width = 144 143 Caption = 'Map query URL:' 144 end 145 object EditMapUrl: TEdit 146 Left = 250 147 Height = 43 148 Top = 168 149 Width = 278 150 Anchors = [akTop, akLeft, akRight] 151 TabOrder = 8 152 end 142 153 end -
trunk/Forms/UFormSettings.lrj
r82 r101 8 8 {"hash":55973348,"name":"tformsettings.checkboxreopenlastfileonstart.caption","sourcebytes":[82,101,111,112,101,110,32,108,97,115,116,32,102,105,108,101,32,111,110,32,115,116,97,114,116],"value":"Reopen last file on start"}, 9 9 {"hash":95339402,"name":"tformsettings.label2.caption","sourcebytes":[84,104,101,109,101,58],"value":"Theme:"}, 10 {"hash":232157114,"name":"tformsettings.label3.caption","sourcebytes":[68,101,102,97,117,108,116,32,118,67,97,114,100,32,118,101,114,115,105,111,110,58],"value":"Default vCard version:"} 10 {"hash":232157114,"name":"tformsettings.label3.caption","sourcebytes":[68,101,102,97,117,108,116,32,118,67,97,114,100,32,118,101,114,115,105,111,110,58],"value":"Default vCard version:"}, 11 {"hash":26355722,"name":"tformsettings.label4.caption","sourcebytes":[77,97,112,32,113,117,101,114,121,32,85,82,76,58],"value":"Map query URL:"} 11 12 ]} -
trunk/Forms/UFormSettings.pas
r82 r101 22 22 ComboBoxTheme: TComboBox; 23 23 EditDefaultVcardVersion: TEdit; 24 EditMapUrl: TEdit; 24 25 Label1: TLabel; 25 26 Label2: TLabel; … … 103 104 CheckBoxReopenLastFileOnStart.Checked := Core.ReopenLastFileOnStart; 104 105 EditDefaultVcardVersion.Text := Core.DefaultVcardVersion; 106 EditMapUrl.Text := Core.MapUrl; 105 107 UpdateInterface; 106 108 end; … … 112 114 Core.ReopenLastFileOnStart := CheckBoxReopenLastFileOnStart.Checked; 113 115 Core.DefaultVcardVersion := EditDefaultVcardVersion.Text; 116 Core.MapUrl := EditMapUrl.Text; 114 117 end; 115 118 -
trunk/Languages/vCardStudio.cs.po
r100 r101 118 118 msgstr "Zrušit" 119 119 120 #: tformcontact.buttonhomeaddressshow.caption 121 msgctxt "tformcontact.buttonhomeaddressshow.caption" 122 msgid "Show on map" 123 msgstr "Ukázat na mapě" 124 120 125 #: tformcontact.buttonnext.caption 121 126 msgid "Next" … … 130 135 msgid "Previous" 131 136 msgstr "Předchozí" 137 138 #: tformcontact.buttonworkaddressshow.caption 139 msgctxt "tformcontact.buttonworkaddressshow.caption" 140 msgid "Show on map" 141 msgstr "Ukázat na mapět" 132 142 133 143 #: tformcontact.calendardialog1.cancelcaption … … 142 152 143 153 #: tformcontact.calendardialog1.title 144 #, fuzzy145 154 msgctxt "tformcontact.calendardialog1.title" 146 155 msgid "Select date" … … 867 876 msgid "Default vCard version:" 868 877 msgstr "Výchozí verze vCard:" 878 879 #: tformsettings.label4.caption 880 msgid "Map query URL:" 881 msgstr "URL dotazu mapy:" 869 882 870 883 #: tformsettings.labeldpi.caption -
trunk/Languages/vCardStudio.pot
r100 r101 106 106 msgstr "" 107 107 108 #: tformcontact.buttonhomeaddressshow.caption 109 msgctxt "tformcontact.buttonhomeaddressshow.caption" 110 msgid "Show on map" 111 msgstr "" 112 108 113 #: tformcontact.buttonnext.caption 109 114 msgid "Next" … … 119 124 msgstr "" 120 125 126 #: tformcontact.buttonworkaddressshow.caption 127 msgctxt "tformcontact.buttonworkaddressshow.caption" 128 msgid "Show on map" 129 msgstr "" 130 121 131 #: tformcontact.calendardialog1.cancelcaption 122 132 msgctxt "tformcontact.calendardialog1.cancelcaption" … … 838 848 msgstr "" 839 849 850 #: tformsettings.label4.caption 851 msgid "Map query URL:" 852 msgstr "" 853 840 854 #: tformsettings.labeldpi.caption 841 855 msgid "DPI:" -
trunk/UCore.pas
r90 r101 83 83 LastContactFileName: string; 84 84 LastPropertyValueFileName: string; 85 MapUrl: string; 85 86 GenerateCount: Integer; 86 87 ToolbarVisible: Boolean; … … 467 468 GenerateCount := ReadIntegerWithDefault('GenerateCount', 1); 468 469 DefaultVcardVersion := ReadStringWithDefault('DefaultVcardVersion', '2.1'); 470 MapUrl := ReadStringWithDefault('MapUrl', 'https://www.openstreetmap.org/search?query='); 469 471 finally 470 472 Free; … … 494 496 WriteInteger('GenerateCount', GenerateCount); 495 497 WriteString('DefaultVcardVersion', DefaultVcardVersion); 498 WriteString('MapUrl', MapUrl); 496 499 finally 497 500 Free;
Note:
See TracChangeset
for help on using the changeset viewer.