Ignore:
Timestamp:
Jan 26, 2018, 11:23:26 PM (6 years ago)
Author:
chronos
Message:
  • Added: Contact edit form.
Location:
trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk

    • Property svn:ignore set to
      *.lrj
      heaptrclog.trc
      lib
      vCardStudio
      *.lps
      *.res

  • trunk/Forms

    • Property svn:ignore set to
      *.lrj

  • trunk/Forms/UFormContacts.lfm

    r1 r2  
    77  ClientHeight = 605
    88  ClientWidth = 807
     9  OnClose = FormClose
    910  OnShow = FormShow
    1011  LCLVersion = '1.8.0.4'
    1112  object ListView1: TListView
    1213    Left = 0
    13     Height = 605
     14    Height = 579
    1415    Top = 0
    1516    Width = 807
    … …  
    2122      end>
    2223    OwnerData = True
     24    PopupMenu = PopupMenuContact
    2325    ReadOnly = True
    2426    RowSelect = True
    … …  
    2628    ViewStyle = vsReport
    2729    OnData = ListView1Data
     30    OnDblClick = ListView1DblClick
     31    OnSelectItem = ListView1SelectItem
     32  end
     33  object ToolBar1: TToolBar
     34    Left = 0
     35    Height = 26
     36    Top = 579
     37    Width = 807
     38    Align = alBottom
     39    Caption = 'ToolBar1'
     40    Images = Core.ImageList1
     41    TabOrder = 1
     42    object ToolButton1: TToolButton
     43      Left = 1
     44      Top = 2
     45      Action = AAdd
     46    end
     47    object ToolButton2: TToolButton
     48      Left = 24
     49      Top = 2
     50      Action = AModify
     51    end
     52    object ToolButton3: TToolButton
     53      Left = 47
     54      Top = 2
     55      Action = ARemove
     56    end
     57  end
     58  object PopupMenuContact: TPopupMenu
     59    Images = Core.ImageList1
     60    left = 290
     61    top = 175
     62    object MenuItem1: TMenuItem
     63      Action = AAdd
     64    end
     65    object MenuItem2: TMenuItem
     66      Action = AModify
     67    end
     68    object MenuItem3: TMenuItem
     69      Action = ARemove
     70    end
     71  end
     72  object ActionList1: TActionList
     73    Images = Core.ImageList1
     74    left = 488
     75    top = 171
     76    object AAdd: TAction
     77      Caption = 'Add'
     78      ImageIndex = 9
     79      OnExecute = AAddExecute
     80      ShortCut = 45
     81    end
     82    object AModify: TAction
     83      Caption = 'Modify'
     84      ImageIndex = 6
     85      OnExecute = AModifyExecute
     86      ShortCut = 13
     87    end
     88    object ARemove: TAction
     89      Caption = 'Remove'
     90      ImageIndex = 10
     91      OnExecute = ARemoveExecute
     92      ShortCut = 46
     93    end
    2894  end
    2995end
Note: See TracChangeset for help on using the changeset viewer.