Changeset 14 for trunk/Forms


Ignore:
Timestamp:
Feb 4, 2018, 2:01:05 PM (7 years ago)
Author:
chronos
Message:
  • Added: New File menu action Merge. It can merge multiple vcard files and update values for items with same full name.
Location:
trunk/Forms
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormContacts.lfm

    r13 r14  
    3434        Width = 387
    3535      end>
     36    MultiSelect = True
    3637    OwnerData = True
    3738    PopupMenu = PopupMenuContact
    … …  
    7576      Action = AAdd
    7677    end
     78    object MenuItem3: TMenuItem
     79      Action = ARemove
     80    end
    7781    object MenuItem2: TMenuItem
    7882      Action = AModify
    7983    end
    80     object MenuItem3: TMenuItem
    81       Action = ARemove
     84    object MenuItem4: TMenuItem
     85      Action = ASelectAll
    8286    end
    8387  end
    … …  
    104108      ShortCut = 46
    105109    end
     110    object ASelectAll: TAction
     111      Caption = 'Select all'
     112      OnExecute = ASelectAllExecute
     113      ShortCut = 16449
     114    end
    106115  end
    107116end

  • trunk/Forms/UFormContacts.pas

    r13 r14  
    1515  TFormContacts = class(TForm)
    1616    AAdd: TAction;
     17    ASelectAll: TAction;
    1718    ARemove: TAction;
    1819    AModify: TAction;
    … …  
    2223    MenuItem2: TMenuItem;
    2324    MenuItem3: TMenuItem;
     25    MenuItem4: TMenuItem;
    2426    PopupMenuContact: TPopupMenu;
    2527    ToolBar1: TToolBar;
    … …  
    3032    procedure AModifyExecute(Sender: TObject);
    3133    procedure ARemoveExecute(Sender: TObject);
     34    procedure ASelectAllExecute(Sender: TObject);
    3235    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    3336    procedure FormCreate(Sender: TObject);
    … …  
    158161end;
    159162
     163procedure TFormContacts.ASelectAllExecute(Sender: TObject);
     164begin
     165  ListView1.SelectAll;
     166end;
     167
    160168procedure TFormContacts.FormClose(Sender: TObject; var CloseAction: TCloseAction
    161169  );

  • trunk/Forms/UFormMain.lfm

    r13 r14  
    11object FormMain: TFormMain
    2   Left = 613
     2  Left = 601
    33  Height = 531
    4   Top = 401
     4  Top = 447
    55  Width = 785
    6   Caption = 'FormMain'
     6  Caption = 'vCard Studio'
    77  ClientHeight = 497
    88  ClientWidth = 785
    … …  
    132132        Action = Core.AFileClose
    133133      end
     134      object MenuItem1: TMenuItem
     135        Caption = '-'
     136      end
     137      object MenuItem3: TMenuItem
     138        Action = Core.AFileMerge
     139      end
    134140      object MenuItem2: TMenuItem
    135141        Caption = '-'

  • trunk/Forms/UFormMain.pas

    r13 r14  
    1616    CoolBar1: TCoolBar;
    1717    MainMenu1: TMainMenu;
     18    MenuItem1: TMenuItem;
     19    MenuItem3: TMenuItem;
    1820    MenuItemToolbar: TMenuItem;
    1921    MenuItemView: TMenuItem;
Note: See TracChangeset for help on using the changeset viewer.