home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 181
- Top = 78
- BorderIcons = []
- BorderStyle = bsNone
- Caption = 'Form1'
- ClientHeight = 17
- ClientWidth = 209
- Color = clBlack
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'System'
- Font.Style = []
- FormStyle = fsStayOnTop
- Icon.Data = {<image000.ico>}
- PopupMenu = PopupMenu1
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnMouseDown = FormMouseDown
- OnMouseMove = FormMouseMove
- OnMouseUp = FormMouseUp
- PixelsPerInch = 96
- TextHeight = 16
- object Label1: TLabel
- Left = 0
- Top = 0
- Width = 209
- Height = 17
- Align = alClient
- Alignment = taCenter
- Caption = 'rok 2000 za'
- Color = clBlack
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -13
- Font.Name = 'Technical'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- PopupMenu = PopupMenu1
- OnMouseDown = Label1MouseDown
- OnMouseMove = Label1MouseMove
- OnMouseUp = Label1MouseUp
- end
- object Timer1: TTimer
- OnTimer = Timer1Timer
- Left = 168
- end
- object PopupMenu1: TPopupMenu
- OnPopup = PopupMenu1Popup
- Left = 128
- object zobrazit1: TMenuItem
- Caption = 'zobrazit'
- object mesice1: TMenuItem
- Caption = 'm�s�ce'
- OnClick = mesice1Click
- end
- object dny1: TMenuItem
- Caption = 'dny'
- OnClick = dny1Click
- end
- object hodiny1: TMenuItem
- Caption = 'hodiny'
- OnClick = hodiny1Click
- end
- object minuty1: TMenuItem
- Caption = 'minuty'
- OnClick = minuty1Click
- end
- object sekundy1: TMenuItem
- Caption = 'sekundy'
- OnClick = sekundy1Click
- end
- end
- object pismo1: TMenuItem
- Caption = 'barva p�sma'
- object cervena1: TMenuItem
- Caption = 'red'
- OnClick = cervena1Click
- end
- object cerna1: TMenuItem
- Caption = 'black'
- OnClick = cerna1Click
- end
- object bila1: TMenuItem
- Caption = 'white'
- OnClick = bila1Click
- end
- object modra1: TMenuItem
- Caption = 'blue'
- OnClick = modra1Click
- end
- object zluta1: TMenuItem
- Caption = 'yellow'
- OnClick = zluta1Click
- end
- object aqua1: TMenuItem
- Caption = 'aqua'
- OnClick = aqua1Click
- end
- object Fuchsia1: TMenuItem
- Caption = 'fuchsia'
- OnClick = Fuchsia1Click
- end
- object Purple1: TMenuItem
- Caption = 'purple'
- OnClick = Purple1Click
- end
- object maroon1: TMenuItem
- Caption = 'maroon'
- OnClick = maroon1Click
- end
- object olive1: TMenuItem
- Caption = 'olive'
- OnClick = olive1Click
- end
- end
- object pozadi1: TMenuItem
- Caption = 'barva pozad�'
- object cervena2: TMenuItem
- Caption = 'red'
- OnClick = cervena2Click
- end
- object cerna2: TMenuItem
- Caption = 'black'
- OnClick = cerna2Click
- end
- object bila2: TMenuItem
- Caption = 'white'
- OnClick = bila2Click
- end
- object modra2: TMenuItem
- Caption = 'blue'
- OnClick = modra2Click
- end
- object zluta2: TMenuItem
- Caption = 'yellow'
- OnClick = zluta2Click
- end
- object aqua2: TMenuItem
- Caption = 'aqua'
- OnClick = aqua2Click
- end
- object fuchsia2: TMenuItem
- Caption = 'fuchsia'
- OnClick = fuchsia2Click
- end
- object purple2: TMenuItem
- Caption = 'purple'
- OnClick = purple2Click
- end
- object maroon2: TMenuItem
- Caption = 'maroon'
- OnClick = maroon2Click
- end
- object olive2: TMenuItem
- Caption = 'olive'
- OnClick = olive2Click
- end
- end
- end
- end
-