home *** CD-ROM | disk | FTP | other *** search
- object konfigdialog: Tkonfigdialog
- Tag = 10300
- Left = 564
- Top = 343
- Width = 548
- Height = 396
- Caption = 'DMEX - Menueintr�ge Konfiguration'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- OldCreateOrder = True
- Position = poScreenCenter
- OnClose = FormClose
- OnCreate = FormCreate
- OnResize = FormResize
- PixelsPerInch = 96
- TextHeight = 13
- object PageControl1: TPageControl
- Left = 0
- Top = 0
- Width = 540
- Height = 350
- ActivePage = TabSheet1
- Align = alClient
- HotTrack = True
- TabOrder = 0
- TabPosition = tpBottom
- OnChanging = PageControl1Changing
- object TabSheet1: TTabSheet
- Tag = 10311
- Caption = 'DMEX Men�eintr�ge'
- object CheckListBox1: TCheckListBox
- Left = 0
- Top = 0
- Width = 532
- Height = 322
- OnClickCheck = CheckListBox1ClickCheck
- Align = alClient
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 13
- ParentFont = False
- TabOrder = 0
- end
- end
- object TabSheet2: TTabSheet
- Tag = 10312
- Caption = 'Verzeichnis wechseln nach'
- object ListBox1: TListBox
- Left = 0
- Top = 0
- Width = 532
- Height = 320
- Align = alClient
- ItemHeight = 13
- PopupMenu = PopupMenu1
- TabOrder = 0
- OnKeyDown = ListBox1KeyDown
- end
- end
- object TabSheet6: TTabSheet
- Tag = 10324
- Caption = 'FTP Seiten'
- object ListView2: TListView
- Left = 0
- Top = 0
- Width = 532
- Height = 320
- Align = alClient
- Columns = <
- item
- Caption = 'Name'
- Width = 150
- end
- item
- Caption = 'Adresse'
- Width = 300
- end
- item
- Width = 5
- end>
- HotTrackStyles = []
- PopupMenu = PopupMenu4
- TabOrder = 0
- ViewStyle = vsReport
- OnKeyDown = ListView2KeyDown
- end
- end
- object TabSheet3: TTabSheet
- Tag = 10313
- Caption = 'Programme'
- object ListView1: TListView
- Left = 0
- Top = 0
- Width = 532
- Height = 320
- Align = alClient
- Columns = <
- item
- Caption = 'Name'
- Width = 120
- end
- item
- Caption = 'Path'
- Width = 250
- end
- item
- Caption = 'Directory'
- Width = 100
- end>
- HotTrackStyles = []
- PopupMenu = PopupMenu2
- TabOrder = 0
- ViewStyle = vsReport
- OnDblClick = ListView1DblClick
- OnKeyDown = ListView1KeyDown
- end
- end
- object TabSheet4: TTabSheet
- Tag = 10314
- Caption = 'Optionen'
- object Splitter1: TSplitter
- Left = 313
- Top = 0
- Width = 3
- Height = 322
- Cursor = crHSplit
- Color = clBtnHighlight
- ParentColor = False
- end
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 313
- Height = 322
- Align = alLeft
- BevelOuter = bvNone
- TabOrder = 0
- object Label1: TLabel
- Tag = 10320
- Left = 8
- Top = 144
- Width = 32
- Height = 13
- Caption = 'Label1'
- end
- object ALed1: TALed
- Left = 8
- Top = 162
- Width = 16
- Height = 16
- FalseColor = clRed
- Blink = False
- LEDStyle = LEDSqSmall
- end
- object CheckBox1: TCheckBox
- Tag = 10318
- Left = 8
- Top = 8
- Width = 209
- Height = 17
- Caption = 'Explorer Men�eintr�ge als Submen�'
- TabOrder = 0
- OnClick = CheckBox1Click
- end
- object CheckBox2: TCheckBox
- Tag = 10319
- Left = 8
- Top = 32
- Width = 209
- Height = 17
- Caption = 'Bitmap neben Men� anzeigen'
- TabOrder = 1
- OnClick = CheckBox2Click
- end
- object ComboBox1: TComboBox
- Left = 32
- Top = 160
- Width = 185
- Height = 21
- ItemHeight = 0
- TabOrder = 2
- OnChange = ComboBox1Change
- end
- object CheckBox3: TCheckBox
- Tag = 10326
- Left = 8
- Top = 56
- Width = 233
- Height = 17
- Caption = 'Hotkey'
- TabOrder = 3
- OnClick = CheckBox3Click
- end
- object CheckBox4: TCheckBox
- Tag = 10327
- Left = 8
- Top = 80
- Width = 233
- Height = 17
- Caption = 'context menu'
- TabOrder = 4
- OnClick = CheckBox4Click
- end
- object CheckBox5: TCheckBox
- Tag = 10328
- Left = 8
- Top = 104
- Width = 233
- Height = 17
- Caption = 'double pane'
- TabOrder = 5
- OnClick = CheckBox5Click
- end
- end
- object Panel2: TPanel
- Left = 316
- Top = 0
- Width = 216
- Height = 322
- Align = alClient
- BevelOuter = bvNone
- TabOrder = 1
- object Button1: TButton
- Tag = 10322
- Left = 14
- Top = 40
- Width = 195
- Height = 25
- Caption = 'DMEX Zusatzprogramme Hinzuf�gen'
- TabOrder = 0
- Visible = False
- OnClick = Button1Click
- end
- object Button2: TButton
- Tag = 10321
- Left = 14
- Top = 8
- Width = 195
- Height = 25
- Caption = 'Standardverzeichnisse Hinzuf�gen'
- TabOrder = 1
- OnClick = Button2Click
- end
- object Button3: TButton
- Tag = 97
- Left = 16
- Top = 72
- Width = 193
- Height = 25
- Caption = 'Button3'
- TabOrder = 2
- OnClick = Button3Click
- end
- end
- end
- object TabSheet5: TTabSheet
- Tag = 10323
- Caption = '�ber DMEX'
- object RichEdit1: TRichEdit
- Left = 0
- Top = 0
- Width = 532
- Height = 322
- TabStop = False
- Align = alClient
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Lines.Strings = (
- '--------------------------------------'
- 'DMEXMenu'
- 'Explorer Menu Extention'
- '--------------------------------------'
- 'copyright (c) 1994-2000 by Andr� R�bel'
- ''
- 'author:'
- 'Andr� R�bel'
- 'andre.ruebel@urz.uni-heidelberg.de'
- ''
- '--------------------------------------'
- ''
- 'Version:'#9#9'See statusbar for version.'
- 'Language:'#9'English, German (supported by author)'
- #9#9'Other languages by users.'
-
- ' See readme.txt for details about' +
- ' the contributers of other languages.'
-
- #9#9'The translation of other languages may be one or more version' +
- 's behind.'
- 'Operating System:'#9'Windows NT4 / 2000'
- #9#9'Windows 95 / 98 (No drive subtitution)'
- 'Price:'#9#9'Free'
- 'Contact:'#9#9'via e-mail to '
- #9#9'andre.ruebel@urz.uni-heidelberg.de'
- ''
- '--------------------------------------'
- 'read readme.txt and manual.txt for further information'
- '--------------------------------------')
- ParentFont = False
- PlainText = True
- ReadOnly = True
- TabOrder = 0
- WordWrap = False
- OnMouseUp = RichEdit1MouseUp
- end
- end
- end
- object StatusBar1: TStatusBar
- Left = 0
- Top = 350
- Width = 540
- Height = 19
- Panels = <
- item
- Bevel = pbNone
- Text =
- 'DMEX Menu - Explorer Menu Extention - Copyright 1989 by Andr� R�' +
- 'bel'
- Width = 50
- end>
- SimplePanel = False
- end
- object PopupMenu1: TPopupMenu
- Left = 76
- Top = 272
- object Hinzufgen1: TMenuItem
- Tag = 10301
- Caption = 'Verzeichnis hinzuf�gen\tStrg-Einf'
- OnClick = Hinzufgen1Click
- end
- object Seperatorhinzufgen1: TMenuItem
- Tag = 10302
- Caption = 'Seperator hinzuf�gen'
- OnClick = Seperatorhinzufgen1Click
- end
- object N1: TMenuItem
- Caption = '-'
- end
- object Nachobenverschieben1: TMenuItem
- Tag = 10303
- Caption = 'Nach oben verschieben\tStrg-Pfeil Hoch'
- OnClick = Nachobenverschieben1Click
- end
- object Nachuntenverschieben1: TMenuItem
- Tag = 10304
- Caption = 'Nach unten verschiebenn\tStrg-Pfeil Runter'
- OnClick = Nachuntenverschieben1Click
- end
- object Eintraglschen1: TMenuItem
- Tag = 10305
- Caption = 'Eintrag l�schen\tStrg-Entf'
- OnClick = Eintraglschen1Click
- end
- object N3: TMenuItem
- Caption = '-'
- end
- object Dateilschen1: TMenuItem
- Tag = 10306
- Caption = 'Alle Eintr�ge l�schen'
- OnClick = Dateilschen1Click
- end
- object N4: TMenuItem
- Caption = '-'
- end
- object Menschlieen1: TMenuItem
- Tag = 10307
- Caption = 'Men� schlie�en\tEsc'
- end
- end
- object BrowseFolder1: TBrowseFolder
- Directory = 'c:\programme'
- Flags = [bfFileSysDirsOnly, bfStatusText]
- ShowPathInStatusArea = True
- CustomButtonEnabled = False
- SyncCustomButton = False
- Left = 156
- Top = 272
- end
- object PopupMenu2: TPopupMenu
- OnPopup = PopupMenu2Popup
- Left = 116
- Top = 272
- object Hinzufgen2: TMenuItem
- Tag = 10308
- Caption = 'Programm hinzuf�gen\tStrg-Einfg'
- OnClick = Hinzufgen2Click
- end
- object Arbeitsverzeichnisfestlegen1: TMenuItem
- Tag = 10309
- Caption = 'Arbeitsverzeichnis festlegen'
- OnClick = Arbeitsverzeichnisfestlegen1Click
- end
- object MarkierteDateibergeben1: TMenuItem
- Tag = 10310
- Caption = 'Markierte Datei �bergeben'
- OnClick = MarkierteDateibergeben1Click
- end
- object Seperatorhinzufgen2: TMenuItem
- Tag = 10302
- Caption = 'Seperator hinzuf�gen'
- OnClick = Seperatorhinzufgen2Click
- end
- object N2: TMenuItem
- Caption = '-'
- end
- object Nachobenverschieben2: TMenuItem
- Tag = 10303
- Caption = 'Nach oben verschieben\tStrg-Pfeil Hoch'
- OnClick = Nachobenverschieben2Click
- end
- object Nachuntenverschieben2: TMenuItem
- Tag = 10304
- Caption = 'Nach unten verschieben\tStrg-Pfeil Runter'
- OnClick = Nachuntenverschieben2Click
- end
- object Entfernen1: TMenuItem
- Tag = 10305
- Caption = 'Eintrag l�schen\tStrg-Entf'
- OnClick = Entfernen1Click
- end
- object N6: TMenuItem
- Caption = '-'
- end
- object ProgrammeDateilschen1: TMenuItem
- Tag = 10306
- Caption = 'Alle Eintr�ge l�schen'
- OnClick = ProgrammeDateilschen1Click
- end
- object N5: TMenuItem
- Caption = '-'
- end
- object Menschlieen2: TMenuItem
- Tag = 10307
- Caption = 'Men� schlie�en\tEsc'
- end
- end
- object OpenDialog1: TOpenDialog
- DefaultExt = '*.exe;*.com;*.pif;*.lnk;*.bat;*.cmd'
- Filter = '|*.exe;*.com;*.pif;*.lnk;*.bat;*.cmd'
- FilterIndex = 0
- Options = [ofNoValidate, ofPathMustExist]
- Left = 196
- Top = 272
- end
- object PopupMenu4: TPopupMenu
- Left = 36
- Top = 270
- object Seperatorhinzufgen3: TMenuItem
- Tag = 10302
- Caption = 'Seperator hinzuf�gen'
- OnClick = Seperatorhinzufgen2Click
- end
- object N7: TMenuItem
- Caption = '-'
- end
- object NachobenverschiebentStrgPfeilHoch1: TMenuItem
- Tag = 10303
- Caption = 'Nach oben verschieben\tStrg-Pfeil Hoch'
- OnClick = Nachobenverschieben2Click
- end
- object NachuntenverschiebentStrgPfeilRunter1: TMenuItem
- Tag = 10304
- Caption = 'Nach unten verschieben\tStrg-Pfeil Runter'
- OnClick = Nachuntenverschieben2Click
- end
- object EintraglschentStrgEntf1: TMenuItem
- Tag = 10305
- Caption = 'Eintrag l�schen\tStrg-Entf'
- OnClick = Entfernen1Click
- end
- object N8: TMenuItem
- Caption = '-'
- end
- object AlleEintrgelschen1: TMenuItem
- Tag = 10306
- Caption = 'Alle Eintr�ge l�schen'
- OnClick = ProgrammeDateilschen1Click
- end
- object N9: TMenuItem
- Caption = '-'
- end
- object MenschlieentEsc1: TMenuItem
- Tag = 10307
- Caption = 'Men� schlie�en\tEsc'
- end
- end
- end
-