object Fnovypohyb: TFnovypohyb Left = 200 Top = 80 BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = 'Zad�n� nov� transakce' ClientHeight = 309 ClientWidth = 427 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter OnCreate = FormCreate OnDeactivate = FormDeactivate PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 2 Top = 1 Width = 32 Height = 13 Caption = 'datum:' end object Label2: TLabel Left = 2 Top = 44 Width = 35 Height = 13 Caption = '��stka:' end object Label3: TLabel Left = 2 Top = 68 Width = 24 Height = 13 Caption = 'druh:' end object Label4: TLabel Left = 256 Top = 68 Width = 24 Height = 13 Caption = '��et:' end object Label5: TLabel Left = 8 Top = 180 Width = 28 Height = 13 Caption = 'popis:' end object Lznaky: TLabel Left = 42 Top = 204 Width = 145 Height = 13 Caption = 'Napsali jste v�ce ne� 55 znak�' Visible = False end object Ldenvtydnu: TLabel Left = 136 Top = 5 Width = 8 Height = 13 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Courier' Font.Style = [] ParentFont = False end object Lnoteb: TLabel Left = 128 Top = 52 Width = 3 Height = 13 end object Ecastka: TEdit Left = 42 Top = 44 Width = 81 Height = 21 Font.Charset = EASTEUROPE_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Courier' Font.Style = [] MaxLength = 9 ParentFont = False TabOrder = 0 OnExit = EcastkaExit end object LBdruh: TListBox Left = 42 Top = 68 Width = 201 Height = 97 Font.Charset = EASTEUROPE_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Courier' Font.Style = [] ItemHeight = 13 ParentFont = False TabOrder = 1 end object LBucet: TListBox Left = 288 Top = 68 Width = 129 Height = 97 Font.Charset = EASTEUROPE_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Courier' Font.Style = [] ItemHeight = 13 ParentFont = False TabOrder = 2 end object Epopis: TEdit Left = 42 Top = 180 Width = 375 Height = 21 Font.Charset = EASTEUROPE_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Courier' Font.Style = [] MaxLength = 234 ParentFont = False TabOrder = 3 OnChange = EpopisChange end object BBok: TBitBtn Left = 24 Top = 228 Width = 75 Height = 25 TabOrder = 4 TabStop = False OnClick = BBokClick Kind = bkOK end object MEdatum: TMaskEdit Left = 42 Top = 1 Width = 87 Height = 21 EditMask = '!99/99/0000;1;-' Font.Charset = EASTEUROPE_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Courier' Font.Style = [] MaxLength = 10 ParentFont = False TabOrder = 5 Text = ' . . ' OnChange = MEdatumChange OnExit = MEdatumExit end object Memo1: TMemo Left = 104 Top = 228 Width = 393 Height = 73 TabStop = False Color = clBtnFace Ctl3D = True Lines.Strings = ( 'Maxim�ln� po�et znak� je 234 (kolik jich uvid�te na monitoru z�l' + 'e�� na rozli�en�;' 'v souboru pro tisk je popis vid�t cel�).' 'V programu kasa.exe uvid�te pouze prvn�ch 55 znak�.' 'Program kasa.exe pou��vejte z 5.5.2001 nebo nov�j��, jinak se v�' + 'echny popisy ' 'zkr�t� na 60 znak�.') ParentCtl3D = False ReadOnly = True TabOrder = 10 end object Bnotebsw: TButton Left = 269 Top = 44 Width = 75 Height = 21 Hint = 'Zapnout/vypnout podporu notebooku' Caption = 'Bnotebsw' ParentShowHint = False ShowHint = True TabOrder = 11 TabStop = False OnClick = BnotebswClick end object Bnotebinfo: TButton Left = 344 Top = 44 Width = 75 Height = 21 Hint = 'O funkci podpora notebooku...' Caption = '&Co to je??' ParentShowHint = False ShowHint = True TabOrder = 12 TabStop = False OnClick = BnotebinfoClick end object Binc: TButton Left = 62 Top = 24 Width = 20 Height = 17 Hint = 'Inkrementace data' Caption = ' + ' ParentShowHint = False ShowHint = True TabOrder = 7 OnClick = BincClick end object Bdec: TButton Left = 42 Top = 24 Width = 20 Height = 17 Hint = 'Dekrementace data' Caption = ' - ' ParentShowHint = False ShowHint = True TabOrder = 6 OnClick = BdecClick end object Bdnes: TButton Left = 129 Top = 24 Width = 50 Height = 17 Hint = 'Dnes' Caption = '&Dnes' ParentShowHint = False ShowHint = True TabOrder = 9 OnClick = BdnesClick end object Bodvcera: TButton Left = 82 Top = 24 Width = 50 Height = 17 Hint = 'V�era' Caption = '&V�era' ParentShowHint = False ShowHint = True TabOrder = 8 OnClick = BodvceraClick end end