home *** CD-ROM | disk | FTP | other *** search
- object FMoznosti: TFMoznosti
- Left = 182
- Top = 95
- ActiveControl = Vyber
- BorderIcons = [biSystemMenu]
- BorderStyle = bsDialog
- Caption = 'Mo�nosti'
- ClientHeight = 280
- ClientWidth = 346
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- PopupMenu = PopupMenu1
- Position = poScreenCenter
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object DsFancyButton1: TDsFancyButton
- Left = 264
- Top = 246
- Width = 73
- Height = 25
- ButtonColor = clBtnFace
- Caption = 'OK'
- FrameColor = clGray
- FrameWidth = 6
- CornerRadius = 10
- TextStyle = txRaised
- OnClick = DsFancyButton1Click
- end
- object GroupBox1: TGroupBox
- Left = 0
- Top = 0
- Width = 345
- Height = 169
- Caption = ' Nastaven� barev tla��tek '
- TabOrder = 0
- object Label3: TLabel
- Left = 176
- Top = 24
- Width = 89
- Height = 13
- Caption = 'Barva vnit�n� ��sti:'
- end
- object Label2: TLabel
- Left = 8
- Top = 24
- Width = 42
- Height = 13
- Caption = 'Tla��tko:'
- end
- object Label7: TLabel
- Left = 8
- Top = 70
- Width = 77
- Height = 13
- Caption = 'Styl st�nu p�sma:'
- end
- object Label8: TLabel
- Left = 176
- Top = 70
- Width = 63
- Height = 13
- Caption = 'Barva okraje:'
- end
- object Test: TDsFancyButton
- Left = 60
- Top = 126
- Width = 80
- Height = 26
- ButtonColor = clBtnFace
- Caption = 'Uk�zka'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -16
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- FrameColor = clGray
- FrameWidth = 12
- ParentFont = False
- CornerRadius = 10
- TextStyle = txNone
- end
- object Label4: TLabel
- Left = 8
- Top = 132
- Width = 40
- Height = 13
- Caption = 'Uk�zka:'
- end
- object DsFancyButton2: TDsFancyButton
- Left = 224
- Top = 126
- Width = 105
- Height = 25
- ButtonColor = clBtnFace
- Caption = 'P�vodn� nastaven�'
- FrameColor = clGray
- FrameWidth = 6
- CornerRadius = 10
- TextStyle = txRaised
- OnClick = DsFancyButton2Click
- end
- object Aktualizace: TButton
- Left = 240
- Top = 8
- Width = 65
- Height = 17
- Caption = 'Aktualizace'
- TabOrder = 0
- Visible = False
- OnClick = AktualizaceClick
- end
- object Button1: TButton
- Left = 304
- Top = 8
- Width = 33
- Height = 17
- Caption = 'Ulo�it'
- TabOrder = 1
- Visible = False
- OnClick = Button1Click
- end
- object Barva1: TComboBox
- Left = 184
- Top = 40
- Width = 145
- Height = 21
- ItemHeight = 13
- Items.Strings = (
- 'b�l�'
- '�ern�'
- '�erven�'
- 'fialov�'
- 'hn�d�'
- 'modr� 1'
- 'modr� 2'
- 'modr� 3'
- 'r��ov�'
- '�ed� 1'
- '�ed� 2'
- 'zelen� 1'
- 'zelen� 2'
- 'zelen� 3'
- 'zelen� 4'
- '�lut�')
- TabOrder = 2
- OnChange = Barva1Change
- end
- object Vyber: TComboBox
- Left = 16
- Top = 40
- Width = 145
- Height = 21
- DragMode = dmAutomatic
- DragCursor = crArrow
- ItemHeight = 13
- Items.Strings = (
- 'Konec'
- 'Reset'
- 'Start'
- 'S�zenka'
- 'Stop'
- 'Tabulka')
- TabOrder = 3
- Text = 'Vyberte si tla��tko'
- OnChange = VyberChange
- end
- object vyber2: TComboBox
- Left = 16
- Top = 84
- Width = 145
- Height = 21
- ItemHeight = 13
- Items.Strings = (
- '��dn�'
- 'b�l�'
- 'b�l� (vzd�len�)'
- 'tmav� (vzd�len�)')
- TabOrder = 4
- OnChange = vyber2Change
- end
- object Barva2: TComboBox
- Left = 184
- Top = 84
- Width = 145
- Height = 21
- ItemHeight = 13
- Items.Strings = (
- 'b�l�'
- '�ern�'
- '�erven�'
- 'fialov�'
- 'hn�d�'
- 'modr� 1'
- 'modr� 2'
- 'modr� 3'
- 'r��ov�'
- '�ed� 1'
- '�ed� 2'
- 'zelen� 1'
- 'zelen� 2'
- 'zelen� 3'
- 'zelen� 4'
- '�lut�')
- TabOrder = 5
- OnChange = Barva2Change
- end
- end
- object GroupBox2: TGroupBox
- Left = 0
- Top = 176
- Width = 345
- Height = 57
- Caption = ' Nastaven� zobrazen� ��sel a S�zenky '
- TabOrder = 1
- object CheckBox1: TCheckBox
- Left = 16
- Top = 16
- Width = 209
- Height = 17
- Caption = 'Se�adit ��sla po losov�n� podle velikosti'
- State = cbChecked
- TabOrder = 0
- end
- object CheckBox2: TCheckBox
- Left = 16
- Top = 32
- Width = 241
- Height = 17
- Caption = 'Automaticky vypl�ovat S�zenku p�i zobrazen�'
- TabOrder = 1
- end
- end
- object PopupMenu1: TPopupMenu
- Left = 200
- Top = 8
- object Zavt1: TMenuItem
- Caption = 'Zav��t'
- OnClick = Zavt1Click
- end
- end
- end
-