home *** CD-ROM | disk | FTP | other *** search
- object fmOptionen: TfmOptionen
- Left = 722
- Top = 233
- ActiveControl = udNumDesks
- BorderStyle = bsDialog
- Caption = 'Optionen'
- ClientHeight = 232
- ClientWidth = 409
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poScreenCenter
- OnCloseQuery = fmOptionenCloseQuery
- OnCreate = fmOptionenCreate
- PixelsPerInch = 120
- TextHeight = 16
- object btnOK: TButton
- Left = 9
- Top = 192
- Width = 89
- Height = 33
- Caption = 'OK'
- Default = True
- ModalResult = 1
- TabOrder = 1
- end
- object btnAbbrechen: TButton
- Left = 105
- Top = 192
- Width = 89
- Height = 33
- Cancel = True
- Caption = 'Abbrechen'
- ModalResult = 2
- TabOrder = 2
- end
- object pctOptionen: TPageControl
- Left = 8
- Top = 8
- Width = 393
- Height = 177
- ActivePage = tsPrgStart
- TabOrder = 0
- object tsPrgStart: TTabSheet
- Caption = 'Allgemein'
- object pnPrgStart: TPanel
- Left = 8
- Top = 8
- Width = 361
- Height = 121
- BevelInner = bvRaised
- BevelOuter = bvLowered
- TabOrder = 0
- object Label4: TLabel
- Left = 8
- Top = 17
- Width = 129
- Height = 24
- AutoSize = False
- Caption = '&Anzahl Desktops'
- end
- object Label5: TLabel
- Left = 8
- Top = 49
- Width = 113
- Height = 24
- AutoSize = False
- Caption = '&Fenster-Position'
- end
- object lbSichtbar: TLabel
- Left = 8
- Top = 80
- Width = 121
- Height = 25
- AutoSize = False
- Caption = '&Sichtbar'
- FocusControl = cbAFenster
- end
- object edNumDesks: TEdit
- Left = 144
- Top = 17
- Width = 193
- Height = 24
- Hint = 'Anzahl der wechselbaren Desktops'
- TabStop = False
- ParentShowHint = False
- ReadOnly = True
- ShowHint = True
- TabOrder = 0
- Text = '2'
- end
- object udNumDesks: TUpDown
- Left = 337
- Top = 17
- Width = 12
- Height = 24
- Associate = edNumDesks
- Min = 2
- Max = 9
- Position = 2
- TabOrder = 1
- TabStop = True
- Wrap = False
- end
- object cbStartPos: TComboBox
- Left = 144
- Top = 49
- Width = 209
- Height = 24
- Hint = 'Automatische Fensterposition beim Programmstart'
- Style = csDropDownList
- ItemHeight = 16
- Items.Strings = (
- 'Oben links'
- 'Oben rechts'
- 'Unten links'
- 'Unten rechts'
- 'Letzter Start')
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- end
- object cbAFenster: TCheckBox
- Left = 144
- Top = 80
- Width = 145
- Height = 25
- Hint = 'Fenster (Desktop) anzeigen ?'
- Caption = 'Desktop-Fenster'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 3
- OnClick = cbAFensterClick
- end
- end
- end
- object tsSichtbar: TTabSheet
- Caption = 'Taskleiste'
- object pnSichtbar: TPanel
- Left = 8
- Top = 8
- Width = 361
- Height = 105
- BevelInner = bvRaised
- BevelOuter = bvLowered
- TabOrder = 0
- object cbATaskButtons: TCheckBox
- Left = 16
- Top = 16
- Width = 257
- Height = 25
- Hint = 'Desktop-Wahl-Buttons in Taskleiste anzeigen ?'
- Caption = 'Desktop-&Buttons'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- end
- object cbATaskMini: TCheckBox
- Left = 16
- Top = 40
- Width = 257
- Height = 25
- Hint = '"Fenster minimieren"-Button in Taskleiste anzeigen ?'
- Caption = 'Fenster &minimieren'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- end
- object cbATaskMaxi: TCheckBox
- Left = 16
- Top = 64
- Width = 257
- Height = 25
- Hint = '"Fenster wiederherstellen"-Button in Taskleiste anzeigen ?'
- Caption = 'Fenster &wiederherstellen '
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- end
- end
- end
- object tsHotkeys: TTabSheet
- Caption = 'Hotkeys'
- object pnHotkeys: TPanel
- Left = 8
- Top = 8
- Width = 361
- Height = 121
- BevelInner = bvRaised
- BevelOuter = bvLowered
- TabOrder = 0
- object lbDskNext: TLabel
- Left = 8
- Top = 17
- Width = 113
- Height = 24
- AutoSize = False
- Caption = 'Desktop &weiter'
- FocusControl = hkDskNext
- Transparent = True
- end
- object lbDskPrev: TLabel
- Left = 8
- Top = 48
- Width = 113
- Height = 25
- AutoSize = False
- Caption = 'Desktop &zur�ck'
- FocusControl = hkDskPrev
- Transparent = True
- end
- object lbDsk1: TLabel
- Left = 8
- Top = 81
- Width = 113
- Height = 24
- AutoSize = False
- Caption = 'Desktop &1 (bis 9)'
- FocusControl = hkDsk1
- end
- object cbDskNext: TCheckBox
- Left = 121
- Top = 17
- Width = 24
- Height = 24
- Hint = 'Hotkey f�r "Desktop vor" aktiv ?'
- ParentShowHint = False
- ShowHint = True
- State = cbChecked
- TabOrder = 0
- OnClick = cbDskNextClick
- end
- object cbDskPrev: TCheckBox
- Left = 121
- Top = 48
- Width = 24
- Height = 25
- Hint = 'Hotkey f�r "Desktop zur�ck" aktiv ?'
- ParentShowHint = False
- ShowHint = True
- State = cbChecked
- TabOrder = 2
- OnClick = cbDskPrevClick
- end
- object cbDsk1: TCheckBox
- Left = 121
- Top = 81
- Width = 24
- Height = 24
- Hint = 'Hotkey f�r direkte Desktop-Wahl aktiv ?'
- ParentShowHint = False
- ShowHint = True
- State = cbChecked
- TabOrder = 4
- OnClick = cbDsk1Click
- end
- object hkDskNext: THotKey
- Left = 152
- Top = 17
- Width = 200
- Height = 24
- Hint = 'Hotkey f�r "Desktop vor"'
- HotKey = 0
- InvalidKeys = [hcNone, hcShift]
- Modifiers = []
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- end
- object hkDskPrev: THotKey
- Left = 152
- Top = 48
- Width = 200
- Height = 25
- Hint = 'Hotkey f�r "Desktop zur�ck"'
- HotKey = 0
- InvalidKeys = [hcNone, hcShift]
- Modifiers = []
- ParentShowHint = False
- ShowHint = True
- TabOrder = 3
- end
- object hkDsk1: THotKey
- Left = 152
- Top = 81
- Width = 200
- Height = 24
- Hint = 'Hotkey f�r direkte Desktop-Wahl'
- HotKey = 0
- InvalidKeys = [hcNone, hcShift]
- Modifiers = []
- ParentShowHint = False
- ShowHint = True
- TabOrder = 5
- end
- end
- end
- object tsRegistry: TTabSheet
- Caption = 'Registrierung'
- object pnRegistry: TPanel
- Left = 8
- Top = 8
- Width = 361
- Height = 89
- BevelInner = bvRaised
- BevelOuter = bvLowered
- TabOrder = 0
- object lbPrivate: TLabel
- Left = 8
- Top = 16
- Width = 105
- Height = 25
- AutoSize = False
- Caption = 'Ihr &Text'
- end
- object lbCode: TLabel
- Left = 8
- Top = 48
- Width = 105
- Height = 25
- AutoSize = False
- Caption = '&Codewort'
- end
- object edPrivate: TEdit
- Left = 121
- Top = 16
- Width = 232
- Height = 24
- TabOrder = 0
- OnChange = edRegistryChange
- OnKeyDown = edPrivateKeyDown
- end
- object edCode: TEdit
- Left = 121
- Top = 48
- Width = 232
- Height = 24
- CharCase = ecUpperCase
- TabOrder = 1
- OnChange = edRegistryChange
- end
- end
- end
- end
- end
-