object PGPkeysForm: TPGPkeysForm Left = 133 Top = 75 Width = 581 Height = 368 Caption = 'OpenPGP Key Manager' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} KeyPreview = True Menu = MainMenu OnActivate = FormActivate OnClose = FormClose OnCloseQuery = FormCloseQuery OnCreate = FormCreate OnKeyDown = FormKeyDown PixelsPerInch = 96 TextHeight = 13 object ListBox: TListBox Left = 0 Top = 20 Width = 573 Height = 302 Align = alClient Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 16 MultiSelect = True ParentFont = False PopupMenu = ListPopup Style = lbOwnerDrawFixed TabOrder = 0 OnClick = ListBoxClick OnDblClick = ListBoxDblClick OnDrawItem = ListBoxDrawItem OnKeyDown = ListBoxKeyDown OnMouseDown = ListBoxMouseDown end object Header: THeaderControl Left = 0 Top = 0 Width = 573 Height = 20 Sections = < item MinWidth = 40 Text = 'Keys' Width = 300 end item Alignment = taCenter Text = 'Validity' Width = 50 end item Alignment = taCenter Text = 'Trust' Width = 60 end item Alignment = taRightJustify Text = 'Size' Width = 50 end item MaxWidth = 2000 MinWidth = 2000 Text = 'Description' Width = 2000 end> OnSectionResize = HeaderSectionResize end object MainMenu: TMainMenu Left = 56 Top = 56 object mEdit: TMenuItem Caption = '&Edit' ShortCut = 16430 object meCopy: TMenuItem Caption = '&Copy' ShortCut = 16451 OnClick = pCopyClick end object mePaste: TMenuItem Caption = '&Paste' ShortCut = 16470 OnClick = mePasteClick end object meDelete: TMenuItem Caption = '&Delete' ShortCut = 16430 OnClick = pDeleteClick end object N4: TMenuItem Caption = '-' ShortCut = 0 end object meSelectAll: TMenuItem Caption = 'Select &All' ShortCut = 16449 OnClick = meSelectAllClick end object meCollapse: TMenuItem Caption = 'Co&llapse Selection' ShortCut = 0 OnClick = meCollapseClick end object meExpand: TMenuItem Caption = 'E&xpand Selection' ShortCut = 0 OnClick = meExpandClick end end object Keys1: TMenuItem Caption = '&Keys' ShortCut = 0 object mkSign: TMenuItem Caption = 'Sign...' ShortCut = 16467 OnClick = pSignClick end object mkSetDefaultKey: TMenuItem Caption = 'Set as Default Key' ShortCut = 32836 OnClick = pSetasDefaultClick end object mkAddName: TMenuItem Caption = 'Add Name...' ShortCut = 32833 OnClick = pAddNameClick end object N5: TMenuItem Caption = '-' ShortCut = 0 end object mkNewKey: TMenuItem Caption = '&New Key...' ShortCut = 16462 OnClick = mkNewKeyClick end object mkEnable: TMenuItem Caption = '&Enable' ShortCut = 16453 OnClick = pEnableClick end object mkDisable: TMenuItem Caption = '&Disable' ShortCut = 16452 OnClick = pDisableClick end object mkRevoke: TMenuItem Caption = '&Revoke...' ShortCut = 16466 OnClick = mkRevokeClick end object N6: TMenuItem Caption = '-' ShortCut = 0 end object mkImport: TMenuItem Caption = 'I&mport...' ShortCut = 113 OnClick = mkImportClick end object mkExport: TMenuItem Caption = 'E&xport...' ShortCut = 114 OnClick = pExportClick end object N7: TMenuItem Caption = '-' ShortCut = 0 end object mkKeyProperties: TMenuItem Caption = 'Key P&roperties...' ShortCut = 13 OnClick = mkKeyPropertiesClick end end end object ListPopup: TPopupMenu Left = 104 Top = 56 object pCopy: TMenuItem Caption = '&Copy' ShortCut = 0 OnClick = pCopyClick end object pPaste: TMenuItem Caption = '&Paste' ShortCut = 0 OnClick = mePasteClick end object pDelete: TMenuItem Caption = '&Delete' ShortCut = 0 OnClick = pDeleteClick end object N1: TMenuItem Caption = '-' ShortCut = 0 end object pSign: TMenuItem Caption = '&Sign...' ShortCut = 0 OnClick = pSignClick end object pEnable: TMenuItem Caption = '&Enable' ShortCut = 0 OnClick = pEnableClick end object pDisable: TMenuItem Caption = 'D&isable' ShortCut = 0 OnClick = pDisableClick end object N2: TMenuItem Caption = '-' ShortCut = 0 end object pAddName: TMenuItem Caption = 'Add &Name...' ShortCut = 0 OnClick = pAddNameClick end object pRevoke: TMenuItem Caption = '&Revoke...' ShortCut = 0 OnClick = mkRevokeClick end object pSetasDefault: TMenuItem Caption = 'Se&t as Default' ShortCut = 0 OnClick = pSetasDefaultClick end object N3: TMenuItem Caption = '-' ShortCut = 0 end object pImport: TMenuItem Caption = 'Import...' ShortCut = 0 OnClick = mkImportClick end object pExport: TMenuItem Caption = 'Export...' ShortCut = 0 OnClick = pExportClick end object N8: TMenuItem Caption = '-' ShortCut = 0 end object pProperties: TMenuItem Caption = 'Key Properties' ShortCut = 0 OnClick = mkKeyPropertiesClick end end end