object Fhlavni: TFhlavni Left = 199 Top = 119 BorderStyle = bsSingle Caption = '��to' ClientHeight = 194 ClientWidth = 428 Color = clBtnShadow Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Menu = MainMenu1 Position = poScreenCenter OnClose = FormClose OnCreate = FormCreate OnResize = FormResize PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 296 Top = 160 Width = 125 Height = 18 Caption = 'Martin Ad�mek 2001' Font.Charset = ANSI_CHARSET Font.Color = clNavy Font.Height = -13 Font.Name = 'Comic Sans MS' Font.Style = [fsItalic] ParentFont = False end object Label2: TLabel Left = 272 Top = 160 Width = 25 Height = 19 Caption = '�' Font.Charset = SYMBOL_CHARSET Font.Color = clNavy Font.Height = -16 Font.Name = 'Symbol' Font.Style = [fsItalic] ParentFont = False end object Ldate: TLabel Left = 16 Top = 160 Width = 3 Height = 15 Font.Charset = EASTEUROPE_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'Comic Sans MS' Font.Style = [fsItalic] ParentFont = False end object Label3: TLabel Left = 0 Top = 56 Width = 224 Height = 134 Alignment = taCenter Caption = '��to' Font.Charset = EASTEUROPE_CHARSET Font.Color = clBlack Font.Height = -96 Font.Name = 'Comic Sans MS' Font.Style = [fsItalic] ParentFont = False end object Btransakce: TButton Left = 121 Top = 8 Width = 89 Height = 25 Hint = 'Prohl�en� transakc� na ��tech' Caption = '&V�pis transakc�' Default = True DragCursor = crDefault ParentShowHint = False ShowHint = True TabOrder = 0 OnClick = N1Click end object Bucty: TButton Left = 401 Top = 8 Width = 72 Height = 25 Hint = 'Nastaven� n�zv� ��t�' Caption = 'N�zvy &��t�' ParentShowHint = False ShowHint = True TabOrder = 3 OnClick = BuctyClick end object LBucty: TListBox Left = 240 Top = 88 Width = 81 Height = 49 TabStop = False ItemHeight = 13 TabOrder = 7 Visible = False end object LBdruhy: TListBox Left = 344 Top = 72 Width = 65 Height = 65 TabStop = False ItemHeight = 13 TabOrder = 8 Visible = False end object Bdruhy: TButton Left = 481 Top = 8 Width = 72 Height = 25 Hint = 'Nastaven� n�zv� druh�' Caption = 'N�zvy &druh�' ParentShowHint = False ShowHint = True TabOrder = 4 OnClick = BdruhyClick end object Bdledruhu: TButton Left = 313 Top = 8 Width = 75 Height = 25 Hint = 'Zobraz� ��stky za jednotliv� druhy transakc�' Caption = 'Dle &druh�' ParentShowHint = False ShowHint = True TabOrder = 2 OnClick = BdledruhuClick end object Bkasa: TButton Left = 561 Top = 8 Width = 72 Height = 25 Hint = 'Spustit DOSovou verzi (od 25.6.2001 jde i na PII a nov�j��ch)' Caption = '&Kasa.exe' ParentShowHint = False ShowHint = True TabOrder = 5 OnClick = BkasaClick end object Bnovypohyb: TButton Left = 9 Top = 8 Width = 89 Height = 25 Hint = 'Zad�ni nov� transakce' Caption = '&Nov� transakce' ParentShowHint = False ShowHint = True TabOrder = 6 OnClick = BnovypohybClick end object Bzustatky: TButton Left = 225 Top = 8 Width = 75 Height = 25 Hint = 'Z�statky na ��tech ke dni' Caption = 'Z�&statky' ParentShowHint = False ShowHint = True TabOrder = 1 OnClick = BzustatkyClick end object MainMenu1: TMainMenu object Zobrazit1: TMenuItem Caption = 'Tran&sakce' ShortCut = 0 object MInovypohyb: TMenuItem Caption = '&Nov� transakce' ShortCut = 0 OnClick = MInovypohybClick end object N1: TMenuItem Caption = '&V�pis transakc� na ��tu' ShortCut = 0 OnClick = N1Click end object Zstatkynatech1: TMenuItem Caption = 'Z�&statky na ��tech' ShortCut = 0 OnClick = Zstatkynatech1Click end object MIdledruhu: TMenuItem Caption = '��stky dle &druh�' ShortCut = 0 OnClick = MIdledruhuClick end object Konec1: TMenuItem Caption = '&Konec' ShortCut = 0 OnClick = Konec1Click end end object MInastaveni: TMenuItem Caption = '&Nastaven�' ShortCut = 0 object MIucty: TMenuItem Caption = 'Nastaven� n�zv� &��t�' ShortCut = 0 OnClick = BuctyClick end object MIdruhy: TMenuItem Caption = 'Nastaven� n�zv� &druh�' ShortCut = 0 OnClick = BdruhyClick end end object MINapoveda: TMenuItem Caption = 'N�&pov�da' ShortCut = 0 object MINapoveda1: TMenuItem Caption = '&N�pov�da' ShortCut = 0 OnClick = MINapoveda1Click end object MINapoveda2: TMenuItem Caption = '&O programu' ShortCut = 0 OnClick = MINapoveda2Click end end end object Tdate: TTimer Interval = 30 OnTimer = TdateTimer Left = 64 Top = 144 end end