Changeset 71 for trunk/Forms


Ignore:
Timestamp:
Dec 13, 2021, 6:48:48 PM (3 years ago)
Author:
chronos
Message:
Location:
trunk/Forms
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormContact.lfm

    r58 r71  
    1818    Top = 8
    1919    Width = 969
    20     ActivePage = TabSheetSocial
     20    ActivePage = TabSheetWork
    2121    Anchors = [akTop, akLeft, akRight, akBottom]
    2222    ParentFont = False
    23     TabIndex = 4
     23    TabIndex = 2
    2424    TabOrder = 0
    2525    object TabSheetGeneral: TTabSheet
    … …  
    312312        ParentFont = False
    313313        TabOrder = 15
     314      end
     315      object Label56: TLabel
     316        Left = 16
     317        Height = 24
     318        Top = 480
     319        Width = 95
     320        Caption = 'Categories:'
     321        ParentColor = False
     322        ParentFont = False
     323      end
     324      object EditCategories: TEdit
     325        Left = 144
     326        Height = 42
     327        Top = 472
     328        Width = 254
     329        ParentFont = False
     330        TabOrder = 16
    314331      end
    315332    end
    … …  
    10351052        ParentFont = False
    10361053        TabOrder = 10
     1054      end
     1055      object Label57: TLabel
     1056        Left = 10
     1057        Height = 24
     1058        Top = 308
     1059        Width = 99
     1060        Caption = 'GroupWise:'
     1061        ParentColor = False
     1062        ParentFont = False
     1063      end
     1064      object EditGroupWise: TEdit
     1065        Left = 173
     1066        Height = 42
     1067        Top = 304
     1068        Width = 254
     1069        ParentFont = False
     1070        TabOrder = 11
     1071      end
     1072      object LabelOrganization12: TLabel
     1073        Left = 451
     1074        Height = 24
     1075        Top = 312
     1076        Width = 95
     1077        Caption = 'GaduGadu:'
     1078        ParentColor = False
     1079        ParentFont = False
     1080      end
     1081      object EditGaduGadu: TEdit
     1082        Left = 608
     1083        Height = 42
     1084        Top = 308
     1085        Width = 254
     1086        ParentFont = False
     1087        TabOrder = 12
    10371088      end
    10381089    end

  • trunk/Forms/UFormContact.lrj

    r58 r71  
    1818{"hash":258182170,"name":"tformcontact.label46.caption","sourcebytes":[87,101,98,32,97,100,100,114,101,115,115,58],"value":"Web address:"},
    1919{"hash":230992922,"name":"tformcontact.label49.caption","sourcebytes":[71,101,110,100,101,114,58],"value":"Gender:"},
     20{"hash":237074138,"name":"tformcontact.label56.caption","sourcebytes":[67,97,116,101,103,111,114,105,101,115,58],"value":"Categories:"},
    2021{"hash":325173,"name":"tformcontact.tabsheethome.caption","sourcebytes":[72,111,109,101],"value":"Home"},
    2122{"hash":138641338,"name":"tformcontact.label7.caption","sourcebytes":[69,45,109,97,105,108,58],"value":"E-mail:"},
    … …  
    6364{"hash":22090,"name":"tformcontact.labelorganization6.caption","sourcebytes":[81,81,58],"value":"QQ:"},
    6465{"hash":59478250,"name":"tformcontact.label55.caption","sourcebytes":[77,97,116,114,105,120,58],"value":"Matrix:"},
     66{"hash":207282410,"name":"tformcontact.label57.caption","sourcebytes":[71,114,111,117,112,87,105,115,101,58],"value":"GroupWise:"},
     67{"hash":194852602,"name":"tformcontact.labelorganization12.caption","sourcebytes":[71,97,100,117,71,97,100,117,58],"value":"GaduGadu:"},
    6568{"hash":94740348,"name":"tformcontact.tabsheetsocial.caption","sourcebytes":[83,111,99,105,97,108],"value":"Social"},
    6669{"hash":10910938,"name":"tformcontact.label50.caption","sourcebytes":[77,121,115,112,97,99,101,58],"value":"Myspace:"},

  • trunk/Forms/UFormContact.pas

    r70 r71  
    2323    ButtonPrevious: TButton;
    2424    EditAim: TEdit;
     25    EditCategories: TEdit;
    2526    EditMatrix: TEdit;
     27    EditGaduGadu: TEdit;
     28    EditGroupWise: TEdit;
    2629    EditYouTube: TEdit;
    2730    EditGender: TEdit;
    … …  
    142145    Label54: TLabel;
    143146    Label55: TLabel;
     147    Label56: TLabel;
     148    Label57: TLabel;
    144149    Label6: TLabel;
    145150    Label7: TLabel;
    … …  
    150155    LabelOrganization10: TLabel;
    151156    LabelOrganization11: TLabel;
     157    LabelOrganization12: TLabel;
    152158    LabelOrganization2: TLabel;
    153159    LabelOrganization3: TLabel;
    … …  
    263269  Contact.Fields[cfAim] := EditAim.Text;
    264270  Contact.Fields[cfIrc] := EditIrc.Text;
     271  Contact.Fields[cfGroupWise] := EditGroupWise.Text;
     272  Contact.Fields[cfGaduGadu] := EditGaduGadu.Text;
    265273
    266274  ReloadAllPropertiesTab;
    … …  
    280288  EditAim.Text := Contact.Fields[cfAim];
    281289  EditIrc.Text := Contact.Fields[cfIrc];
     290  EditGroupWise.Text := Contact.Fields[cfGroupWise];
     291  EditGaduGadu.Text := Contact.Fields[cfGaduGadu];
    282292end;
    283293
    … …  
    307317  Contact.Fields[cfUrl] := EditWeb.Text;
    308318  Contact.Fields[cfGender] := EditGender.Text;
     319  Contact.Fields[cfCategories] := EditCategories.Text;
    309320
    310321  // Photo
    … …  
    406417  EditWeb.Text := Contact.Fields[cfUrl];
    407418  EditGender.Text := Contact.Fields[cfGender];
     419  EditCategories.Text := Contact.Fields[cfCategories];
    408420
    409421  // Photo
Note: See TracChangeset for help on using the changeset viewer.