Changeset 95 for trunk/Forms


Ignore:
Timestamp:
Feb 3, 2022, 11:39:12 PM (2 years ago)
Author:
chronos
Message:
  • Added: URLs and emails can be opened in default applications.
Location:
trunk/Forms
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormContact.lfm

    r93 r95  
    1818    Top = 8
    1919    Width = 1009
    20     ActivePage = TabSheetAll
     20    ActivePage = TabSheetWork
    2121    Anchors = [akTop, akLeft, akRight, akBottom]
    2222    ParentFont = False
    23     TabIndex = 6
     23    TabIndex = 2
    2424    TabOrder = 0
    2525    object TabSheetGeneral: TTabSheet
    … …  
    8282        Height = 43
    8383        Top = 342
    84         Width = 265
     84        Width = 216
    8585        ParentFont = False
    8686        TabOrder = 11
    … …  
    277277        Height = 43
    278278        Top = 392
    279         Width = 711
     279        Width = 666
    280280        ParentFont = False
    281281        TabOrder = 13
    … …  
    312312        ParentFont = False
    313313        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
    314338      end
    315339    end
    … …  
    333357        Height = 43
    334358        Top = 117
    335         Width = 265
     359        Width = 216
    336360        ParentFont = False
    337361        TabOrder = 4
    … …  
    396420        Left = 180
    397421        Height = 43
    398         Top = 167
    399         Width = 711
     422        Top = 168
     423        Width = 668
    400424        ParentFont = False
    401425        TabOrder = 5
    … …  
    408432        Anchors = [akTop, akLeft, akRight]
    409433        Caption = 'Address'
    410         ClientHeight = 250
     434        ClientHeight = 224
    411435        ClientWidth = 959
    412436        TabOrder = 6
    … …  
    540564        ParentFont = False
    541565      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
    542590    end
    543591    object TabSheetWork: TTabSheet
    … …  
    599647        Height = 43
    600648        Top = 267
    601         Width = 711
     649        Width = 668
    602650        ParentFont = False
    603651        TabOrder = 8
    … …  
    617665        Width = 949
    618666        Caption = 'Address'
    619         ClientHeight = 255
     667        ClientHeight = 229
    620668        ClientWidth = 947
    621669        TabOrder = 9
    … …  
    809857        Height = 43
    810858        Top = 219
    811         Width = 265
     859        Width = 218
    812860        ParentFont = False
    813861        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
    814886      end
    815887    end
    … …  
    12531325    Left = 8
    12541326    Height = 39
    1255     Top = 714
     1327    Top = 720
    12561328    Width = 124
    12571329    Anchors = [akLeft, akBottom]
    … …  
    12651337    Left = 150
    12661338    Height = 39
    1267     Top = 716
     1339    Top = 720
    12681340    Width = 120
    12691341    Anchors = [akLeft, akBottom]
    … …  
    13101382  end
    13111383  object SavePictureDialog1: TSavePictureDialog
    1312     Left = 205
    1313     Top = 643
     1384    Left = 176
     1385    Top = 488
    13141386  end
    13151387end

  • trunk/Forms/UFormContact.lrj

    r77 r95  
    1919{"hash":230992922,"name":"tformcontact.label49.caption","sourcebytes":[71,101,110,100,101,114,58],"value":"Gender:"},
    2020{"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"},
    2123{"hash":325173,"name":"tformcontact.tabsheethome.caption","sourcebytes":[72,111,109,101],"value":"Home"},
    2224{"hash":138641338,"name":"tformcontact.label7.caption","sourcebytes":[69,45,109,97,105,108,58],"value":"E-mail:"},
    … …  
    3436{"hash":72942298,"name":"tformcontact.label12.caption","sourcebytes":[77,111,98,105,108,101,58],"value":"Mobile:"},
    3537{"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"},
    3640{"hash":386699,"name":"tformcontact.tabsheetwork.caption","sourcebytes":[87,111,114,107],"value":"Work"},
    3741{"hash":101155194,"name":"tformcontact.labelorganization.caption","sourcebytes":[79,114,103,97,110,105,122,97,116,105,111,110,58],"value":"Organization:"},
    … …  
    5256{"hash":72942298,"name":"tformcontact.label19.caption","sourcebytes":[77,111,98,105,108,101,58],"value":"Mobile:"},
    5357{"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"},
    5460{"hash":302724,"name":"tformcontact.tabsheetchat.caption","sourcebytes":[67,104,97,116],"value":"Chat"},
    5561{"hash":7900170,"name":"tformcontact.label20.caption","sourcebytes":[74,97,98,98,101,114,58],"value":"Jabber:"},

  • trunk/Forms/UFormContact.pas

    r93 r95  
    77uses
    88  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;
    1011
    1112type
    … …  
    172173    PopupMenuPhoto: TPopupMenu;
    173174    SavePictureDialog1: TSavePictureDialog;
     175    SpeedButtonHomeEmail: TSpeedButton;
     176    SpeedButtonEmail: TSpeedButton;
     177    SpeedButtonWorkEmail: TSpeedButton;
     178    SpeedButtonWorkWeb: TSpeedButton;
     179    SpeedButtonWeb: TSpeedButton;
     180    SpeedButtonHomeWeb: TSpeedButton;
    174181    TabSheetSocial: TTabSheet;
    175182    TabSheetChat: TTabSheet;
    … …  
    188195    procedure FormDestroy(Sender: TObject);
    189196    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);
    190203    procedure TabSheetAllShow(Sender: TObject);
    191204    procedure TabSheetChatHide(Sender: TObject);
    … …  
    231244
    232245uses
    233   UCore;
     246  UCore, UCommon;
    234247
    235248{ TFormContact }
    … …  
    251264  PageControlContact.TabIndex := Core.LastContactTabIndex;
    252265  UpdateInterface;
     266end;
     267
     268procedure TFormContact.peedButtonHomeWebClick(Sender: TObject);
     269begin
     270  if EditHomeWeb.Text <> '' then OpenURL(EditHomeWeb.Text);
     271end;
     272
     273procedure TFormContact.SpeedButtonEmailClick(Sender: TObject);
     274begin
     275  if EditEmail.Text <> '' then OpenEmail(EditEmail.Text);
     276end;
     277
     278procedure TFormContact.SpeedButtonHomeEmailClick(Sender: TObject);
     279begin
     280  if EditHomeEmail.Text <> '' then OpenEmail(EditHomeEmail.Text);
     281end;
     282
     283procedure TFormContact.SpeedButtonWebClick(Sender: TObject);
     284begin
     285  if EditWeb.Text <> '' then OpenURL(EditWeb.Text);
     286end;
     287
     288procedure TFormContact.SpeedButtonWorkEmailClick(Sender: TObject);
     289begin
     290  if EditWorkEmail.Text <> '' then OpenEmail(EditWorkEmail.Text);
     291end;
     292
     293procedure TFormContact.SpeedButtonWorkWebClick(Sender: TObject);
     294begin
     295  if EditWorkWeb.Text <> '' then OpenURL(EditWorkWeb.Text);
    253296end;
    254297

  • trunk/Forms/UFormContacts.lfm

    r82 r95  
    11object FormContacts: TFormContacts
    22  Left = 400
    3   Height = 908
     3  Height = 946
    44  Top = 212
    5   Width = 1210
     5  Width = 1260
    66  Caption = 'Contacts'
    7   ClientHeight = 908
    8   ClientWidth = 1210
    9   DesignTimePPI = 144
     7  ClientHeight = 946
     8  ClientWidth = 1260
     9  DesignTimePPI = 150
    1010  OnClose = FormClose
    1111  OnCreate = FormCreate
    … …  
    1313  OnResize = FormResize
    1414  OnShow = FormShow
    15   LCLVersion = '2.0.12.0'
     15  LCLVersion = '2.2.0.4'
    1616  object ListView1: TListView
    1717    Left = 0
    18     Height = 810
     18    Height = 844
    1919    Top = 0
    20     Width = 1210
     20    Width = 1260
    2121    Align = alClient
    2222    Columns = <   
    2323      item
    2424        Caption = 'Full Name'
    25         Width = 300
     25        Width = 312
    2626      end   
    2727      item
    2828        Caption = 'First name'
    29         Width = 150
     29        Width = 156
    3030      end   
    3131      item
    3232        Caption = 'Middle name'
    33         Width = 150
     33        Width = 156
    3434      end   
    3535      item
    3636        Caption = 'Last Name'
    37         Width = 150
     37        Width = 156
    3838      end   
    3939      item
    4040        Caption = 'Phone'
    41         Width = 150
     41        Width = 156
    4242      end   
    4343      item
    4444        Caption = 'Mobile'
    45         Width = 150
     45        Width = 156
    4646      end   
    4747      item
    4848        Caption = 'Home phone'
    49         Width = 150
     49        Width = 156
    5050      end   
    5151      item
    5252        Caption = 'Work phone'
    53         Width = 150
     53        Width = 156
    5454      end>
    5555    MultiSelect = True
    … …  
    6767  object ToolBar1: TToolBar
    6868    Left = 0
    69     Height = 39
    70     Top = 842
    71     Width = 1210
     69    Height = 41
     70    Top = 877
     71    Width = 1260
    7272    Align = alBottom
    7373    Images = Core.ImageList1
    … …  
    8282    end
    8383    object ToolButton2: TToolButton
    84       Left = 36
     84      Left = 37
    8585      Top = 2
    8686      Action = AModify
    8787    end
    8888    object ToolButton3: TToolButton
    89       Left = 106
     89      Left = 109
    9090      Top = 2
    9191      Action = ARemove
    9292    end
    9393    object ToolButton4: TToolButton
    94       Left = 71
     94      Left = 73
    9595      Top = 2
    9696      Action = AClone
    9797    end
    9898    object ToolButton5: TToolButton
    99       Left = 141
    100       Height = 33
     99      Left = 145
     100      Height = 34
    101101      Top = 2
    102102      Style = tbsSeparator
    103103    end
    104104    object ToolButton6: TToolButton
    105       Left = 149
     105      Left = 153
    106106      Top = 2
    107107      Action = ALoadFromFile
    108108    end
    109109    object ToolButton7: TToolButton
    110       Left = 184
     110      Left = 189
    111111      Top = 2
    112112      Action = ASaveToFile
    … …  
    115115  object ListViewFilter1: TListViewFilter
    116116    Left = 0
    117     Height = 32
    118     Top = 810
    119     Width = 1210
     117    Height = 33
     118    Top = 844
     119    Width = 1260
    120120    OnChange = ListViewFilter1Change
    121121    Align = alBottom
    … …  
    123123  object StatusBar1: TStatusBar
    124124    Left = 0
    125     Height = 27
    126     Top = 881
    127     Width = 1210
     125    Height = 28
     126    Top = 918
     127    Width = 1260
    128128    Panels = <   
    129129      item
    130         Width = 50
     130        Width = 52
    131131      end>
    132132    SimplePanel = False
    … …  
    134134  object PopupMenuContact: TPopupMenu
    135135    Images = Core.ImageList1
    136     Left = 435
    137     Top = 263
     136    Left = 453
     137    Top = 274
    138138    object MenuItem1: TMenuItem
    139139      Action = AAdd
    … …  
    175175  object ActionList1: TActionList
    176176    Images = Core.ImageList1
    177     Left = 732
    178     Top = 257
     177    Left = 763
     178    Top = 268
    179179    object AAdd: TAction
    180180      Caption = 'Add'
    … …  
    241241    Column = 0
    242242    Order = soNone
    243     Left = 528
    244     Top = 428
     243    Left = 550
     244    Top = 446
    245245  end
    246246  object SaveDialog1: TSaveDialog
    247     Left = 720
    248     Top = 408
     247    Left = 750
     248    Top = 425
    249249  end
    250250  object OpenDialog1: TOpenDialog
    251     Left = 720
    252     Top = 480
     251    Left = 750
     252    Top = 500
    253253  end
    254254end

  • trunk/Forms/UFormProperties.lfm

    r72 r95  
    11object FormProperties: TFormProperties
    22  Left = 400
    3   Height = 908
     3  Height = 946
    44  Top = 212
    5   Width = 1210
     5  Width = 1260
    66  Caption = 'Contacts'
    7   ClientHeight = 908
    8   ClientWidth = 1210
    9   DesignTimePPI = 144
     7  ClientHeight = 946
     8  ClientWidth = 1260
     9  DesignTimePPI = 150
    1010  OnClose = FormClose
    1111  OnCreate = FormCreate
    1212  OnShow = FormShow
    13   LCLVersion = '2.0.12.0'
     13  LCLVersion = '2.2.0.4'
    1414  object ListView1: TListView
    1515    Left = 0
    16     Height = 801
     16    Height = 844
    1717    Top = 0
    18     Width = 1210
     18    Width = 1260
    1919    Align = alClient
    2020    Columns = <   
    2121      item
    2222        Caption = 'Name'
    23         Width = 300
     23        Width = 312
    2424      end   
    2525      item
    2626        Caption = 'Attributes'
    27         Width = 150
     27        Width = 156
    2828      end   
    2929      item
    3030        Caption = 'Values'
    31         Width = 745
     31        Width = 777
    3232      end>
    3333    MultiSelect = True
    … …  
    4545  object ToolBar1: TToolBar
    4646    Left = 0
    47     Height = 39
    48     Top = 833
    49     Width = 1210
     47    Height = 41
     48    Top = 877
     49    Width = 1260
    5050    Align = alBottom
    5151    Images = Core.ImageList1
    … …  
    6060    end
    6161    object ToolButton2: TToolButton
    62       Left = 36
     62      Left = 37
    6363      Top = 2
    6464      Action = AModify
    6565    end
    6666    object ToolButton3: TToolButton
    67       Left = 106
     67      Left = 109
    6868      Top = 2
    6969      Action = ARemove
    7070    end
    7171    object ToolButton4: TToolButton
    72       Left = 71
     72      Left = 73
    7373      Top = 2
    7474      Action = AClone
    7575    end
    7676    object ToolButton5: TToolButton
    77       Left = 141
    78       Height = 33
     77      Left = 145
     78      Height = 34
    7979      Top = 2
    8080      Style = tbsSeparator
    8181    end
    8282    object ToolButton6: TToolButton
    83       Left = 149
     83      Left = 153
    8484      Top = 2
    8585      Action = ALoadValueFromFile
    8686    end
    8787    object ToolButton7: TToolButton
    88       Left = 184
     88      Left = 189
    8989      Top = 2
    9090      Action = ASaveValueToFile
    … …  
    9393  object ListViewFilter1: TListViewFilter
    9494    Left = 0
    95     Height = 32
    96     Top = 801
    97     Width = 1210
     95    Height = 33
     96    Top = 844
     97    Width = 1260
    9898    OnChange = ListViewFilter1Change
    9999    Align = alBottom
    … …  
    101101  object StatusBar1: TStatusBar
    102102    Left = 0
    103     Height = 36
    104     Top = 872
    105     Width = 1210
     103    Height = 28
     104    Top = 918
     105    Width = 1260
    106106    Panels = <   
    107107      item
    108         Width = 50
     108        Width = 52
    109109      end>
    110110    SimplePanel = False
    … …  
    112112  object PopupMenuField: TPopupMenu
    113113    Images = Core.ImageList1
    114     Left = 435
    115     Top = 263
     114    Left = 453
     115    Top = 274
    116116    object MenuItem1: TMenuItem
    117117      Action = AAdd
    … …  
    141141  object ActionList1: TActionList
    142142    Images = Core.ImageList1
    143     Left = 732
    144     Top = 257
     143    Left = 763
     144    Top = 268
    145145    object AAdd: TAction
    146146      Caption = 'Add'
    … …  
    189189    Column = 0
    190190    Order = soNone
    191     Left = 528
    192     Top = 428
     191    Left = 550
     192    Top = 446
    193193  end
    194194  object SaveDialog1: TSaveDialog
    195     Left = 760
    196     Top = 448
     195    Left = 792
     196    Top = 467
    197197  end
    198198  object OpenDialog1: TOpenDialog
    199     Left = 760
    200     Top = 520
     199    Left = 792
     200    Top = 542
    201201  end
    202202end
Note: See TracChangeset for help on using the changeset viewer.