- Timestamp:
- Feb 8, 2022, 5:13:22 PM (3 years ago)
- Location:
- trunk
- Files:
-
- 7 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormContact.lfm
r95 r100 18 18 Top = 8 19 19 Width = 1009 20 ActivePage = TabSheet Work20 ActivePage = TabSheetGeneral 21 21 Anchors = [akTop, akLeft, akRight, akBottom] 22 22 ParentFont = False 23 TabIndex = 223 TabIndex = 0 24 24 TabOrder = 0 25 25 object TabSheetGeneral: TTabSheet … … 114 114 Height = 43 115 115 Top = 442 116 Width = 2 65116 Width = 216 117 117 ParentFont = False 118 118 TabOrder = 14 … … 229 229 Height = 43 230 230 Top = 442 231 Width = 2 65231 Width = 217 232 232 ParentFont = False 233 233 TabOrder = 15 … … 334 334 ImageIndex = 16 335 335 OnClick = SpeedButtonEmailClick 336 ShowHint = True 337 ParentShowHint = False 338 end 339 object SpeedButtonBirthDay: TSpeedButton 340 Left = 372 341 Height = 43 342 Hint = 'Select date' 343 Top = 442 344 Width = 43 345 Images = Core.ImageList1 346 ImageIndex = 17 347 OnClick = SpeedButtonBirthDayClick 348 ShowHint = True 349 ParentShowHint = False 350 end 351 object SpeedButtonAniversary: TSpeedButton 352 Left = 821 353 Height = 43 354 Hint = 'Select date' 355 Top = 442 356 Width = 43 357 Images = Core.ImageList1 358 ImageIndex = 17 359 OnClick = SpeedButtonAniversaryClick 336 360 ShowHint = True 337 361 ParentShowHint = False … … 436 460 TabOrder = 6 437 461 object Label36: TLabel 438 Left = 8462 Left = 10 439 463 Height = 27 440 464 Top = 19 … … 572 596 Images = Core.ImageList1 573 597 ImageIndex = 15 574 OnClick = peedButtonHomeWebClick598 OnClick = SpeedButtonHomeWebClick 575 599 ShowHint = True 576 600 ParentShowHint = False … … 1365 1389 object PopupMenuPhoto: TPopupMenu 1366 1390 Images = Core.ImageList1 1367 Left = 4831368 Top = 5 081391 Left = 872 1392 Top = 592 1369 1393 object MenuItem1: TMenuItem 1370 1394 Action = APhotoLoad … … 1378 1402 end 1379 1403 object OpenPictureDialog1: TOpenPictureDialog 1404 Title = 'Open existing file' 1380 1405 Left = 175 1381 1406 Top = 575 1382 1407 end 1383 1408 object SavePictureDialog1: TSavePictureDialog 1409 Title = 'Save file as' 1384 1410 Left = 176 1385 1411 Top = 488 1386 1412 end 1413 object CalendarDialog1: TCalendarDialog 1414 Title = 'Select date' 1415 Date = 44600 1416 OKCaption = '&OK' 1417 CancelCaption = 'Cancel' 1418 Left = 448 1419 Top = 608 1420 end 1387 1421 end -
trunk/Forms/UFormContact.lrj
r95 r100 21 21 {"hash":262626066,"name":"tformcontact.speedbuttonweb.hint","sourcebytes":[79,112,101,110,32,105,110,32,119,101,98,32,98,114,111,119,115,101,114],"value":"Open in web browser"}, 22 22 {"hash":102887636,"name":"tformcontact.speedbuttonemail.hint","sourcebytes":[79,112,101,110,32,105,110,32,101,109,97,105,108,32,99,108,105,101,110,116],"value":"Open in email client"}, 23 {"hash":171928085,"name":"tformcontact.speedbuttonbirthday.hint","sourcebytes":[83,101,108,101,99,116,32,100,97,116,101],"value":"Select date"}, 24 {"hash":171928085,"name":"tformcontact.speedbuttonaniversary.hint","sourcebytes":[83,101,108,101,99,116,32,100,97,116,101],"value":"Select date"}, 23 25 {"hash":325173,"name":"tformcontact.tabsheethome.caption","sourcebytes":[72,111,109,101],"value":"Home"}, 24 26 {"hash":138641338,"name":"tformcontact.label7.caption","sourcebytes":[69,45,109,97,105,108,58],"value":"E-mail:"}, … … 92 94 {"hash":8431845,"name":"tformcontact.aphotoload.caption","sourcebytes":[76,111,97,100,32,102,114,111,109,32,102,105,108,101],"value":"Load from file"}, 93 95 {"hash":9308581,"name":"tformcontact.aphotosave.caption","sourcebytes":[83,97,118,101,32,116,111,32,102,105,108,101],"value":"Save to file"}, 94 {"hash":4860802,"name":"tformcontact.aphotoclear.caption","sourcebytes":[67,108,101,97,114],"value":"Clear"} 96 {"hash":4860802,"name":"tformcontact.aphotoclear.caption","sourcebytes":[67,108,101,97,114],"value":"Clear"}, 97 {"hash":218146437,"name":"tformcontact.openpicturedialog1.title","sourcebytes":[79,112,101,110,32,101,120,105,115,116,105,110,103,32,102,105,108,101],"value":"Open existing file"}, 98 {"hash":159035875,"name":"tformcontact.savepicturedialog1.title","sourcebytes":[83,97,118,101,32,102,105,108,101,32,97,115],"value":"Save file as"}, 99 {"hash":171928085,"name":"tformcontact.calendardialog1.title","sourcebytes":[83,101,108,101,99,116,32,100,97,116,101],"value":"Select date"}, 100 {"hash":11067,"name":"tformcontact.calendardialog1.okcaption","sourcebytes":[38,79,75],"value":"&OK"}, 101 {"hash":77089212,"name":"tformcontact.calendardialog1.cancelcaption","sourcebytes":[67,97,110,99,101,108],"value":"Cancel"} 95 102 ]} -
trunk/Forms/UFormContact.pas
r95 r100 8 8 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, 9 9 ComCtrls, ActnList, Menus, ExtCtrls, ExtDlgs, Buttons, UContact, LCLIntf, 10 UFormProperties ;10 UFormProperties, DateUtils{$IFDEF LCLGTK2}, Gtk2Globals{$ENDIF}; 11 11 12 12 type … … 23 23 ButtonOk: TButton; 24 24 ButtonPrevious: TButton; 25 CalendarDialog1: TCalendarDialog; 25 26 EditAim: TEdit; 26 27 EditCategories: TEdit; … … 173 174 PopupMenuPhoto: TPopupMenu; 174 175 SavePictureDialog1: TSavePictureDialog; 176 SpeedButtonBirthDay: TSpeedButton; 177 SpeedButtonAniversary: TSpeedButton; 175 178 SpeedButtonHomeEmail: TSpeedButton; 176 179 SpeedButtonEmail: TSpeedButton; … … 195 198 procedure FormDestroy(Sender: TObject); 196 199 procedure FormShow(Sender: TObject); 197 procedure peedButtonHomeWebClick(Sender: TObject); 200 procedure SpeedButtonHomeWebClick(Sender: TObject); 201 procedure SpeedButtonAniversaryClick(Sender: TObject); 202 procedure SpeedButtonBirthDayClick(Sender: TObject); 198 203 procedure SpeedButtonEmailClick(Sender: TObject); 199 204 procedure SpeedButtonHomeEmailClick(Sender: TObject); … … 246 251 UCore, UCommon; 247 252 253 function DateToISO(Date: TDateTime): string; 254 begin 255 Result := FormatDateTime('yyyy-mm-dd', Date); 256 end; 257 248 258 { TFormContact } 249 259 250 260 procedure TFormContact.FormShow(Sender: TObject); 251 261 begin 262 {$IFDEF LCLGTK2} 263 // GTK2 bug workaround https://gitlab.com/freepascal.org/lazarus/lazarus/-/issues/35720 264 if Visible then LastMouse.WinControl := PageControlContact.ActivePage; 265 {$ENDIF} 252 266 Core.PersistentForm1.Load(Self); 253 267 … … 266 280 end; 267 281 268 procedure TFormContact. peedButtonHomeWebClick(Sender: TObject);282 procedure TFormContact.SpeedButtonHomeWebClick(Sender: TObject); 269 283 begin 270 284 if EditHomeWeb.Text <> '' then OpenURL(EditHomeWeb.Text); 285 end; 286 287 procedure TFormContact.SpeedButtonAniversaryClick(Sender: TObject); 288 var 289 Date: TDateTime; 290 begin 291 if TryISOStrToDate(EditAniversary.Text, Date) then 292 CalendarDialog1.Date := Date 293 else CalendarDialog1.Date := Now; 294 if CalendarDialog1.Execute then 295 EditAniversary.Text := DateToISO(CalendarDialog1.Date); 296 end; 297 298 procedure TFormContact.SpeedButtonBirthDayClick(Sender: TObject); 299 var 300 Date: TDateTime; 301 begin 302 if TryISOStrToDate(EditBirthday.Text, Date) then 303 CalendarDialog1.Date := Date 304 else CalendarDialog1.Date := Now; 305 if CalendarDialog1.Execute then 306 EditBirthday.Text := DateToISO(CalendarDialog1.Date); 271 307 end; 272 308 -
trunk/Languages/vCardStudio.cs.po
r97 r100 85 85 msgstr "Testování" 86 86 87 #: tcore.opendialog1.title 88 msgctxt "tcore.opendialog1.title" 89 msgid "Open existing file" 90 msgstr "Otevřít existující soubor" 91 92 #: tcore.savedialog1.title 93 msgctxt "tcore.savedialog1.title" 94 msgid "Save file as" 95 msgstr "Uložit soubor jako" 96 97 #: tcore.selectdirectorydialog1.title 98 msgid "Select directory" 99 msgstr "Vybrat adresář" 100 87 101 #: tformcontact.aphotoclear.caption 88 102 msgid "Clear" … … 117 131 msgstr "Předchozí" 118 132 133 #: tformcontact.calendardialog1.cancelcaption 134 #, fuzzy 135 msgctxt "tformcontact.calendardialog1.cancelcaption" 136 msgid "Cancel" 137 msgstr "Zrušit" 138 139 #: tformcontact.calendardialog1.okcaption 140 msgid "&OK" 141 msgstr "&OK" 142 143 #: tformcontact.calendardialog1.title 144 #, fuzzy 145 msgctxt "tformcontact.calendardialog1.title" 146 msgid "Select date" 147 msgstr "Vybrat datum" 148 119 149 #: tformcontact.caption 120 150 msgid "Contact" … … 366 396 #: tformcontact.label56.caption 367 397 msgid "Categories:" 368 msgstr "Kategorie s:"398 msgstr "Kategorie:" 369 399 370 400 #: tformcontact.label57.caption … … 442 472 msgid "Mastodon:" 443 473 msgstr "Mastodon:" 474 475 #: tformcontact.openpicturedialog1.title 476 msgctxt "tformcontact.openpicturedialog1.title" 477 msgid "Open existing file" 478 msgstr "Otevřít existující soubor" 479 480 #: tformcontact.savepicturedialog1.title 481 msgctxt "tformcontact.savepicturedialog1.title" 482 msgid "Save file as" 483 msgstr "Uložit soubor jako" 484 485 #: tformcontact.speedbuttonaniversary.hint 486 msgctxt "tformcontact.speedbuttonaniversary.hint" 487 msgid "Select date" 488 msgstr "Vybrat datum" 489 490 #: tformcontact.speedbuttonbirthday.hint 491 msgctxt "tformcontact.speedbuttonbirthday.hint" 492 msgid "Select date" 493 msgstr "Vybrat datum" 444 494 445 495 #: tformcontact.speedbuttonemail.hint -
trunk/Languages/vCardStudio.pot
r97 r100 75 75 msgstr "" 76 76 77 #: tcore.opendialog1.title 78 msgctxt "tcore.opendialog1.title" 79 msgid "Open existing file" 80 msgstr "" 81 82 #: tcore.savedialog1.title 83 msgctxt "tcore.savedialog1.title" 84 msgid "Save file as" 85 msgstr "" 86 87 #: tcore.selectdirectorydialog1.title 88 msgid "Select directory" 89 msgstr "" 90 77 91 #: tformcontact.aphotoclear.caption 78 92 msgid "Clear" … … 105 119 msgstr "" 106 120 121 #: tformcontact.calendardialog1.cancelcaption 122 msgctxt "tformcontact.calendardialog1.cancelcaption" 123 msgid "Cancel" 124 msgstr "" 125 126 #: tformcontact.calendardialog1.okcaption 127 msgid "&OK" 128 msgstr "" 129 130 #: tformcontact.calendardialog1.title 131 msgctxt "tformcontact.calendardialog1.title" 132 msgid "Select date" 133 msgstr "" 134 107 135 #: tformcontact.caption 108 136 msgid "Contact" … … 431 459 msgstr "" 432 460 461 #: tformcontact.openpicturedialog1.title 462 msgctxt "tformcontact.openpicturedialog1.title" 463 msgid "Open existing file" 464 msgstr "" 465 466 #: tformcontact.savepicturedialog1.title 467 msgctxt "tformcontact.savepicturedialog1.title" 468 msgid "Save file as" 469 msgstr "" 470 471 #: tformcontact.speedbuttonaniversary.hint 472 msgctxt "tformcontact.speedbuttonaniversary.hint" 473 msgid "Select date" 474 msgstr "" 475 476 #: tformcontact.speedbuttonbirthday.hint 477 msgctxt "tformcontact.speedbuttonbirthday.hint" 478 msgid "Select date" 479 msgstr "" 480 433 481 #: tformcontact.speedbuttonemail.hint 434 482 msgctxt "tformcontact.speedbuttonemail.hint" -
trunk/UCore.lfm
r96 r100 12 12 Top = 208 13 13 Bitmap = { 14 4C7A110000001000000010000000F71000000000000078DADD9A075854D7B6C7 15 C7A8D1789F462F1A6B8CB140400DF68E46C58E5CAE28968894888202D2946241 16 6514BD62031B8254EB8D15BBA0A2822DEA8D046B44B1A0268A30F4FE7F7BEF33 17 67380C671AC497DCB7F9FEDF39B3F7FAADB5F63AFBB46124928FD7EE6FB507AF 18 BBC136D51438B52F34F1F9F9F92AA50D5F52520264A65717699AF80FA917995D 19 FABD8B78F5E80A6EC52D13E5B599270A7380F74FE54AABC66B9A271FFF5E4220 20 D2923655E335CD130559C0DB079512F0A921B6EC73DC561BC4473A89CE535DFC 21 9F37CD629F2BE7577D9EEAE2DF5A3FB35A7CE538628DE72FADB2E23A84FE95E2 22 FC27E130DB2A4BC8AB8BAF6E9D68135F2B5E45D3C48BCD4B6C9E7FE5D6AA5522 23 A81213135113DB0E1DAE4328557ED48DEBEBDF8150CA36AAFA959BA1E15DF0E2 24 6D85FBDAB46EDD52A12C5D78DA8C8D1F8097AE6CAF5E8FA12C6D7DF4ED9B065E 25 3CA3FC59551B30201DBC946D55F5F36DD0A017E0A5CEA636BC363E74AD754DDA 26 FF551C2D1B34482B5EAC69CD4BA5A23EC47869F53E8E17F1A1CC53562DAFE443 27 C8F3AC50DAF262AC2E7C6DE36B3D7FA563A973FD35C457B9F694F81AAC4765BE 28 66E741ED78890EE78C261F7F4A4B969AE272C0083C0C77C1FD6D8E48DDF203DB 29 C6F90EC1319FC150CF8EC093186FE43EBE86B242195051C154969709D9FD445C 30 0BB1C6DE05BD457D24494722E36C28B32D4DB98492FD81280F9C8A72E96414ED 31 5989C23BE751227B83947D7E889D6784AAEC281697B22517F7027E2381F808F2 32 CC9ACBE2576466A024D40DB9A7C25194FD1AF1EBACB063B6BEC24752C070643F 33 BE8292BB8980EF77C00E572EF71B7128DF3C1B25578FA0225F867C6F136426C7 34 E1D54FC7B1C9FA6B057F37C08CCDB784E409CF4180D41C38FC2F54387747E15C 35 03C8821D99BFDF0226E3C12A5B14C9DE63C594AF14FC6D6A4FEBB4C20C70EB09 36 CCEF8672A76F50E4D00979C10E2827B1F3529371D5A215CE4D3720A6E50818DF 37 AE925F3186F1457EA351EC688802872E90D976806CB525EBCFBEB81FC9333AE3 38 94590B9C9EDA99F1FE63DB54F2FEA358EDDE6FF7C05BDBAF913EE34BFC3AAD35 39 32FFBD96F1D7CDFF8EB366CD70DC4C0FD7165BA220FB3D29716B057FC27710B2 40 EE5F62B5499BD106F7AC5A22C5520F0F974EC4CBBDAB114FD9F17FC7A9F14DF1 41 F4EC5E3CB9710656431A2BF853DE7D703F743E8AB3DF206DF71A5CB3D043A279 42 333CD9BB86C53F39AE1963EF45AC44EEFB37D8E93909E3FA34AEB206E2DCBAE2 43 D71F97A328EB0D5EC4EFC5AD6556B834AD1312A776C40D7F2B3C3DB70F39EFDE 44 E078C8228CEDD950740D463B7543E29A6948BF710285E41855949731E593F9D2 45 9C237CA6628C0A966F9B671B6215A9F51A8B165839FE4B2C1BD31ABEA62D316D 46 48936A39FF91ADE8562C3E6CFB4EA58AEEEC57FFAE4C6CF0E43A489180B292CA 47 1B6849218A8F38A2E85A28329322A0967FF70C78FA1379E1BE03BCB80BBCFC05 48 C8B8C7F8B20FE9284939A4D207E3F3C93BE6F3FF2838BC7E48DEC11E33BE82BC 49 7F9665BD40F14F51649D45429427B9722C796F7BF318F82D8DE5F42E6E09F3C1 50 2B3B761A323333518D27C71A19F739F677FAFEFB1CF8F00AB247D790F3E83AA7 51 17F7907D703E1E3D7A549DA7EDCD23C2A6C9D90C40F696D4F4779085CB89C4C8 52 3DBD5835FFF609C9399DC5858C70E4BC44818CFBFEA1309799E45D58539DDF3E 53 9CE369DE8CFD8DAB27658A0BB8DA5091967F7963757E07B96692EB02325F7039 54 D3B8342665CB8AB9DA9497CAF9CDE2F9D37593F59A5B433476511E505AA4E050 55 5ECEF189EBC5799A1FCD3BEF833C763EE18B399EE6467320D783BCF800719ED6 56 89D658386FCA9795723ED81CCA917BDC4B9CA7C789E64CE7C162952BEE61DC3E 57 9783ECC00FD5F882EB3B14E75A76E43F21DB6F8B9CC3CEC88DF342EE894564EB 58 493ECF876C9F0D5E278454E3697BF7EE1DEBD746D4F64F7A3FA8EDB30CFE8067 59 1CE55C747E57A99207FFAC5AF9BCAAD37327CFAADDAA7B6ED5C46AE055D86A2F 60 6556F82CAE4A82FAD58255CCBF86ACF8FB83F6AC44C75AFDE55AECE2B1A08AF1 61 1B8318DFD188F61985286F53442D1A89C8852310E1351C119EDF6197C73084BB 62 0F45B89B09C2160CC14ED7C1D8E93288B11762FC71217A19CE472FC5F9A82538 63 1FB90409918BC923B41FE27751F9E25CB80FCE8611EDF4C6999D8B7026742142 64 9D07B2B87CABA0CFDA44E5E41A5B4EAE9365E4BA5B565A8AD2D212949614A384 65 AAB808C5C5E499A2A8103BE6F74734C9997D471A18086B6B6B444545914BAC1A 66 967045548505D83EAF1F99AF298B696363832D5BB6C0D2D292B18B172F86AFAF 67 2F162E5C080F0F0FB8BABA62DE3C27CC993307F6F6F6282CCCC736A7BEAC4E15 68 24DFA0A0204C9A3409BB77EFE6621255E6CBC72D6071295B5890876D73FBB01A 69 7373E572E6F255C316706C417E1EB6CEE9CD8E0F654F9E3C092959A317CE9FAF 70 56278ECD17B0B94C5B1C7A621739B6B44E2B56AC40525212366EDCC8D8C58BFD 71 E4F3F78287BB3B5C5C5CE0E444E7EF40E66F87FCBC1C84CCEE41D6C550967364 72 6404FCFDFD71F8F0A12A352E94C72D90C7CDCFCB656C5EAE0CC1F6C66C3D71F9 73 160BE6AAC4E65767F372B3116CF72D5B8B34DF0B17CE233838180909F1556A5C 74 C9E654B239D9C825DA6CDB9DAD631A77C992256CFE741DD1987E7E7EF0F1F181 75 979717DCDDDDC8FC9DC9FC1DE1E0E0003B3B3BE4C8B2B0C9A62B42C9394073DE 76 BA750B63C376EEAC52E3CA7C652C666E4E166373641FB0719611390706B07C8B 77 94EBA48ECDFE0059762636581BB27380AE63BA16E97AA26B628B432F766CE9F1 78 A135A675A273DD64DB8DE5BCD1DA081B661A62FDF7DFE023DCDF6B723D54F9FD 79 9DD8F77922F7439DF8DAC617BD07FD7FE0B5F9EE4CD53D589BFBA7BA7BB8F6DF 80 DDD588AFEDFC3F322FA9E5F9F387B7E8AD6B10BE298089EE6BC3F0F6743F74FD 81 72C59CE9BEF2B8720BDD18805BC917C82BD8076C0AF066CA7C93CEC47FA663D4 82 E640D4B62A3EE65A5BE0F6D58B6CBCA8308F89B632725F2E93BF33F2FDD486DA 83 3AD95A2A7CD07DDA1F7F70179E3DFC051FB2B2F0EECD0BBC7C749789EED33E3A 84 466DA8AD90E77D3C7BF694E96ED2396C20F99A0EFC9689EED33E7E5CC86E08F0 85 C1DAA51E90FA3AE3E1BD5F70E3F2591C08DF84E9FF18A5782CB6B59AC8FAE818 86 B5A1B694A16CE06237459D2F269CC1FDDBC9709A65A96079D13E3A466D14FF57 87 26ECDA655E789BFE80E9E8C1FD78FB324D254FC7988DDC9EB2A3071B6368EF6F 88 6067658623FB77E352C229B615FAA0FBC2316A4B19CAF275A07DCF49AD0FC686 89 E1D5F3270A1F3C4BFBE818B5A1B6C2DA0FEBF30DEBA7C7896E0FEF8BC28BB4C7 90 387DEC4726BA4FFB84369411F2A78E1E60FDD72F9C506C3333D298847D744B6D 91 853CEF2370A9271B9F3A71041639FFA0E0E93EEDA363D4469915FAE0C7BC5DE6 92 20E3D71426BAAF3CAEA9F1B6BA307C733BE006C96C727DB197C06DAF9BEED719 93 C2BE277F41154164F14A909A9A0A5D79C6BE2539CC92202E2E4E37DE5ECE6710 94 7E660D785B399F4EF819EA7945ADE4F5A2AC824F23FBD388AC88261359125990 95 9A860B6A2AA8955092A7C4F611512AD1CF44B788AE1325118D17D4949FEBEFA4 96 FF35D10B09C73E56C15E261A5B3927767C677175A27355E47B5FCE927C25E644 97 665C5C2AF345E6556A4273A19F79B1B9A610DDE158E1182FB56BC252CEDEE4E2 98 EA7CFC2CE4EC552E5F9D797341BDC6EACEBB85B971B51A5BBD56DA36614D753E 99 7FFE841614144F725C036EAB6A7CA1E838CFDA85D1E7A3D5E4BDB3EAFF1A7896 100 1B77AD36AE60A7124DA6362B153655D841447DE9B8239E3C7982AAFE5773EC24 101 22736AB344EE43999D4BDE7F37573BA69CED4A8E9D403406A271795618BFAA8F 102 251C3B8268A8F66C551F0B6BC48AD6AA075157EAC34EA4EE1A58522B4937B235 103 20EA443F4F17F5A18AA539D3B88CFD8AA82DED9F2CE2C343E531E26CA7736C2B 104 A21674DC42E4F8BBAAAC15E763B282557DFCE7AAAC33376EA1F638D03E75C748 105 D3F87F71ABEDFB8DBAF7FC1AF3BAFCFE481893DFD7F09B1DB5F169938AF4ABFA 106 FD8DC8771B2A797EAB6D7CE1BC54FD7E48DBF8CAFE7589AFFC3E2DADFABFA0DA 107 C4176D3AC457CBD726BE26D5FAC4537ACFFB2324AF8FCACFFF0D3CCF08F76B92 108 434D5861DC9AF2B5894DB55C1E7B790D7DF0DC72B90F6DFD28DB0B394D3EC46C 109 FF6C5E38275DE6FF31CE4B517D84BF6AD74A1DED15FFD35575ED5566A552F6BF 110 2FC5F7AA428EBF17CBC7A5FCF7E4025E2AD22F96A33086687C0DDFD74AD5C417 111 CE41D356657CE156FD3D43637CA99A7BB254CBF8EAEEE9BC0F4DF1C5EEB9CA73 112 D125BEC8FD57EBF862B9A85ABFDAC657B5DEB4B9F74BB538B7B438F7F85687A8 113 0D9117D125A234A2A74417895C88DA137DA2E23182B2FDE8CF28897E260A215A 114 20E77610DD213A26B7116B9DE5E31788FA1335108C35241A4194201F6FACC4D6 115 279A4FBF32213251E19FE63D443E1F07A5B1D6F2BC571135D2F0B8B499E80AD1 116 A782BE4E4437E857D85A3C6E5913DD236A5B0BFE3E51BB5AE49FAC94BF2EF57B 117 46E4A8E2F81DD6E2F815130D54B17E7A111D51B37E3289CA894E1219ABC8935F 118 BF97893288DE1225CAE7674A7493A894FEE498C8B0068FCB7AF4E7DE446544D7 119 89FAD4C0C7B744E7884A88CED680A7C7A237D11EB92435F4F1855C554F063383 120 BA1DA4A3A78C5936748F9363F79B4BAC3ADCB49DD1659FF1F7FA335A0EFCA2BE 121 3AA79D968FE9D621C4E297C91BC66147D0701C0B1888FD1EC608B3FE1AE6F646 122 6836B3E3C3E613DBF616633B2C3231D65F3F212B7A8F151E9CB743EA196BDC3E 123 64854BA16311B7A21FFC6777456B1763B4B2EA90D76B4CCBFE42B6BD9941FD51 124 FE431F6C88998C87293E789FBE0EBFA7AD46FA6D2FA41C9F896BD1E33025C40C 125 4D7CFBA3817B777C3AAE45FAE7FD9A2ACE9579F646D6E382CD70EB8A23AE3D0B 126 414961320A6407F0FA810F1E24CC4652C47838878CC7E7CB06A121994F9D496D 127 F03753BDF93CBFD1BAD3A1233116B0BCEA8F19CF6371ACE00E5E661F46C63D4F 128 C2DBE3CAAE7138EADF1BA60B7AC2706617D49DD61EF547374FE0F92D369DEE1D 129 0C9B00E3C4A5187C370853330EC0EE552CD6FFEC8FC4A3DFE3ECFA61F8F70223 130 6C1DD702DE06F5D165421BD49FDC3A43C14FFFEA615C90098C8F38A1FFB5B530 131 49D98EDEB7D7C0E89C2756AC1B85833EBDB0C3EA4BAC1AD8046E5F7F8201A62D 132 D1705EC7B73CBF767CCB537B5D0D11203541E7581B743BEB0BC3931E300E9B81 133 FD9E3D104E8EDF86517AF0EDDA00EEED25E832BE2D9A85F64F56BCA78E6CEE1C 134 34F60B44FFD019FDFC4DD032D81CFA5B2CB0D4C108A164AEC1639B6345CF4698 135 DFBE0E16B493A09DB311861D19EECBF3FF306ADCF85F439BBE0EFAAE1986DAE9 136 A389773F58CEE884C0117A0832F91C4BBA3754B0EE1DEB61E4BA5EEF674E6CAD 137 27B878D435D2AB3F33A0C767A593067D0E837FB6836FF7CFE069F029DC3AD685 138 435B09E6B496307E698FCFCA07B46F38A76E1D495DA56B602FFD66F576BA1834 139 28321DD2142EC4D681308E44F3DA48E0F2555DF8F7FD9FE2DE6D1A44CAAF55F5 140 95CE277AED316F54BFCEFA819DFE7677D8E836D9B326B62BB3B533289B60AF2F 141 33D76F94D2A4C1271BD97F17385BE57B693DA2E6F2EBC338F9FD60815C76F2BE 142 6FE536F5D4DC87EBC9EF034DE5D72B3DF97E23F9589DBFD2177F53664E41ECFE 143 58A2DD8821DB987D3188DE1BCD14B5271A917BA210B93B926D23C836223602BB 144 88C26376619ACD74CC59301781EBD7B0DFF0E9D2B6856D8783CB1CB8FB7AE0D8 145 D938AC0E5AADB50FCAFE78FC2063A96EA5DEC6D133C7B4F2C1B39411F2DAF810 146 B2623CD591D347457D28B3AAF8C4EB97E0B2C815ABD655FAA0ACBB9F071B53C7 147 5FBA7119F33D9D91742B19874F1FC1D280A5F05FE58F83270EB13E3A466DC4F8 148 CB37AF609EE77C66278C21141DA336D456C85FF929094E1EF314FDEA446DA82D 149 6528EBB2D0154EEEDAB1557C1086B283460E869BAF3B16F97BEB24CA0C196502 150 994C562BD5F6FCFB5F5B0B0CE8 14 4C7A120000001000000010000000801200000000000078DADD9A095855D5DAC7 15 0F9969DDAFC16B659A9939809246696A9A58396BC8E58AA29228A0A0A8209302 16 A2A28242379C70489C1071C032074C734045C5D4524B031C0225152115E1C87C 17 18FEDF7AD7DEFBB039EC733807EAABFB2D9EFFB3F75EEBFDADF75DEF5E7B589B 18 A352FD79256D8D2B245D899A584BE1637AA02EBEA8A848AF8CE1351A0D909B59 19 5BACD4C53F4E39C9ED32534FE2DE8D33B898305F9137669C2879023CBA252AA3 20 165FD73825FFA989E1C8485E518BAF6B9C28CE0372AE554BC6A7AC72E6C7096B 21 26E2588C87E2380DF9FF79C5047E5C3DBEDAE334E4FFE2D2F1B5FCEBFA512A12 22 7F6AB1835021EF5FC7CF4F897BF8565772DE907F43F3C418FF46F17A4A5DBCD2 23 B894C6F9772EAFBD960452525212EA63DBB6ED79C8A5AF1F43EDE6E6972197AE 24 8DBE7ADDD2B9F31548926CE5FBC6942E5D52A02B53782A5656D720C954B65BB7 25 9BD095B17DF4E891014912A37BACAF7CF0412624E9DAEAAB974A9F3E7720C990 26 4D437863FA3035D7F529FF577E8C2CA84346F14AC5683E2C4CB10F253EAC769D 27 C02BF4A1CB136B90D7E943CE4BAC5CC6F24AAC297C43FD1B3D7E9D736972FEEB 28 F0AF77EEE9F0F5988FBA7CFDAE8386F12A13AE99BAFAF84BCAD9B081381DDA1F 29 D7377A226DED54A4AC9EC4B709417DB13FF0431866FB237D6B000A6E9E434589 30 1AA8AAE2AA28CC853A2D09E7563961C7CCEE8A7D24870D40D691686E5B7EF514 31 34F1E1A80C1F83CAB05128DDBE0825978F43A3CEC6D59D731037CD1235D941DC 32 2FB19A933B80390380639BD93B6B01F75F959B054DB4370A0E6D4469FE7D1CFB 33 C201EB269B6BFB480EFD04F937CF4073250908FA1858E725C47E2101952B2743 34 F3FD5E5415A95114608DDCB309B8F7E301AC707A4BCB5F09B5E1E3D5B038E1D7 35 0708B305F6FC075533BAA2648A05D45153797FBF878EC2B5C5CE28553FC2C2D1 36 6F6AF94B644F795A680378BF074CEF824A8F4E28756B8FC228375432DF852967 37 F1BDDD6B383ACE829956227478EB6A7EE110CE97CE198CB2A99D51ECD6116AE7 38 B6502FB1E7F5F927E371D6B1030ED9BC82EFC674E07CC8D056D57CC8209EBB47 39 5FFA22C7F92D643ABE815FC7B644EE579F73FEBCED3F71C4A6190ED834C7B960 40 7B14E73F62296EA9E5BF0DEA83BCB4533C37198EAD90EAD00257ED9BE3FABC11 41 B8BB63098E113BFC9F3834FC25DC3AB203E9170EC3A1EFF35AFE50C0FB488B9E 42 8EB2FC6C646C8BC039BBE648B26D86F41D11DCFFC161CD389BBA79110A1E6563 43 BDDF480C7BFFF91A7320C1FB6DFCFAF50294E665E3CEB11DB838DF01A7C6B647 44 D29876B810E2805B4777E2C9C36C1C58351B43DF6BAA3807633DBA2029622C32 45 2F7C8B12768EAA2A2BB88AD87829E6CD816330440F2B9595933B6331CB7584DD 46 2B5834FC0DCC1FD21241035B606CDF176AC5FC4796D28B7178BCF663BD2ABD1C 47 6F78ADCC6C907E1E2C494085A6FA01AA2941D9DEA9283D178DDCE4CD30C83FBC 48 0DDCFA912DB82F0377AE00777F01B252395FF138139AABDFE8ED83F3456C8DF9 49 DB4F5A0EF7AFB335D84DCE57B1F56745DE1D94FDB885CDB31828F22C568165EB 50 B6EC9BC0EF193CA6870973791F92F2E3C622373717B57876AE919526B00F68FD 51 FB1BF0F81ED437CEE1C98DF382EEA4227FF774DCB871A3364F25FB0663334436 52 0B50E7B09C3E009BB882988F82EF82F5F339E92CE64CEE176AC6B1EB12C56AE1 53 FB43490137293C11519BFFF21381A7B839FBBB904F62CA8A85DC9058293ABDBC 54 36BF8EDD33D97D01B9778498C92FF924B6A24CC84D65B9C8AF548E9FE64DDE7D 55 610E91EFD242A0BC54CBA1B252E093962AF3141FC55DF858F45DC4F83281A7D8 56 2806763F283C16AACC539E28C7F271135F512EF4C1C750898203FECA3C9D278A 57 99C6C17D556A9F61C2BE10837AD7A45A7CF1F975DA6B2D3FE6DF50C73BE3C99E 58 192848F047C1B7B3D9D68F1D4F877AE744DC4F5C558BA7F2F0E1435E6F8CC8F6 59 2F5A1F34F45D067FC03B8E6E2C26AF556AC421BDAB56BFAF9AF4DE29B106B786 60 DE5BEB62EBE0F5D81A2F5D56FE2EAE4FB2FC3580D58EBF9EACF2FAC178566562 61 AEFE76252E7828485BE70CC1D6A0C1880D1C842D0103B165F600C4CCEA8FCDFE 62 9F60B3DFC7D8E4FB1136FAF4C3466F6B6C98D917EBBD3EC47ACF3E9C3DB13504 63 2762E7E378EC3C1CDF3217C763E622312698BD42CFC1B14DA4201CDD1888231B 64 98D607E0F0FAD9381C3D0BD1337A73BF52A9A2776DA64A768FAD64F7C90A76DF 65 AD282F4779B906E59A32684865A5282B63EF14A5255837BD176259CCFC1B6978 66 389C9C9CB065CB16768B35C032AE9454528C2FA7F564E31DC87D4E9C3811AB57 67 AF86BDBD3D678383831114148459B366C1D7D7175E5E5E9836CD03EEEEEE7075 68 7545494911D67AF4E079AA62F146464662E4C891D8B66D9BE093A93A5EC96F31 69 F74B6C497121D64E799FE75818AB10B310AF01B658608B8B0AB1C6BD3B3F3FC4 70 1E3C7810616C8E9E387EBC569E04B648C61670AD767B0F9BD8B9A53C2D5CB810 71 C9C9C958BE7C39678383E788E3F787AF8F0F3C3D3DE1E141E37763E3774151E1 72 13AC9AFC2E9B17FD78CC31319B111212823D7BBEA991E312D16FB1E8B7A8B080 73 B385056A44B95AF1F924C45B261BAB0E5B549B2D2CC84794CB3B7C2E52BC274E 74 1C4754541412138FD5C87135FBA49A7D928F02A695CE5DF93C26BF73E7CEE5E3 75 A779443EE7CC9983C0C040F8FBFBC3C7C79B8D7F061BFF54B8B9B9C1C5C5054F 76 D4795831F16D44B36B80625EB366356737AC5F5F23C7D5F1AAB9CF8227799C7D 77 A27E8CE5132CD935F0018FB754374F86D8FCC750E7E7629953677E0DD03CA6B9 78 48F389E6C46AB76EFCDCD2F9A11C539E68AC2B9CBBF098973B5962D9F8CE58FA 79 5927FC09CFF7FADC0FF57EBF53FA9EA7F03C34896FA87FC567D0FF07DE986F67 80 FA9EC1C63C3F0D3DC38DFF76572FBEA1E3FF93795503AF9F3FBCC4AE89C0C615 81 A15CB46F0C23D9D37EF4D205DA31D3BE6EBB6E895E1E8A8B674FB025D863AC08 82 0DE0CACDCEE4928EA98D6C766D595BA38F294E76B8F4FD49DE5E5A52C845A582 83 3D972BC435A3544F3664EBE16CAFED83F6A9FED8EE4DB87DFD173CCECBC3C3EC 84 3BB87BE30A17ED531DB5910DD9CA79A98FDBB76F715D493E8A652CDE81BDDFE1 85 A27DAA93DAE5ECB2D0407C3ECF17614133703DF5175C387D04BB36AEC0B87F0D 86 D2BE163B3B8CE075D44636644B0CB1E1C1DEDA3C9F4C3C8CB44B67E131C15ECB 87 4AA23A6A231BEDFF9519FBF97C7FE4645EE3DAB73B1E397733F4F2D4C66D447B 88 62077F68857EDD3BC1C5C1067BE3B7E154E221BE95F741FBF236B2258658290F 89 54F71BCBF5EEB80DB8F75BBAB60F89A53A6A231BB295E7FEA3F73BF17A3A4FB4 90 DDB3730BEE64DCC477FBBFE6A27DAA93DB1023E70FEDDBC5EBCF9FF856BBCDCD 91 CAE092D7D1966CE5BCD447F83C3FDE3E66447FCC9E3149CBD33ED5511BD9E8B2 92 F23EA4B6004F7764FD7A958BF675DBEB2A92AD298C54BC7779433599DD5F5C55 93 F0DEE16DFA7D86B18FD85F6455249BBC2AA4A4A4C0549EB3392C86092A242424 94 98C6BB8A7C16E3C7D7837716F94CC63B1AE6B5B912F345AC96CF60FB63991C98 95 4631D933D9B19C6E94E554962BB954B798ED0DA614A69F992E329D674A661A2E 96 CBA934D607ACFE3ED31D95C0DED4C39E661A5A3D267E7E270879A2B16AE34D13 97 5916AFCA96C946F04BB29D6D5B2327140B1D4BE263BDCA745960E56D920CCE09 98 7B91FD41F06BF2F9B313D9EF85784DE66D65F91A6A3AEFBDC15BC8D5D0DAB932 99 B6C8736AF2F5F31794C8C8632CC608085B7DEDB314DB25D66503BD1F2D61EBCE 100 9AFF6B9058A1DDAB56BB961DC3348A6C16696D6AB07D987A50FB54A4A7A7A366 101 FF4B047624932DD9CC15FBD065A7B0F5EFCA5AE754B05D24B09F320D81A25F89 102 95FBAFD9C75C81EDCFD4CF78B6661FB3EAC52AE6EA5DA6B7A90F1785BCD7C1B2 103 5CA9BAB0AD05537B3A1EA7D8873E966226BF9C7D93E975AA1FA5D087AFDE7324 104 D88E13D8D7985EA1763B85F3EFA53757421FA3B4ACFEF33F456F9E85763B83E7 105 81EA0C9DA3BADAFF8B4B43D73786D6F9F5E64DF9FD91DCA7B45FC76F760CFAA7 106 12A650AFEFF7370ADF36F4F2D2D658FFF271E9FBFD90B1FE75FB37C5BFEE7A3A 107 ACE6FF821AE25FB198E0DF20DF10FF75A9C1179ECE3AEF8F90981FBDC7FF0DBC 108 C4C8F7EB13437D58B9DFFAF20DF14D5A20FA5E50CF3E246E81D887B1FDE8DACB 109 B9BAFA50B2FDAB79F9984C19FF9F715D2AEA4FF8AB75AF34D15EFB3F5D7DF75E 110 5D362C8CFFEF4BFB5D55CE49CF62B13D4CFA4E2EE3C314EA956294FB50F45FC7 111 F7DA3003FEE563A86BABD7BF7C6BF89951A7FF3003CFE43023FD1B7AA64B7DD4 112 E55FE999AB3B1653FC2B3C7F8DF6AF148BBEF96BAC7F7DF3CD98677F9811D796 113 11D79E54CC985A31F9339D62CA60BAC57492C993A90DD3537A5E2388ED493FA3 114 64FA996915D34C915BC7749969BF68A3543A88ED27987A313591B53565EACF94 115 28B63FAFC336669A4E9F4C98ACF5F44F71F715C7E3A6D3D6528C7B31D37375BC 116 2EAD643AC3F48CACAE3DD305FA846DC4EB9613532AD3EB0DE0D3985A3720FEB3 117 3AF19B92BFDB4C53F59CBF3D469CBF32A6DE7AE64F37A6BD06E64F2E5325D341 118 262B3D714AF3F7345316530E539238BE814C3F3095D34F8E993AD7E375B939FD 119 DC9BA982E93CD3FBF5E8E31DA6A34C1AA623F5E0E95C7467DA2E4A55CF3E5E15 120 55F362B0B168D4366CF0E821F3FB6DF798DAF587B90E6D7F7076ECB8D3EA3373 121 C716BD5F6D6CA8D3F60B867469BBCAEE9751CB86615DE427D81FDA1BF1BE56D8 122 E0F4166C5D2DD16C7CBBEB2F8F78BDBB12DB76B6B595F9D24FF362B73BE0DA71 123 17A41C76C2A56F1C702A7A281216F644C8E4B7D1D2D30AAF39B42DEC36A4452F 124 39DBC6C6A2F1A0907ED7966D1D85EB5703F128F30B3CC85882CC4BFEB87A603C 125 CEC50EC3E855367821A8179AF874C533C35EC97CB1E74BDA6B659AABA5D3B028 126 1B5C3C3315E76EAF82A6E42C8AD5BB70FF5A20AE254E46F2E6E198B16A385E9C 127 DF074DD978CC46B6C23F06369F2EF1CB9DDA7FB377AB1DECBF0F81E36F71D85F 128 7C1977F3F7202BD58FF1AE38B36918F68574C7C099EFA1F3F88E6834B60D1A0F 129 7E3951E2574F6C9FBA7BC3A7B04A9A870FAF44624CD62EB8DC8BC3D29F4390B4 130 EF331C59FA11BE9A698935C35E4180456374FCB4151A8F6A99A5E5C7BD793D21 131 D21A567B3DD0EBDCE7B0BEFA25BA5F8A80E5513F2CFC6210760776C33A8737B0 132 B8F70BF07EEB297C30B0059A4E6B9723F19F0F6F7168875767848659A343DC44 133 74391284CE077D61B5C111F17EEF62233B7FCB063547D0DB4DE0D346858EC35F 134 47B3E85E67B5EBD4012FCF881CFA2A62277540CF106BB488B285F96A3BCC73B3 135 44341B6BD4D097B1F0BDE730BD8D1966B656A1F50C4B7CB4F7932089FF97E5F3 136 CFFFA7DF4BF7233F6E867E2EE67821A027EC1DDB23BC7F73445ABF88B95D9B6A 137 599F764F63C017DD1E8D1FD1B2B9ECE6D1C8B279E3F1A1EF3E5B3EB2CF8BB0F8 138 776B04757D167E16CFC0BB5D23B8BDAE827B4B15E7E7BDFB6CE5076D9ABA3732 139 5335D2B90776336FF6F47A4F8B26A503FBBE044F66EBC698A94CD35AA9E0F966 140 2384F4F89FB2EEAD9AC488F7AAC63AD713DD7B6C9F6B6CB6B477FB7F5CF96870 141 ABFC09235A5738BB58547CEA6AAEB6357FEEEA0B4D9E5ACEFFBB20D8EA3E4B9F 142 667A59BC3F0C139F073345B98875EF88364F1B780E3F2D3E075E12EF57CDC5FD 143 E7C436B3BFD387BFD1E347232E3E8E691BB6B2EDD69D5B11BB23966BCBF658C4 144 6CDF82986D317CBB996D37C76DC626A68D5B3761ECC471709F3905E14B23F86F 145 F84C296B377C09374F77F804F962FF91042C895C62741FC47E7D603767491753 146 2E61DFE1FD46F521B1C4C87963FA90B34A3C69EF77FB14FBD065F5F149E74FC1 147 73B617167F51DD07B13E737C799B21FED485D398EE3703C917CF62CF777B312F 148 741E42168760F7B7DFF03A6A231B25FEF40F6730CD6F3AB793FB908BDAC8866C 149 E5FC991F93E1E13B4D5B6F486443B6C410EB39CB0B1E3EC6B135FA600CB17D06 150 7C08EF201FCC0E093049C4F41D640DB55ADD2035F4FA3333BBCB748F69B74A7C 151 779B485B3A3633CB12A5D4764F6439BF888919ADB998969606DAD2B15C0A6D8B 152 04368394101A0A585BA762FFFEFD7C3B7F3E6A48DE46B6C4086C2AE948404025 153 ACAC4EA159B308BEF5F22AAF21791BD91243AC4AF523E9B4A7A7066969E5888D 154 7D84F878359293733079729156E3C7E7C1D6F61EDF922D31024BCB813317264D 155 2AC5E0C1B7606797CD45FB8E8EF98A225B6204B613C957FC05B491A27569275F 156 81B520CDAAAAA2DF0F6B588EB661DDBA706CDFBE961F57D72DD11E932D31026B 157 4E0AACA8A0DF0B1769B56CD93CBDC7644B8CC89282359A421415E5E1FAF59FB0 158 68910F1213F7F163495427ED932D3102DB9114525A9AC7E6738E56FEFE93F41E 159 932D31024B4B8F0E8B8A8B1F2237F70ED7EDDBBFC0DD7DB4F698F625D131D912 160 23B0B4FC6ABFA4A8281BE9E997E1E3E3CC633D7468271E3C485714D91243AC99 161 592BA6764BCBCA1EA0A0E09E51225B6288A5770133B337D747477F0553448CF8 162 1ED1DDCCECD50833B337B69BA6572388FD5F9659580A 151 163 } 152 164 end … … 250 262 end 251 263 object OpenDialog1: TOpenDialog 264 Title = 'Open existing file' 252 265 Left = 400 253 266 Top = 380 254 267 end 255 268 object SaveDialog1: TSaveDialog 269 Title = 'Save file as' 256 270 Left = 120 257 271 Top = 380 … … 8499 8513 end 8500 8514 object SelectDirectoryDialog1: TSelectDirectoryDialog 8515 Title = 'Select directory' 8501 8516 Left = 602 8502 8517 Top = 392 -
trunk/UCore.lrj
r90 r100 16 16 {"hash":218394958,"name":"tcore.afind.caption","sourcebytes":[70,105,110,100,46,46,46],"value":"Find..."}, 17 17 {"hash":371876,"name":"tcore.atest.caption","sourcebytes":[84,101,115,116],"value":"Test"}, 18 {"hash":190444780,"name":"tcore.applicationinfo1.description","sourcebytes":[118,67,97,114,100,32,102,105,108,101,115,32,109,97,110,97,103,101,109,101,110,116,32,116,111,111,108],"value":"vCard files management tool"} 18 {"hash":218146437,"name":"tcore.opendialog1.title","sourcebytes":[79,112,101,110,32,101,120,105,115,116,105,110,103,32,102,105,108,101],"value":"Open existing file"}, 19 {"hash":159035875,"name":"tcore.savedialog1.title","sourcebytes":[83,97,118,101,32,102,105,108,101,32,97,115],"value":"Save file as"}, 20 {"hash":190444780,"name":"tcore.applicationinfo1.description","sourcebytes":[118,67,97,114,100,32,102,105,108,101,115,32,109,97,110,97,103,101,109,101,110,116,32,116,111,111,108],"value":"vCard files management tool"}, 21 {"hash":51995065,"name":"tcore.selectdirectorydialog1.title","sourcebytes":[83,101,108,101,99,116,32,100,105,114,101,99,116,111,114,121],"value":"Select directory"} 19 22 ]}
Note:
See TracChangeset
for help on using the changeset viewer.