Ignore:
Timestamp:
Dec 8, 2021, 10:00:45 PM (3 years ago)
Author:
chronos
Message:
  • Added: Social tab in contact form.
  • Added: Allow to specify alternative property name for contact field definition to support various non-standard properties.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormContact.lfm

    r57 r58  
    1818    Top = 8
    1919    Width = 969
    20     ActivePage = TabSheetChat
     20    ActivePage = TabSheetSocial
    2121    Anchors = [akTop, akLeft, akRight, akBottom]
    2222    ParentFont = False
    23     TabIndex = 3
     23    TabIndex = 4
    2424    TabOrder = 0
    2525    object TabSheetGeneral: TTabSheet
    … …  
    295295        ParentFont = False
    296296        TabOrder = 14
     297      end
     298      object Label49: TLabel
     299        Left = 432
     300        Height = 24
     301        Top = 332
     302        Width = 67
     303        Caption = 'Gender:'
     304        ParentColor = False
     305        ParentFont = False
     306      end
     307      object EditGender: TEdit
     308        Left = 575
     309        Height = 42
     310        Top = 328
     311        Width = 254
     312        ParentFont = False
     313        TabOrder = 15
    297314      end
    298315    end
    … …  
    850867      end
    851868      object LabelOrganization2: TLabel
    852         Left = 451
    853         Height = 24
    854         Top = 24
     869        Left = 10
     870        Height = 24
     871        Top = 256
    855872        Width = 55
    856873        Caption = 'Skype:'
    … …  
    859876      end
    860877      object EditSkype: TEdit
    861         Left = 608
    862         Height = 42
    863         Top = 20
     878        Left = 173
     879        Height = 42
     880        Top = 256
    864881        Width = 254
    865882        ParentFont = False
    … …  
    10011018        ParentFont = False
    10021019        TabOrder = 9
     1020      end
     1021      object Label55: TLabel
     1022        Left = 451
     1023        Height = 24
     1024        Top = 24
     1025        Width = 59
     1026        Caption = 'Matrix:'
     1027        ParentColor = False
     1028        ParentFont = False
     1029      end
     1030      object EditMatrix: TEdit
     1031        Left = 608
     1032        Height = 42
     1033        Top = 20
     1034        Width = 254
     1035        ParentFont = False
     1036        TabOrder = 10
     1037      end
     1038    end
     1039    object TabSheetSocial: TTabSheet
     1040      Caption = 'Social'
     1041      ClientHeight = 628
     1042      ClientWidth = 959
     1043      OnHide = TabSheetSocialHide
     1044      OnShow = TabSheetSocialShow
     1045      object Label50: TLabel
     1046        Left = 451
     1047        Height = 24
     1048        Top = 164
     1049        Width = 79
     1050        Caption = 'Myspace:'
     1051        ParentColor = False
     1052        ParentFont = False
     1053      end
     1054      object EditMySpace: TEdit
     1055        Left = 608
     1056        Height = 42
     1057        Top = 160
     1058        Width = 254
     1059        ParentFont = False
     1060        TabOrder = 0
     1061      end
     1062      object EditTwitter: TEdit
     1063        Left = 173
     1064        Height = 42
     1065        Top = 64
     1066        Width = 254
     1067        ParentFont = False
     1068        TabOrder = 1
     1069      end
     1070      object Label51: TLabel
     1071        Left = 10
     1072        Height = 24
     1073        Top = 68
     1074        Width = 63
     1075        Caption = 'Twitter:'
     1076        ParentColor = False
     1077        ParentFont = False
     1078      end
     1079      object Label52: TLabel
     1080        Left = 10
     1081        Height = 24
     1082        Top = 116
     1083        Width = 92
     1084        Caption = 'Instagram:'
     1085        ParentColor = False
     1086        ParentFont = False
     1087      end
     1088      object Label53: TLabel
     1089        Left = 10
     1090        Height = 24
     1091        Top = 164
     1092        Width = 78
     1093        Caption = 'LinkedIn:'
     1094        ParentColor = False
     1095        ParentFont = False
     1096      end
     1097      object Label54: TLabel
     1098        Left = 10
     1099        Height = 24
     1100        Top = 212
     1101        Width = 83
     1102        Caption = 'Snapchat:'
     1103        ParentColor = False
     1104        ParentFont = False
     1105      end
     1106      object EditSnapchat: TEdit
     1107        Left = 173
     1108        Height = 42
     1109        Top = 208
     1110        Width = 254
     1111        ParentFont = False
     1112        TabOrder = 2
     1113      end
     1114      object EditLinkedIn: TEdit
     1115        Left = 173
     1116        Height = 42
     1117        Top = 160
     1118        Width = 254
     1119        ParentFont = False
     1120        TabOrder = 3
     1121      end
     1122      object EditInstagram: TEdit
     1123        Left = 173
     1124        Height = 42
     1125        Top = 112
     1126        Width = 254
     1127        ParentFont = False
     1128        TabOrder = 4
     1129      end
     1130      object LabelOrganization7: TLabel
     1131        Left = 451
     1132        Height = 24
     1133        Top = 20
     1134        Width = 84
     1135        Caption = 'PeerTube:'
     1136        ParentColor = False
     1137        ParentFont = False
     1138      end
     1139      object LabelOrganization8: TLabel
     1140        Left = 451
     1141        Height = 24
     1142        Top = 120
     1143        Width = 77
     1144        Caption = 'YouTube:'
     1145        ParentColor = False
     1146        ParentFont = False
     1147      end
     1148      object EditMastodon: TEdit
     1149        Left = 171
     1150        Height = 42
     1151        Top = 16
     1152        Width = 254
     1153        ParentFont = False
     1154        TabOrder = 5
     1155      end
     1156      object LabelOrganization9: TLabel
     1157        Left = 10
     1158        Height = 24
     1159        Top = 24
     1160        Width = 90
     1161        Caption = 'Mastodon:'
     1162        ParentColor = False
     1163        ParentFont = False
     1164      end
     1165      object LabelOrganization10: TLabel
     1166        Left = 451
     1167        Height = 24
     1168        Top = 216
     1169        Width = 59
     1170        Caption = 'Reddit:'
     1171        ParentColor = False
     1172        ParentFont = False
     1173      end
     1174      object EditReddit: TEdit
     1175        Left = 608
     1176        Height = 42
     1177        Top = 212
     1178        Width = 254
     1179        ParentFont = False
     1180        TabOrder = 6
     1181      end
     1182      object EditPeerTube: TEdit
     1183        Left = 608
     1184        Height = 42
     1185        Top = 16
     1186        Width = 254
     1187        ParentFont = False
     1188        TabOrder = 7
     1189      end
     1190      object EditYouTube: TEdit
     1191        Left = 608
     1192        Height = 42
     1193        Top = 116
     1194        Width = 254
     1195        ParentFont = False
     1196        TabOrder = 8
     1197      end
     1198      object EditFacebook: TEdit
     1199        Left = 608
     1200        Height = 42
     1201        Top = 68
     1202        Width = 254
     1203        ParentFont = False
     1204        TabOrder = 9
     1205      end
     1206      object LabelOrganization11: TLabel
     1207        Left = 451
     1208        Height = 24
     1209        Top = 72
     1210        Width = 86
     1211        Caption = 'Facebook:'
     1212        ParentColor = False
     1213        ParentFont = False
    10031214      end
    10041215    end
Note: See TracChangeset for help on using the changeset viewer.