Ignore:
Timestamp:
Feb 3, 2022, 11:39:12 PM (3 years ago)
Author:
chronos
Message:
  • Added: URLs and emails can be opened in default applications.
File:
1 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
Note: See TracChangeset for help on using the changeset viewer.