object FrmTemplates: TFrmTemplates Left = 249 Top = 207 BorderStyle = bsDialog Caption = 'New document' ClientHeight = 207 ClientWidth = 282 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Image1: TImage Left = 8 Top = 8 Width = 32 Height = 32 AutoSize = True Picture.Data = {} end object Label1: TLabel Left = 48 Top = 8 Width = 129 Height = 26 Caption = 'Select a template to create a document from' WordWrap = True end object btnOK: TButton Left = 192 Top = 8 Width = 81 Height = 25 Caption = 'OK' Default = True ModalResult = 1 TabOrder = 0 end object btnCancel: TButton Left = 192 Top = 40 Width = 81 Height = 25 Caption = 'Cancel' ModalResult = 2 TabOrder = 1 end object flbTemplates: TFileListBox Left = 8 Top = 72 Width = 265 Height = 97 Hint = 'Select one of the templates' FileType = [ftReadOnly, ftNormal] ItemHeight = 16 Mask = '*.tpl;*.hst' ParentShowHint = False PopupMenu = PupUp ShowHint = True TabOrder = 2 OnDblClick = flbTemplatesDblClick end object btnNewFromScratch: TBitBtn Left = 152 Top = 176 Width = 123 Height = 25 Hint = 'Create a new document without a template' Caption = '&New from scratch' ParentShowHint = False ShowHint = True TabOrder = 3 OnClick = btnNewFromScratchClick Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777700000000000777770FFFFFFFFF0777770FFFFFFFF F0777770FFFFFFFFF0777770FFFFFFFFF0777770FFFFFFFFF0777770FFFFFFFF F0777770FFFFFFFFF0777770FFFFFFFFF0777770FFFFFF0000777770FFFFFF0F 07777770FFFFFF00777777700000000777777777777777777777} end object PupUp: TPopupMenu Left = 8 Top = 176 object CreateNewDoc: TMenuItem Caption = '&Create new document' ShortCut = 0 OnClick = CreateNewDocClick end object N1: TMenuItem Caption = '-' ShortCut = 0 end object Delete: TMenuItem Caption = '&Delete' ShortCut = 0 OnClick = DeleteClick end end end