object ExtForm: TExtForm Left = 207 Top = 99 BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = 'FmEdit95 - File Association Manager' ClientHeight = 338 ClientWidth = 506 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 88 Top = 1 Width = 401 Height = 41 AutoSize = False Caption = 'When buttons are pressed the registry is changed and the system ' + 'is updated. Take care deleting associations, the shell commands ' + 'and shell extensions are also removed. Good advice is - IF YOU d' + 'id not create it, DO NOT change it.' WordWrap = True end object Label2: TLabel Left = 8 Top = 8 Width = 67 Height = 20 Caption = 'Warning' Font.Color = clRed Font.Height = -16 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label5: TLabel Left = 33 Top = 45 Width = 46 Height = 13 Caption = 'Extension' end object Label6: TLabel Left = 34 Top = 70 Width = 45 Height = 13 Caption = 'Icon path' end object Label7: TLabel Left = 32 Top = 94 Width = 47 Height = 13 Caption = 'Key name' end object Label8: TLabel Left = 16 Top = 118 Width = 63 Height = 13 Caption = 'Program path' end object Label9: TLabel Left = 26 Top = 142 Width = 53 Height = 13 Caption = 'Type name' end object Label3: TLabel Left = 8 Top = 167 Width = 78 Height = 18 AutoSize = False Caption = 'Shell Commands' WordWrap = True end object Edit1: TEdit Left = 88 Top = 42 Width = 409 Height = 21 Hint = 'The extension of the associated file.' TabOrder = 0 Text = 'ext' end object Button1: TButton Left = 141 Top = 268 Width = 108 Height = 20 Hint = 'Creates the association with entered information.' Caption = 'C&reate Association' TabOrder = 1 OnClick = Button1Click end object Edit2: TEdit Left = 88 Top = 66 Width = 409 Height = 21 Hint = 'Icon path. This can be a DLL or executable comma icon index.' TabOrder = 2 end object Edit3: TEdit Left = 88 Top = 90 Width = 409 Height = 21 Hint = 'Registry key to associated program information.' TabOrder = 3 end object Edit4: TEdit Left = 88 Top = 114 Width = 409 Height = 21 Hint = 'Path to associated program. (Your Program)' TabOrder = 4 end object Edit5: TEdit Left = 88 Top = 138 Width = 409 Height = 21 Hint = 'Name of this association type. Displayed by explorer.' TabOrder = 5 end object CheckBoxQuickView: TCheckBox Left = 190 Top = 164 Width = 81 Height = 17 Hint = 'Is the file type registered with system viewer.' Caption = 'Quick View' TabOrder = 6 end object CheckBoxShowInNew: TCheckBox Left = 288 Top = 164 Width = 85 Height = 17 Hint = 'Display in explorers new menu.' Alignment = taLeftJustify Caption = 'Show in New' TabOrder = 7 end object Button2: TButton Left = 21 Top = 268 Width = 108 Height = 20 Hint = 'Get entered extensions association.' Caption = '&Get Association' TabOrder = 8 OnClick = Button2Click end object Button3: TButton Left = 21 Top = 292 Width = 108 Height = 20 Hint = 'Does not remove program registry entries.' Caption = 'C&lear Association' TabOrder = 9 OnClick = Button3Click end object Button4: TButton Left = 141 Top = 292 Width = 108 Height = 20 Hint = 'WARNING Removes the association from the registry permanently.' Caption = '&Delete Association' TabOrder = 10 OnClick = Button4Click end object Button5: TButton Left = 424 Top = 184 Width = 75 Height = 20 Hint = 'Change shell commands (Watch out)' Caption = '&Edit' TabOrder = 11 OnClick = Button5Click end object ListBox1: TListBox Left = 8 Top = 199 Width = 401 Height = 65 ItemHeight = 16 Style = lbOwnerDrawFixed TabOrder = 12 OnDrawItem = ListBox1DrawItem OnMeasureItem = ListBox1MeasureItem end object Header1: THeader Left = 8 Top = 183 Width = 401 Height = 17 Sections.Sections = ( #0'147'#0'Menu Name ' #0'61'#0'Parameters') TabOrder = 13 end object RadioGroup1: TRadioGroup Left = 416 Top = 208 Width = 89 Height = 49 Hint = 'Does the program look for them before or after passed files.' Caption = 'Param Position' ItemIndex = 0 Items.Strings = ( 'Before' 'After') TabOrder = 14 end object Button6: TButton Left = 21 Top = 316 Width = 347 Height = 20 Hint = 'Display all associated files' Caption = 'Select Association' TabOrder = 15 OnClick = Button6Click end object Button7: TButton Left = 376 Top = 268 Width = 108 Height = 20 Hint = 'Save this association in a textfile.' Caption = 'Save to File' TabOrder = 16 OnClick = Button7Click end object Button8: TButton Left = 376 Top = 292 Width = 108 Height = 20 Hint = 'Load an association from a textfile.' Caption = 'Load from File' TabOrder = 17 OnClick = Button8Click end object Button9: TButton Left = 260 Top = 268 Width = 108 Height = 20 Hint = 'Backup association registry entries for undo.' Caption = 'Backup Association' TabOrder = 18 OnClick = Button9Click end object Button10: TButton Left = 260 Top = 292 Width = 108 Height = 20 Hint = 'Restore association registry entries from backup.' Caption = 'Restore Association' TabOrder = 19 OnClick = Button10Click end object BitBtn1: TBitBtn Left = 376 Top = 316 Width = 108 Height = 20 Hint = 'Return to FmEdit95' Caption = '&Close' Font.Color = clGreen Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 20 OnClick = BitBtn1Click NumGlyphs = 2 end object ATShell1: TATShell ShowInNew = False QuickView = False ParamPos = ppBefore Left = 112 Top = 215 end object OpenDialog1: TOpenDialog FileEditStyle = fsEdit Filter = 'All files|*.*' Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist] Title = 'Load from File' Left = 160 Top = 215 end object SaveDialog1: TSaveDialog FileEditStyle = fsEdit Filter = 'All files|*.*' Options = [ofOverwritePrompt, ofHideReadOnly] Title = 'FmEdit95 - Save File' Left = 208 Top = 215 end end