Ignore:
Timestamp:
Aug 7, 2019, 12:04:53 AM (5 years ago)
Author:
chronos
Message:
  • Added: Allow to add, edit and delete registry values.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • Registry/Demo/UFormMain.lfm

    r538 r539  
    11object FormMain: TFormMain
    22  Left = 354
    3   Height = 568
     3  Height = 682
    44  Top = 285
    5   Width = 884
     5  Width = 1061
    66  Caption = 'General registry editor'
    7   ClientHeight = 543
    8   ClientWidth = 884
    9   DesignTimePPI = 120
     7  ClientHeight = 648
     8  ClientWidth = 1061
     9  DesignTimePPI = 144
    1010  Menu = MainMenu1
    1111  OnShow = FormShow
    … …  
    1414    Left = 0
    1515    Height = 28
    16     Top = 515
    17     Width = 884
     16    Top = 620
     17    Width = 1061
    1818    Panels = <>
    1919    ParentFont = False
    … …  
    2121  object TreeView1: TTreeView
    2222    Left = 0
    23     Height = 515
     23    Height = 620
    2424    Top = 0
    25     Width = 280
     25    Width = 336
    2626    Align = alLeft
    2727    ParentFont = False
    … …  
    2929  end
    3030  object Splitter1: TSplitter
    31     Left = 280
    32     Height = 515
     31    Left = 336
     32    Height = 620
    3333    Top = 0
    34     Width = 6
     34    Width = 7
    3535  end
    3636  object ListView1: TListView
    37     Left = 286
    38     Height = 515
     37    Left = 343
     38    Height = 620
    3939    Top = 0
    40     Width = 598
     40    Width = 718
    4141    Align = alClient
    4242    Columns = <   
    4343      item
    4444        Caption = 'Name'
    45         Width = 188
     45        Width = 226
    4646      end   
    4747      item
    4848        Caption = 'Type'
    49         Width = 188
     49        Width = 226
    5050      end   
    5151      item
    5252        Caption = 'Value'
    53         Width = 125
     53        Width = 251
    5454      end>
    5555    OwnerData = True
    5656    ParentFont = False
     57    PopupMenu = PopupMenuValue
    5758    ReadOnly = True
    5859    RowSelect = True
    … …  
    6061    ViewStyle = vsReport
    6162    OnData = ListView1Data
     63    OnDblClick = ListView1DblClick
    6264  end
    6365  object MainMenu1: TMainMenu
    64     left = 160
    65     top = 90
     66    left = 192
     67    top = 108
    6668    object MenuItem1: TMenuItem
    6769      Caption = 'File'
    … …  
    7577  end
    7678  object ActionList1: TActionList
    77     left = 160
    78     top = 160
     79    left = 192
     80    top = 192
    7981    object AImport: TAction
    8082      Caption = 'Import'
    … …  
    8587    object AConnectionAdd: TAction
    8688      Caption = 'Add connection'
     89      OnExecute = AConnectionAddExecute
    8790    end
    8891    object AConnectionDelete: TAction
    … …  
    98101    object AValueDelete: TAction
    99102      Caption = 'Delete'
     103      OnExecute = AValueDeleteExecute
    100104    end
    101105    object AValueEdit: TAction
    102106      Caption = 'Edit'
     107      OnExecute = AValueEditExecute
    103108    end
    104109  end
    105   object PopupMenu1: TPopupMenu
    106     left = 492
    107     top = 177
     110  object PopupMenuValue: TPopupMenu
     111    left = 590
     112    top = 212
    108113    object MenuItem4: TMenuItem
    109114      Action = AValueAdd
Note: See TracChangeset for help on using the changeset viewer.