source: tags/1.4.0/Forms/UFormContact.lfm

Last change on this file was 139, checked in by chronos, 22 months ago
  • Fixed: Wrong assignment during openning contact image form.
  • Fixed: QR code generation error if contact text is too big (with photo or logo).
File size: 33.4 KB
Line 
1object FormContact: TFormContact
2 Left = 1043
3 Height = 738
4 Top = 446
5 Width = 992
6 Caption = 'Contact'
7 ClientHeight = 738
8 ClientWidth = 992
9 DesignTimePPI = 144
10 OnClose = FormClose
11 OnCreate = FormCreate
12 OnDestroy = FormDestroy
13 OnShow = FormShow
14 LCLVersion = '2.2.2.0'
15 object ButtonCancel: TButton
16 Left = 865
17 Height = 37
18 Top = 688
19 Width = 115
20 Anchors = [akRight, akBottom]
21 Caption = 'Cancel'
22 ModalResult = 2
23 ParentFont = False
24 TabOrder = 0
25 end
26 object ButtonOk: TButton
27 Left = 730
28 Height = 37
29 Top = 688
30 Width = 119
31 Anchors = [akRight, akBottom]
32 Caption = 'OK'
33 ModalResult = 1
34 ParentFont = False
35 TabOrder = 1
36 end
37 object ButtonPrevious: TButton
38 Left = 8
39 Height = 37
40 Top = 688
41 Width = 119
42 Anchors = [akLeft, akBottom]
43 Caption = 'Previous'
44 OnClick = ButtonPreviousClick
45 ParentFont = False
46 TabOrder = 2
47 Visible = False
48 end
49 object ButtonNext: TButton
50 Left = 144
51 Height = 37
52 Top = 688
53 Width = 115
54 Anchors = [akLeft, akBottom]
55 Caption = 'Next'
56 OnClick = ButtonNextClick
57 ParentFont = False
58 TabOrder = 3
59 Visible = False
60 end
61 object PageControlContact: TPageControl
62 Left = 8
63 Height = 664
64 Top = 8
65 Width = 970
66 ActivePage = TabSheetOthers
67 Anchors = [akTop, akLeft, akRight, akBottom]
68 ParentFont = False
69 TabIndex = 5
70 TabOrder = 4
71 object TabSheetGeneral: TTabSheet
72 Caption = 'General'
73 ClientHeight = 624
74 ClientWidth = 960
75 OnHide = TabSheetGeneralHide
76 OnShow = TabSheetGeneralShow
77 ParentFont = False
78 object Label2: TLabel
79 Left = 16
80 Height = 26
81 Top = 250
82 Width = 63
83 Caption = 'Mobile:'
84 ParentColor = False
85 ParentFont = False
86 end
87 object EditMobile: TEdit
88 Left = 144
89 Height = 43
90 Top = 240
91 Width = 254
92 ParentFont = False
93 TabOrder = 3
94 end
95 object EditPhone: TEdit
96 Left = 144
97 Height = 43
98 Top = 286
99 Width = 254
100 ParentFont = False
101 TabOrder = 5
102 end
103 object Label3: TLabel
104 Left = 16
105 Height = 26
106 Top = 290
107 Width = 59
108 Caption = 'Phone:'
109 ParentColor = False
110 ParentFont = False
111 end
112 object EditEmail: TEdit
113 Left = 144
114 Height = 43
115 Top = 328
116 Width = 207
117 ParentFont = False
118 TabOrder = 7
119 end
120 object Label4: TLabel
121 Left = 16
122 Height = 26
123 Top = 336
124 Width = 58
125 Caption = 'E-mail:'
126 ParentColor = False
127 ParentFont = False
128 end
129 object EditBirthday: TEdit
130 Left = 144
131 Height = 43
132 Top = 424
133 Width = 207
134 ParentFont = False
135 TabOrder = 10
136 end
137 object Label22: TLabel
138 Left = 16
139 Height = 26
140 Top = 432
141 Width = 76
142 Caption = 'Birthday:'
143 ParentColor = False
144 ParentFont = False
145 end
146 object ImagePhoto: TImage
147 Left = 16
148 Height = 210
149 Top = 16
150 Width = 207
151 Center = True
152 OnClick = ImagePhotoClick
153 PopupMenu = PopupMenuPhoto
154 Proportional = True
155 Stretch = True
156 end
157 object Label24: TLabel
158 Left = 240
159 Height = 26
160 Top = 32
161 Width = 88
162 Caption = 'Full name:'
163 ParentColor = False
164 ParentFont = False
165 end
166 object EditFullName: TEdit
167 Left = 360
168 Height = 43
169 Top = 24
170 Width = 340
171 OnChange = EditFullNameChange
172 ParentFont = False
173 TabOrder = 0
174 end
175 object Label44: TLabel
176 Left = 240
177 Height = 26
178 Top = 84
179 Width = 91
180 Caption = 'Nickname:'
181 ParentColor = False
182 ParentFont = False
183 end
184 object EditNickName: TEdit
185 Left = 361
186 Height = 43
187 Top = 77
188 Width = 215
189 ParentFont = False
190 TabOrder = 2
191 end
192 object Label45: TLabel
193 Left = 432
194 Height = 26
195 Top = 432
196 Width = 105
197 Caption = 'Anniversary:'
198 ParentColor = False
199 ParentFont = False
200 end
201 object EditAniversary: TEdit
202 Left = 575
203 Height = 43
204 Top = 424
205 Width = 208
206 ParentFont = False
207 TabOrder = 11
208 end
209 object Label9: TLabel
210 Left = 432
211 Height = 26
212 Top = 248
213 Width = 34
214 Caption = 'Fax:'
215 ParentColor = False
216 ParentFont = False
217 end
218 object EditFax: TEdit
219 Left = 575
220 Height = 43
221 Top = 240
222 Width = 254
223 ParentFont = False
224 TabOrder = 4
225 end
226 object EditPager: TEdit
227 Left = 575
228 Height = 43
229 Top = 286
230 Width = 254
231 ParentFont = False
232 TabOrder = 6
233 end
234 object Label10: TLabel
235 Left = 432
236 Height = 26
237 Top = 290
238 Width = 54
239 Caption = 'Pager:'
240 ParentColor = False
241 ParentFont = False
242 end
243 object Label46: TLabel
244 Left = 16
245 Height = 26
246 Top = 384
247 Width = 114
248 Caption = 'Web address:'
249 ParentColor = False
250 ParentFont = False
251 end
252 object EditWeb: TEdit
253 Left = 144
254 Height = 43
255 Top = 376
256 Width = 639
257 ParentFont = False
258 TabOrder = 9
259 end
260 object Label49: TLabel
261 Left = 432
262 Height = 26
263 Top = 332
264 Width = 67
265 Caption = 'Gender:'
266 ParentColor = False
267 ParentFont = False
268 end
269 object EditGender: TEdit
270 Left = 575
271 Height = 43
272 Top = 328
273 Width = 254
274 ParentFont = False
275 TabOrder = 8
276 end
277 object Label56: TLabel
278 Left = 16
279 Height = 26
280 Top = 480
281 Width = 95
282 Caption = 'Categories:'
283 ParentColor = False
284 ParentFont = False
285 end
286 object EditCategories: TEdit
287 Left = 144
288 Height = 43
289 Top = 472
290 Width = 254
291 ParentFont = False
292 TabOrder = 12
293 end
294 object SpeedButtonWeb: TSpeedButton
295 Left = 788
296 Height = 41
297 Hint = 'Open in web browser'
298 Top = 376
299 Width = 41
300 Images = Core.ImageList1
301 ImageIndex = 15
302 OnClick = SpeedButtonWebClick
303 ShowHint = True
304 ParentShowHint = False
305 end
306 object SpeedButtonEmail: TSpeedButton
307 Left = 357
308 Height = 41
309 Hint = 'Open in email client'
310 Top = 328
311 Width = 41
312 Images = Core.ImageList1
313 ImageIndex = 16
314 OnClick = SpeedButtonEmailClick
315 ShowHint = True
316 ParentShowHint = False
317 end
318 object SpeedButtonBirthDay: TSpeedButton
319 Left = 357
320 Height = 41
321 Hint = 'Select date'
322 Top = 424
323 Width = 41
324 Images = Core.ImageList1
325 ImageIndex = 17
326 OnClick = SpeedButtonBirthDayClick
327 ShowHint = True
328 ParentShowHint = False
329 end
330 object SpeedButtonAniversary: TSpeedButton
331 Left = 788
332 Height = 41
333 Hint = 'Select date'
334 Top = 424
335 Width = 41
336 Images = Core.ImageList1
337 ImageIndex = 17
338 OnClick = SpeedButtonAniversaryClick
339 ShowHint = True
340 ParentShowHint = False
341 end
342 object ButtonNameDetails: TButton
343 Left = 706
344 Height = 41
345 Top = 24
346 Width = 120
347 Caption = 'Details'
348 OnClick = ButtonNameDetailsClick
349 TabOrder = 1
350 end
351 end
352 object TabSheetHome: TTabSheet
353 Caption = 'Home'
354 ClientHeight = 624
355 ClientWidth = 960
356 OnHide = TabSheetHomeHide
357 OnShow = TabSheetHomeShow
358 ParentFont = False
359 object Label7: TLabel
360 Left = 16
361 Height = 26
362 Top = 114
363 Width = 58
364 Caption = 'E-mail:'
365 ParentColor = False
366 ParentFont = False
367 end
368 object EditHomeEmail: TEdit
369 Left = 173
370 Height = 43
371 Top = 112
372 Width = 207
373 ParentFont = False
374 TabOrder = 4
375 end
376 object Label11: TLabel
377 Left = 448
378 Height = 26
379 Top = 18
380 Width = 34
381 Caption = 'Fax:'
382 ParentColor = False
383 ParentFont = False
384 end
385 object EditHomeFax: TEdit
386 Left = 605
387 Height = 43
388 Top = 16
389 Width = 254
390 ParentFont = False
391 TabOrder = 1
392 end
393 object EditHomeMobile: TEdit
394 Left = 173
395 Height = 43
396 Top = 60
397 Width = 254
398 ParentFont = False
399 TabOrder = 2
400 end
401 object EditHomePhone: TEdit
402 Left = 173
403 Height = 43
404 Top = 16
405 Width = 254
406 ParentFont = False
407 TabOrder = 0
408 end
409 object Label14: TLabel
410 Left = 448
411 Height = 26
412 Top = 68
413 Width = 54
414 Caption = 'Pager:'
415 ParentColor = False
416 ParentFont = False
417 end
418 object EditHomePager: TEdit
419 Left = 605
420 Height = 43
421 Top = 60
422 Width = 254
423 ParentFont = False
424 TabOrder = 3
425 end
426 object Label40: TLabel
427 Left = 16
428 Height = 26
429 Top = 168
430 Width = 114
431 Caption = 'Web address:'
432 ParentColor = False
433 ParentFont = False
434 end
435 object EditHomeWeb: TEdit
436 Left = 173
437 Height = 43
438 Top = 161
439 Width = 641
440 ParentFont = False
441 TabOrder = 5
442 end
443 object GroupBox1: TGroupBox
444 Left = 10
445 Height = 276
446 Top = 216
447 Width = 862
448 Anchors = [akTop, akLeft, akRight]
449 Caption = 'Address'
450 ClientHeight = 274
451 ClientWidth = 860
452 TabOrder = 6
453 object Label36: TLabel
454 Left = 10
455 Height = 26
456 Top = 18
457 Width = 54
458 Caption = 'Street:'
459 ParentColor = False
460 ParentFont = False
461 end
462 object Label37: TLabel
463 Left = 10
464 Height = 26
465 Top = 66
466 Width = 137
467 Caption = 'Extended street:'
468 ParentColor = False
469 ParentFont = False
470 end
471 object EditHomeAddressStreetExtended: TEdit
472 Left = 173
473 Height = 43
474 Top = 56
475 Width = 254
476 ParentFont = False
477 TabOrder = 2
478 end
479 object EditHomeAddressStreet: TEdit
480 Left = 173
481 Height = 43
482 Top = 8
483 Width = 254
484 ParentFont = False
485 TabOrder = 0
486 end
487 object Label38: TLabel
488 Left = 10
489 Height = 26
490 Top = 112
491 Width = 64
492 Caption = 'Region:'
493 ParentColor = False
494 ParentFont = False
495 end
496 object EditHomeAddressRegion: TEdit
497 Left = 173
498 Height = 43
499 Top = 104
500 Width = 254
501 ParentFont = False
502 TabOrder = 4
503 end
504 object EditHomeAddressCountry: TEdit
505 Left = 173
506 Height = 43
507 Top = 152
508 Width = 254
509 ParentFont = False
510 TabOrder = 5
511 end
512 object Label39: TLabel
513 Left = 10
514 Height = 26
515 Top = 160
516 Width = 71
517 Caption = 'Country:'
518 ParentColor = False
519 ParentFont = False
520 end
521 object Label41: TLabel
522 Left = 451
523 Height = 26
524 Top = 160
525 Width = 103
526 Caption = 'Postal code:'
527 ParentColor = False
528 ParentFont = False
529 end
530 object EditHomeAddressPostalCode: TEdit
531 Left = 588
532 Height = 43
533 Top = 152
534 Width = 254
535 ParentFont = False
536 TabOrder = 6
537 end
538 object EditHomeAddressCity: TEdit
539 Left = 588
540 Height = 43
541 Top = 56
542 Width = 254
543 ParentFont = False
544 TabOrder = 3
545 end
546 object Label42: TLabel
547 Left = 451
548 Height = 26
549 Top = 64
550 Width = 36
551 Caption = 'City:'
552 ParentColor = False
553 ParentFont = False
554 end
555 object Label43: TLabel
556 Left = 451
557 Height = 26
558 Top = 16
559 Width = 131
560 Caption = 'Post office box:'
561 ParentColor = False
562 ParentFont = False
563 end
564 object EditHomeAddressPostOfficeBox: TEdit
565 Left = 588
566 Height = 43
567 Top = 8
568 Width = 254
569 ParentFont = False
570 TabOrder = 1
571 end
572 object ButtonHomeAddressShow: TButton
573 Left = 10
574 Height = 37
575 Top = 200
576 Width = 175
577 Caption = 'Show on map'
578 OnClick = ButtonHomeAddressShowClick
579 TabOrder = 7
580 end
581 end
582 object Label12: TLabel
583 Left = 16
584 Height = 26
585 Top = 64
586 Width = 63
587 Caption = 'Mobile:'
588 ParentColor = False
589 ParentFont = False
590 end
591 object Label13: TLabel
592 Left = 16
593 Height = 26
594 Top = 20
595 Width = 59
596 Caption = 'Phone:'
597 ParentColor = False
598 ParentFont = False
599 end
600 object SpeedButtonHomeWeb: TSpeedButton
601 Left = 818
602 Height = 41
603 Hint = 'Open in web browser'
604 Top = 160
605 Width = 41
606 Images = Core.ImageList1
607 ImageIndex = 15
608 OnClick = SpeedButtonHomeWebClick
609 ShowHint = True
610 ParentShowHint = False
611 end
612 object SpeedButtonHomeEmail: TSpeedButton
613 Left = 386
614 Height = 41
615 Hint = 'Open in email client'
616 Top = 112
617 Width = 41
618 Images = Core.ImageList1
619 ImageIndex = 16
620 OnClick = SpeedButtonHomeEmailClick
621 ShowHint = True
622 ParentShowHint = False
623 end
624 end
625 object TabSheetWork: TTabSheet
626 Caption = 'Work'
627 ClientHeight = 624
628 ClientWidth = 960
629 OnHide = TabSheetWorkHide
630 OnShow = TabSheetWorkShow
631 object EditOrganization: TEdit
632 Left = 173
633 Height = 43
634 Top = 64
635 Width = 254
636 ParentFont = False
637 TabOrder = 2
638 end
639 object LabelOrganization: TLabel
640 Left = 10
641 Height = 26
642 Top = 70
643 Width = 114
644 Caption = 'Organization:'
645 ParentColor = False
646 ParentFont = False
647 end
648 object LabelOrganization1: TLabel
649 Left = 451
650 Height = 26
651 Top = 24
652 Width = 106
653 Caption = 'Department:'
654 ParentColor = False
655 ParentFont = False
656 end
657 object EditDepartment: TEdit
658 Left = 608
659 Height = 43
660 Top = 20
661 Width = 254
662 ParentFont = False
663 TabOrder = 1
664 end
665 object Label18: TLabel
666 Left = 10
667 Height = 26
668 Top = 20
669 Width = 41
670 Caption = 'Title:'
671 ParentColor = False
672 ParentFont = False
673 end
674 object EditTitle: TEdit
675 Left = 173
676 Height = 43
677 Top = 16
678 Width = 254
679 ParentFont = False
680 TabOrder = 0
681 end
682 object EditWorkWeb: TEdit
683 Left = 173
684 Height = 43
685 Top = 256
686 Width = 641
687 ParentFont = False
688 TabOrder = 8
689 end
690 object Label32: TLabel
691 Left = 10
692 Height = 26
693 Top = 264
694 Width = 114
695 Caption = 'Web address:'
696 ParentColor = False
697 ParentFont = False
698 end
699 object GroupBox2: TGroupBox
700 Left = 8
701 Height = 272
702 Top = 312
703 Width = 883
704 Caption = 'Address'
705 ClientHeight = 270
706 ClientWidth = 881
707 TabOrder = 9
708 object Label31: TLabel
709 Left = 10
710 Height = 26
711 Top = 160
712 Width = 71
713 Caption = 'Country:'
714 ParentColor = False
715 ParentFont = False
716 end
717 object EditWorkAddressCountry: TEdit
718 Left = 173
719 Height = 43
720 Top = 152
721 Width = 254
722 ParentFont = False
723 TabOrder = 5
724 end
725 object EditWorkAddressRegion: TEdit
726 Left = 173
727 Height = 43
728 Top = 104
729 Width = 254
730 ParentFont = False
731 TabOrder = 4
732 end
733 object Label30: TLabel
734 Left = 10
735 Height = 26
736 Top = 112
737 Width = 64
738 Caption = 'Region:'
739 ParentColor = False
740 ParentFont = False
741 end
742 object Label35: TLabel
743 Left = 10
744 Height = 26
745 Top = 64
746 Width = 137
747 Caption = 'Extended street:'
748 ParentColor = False
749 ParentFont = False
750 end
751 object EditWorkAddressStreetExtended: TEdit
752 Left = 173
753 Height = 43
754 Top = 56
755 Width = 254
756 ParentFont = False
757 TabOrder = 2
758 end
759 object Label28: TLabel
760 Left = 10
761 Height = 26
762 Top = 18
763 Width = 54
764 Caption = 'Street:'
765 ParentColor = False
766 ParentFont = False
767 end
768 object EditWorkAddressStreet: TEdit
769 Left = 173
770 Height = 43
771 Top = 8
772 Width = 254
773 ParentFont = False
774 TabOrder = 0
775 end
776 object Label34: TLabel
777 Left = 451
778 Height = 26
779 Top = 18
780 Width = 131
781 Caption = 'Post office box:'
782 ParentColor = False
783 ParentFont = False
784 end
785 object EditWorkAddressPostOfficeBox: TEdit
786 Left = 608
787 Height = 43
788 Top = 8
789 Width = 254
790 ParentFont = False
791 TabOrder = 1
792 end
793 object EditWorkAddressCity: TEdit
794 Left = 608
795 Height = 43
796 Top = 56
797 Width = 254
798 ParentFont = False
799 TabOrder = 3
800 end
801 object Label29: TLabel
802 Left = 451
803 Height = 26
804 Top = 64
805 Width = 36
806 Caption = 'City:'
807 ParentColor = False
808 ParentFont = False
809 end
810 object EditWorkAddressPostalCode: TEdit
811 Left = 608
812 Height = 43
813 Top = 142
814 Width = 254
815 ParentFont = False
816 TabOrder = 6
817 end
818 object Label33: TLabel
819 Left = 451
820 Height = 26
821 Top = 150
822 Width = 103
823 Caption = 'Postal code:'
824 ParentColor = False
825 ParentFont = False
826 end
827 object ButtonWorkAddressShow: TButton
828 Left = 10
829 Height = 37
830 Top = 200
831 Width = 175
832 Caption = 'Show on map'
833 OnClick = ButtonWorkAddressShowClick
834 TabOrder = 7
835 end
836 end
837 object Label15: TLabel
838 Left = 10
839 Height = 26
840 Top = 116
841 Width = 59
842 Caption = 'Phone:'
843 ParentColor = False
844 ParentFont = False
845 end
846 object EditWorkPhone: TEdit
847 Left = 173
848 Height = 43
849 Top = 112
850 Width = 254
851 ParentFont = False
852 TabOrder = 3
853 end
854 object Label16: TLabel
855 Left = 451
856 Height = 26
857 Top = 112
858 Width = 34
859 Caption = 'Fax:'
860 ParentColor = False
861 ParentFont = False
862 end
863 object EditWorkFax: TEdit
864 Left = 608
865 Height = 43
866 Top = 112
867 Width = 254
868 ParentFont = False
869 TabOrder = 4
870 end
871 object EditWorkPager: TEdit
872 Left = 608
873 Height = 43
874 Top = 156
875 Width = 254
876 ParentFont = False
877 TabOrder = 6
878 end
879 object Label17: TLabel
880 Left = 448
881 Height = 26
882 Top = 160
883 Width = 54
884 Caption = 'Pager:'
885 ParentColor = False
886 ParentFont = False
887 end
888 object EditWorkMobile: TEdit
889 Left = 173
890 Height = 43
891 Top = 160
892 Width = 254
893 ParentFont = False
894 TabOrder = 5
895 end
896 object Label19: TLabel
897 Left = 10
898 Height = 26
899 Top = 160
900 Width = 63
901 Caption = 'Mobile:'
902 ParentColor = False
903 ParentFont = False
904 end
905 object Label8: TLabel
906 Left = 10
907 Height = 26
908 Top = 210
909 Width = 58
910 Caption = 'E-mail:'
911 ParentColor = False
912 ParentFont = False
913 end
914 object EditWorkEmail: TEdit
915 Left = 173
916 Height = 43
917 Top = 210
918 Width = 209
919 ParentFont = False
920 TabOrder = 7
921 end
922 object SpeedButtonWorkWeb: TSpeedButton
923 Left = 821
924 Height = 41
925 Hint = 'Open in web browser'
926 Top = 256
927 Width = 41
928 Images = Core.ImageList1
929 ImageIndex = 15
930 OnClick = SpeedButtonWorkWebClick
931 ShowHint = True
932 ParentShowHint = False
933 end
934 object SpeedButtonWorkEmail: TSpeedButton
935 Left = 386
936 Height = 41
937 Hint = 'Open in email client'
938 Top = 210
939 Width = 41
940 Images = Core.ImageList1
941 ImageIndex = 16
942 OnClick = SpeedButtonWorkEmailClick
943 ShowHint = True
944 ParentShowHint = False
945 end
946 end
947 object TabSheetChat: TTabSheet
948 Caption = 'Chat'
949 ClientHeight = 624
950 ClientWidth = 960
951 OnHide = TabSheetChatHide
952 OnShow = TabSheetChatShow
953 object Label20: TLabel
954 Left = 10
955 Height = 26
956 Top = 24
957 Width = 59
958 Caption = 'Jabber:'
959 ParentColor = False
960 ParentFont = False
961 end
962 object EditJabber: TEdit
963 Left = 173
964 Height = 43
965 Top = 16
966 Width = 254
967 ParentFont = False
968 TabOrder = 0
969 end
970 object LabelOrganization2: TLabel
971 Left = 10
972 Height = 26
973 Top = 264
974 Width = 55
975 Caption = 'Skype:'
976 ParentColor = False
977 ParentFont = False
978 end
979 object EditSkype: TEdit
980 Left = 173
981 Height = 43
982 Top = 256
983 Width = 254
984 ParentFont = False
985 TabOrder = 10
986 end
987 object Label21: TLabel
988 Left = 10
989 Height = 26
990 Top = 72
991 Width = 45
992 Caption = 'MSN:'
993 ParentColor = False
994 ParentFont = False
995 end
996 object EditMsn: TEdit
997 Left = 173
998 Height = 43
999 Top = 64
1000 Width = 254
1001 ParentFont = False
1002 TabOrder = 2
1003 end
1004 object LabelOrganization3: TLabel
1005 Left = 451
1006 Height = 26
1007 Top = 72
1008 Width = 36
1009 Caption = 'ICQ:'
1010 ParentColor = False
1011 ParentFont = False
1012 end
1013 object EditIcq: TEdit
1014 Left = 608
1015 Height = 43
1016 Top = 68
1017 Width = 254
1018 ParentFont = False
1019 TabOrder = 3
1020 end
1021 object Label23: TLabel
1022 Left = 10
1023 Height = 26
1024 Top = 120
1025 Width = 33
1026 Caption = 'IRC:'
1027 ParentColor = False
1028 ParentFont = False
1029 end
1030 object EditIrc: TEdit
1031 Left = 173
1032 Height = 43
1033 Top = 112
1034 Width = 254
1035 ParentFont = False
1036 TabOrder = 4
1037 end
1038 object LabelOrganization4: TLabel
1039 Left = 451
1040 Height = 26
1041 Top = 120
1042 Width = 39
1043 Caption = 'AIM:'
1044 ParentColor = False
1045 ParentFont = False
1046 end
1047 object EditAim: TEdit
1048 Left = 608
1049 Height = 43
1050 Top = 116
1051 Width = 254
1052 ParentFont = False
1053 TabOrder = 5
1054 end
1055 object Label47: TLabel
1056 Left = 10
1057 Height = 26
1058 Top = 168
1059 Width = 105
1060 Caption = 'Google Talk:'
1061 ParentColor = False
1062 ParentFont = False
1063 end
1064 object EditGoogleTalk: TEdit
1065 Left = 173
1066 Height = 43
1067 Top = 160
1068 Width = 254
1069 ParentFont = False
1070 TabOrder = 6
1071 end
1072 object LabelOrganization5: TLabel
1073 Left = 451
1074 Height = 26
1075 Top = 168
1076 Width = 62
1077 Caption = 'Yahoo!:'
1078 ParentColor = False
1079 ParentFont = False
1080 end
1081 object EditYahoo: TEdit
1082 Left = 608
1083 Height = 43
1084 Top = 164
1085 Width = 254
1086 ParentFont = False
1087 TabOrder = 7
1088 end
1089 object Label48: TLabel
1090 Left = 10
1091 Height = 26
1092 Top = 216
1093 Width = 121
1094 Caption = 'Windows Live:'
1095 ParentColor = False
1096 ParentFont = False
1097 end
1098 object EditWindowsLive: TEdit
1099 Left = 173
1100 Height = 43
1101 Top = 208
1102 Width = 254
1103 ParentFont = False
1104 TabOrder = 8
1105 end
1106 object LabelOrganization6: TLabel
1107 Left = 451
1108 Height = 26
1109 Top = 216
1110 Width = 33
1111 Caption = 'QQ:'
1112 ParentColor = False
1113 ParentFont = False
1114 end
1115 object EditQq: TEdit
1116 Left = 608
1117 Height = 43
1118 Top = 212
1119 Width = 254
1120 ParentFont = False
1121 TabOrder = 9
1122 end
1123 object Label55: TLabel
1124 Left = 451
1125 Height = 26
1126 Top = 24
1127 Width = 59
1128 Caption = 'Matrix:'
1129 ParentColor = False
1130 ParentFont = False
1131 end
1132 object EditMatrix: TEdit
1133 Left = 608
1134 Height = 43
1135 Top = 20
1136 Width = 254
1137 ParentFont = False
1138 TabOrder = 1
1139 end
1140 object Label57: TLabel
1141 Left = 10
1142 Height = 26
1143 Top = 312
1144 Width = 99
1145 Caption = 'GroupWise:'
1146 ParentColor = False
1147 ParentFont = False
1148 end
1149 object EditGroupWise: TEdit
1150 Left = 173
1151 Height = 43
1152 Top = 304
1153 Width = 254
1154 ParentFont = False
1155 TabOrder = 11
1156 end
1157 object LabelOrganization12: TLabel
1158 Left = 451
1159 Height = 26
1160 Top = 312
1161 Width = 95
1162 Caption = 'GaduGadu:'
1163 ParentColor = False
1164 ParentFont = False
1165 end
1166 object EditGaduGadu: TEdit
1167 Left = 608
1168 Height = 43
1169 Top = 308
1170 Width = 254
1171 ParentFont = False
1172 TabOrder = 12
1173 end
1174 end
1175 object TabSheetSocial: TTabSheet
1176 Caption = 'Social'
1177 ClientHeight = 624
1178 ClientWidth = 960
1179 OnHide = TabSheetSocialHide
1180 OnShow = TabSheetSocialShow
1181 object Label50: TLabel
1182 Left = 451
1183 Height = 26
1184 Top = 164
1185 Width = 79
1186 Caption = 'Myspace:'
1187 ParentColor = False
1188 ParentFont = False
1189 end
1190 object EditMySpace: TEdit
1191 Left = 608
1192 Height = 43
1193 Top = 160
1194 Width = 254
1195 ParentFont = False
1196 TabOrder = 7
1197 end
1198 object EditTwitter: TEdit
1199 Left = 173
1200 Height = 43
1201 Top = 64
1202 Width = 254
1203 ParentFont = False
1204 TabOrder = 2
1205 end
1206 object Label51: TLabel
1207 Left = 10
1208 Height = 26
1209 Top = 68
1210 Width = 63
1211 Caption = 'Twitter:'
1212 ParentColor = False
1213 ParentFont = False
1214 end
1215 object Label52: TLabel
1216 Left = 10
1217 Height = 26
1218 Top = 116
1219 Width = 92
1220 Caption = 'Instagram:'
1221 ParentColor = False
1222 ParentFont = False
1223 end
1224 object Label53: TLabel
1225 Left = 10
1226 Height = 26
1227 Top = 164
1228 Width = 78
1229 Caption = 'LinkedIn:'
1230 ParentColor = False
1231 ParentFont = False
1232 end
1233 object Label54: TLabel
1234 Left = 10
1235 Height = 26
1236 Top = 212
1237 Width = 83
1238 Caption = 'Snapchat:'
1239 ParentColor = False
1240 ParentFont = False
1241 end
1242 object EditSnapchat: TEdit
1243 Left = 173
1244 Height = 43
1245 Top = 208
1246 Width = 254
1247 ParentFont = False
1248 TabOrder = 8
1249 end
1250 object EditLinkedIn: TEdit
1251 Left = 173
1252 Height = 43
1253 Top = 160
1254 Width = 254
1255 ParentFont = False
1256 TabOrder = 6
1257 end
1258 object EditInstagram: TEdit
1259 Left = 173
1260 Height = 43
1261 Top = 112
1262 Width = 254
1263 ParentFont = False
1264 TabOrder = 4
1265 end
1266 object LabelOrganization7: TLabel
1267 Left = 451
1268 Height = 26
1269 Top = 24
1270 Width = 84
1271 Caption = 'PeerTube:'
1272 ParentColor = False
1273 ParentFont = False
1274 end
1275 object LabelOrganization8: TLabel
1276 Left = 451
1277 Height = 26
1278 Top = 116
1279 Width = 77
1280 Caption = 'YouTube:'
1281 ParentColor = False
1282 ParentFont = False
1283 end
1284 object EditMastodon: TEdit
1285 Left = 171
1286 Height = 43
1287 Top = 16
1288 Width = 254
1289 ParentFont = False
1290 TabOrder = 0
1291 end
1292 object LabelOrganization9: TLabel
1293 Left = 10
1294 Height = 26
1295 Top = 24
1296 Width = 90
1297 Caption = 'Mastodon:'
1298 ParentColor = False
1299 ParentFont = False
1300 end
1301 object LabelOrganization10: TLabel
1302 Left = 451
1303 Height = 26
1304 Top = 212
1305 Width = 59
1306 Caption = 'Reddit:'
1307 ParentColor = False
1308 ParentFont = False
1309 end
1310 object EditReddit: TEdit
1311 Left = 608
1312 Height = 43
1313 Top = 208
1314 Width = 254
1315 ParentFont = False
1316 TabOrder = 9
1317 end
1318 object EditPeerTube: TEdit
1319 Left = 608
1320 Height = 43
1321 Top = 16
1322 Width = 254
1323 ParentFont = False
1324 TabOrder = 1
1325 end
1326 object EditYouTube: TEdit
1327 Left = 608
1328 Height = 43
1329 Top = 112
1330 Width = 254
1331 ParentFont = False
1332 TabOrder = 5
1333 end
1334 object EditFacebook: TEdit
1335 Left = 608
1336 Height = 43
1337 Top = 64
1338 Width = 254
1339 ParentFont = False
1340 TabOrder = 3
1341 end
1342 object LabelOrganization11: TLabel
1343 Left = 451
1344 Height = 26
1345 Top = 68
1346 Width = 86
1347 Caption = 'Facebook:'
1348 ParentColor = False
1349 ParentFont = False
1350 end
1351 end
1352 object TabSheetOthers: TTabSheet
1353 Caption = 'Others'
1354 ClientHeight = 624
1355 ClientWidth = 960
1356 OnHide = TabSheetOthersHide
1357 OnShow = TabSheetOthersShow
1358 object PanelNotes: TPanel
1359 Left = 0
1360 Height = 624
1361 Top = 0
1362 Width = 584
1363 Align = alClient
1364 BevelOuter = bvNone
1365 ClientHeight = 624
1366 ClientWidth = 584
1367 TabOrder = 0
1368 object MemoNotes: TMemo
1369 Left = 8
1370 Height = 561
1371 Top = 47
1372 Width = 564
1373 Anchors = [akTop, akLeft, akRight, akBottom]
1374 ParentFont = False
1375 ParentShowHint = False
1376 ScrollBars = ssAutoBoth
1377 TabOrder = 0
1378 end
1379 object Label6: TLabel
1380 Left = 8
1381 Height = 26
1382 Top = 16
1383 Width = 55
1384 Caption = 'Notes:'
1385 ParentColor = False
1386 ParentFont = False
1387 end
1388 end
1389 object Splitter1: TSplitter
1390 Left = 584
1391 Height = 624
1392 Top = 0
1393 Width = 8
1394 Align = alRight
1395 ResizeAnchor = akRight
1396 end
1397 object PanelQrCode: TPanel
1398 Left = 592
1399 Height = 624
1400 Top = 0
1401 Width = 368
1402 Align = alRight
1403 BevelOuter = bvNone
1404 ClientHeight = 624
1405 ClientWidth = 368
1406 TabOrder = 2
1407 OnResize = PanelQrCodeResize
1408 object Label1: TLabel
1409 Left = 8
1410 Height = 26
1411 Top = 16
1412 Width = 76
1413 Caption = 'QR code:'
1414 ParentColor = False
1415 end
1416 object BarcodeQR1: TBarcodeQR
1417 Left = 8
1418 Height = 313
1419 Top = 47
1420 Width = 336
1421 ParentColor = False
1422 Text = 'TBarcodeQR'
1423 end
1424 end
1425 end
1426 object TabSheetAll: TTabSheet
1427 Caption = 'All fields'
1428 OnShow = TabSheetAllShow
1429 ParentFont = False
1430 end
1431 end
1432 object ActionList1: TActionList
1433 Images = Core.ImageList1
1434 Left = 607
1435 Top = 584
1436 object APhotoLoad: TAction
1437 Caption = 'Load from file'
1438 OnExecute = APhotoLoadExecute
1439 end
1440 object APhotoSave: TAction
1441 Caption = 'Save to file'
1442 OnExecute = APhotoSaveExecute
1443 end
1444 object APhotoClear: TAction
1445 Caption = 'Clear'
1446 OnExecute = APhotoClearExecute
1447 end
1448 object APhotoShow: TAction
1449 Caption = 'Show'
1450 OnExecute = APhotoShowExecute
1451 end
1452 object APhotoSetUrl: TAction
1453 Caption = 'Set URL'
1454 OnExecute = APhotoSetUrlExecute
1455 end
1456 end
1457 object PopupMenuPhoto: TPopupMenu
1458 Images = Core.ImageList1
1459 Left = 829
1460 Top = 584
1461 object MenuItem4: TMenuItem
1462 Action = APhotoShow
1463 end
1464 object MenuItem1: TMenuItem
1465 Action = APhotoLoad
1466 end
1467 object MenuItem2: TMenuItem
1468 Action = APhotoSave
1469 end
1470 object MenuItem3: TMenuItem
1471 Action = APhotoClear
1472 end
1473 object MenuItem5: TMenuItem
1474 Action = APhotoSetUrl
1475 end
1476 end
1477 object OpenPictureDialog1: TOpenPictureDialog
1478 Title = 'Open existing file'
1479 Left = 168
1480 Top = 552
1481 end
1482 object SavePictureDialog1: TSavePictureDialog
1483 Title = 'Save file as'
1484 Left = 169
1485 Top = 468
1486 end
1487 object CalendarDialog1: TCalendarDialog
1488 Title = 'Select date'
1489 Date = 44600
1490 OKCaption = '&OK'
1491 CancelCaption = 'Cancel'
1492 Left = 430
1493 Top = 584
1494 end
1495 object PopupMenuQrCode: TPopupMenu
1496 Left = 507
1497 Top = 453
1498 object MenuItemSaveQrToFile: TMenuItem
1499 Caption = 'Save to file'
1500 OnClick = MenuItemSaveQrToFileClick
1501 end
1502 end
1503end
Note: See TracBrowser for help on using the repository browser.