Changeset 95 for trunk/Forms
- Timestamp:
- Feb 3, 2022, 11:39:12 PM (3 years ago)
- Location:
- trunk/Forms
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormContact.lfm
r93 r95 18 18 Top = 8 19 19 Width = 1009 20 ActivePage = TabSheet All20 ActivePage = TabSheetWork 21 21 Anchors = [akTop, akLeft, akRight, akBottom] 22 22 ParentFont = False 23 TabIndex = 623 TabIndex = 2 24 24 TabOrder = 0 25 25 object TabSheetGeneral: TTabSheet … … 82 82 Height = 43 83 83 Top = 342 84 Width = 2 6584 Width = 216 85 85 ParentFont = False 86 86 TabOrder = 11 … … 277 277 Height = 43 278 278 Top = 392 279 Width = 711279 Width = 666 280 280 ParentFont = False 281 281 TabOrder = 13 … … 312 312 ParentFont = False 313 313 TabOrder = 16 314 end 315 object SpeedButtonWeb: TSpeedButton 316 Left = 821 317 Height = 43 318 Hint = 'Open in web browser' 319 Top = 392 320 Width = 43 321 Images = Core.ImageList1 322 ImageIndex = 15 323 OnClick = SpeedButtonWebClick 324 ShowHint = True 325 ParentShowHint = False 326 end 327 object SpeedButtonEmail: TSpeedButton 328 Left = 372 329 Height = 43 330 Hint = 'Open in email client' 331 Top = 342 332 Width = 43 333 Images = Core.ImageList1 334 ImageIndex = 16 335 OnClick = SpeedButtonEmailClick 336 ShowHint = True 337 ParentShowHint = False 314 338 end 315 339 end … … 333 357 Height = 43 334 358 Top = 117 335 Width = 2 65359 Width = 216 336 360 ParentFont = False 337 361 TabOrder = 4 … … 396 420 Left = 180 397 421 Height = 43 398 Top = 16 7399 Width = 711422 Top = 168 423 Width = 668 400 424 ParentFont = False 401 425 TabOrder = 5 … … 408 432 Anchors = [akTop, akLeft, akRight] 409 433 Caption = 'Address' 410 ClientHeight = 2 50434 ClientHeight = 224 411 435 ClientWidth = 959 412 436 TabOrder = 6 … … 540 564 ParentFont = False 541 565 end 566 object SpeedButtonHomeWeb: TSpeedButton 567 Left = 852 568 Height = 43 569 Hint = 'Open in web browser' 570 Top = 167 571 Width = 43 572 Images = Core.ImageList1 573 ImageIndex = 15 574 OnClick = peedButtonHomeWebClick 575 ShowHint = True 576 ParentShowHint = False 577 end 578 object SpeedButtonHomeEmail: TSpeedButton 579 Left = 402 580 Height = 43 581 Hint = 'Open in email client' 582 Top = 117 583 Width = 43 584 Images = Core.ImageList1 585 ImageIndex = 16 586 OnClick = SpeedButtonHomeEmailClick 587 ShowHint = True 588 ParentShowHint = False 589 end 542 590 end 543 591 object TabSheetWork: TTabSheet … … 599 647 Height = 43 600 648 Top = 267 601 Width = 711649 Width = 668 602 650 ParentFont = False 603 651 TabOrder = 8 … … 617 665 Width = 949 618 666 Caption = 'Address' 619 ClientHeight = 2 55667 ClientHeight = 229 620 668 ClientWidth = 947 621 669 TabOrder = 9 … … 809 857 Height = 43 810 858 Top = 219 811 Width = 2 65859 Width = 218 812 860 ParentFont = False 813 861 TabOrder = 7 862 end 863 object SpeedButtonWorkWeb: TSpeedButton 864 Left = 855 865 Height = 43 866 Hint = 'Open in web browser' 867 Top = 267 868 Width = 43 869 Images = Core.ImageList1 870 ImageIndex = 15 871 OnClick = SpeedButtonWorkWebClick 872 ShowHint = True 873 ParentShowHint = False 874 end 875 object SpeedButtonWorkEmail: TSpeedButton 876 Left = 402 877 Height = 43 878 Hint = 'Open in email client' 879 Top = 219 880 Width = 43 881 Images = Core.ImageList1 882 ImageIndex = 16 883 OnClick = SpeedButtonWorkEmailClick 884 ShowHint = True 885 ParentShowHint = False 814 886 end 815 887 end … … 1253 1325 Left = 8 1254 1326 Height = 39 1255 Top = 7 141327 Top = 720 1256 1328 Width = 124 1257 1329 Anchors = [akLeft, akBottom] … … 1265 1337 Left = 150 1266 1338 Height = 39 1267 Top = 7 161339 Top = 720 1268 1340 Width = 120 1269 1341 Anchors = [akLeft, akBottom] … … 1310 1382 end 1311 1383 object SavePictureDialog1: TSavePictureDialog 1312 Left = 2051313 Top = 6431384 Left = 176 1385 Top = 488 1314 1386 end 1315 1387 end -
trunk/Forms/UFormContact.lrj
r77 r95 19 19 {"hash":230992922,"name":"tformcontact.label49.caption","sourcebytes":[71,101,110,100,101,114,58],"value":"Gender:"}, 20 20 {"hash":237074138,"name":"tformcontact.label56.caption","sourcebytes":[67,97,116,101,103,111,114,105,101,115,58],"value":"Categories:"}, 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 {"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"}, 21 23 {"hash":325173,"name":"tformcontact.tabsheethome.caption","sourcebytes":[72,111,109,101],"value":"Home"}, 22 24 {"hash":138641338,"name":"tformcontact.label7.caption","sourcebytes":[69,45,109,97,105,108,58],"value":"E-mail:"}, … … 34 36 {"hash":72942298,"name":"tformcontact.label12.caption","sourcebytes":[77,111,98,105,108,101,58],"value":"Mobile:"}, 35 37 {"hash":91186314,"name":"tformcontact.label13.caption","sourcebytes":[80,104,111,110,101,58],"value":"Phone:"}, 38 {"hash":262626066,"name":"tformcontact.speedbuttonhomeweb.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"}, 39 {"hash":102887636,"name":"tformcontact.speedbuttonhomeemail.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"}, 36 40 {"hash":386699,"name":"tformcontact.tabsheetwork.caption","sourcebytes":[87,111,114,107],"value":"Work"}, 37 41 {"hash":101155194,"name":"tformcontact.labelorganization.caption","sourcebytes":[79,114,103,97,110,105,122,97,116,105,111,110,58],"value":"Organization:"}, … … 52 56 {"hash":72942298,"name":"tformcontact.label19.caption","sourcebytes":[77,111,98,105,108,101,58],"value":"Mobile:"}, 53 57 {"hash":138641338,"name":"tformcontact.label8.caption","sourcebytes":[69,45,109,97,105,108,58],"value":"E-mail:"}, 58 {"hash":262626066,"name":"tformcontact.speedbuttonworkweb.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"}, 59 {"hash":102887636,"name":"tformcontact.speedbuttonworkemail.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"}, 54 60 {"hash":302724,"name":"tformcontact.tabsheetchat.caption","sourcebytes":[67,104,97,116],"value":"Chat"}, 55 61 {"hash":7900170,"name":"tformcontact.label20.caption","sourcebytes":[74,97,98,98,101,114,58],"value":"Jabber:"}, -
trunk/Forms/UFormContact.pas
r93 r95 7 7 uses 8 8 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, 9 ComCtrls, ActnList, Menus, ExtCtrls, ExtDlgs, UContact, UFormProperties; 9 ComCtrls, ActnList, Menus, ExtCtrls, ExtDlgs, Buttons, UContact, LCLIntf, 10 UFormProperties; 10 11 11 12 type … … 172 173 PopupMenuPhoto: TPopupMenu; 173 174 SavePictureDialog1: TSavePictureDialog; 175 SpeedButtonHomeEmail: TSpeedButton; 176 SpeedButtonEmail: TSpeedButton; 177 SpeedButtonWorkEmail: TSpeedButton; 178 SpeedButtonWorkWeb: TSpeedButton; 179 SpeedButtonWeb: TSpeedButton; 180 SpeedButtonHomeWeb: TSpeedButton; 174 181 TabSheetSocial: TTabSheet; 175 182 TabSheetChat: TTabSheet; … … 188 195 procedure FormDestroy(Sender: TObject); 189 196 procedure FormShow(Sender: TObject); 197 procedure peedButtonHomeWebClick(Sender: TObject); 198 procedure SpeedButtonEmailClick(Sender: TObject); 199 procedure SpeedButtonHomeEmailClick(Sender: TObject); 200 procedure SpeedButtonWebClick(Sender: TObject); 201 procedure SpeedButtonWorkEmailClick(Sender: TObject); 202 procedure SpeedButtonWorkWebClick(Sender: TObject); 190 203 procedure TabSheetAllShow(Sender: TObject); 191 204 procedure TabSheetChatHide(Sender: TObject); … … 231 244 232 245 uses 233 UCore ;246 UCore, UCommon; 234 247 235 248 { TFormContact } … … 251 264 PageControlContact.TabIndex := Core.LastContactTabIndex; 252 265 UpdateInterface; 266 end; 267 268 procedure TFormContact.peedButtonHomeWebClick(Sender: TObject); 269 begin 270 if EditHomeWeb.Text <> '' then OpenURL(EditHomeWeb.Text); 271 end; 272 273 procedure TFormContact.SpeedButtonEmailClick(Sender: TObject); 274 begin 275 if EditEmail.Text <> '' then OpenEmail(EditEmail.Text); 276 end; 277 278 procedure TFormContact.SpeedButtonHomeEmailClick(Sender: TObject); 279 begin 280 if EditHomeEmail.Text <> '' then OpenEmail(EditHomeEmail.Text); 281 end; 282 283 procedure TFormContact.SpeedButtonWebClick(Sender: TObject); 284 begin 285 if EditWeb.Text <> '' then OpenURL(EditWeb.Text); 286 end; 287 288 procedure TFormContact.SpeedButtonWorkEmailClick(Sender: TObject); 289 begin 290 if EditWorkEmail.Text <> '' then OpenEmail(EditWorkEmail.Text); 291 end; 292 293 procedure TFormContact.SpeedButtonWorkWebClick(Sender: TObject); 294 begin 295 if EditWorkWeb.Text <> '' then OpenURL(EditWorkWeb.Text); 253 296 end; 254 297 -
trunk/Forms/UFormContacts.lfm
r82 r95 1 1 object FormContacts: TFormContacts 2 2 Left = 400 3 Height = 9 083 Height = 946 4 4 Top = 212 5 Width = 12 105 Width = 1260 6 6 Caption = 'Contacts' 7 ClientHeight = 9 088 ClientWidth = 12 109 DesignTimePPI = 1 447 ClientHeight = 946 8 ClientWidth = 1260 9 DesignTimePPI = 150 10 10 OnClose = FormClose 11 11 OnCreate = FormCreate … … 13 13 OnResize = FormResize 14 14 OnShow = FormShow 15 LCLVersion = '2. 0.12.0'15 LCLVersion = '2.2.0.4' 16 16 object ListView1: TListView 17 17 Left = 0 18 Height = 8 1018 Height = 844 19 19 Top = 0 20 Width = 12 1020 Width = 1260 21 21 Align = alClient 22 22 Columns = < 23 23 item 24 24 Caption = 'Full Name' 25 Width = 3 0025 Width = 312 26 26 end 27 27 item 28 28 Caption = 'First name' 29 Width = 15 029 Width = 156 30 30 end 31 31 item 32 32 Caption = 'Middle name' 33 Width = 15 033 Width = 156 34 34 end 35 35 item 36 36 Caption = 'Last Name' 37 Width = 15 037 Width = 156 38 38 end 39 39 item 40 40 Caption = 'Phone' 41 Width = 15 041 Width = 156 42 42 end 43 43 item 44 44 Caption = 'Mobile' 45 Width = 15 045 Width = 156 46 46 end 47 47 item 48 48 Caption = 'Home phone' 49 Width = 15 049 Width = 156 50 50 end 51 51 item 52 52 Caption = 'Work phone' 53 Width = 15 053 Width = 156 54 54 end> 55 55 MultiSelect = True … … 67 67 object ToolBar1: TToolBar 68 68 Left = 0 69 Height = 3970 Top = 8 4271 Width = 12 1069 Height = 41 70 Top = 877 71 Width = 1260 72 72 Align = alBottom 73 73 Images = Core.ImageList1 … … 82 82 end 83 83 object ToolButton2: TToolButton 84 Left = 3 684 Left = 37 85 85 Top = 2 86 86 Action = AModify 87 87 end 88 88 object ToolButton3: TToolButton 89 Left = 10 689 Left = 109 90 90 Top = 2 91 91 Action = ARemove 92 92 end 93 93 object ToolButton4: TToolButton 94 Left = 7 194 Left = 73 95 95 Top = 2 96 96 Action = AClone 97 97 end 98 98 object ToolButton5: TToolButton 99 Left = 14 1100 Height = 3 399 Left = 145 100 Height = 34 101 101 Top = 2 102 102 Style = tbsSeparator 103 103 end 104 104 object ToolButton6: TToolButton 105 Left = 1 49105 Left = 153 106 106 Top = 2 107 107 Action = ALoadFromFile 108 108 end 109 109 object ToolButton7: TToolButton 110 Left = 18 4110 Left = 189 111 111 Top = 2 112 112 Action = ASaveToFile … … 115 115 object ListViewFilter1: TListViewFilter 116 116 Left = 0 117 Height = 3 2118 Top = 8 10119 Width = 12 10117 Height = 33 118 Top = 844 119 Width = 1260 120 120 OnChange = ListViewFilter1Change 121 121 Align = alBottom … … 123 123 object StatusBar1: TStatusBar 124 124 Left = 0 125 Height = 2 7126 Top = 881127 Width = 12 10125 Height = 28 126 Top = 918 127 Width = 1260 128 128 Panels = < 129 129 item 130 Width = 5 0130 Width = 52 131 131 end> 132 132 SimplePanel = False … … 134 134 object PopupMenuContact: TPopupMenu 135 135 Images = Core.ImageList1 136 Left = 4 35137 Top = 2 63136 Left = 453 137 Top = 274 138 138 object MenuItem1: TMenuItem 139 139 Action = AAdd … … 175 175 object ActionList1: TActionList 176 176 Images = Core.ImageList1 177 Left = 7 32178 Top = 2 57177 Left = 763 178 Top = 268 179 179 object AAdd: TAction 180 180 Caption = 'Add' … … 241 241 Column = 0 242 242 Order = soNone 243 Left = 5 28244 Top = 4 28243 Left = 550 244 Top = 446 245 245 end 246 246 object SaveDialog1: TSaveDialog 247 Left = 7 20248 Top = 4 08247 Left = 750 248 Top = 425 249 249 end 250 250 object OpenDialog1: TOpenDialog 251 Left = 7 20252 Top = 480251 Left = 750 252 Top = 500 253 253 end 254 254 end -
trunk/Forms/UFormProperties.lfm
r72 r95 1 1 object FormProperties: TFormProperties 2 2 Left = 400 3 Height = 9 083 Height = 946 4 4 Top = 212 5 Width = 12 105 Width = 1260 6 6 Caption = 'Contacts' 7 ClientHeight = 9 088 ClientWidth = 12 109 DesignTimePPI = 1 447 ClientHeight = 946 8 ClientWidth = 1260 9 DesignTimePPI = 150 10 10 OnClose = FormClose 11 11 OnCreate = FormCreate 12 12 OnShow = FormShow 13 LCLVersion = '2. 0.12.0'13 LCLVersion = '2.2.0.4' 14 14 object ListView1: TListView 15 15 Left = 0 16 Height = 8 0116 Height = 844 17 17 Top = 0 18 Width = 12 1018 Width = 1260 19 19 Align = alClient 20 20 Columns = < 21 21 item 22 22 Caption = 'Name' 23 Width = 3 0023 Width = 312 24 24 end 25 25 item 26 26 Caption = 'Attributes' 27 Width = 15 027 Width = 156 28 28 end 29 29 item 30 30 Caption = 'Values' 31 Width = 7 4531 Width = 777 32 32 end> 33 33 MultiSelect = True … … 45 45 object ToolBar1: TToolBar 46 46 Left = 0 47 Height = 3948 Top = 8 3349 Width = 12 1047 Height = 41 48 Top = 877 49 Width = 1260 50 50 Align = alBottom 51 51 Images = Core.ImageList1 … … 60 60 end 61 61 object ToolButton2: TToolButton 62 Left = 3 662 Left = 37 63 63 Top = 2 64 64 Action = AModify 65 65 end 66 66 object ToolButton3: TToolButton 67 Left = 10 667 Left = 109 68 68 Top = 2 69 69 Action = ARemove 70 70 end 71 71 object ToolButton4: TToolButton 72 Left = 7 172 Left = 73 73 73 Top = 2 74 74 Action = AClone 75 75 end 76 76 object ToolButton5: TToolButton 77 Left = 14 178 Height = 3 377 Left = 145 78 Height = 34 79 79 Top = 2 80 80 Style = tbsSeparator 81 81 end 82 82 object ToolButton6: TToolButton 83 Left = 1 4983 Left = 153 84 84 Top = 2 85 85 Action = ALoadValueFromFile 86 86 end 87 87 object ToolButton7: TToolButton 88 Left = 18 488 Left = 189 89 89 Top = 2 90 90 Action = ASaveValueToFile … … 93 93 object ListViewFilter1: TListViewFilter 94 94 Left = 0 95 Height = 3 296 Top = 8 0197 Width = 12 1095 Height = 33 96 Top = 844 97 Width = 1260 98 98 OnChange = ListViewFilter1Change 99 99 Align = alBottom … … 101 101 object StatusBar1: TStatusBar 102 102 Left = 0 103 Height = 36104 Top = 872105 Width = 12 10103 Height = 28 104 Top = 918 105 Width = 1260 106 106 Panels = < 107 107 item 108 Width = 5 0108 Width = 52 109 109 end> 110 110 SimplePanel = False … … 112 112 object PopupMenuField: TPopupMenu 113 113 Images = Core.ImageList1 114 Left = 4 35115 Top = 2 63114 Left = 453 115 Top = 274 116 116 object MenuItem1: TMenuItem 117 117 Action = AAdd … … 141 141 object ActionList1: TActionList 142 142 Images = Core.ImageList1 143 Left = 7 32144 Top = 2 57143 Left = 763 144 Top = 268 145 145 object AAdd: TAction 146 146 Caption = 'Add' … … 189 189 Column = 0 190 190 Order = soNone 191 Left = 5 28192 Top = 4 28191 Left = 550 192 Top = 446 193 193 end 194 194 object SaveDialog1: TSaveDialog 195 Left = 7 60196 Top = 4 48195 Left = 792 196 Top = 467 197 197 end 198 198 object OpenDialog1: TOpenDialog 199 Left = 7 60200 Top = 5 20199 Left = 792 200 Top = 542 201 201 end 202 202 end
Note:
See TracChangeset
for help on using the changeset viewer.