Ignore:
Timestamp:
Feb 8, 2022, 6:07:35 PM (2 years ago)
Author:
chronos
Message:
  • Added: Buttons to show contact home and work addresses on online map. Predefined map uses openstreetmap.org.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormSettings.lfm

    r89 r101  
    11object FormSettings: TFormSettings
    22  Left = 798
    3   Height = 360
    4   Top = 367
    5   Width = 564
     3  Height = 421
     4  Top = 321
     5  Width = 548
    66  Caption = 'Settings'
    7   ClientHeight = 360
    8   ClientWidth = 564
    9   Constraints.MinHeight = 360
    10   Constraints.MinWidth = 480
    11   DesignTimePPI = 144
     7  ClientHeight = 421
     8  ClientWidth = 548
     9  Constraints.MinHeight = 421
     10  Constraints.MinWidth = 548
     11  DesignTimePPI = 150
    1212  OnClose = FormClose
    1313  OnCreate = FormCreate
    1414  OnShow = FormShow
    1515  Position = poScreenCenter
    16   LCLVersion = '2.0.12.0'
     16  LCLVersion = '2.2.0.4'
    1717  object ComboBoxLanguage: TComboBox
    18     Left = 240
    19     Height = 41
    20     Top = 16
    21     Width = 264
     18    Left = 250
     19    Height = 42
     20    Top = 17
     21    Width = 275
    2222    ItemHeight = 0
    2323    ParentFont = False
    … …  
    2626  end
    2727  object Label1: TLabel
    28     Left = 24
    29     Height = 24
    30     Top = 24
    31     Width = 88
     28    Left = 25
     29    Height = 27
     30    Top = 25
     31    Width = 96
    3232    Caption = 'Language:'
    33     ParentColor = False
    3433    ParentFont = False
    3534  end
    3635  object ButtonOk: TButton
    37     Left = 438
    38     Height = 37
    39     Top = 307
    40     Width = 113
     36    Left = 416
     37    Height = 39
     38    Top = 365
     39    Width = 118
    4140    Anchors = [akRight, akBottom]
    4241    Caption = 'Ok'
    … …  
    4746  end
    4847  object ButtonCancel: TButton
    49     Left = 294
    50     Height = 37
    51     Top = 307
    52     Width = 113
     48    Left = 266
     49    Height = 39
     50    Top = 365
     51    Width = 118
    5352    Anchors = [akRight, akBottom]
    5453    Caption = 'Cancel'
    … …  
    5958  object CheckBoxAutomaticDPI: TCheckBox
    6059    Left = 24
    61     Height = 30
    62     Top = 200
    63     Width = 148
     60    Height = 31
     61    Top = 257
     62    Width = 154
    6463    Caption = 'Automatic DPI'
    6564    OnChange = CheckBoxAutomaticDPIChange
    … …  
    6968  end
    7069  object SpinEditDPI: TSpinEdit
    71     Left = 240
    72     Height = 42
    73     Top = 232
    74     Width = 145
     70    Left = 249
     71    Height = 43
     72    Top = 291
     73    Width = 151
    7574    MaxValue = 300
    7675    MinValue = 96
    … …  
    8180  end
    8281  object LabelDPI: TLabel
    83     Left = 56
    84     Height = 24
    85     Top = 240
    86     Width = 35
     82    Left = 57
     83    Height = 27
     84    Top = 299
     85    Width = 36
    8786    Caption = 'DPI:'
    88     ParentColor = False
    8987    ParentFont = False
    9088    Visible = False
    … …  
    9290  object CheckBoxReopenLastFileOnStart: TCheckBox
    9391    Left = 24
    94     Height = 30
    95     Top = 160
    96     Width = 226
     92    Height = 31
     93    Top = 216
     94    Width = 239
    9795    Caption = 'Reopen last file on start'
    9896    ParentFont = False
    … …  
    102100    Left = 12
    103101    Height = 2
    104     Top = 288
    105     Width = 534
     102    Top = 346
     103    Width = 517
    106104    Anchors = [akLeft, akRight, akBottom]
    107105  end
    108106  object Label2: TLabel
    109     Left = 24
    110     Height = 24
    111     Top = 72
    112     Width = 63
     107    Left = 25
     108    Height = 27
     109    Top = 75
     110    Width = 67
    113111    Caption = 'Theme:'
    114     ParentColor = False
    115112    ParentFont = False
    116113  end
    117114  object ComboBoxTheme: TComboBox
    118     Left = 240
    119     Height = 41
    120     Top = 64
    121     Width = 264
     115    Left = 250
     116    Height = 42
     117    Top = 67
     118    Width = 275
    122119    ItemHeight = 0
    123120    ParentFont = False
    … …  
    126123  end
    127124  object Label3: TLabel
    128     Left = 24
    129     Height = 24
    130     Top = 120
    131     Width = 186
     125    Left = 25
     126    Height = 27
     127    Top = 125
     128    Width = 199
    132129    Caption = 'Default vCard version:'
    133     ParentColor = False
    134130  end
    135131  object EditDefaultVcardVersion: TEdit
    136     Left = 240
    137     Height = 42
    138     Top = 112
    139     Width = 144
     132    Left = 250
     133    Height = 43
     134    Top = 117
     135    Width = 150
    140136    TabOrder = 2
    141137  end
     138  object Label4: TLabel
     139    Left = 25
     140    Height = 27
     141    Top = 172
     142    Width = 144
     143    Caption = 'Map query URL:'
     144  end
     145  object EditMapUrl: TEdit
     146    Left = 250
     147    Height = 43
     148    Top = 168
     149    Width = 278
     150    Anchors = [akTop, akLeft, akRight]
     151    TabOrder = 8
     152  end
    142153end
Note: See TracChangeset for help on using the changeset viewer.