object Fzustatky: TFzustatky Left = 194 Top = 105 BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = 'Z�statky na ��tech' ClientHeight = 288 ClientWidth = 432 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 Label2: TLabel Left = 0 Top = 240 Width = 30 Height = 13 Caption = 'Ke dni' end object Ldenvtydnu: TLabel Left = 128 Top = 246 Width = 51 Height = 16 Caption = 'kone�n�' Font.Charset = EASTEUROPE_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object SGzustatky: TStringGrid Left = 0 Top = 16 Width = 432 Height = 223 TabStop = False Color = clBtnFace ColCount = 4 Ctl3D = True DefaultRowHeight = 19 Enabled = False FixedCols = 0 RowCount = 12 FixedRows = 11 Font.Charset = EASTEUROPE_CHARSET Font.Color = clBlack Font.Height = -12 Font.Name = 'Courier' Font.Style = [] Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSelect] ParentCtl3D = False ParentFont = False ScrollBars = ssNone TabOrder = 7 ColWidths = ( 182 64 64 64) end object Bzobrazit: TButton Left = 352 Top = 256 Width = 75 Height = 25 Hint = 'Zobrazit z�statky' Caption = 'Z&obrazit' Default = True ParentShowHint = False ShowHint = True TabOrder = 0 OnClick = BzobrazitClick end object MEdat: TMaskEdit Left = 34 Top = 241 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 = 1 Text = '00.00.0000' OnChange = MEdatChange OnExit = MEdatExit end object Bdec: TButton Left = 33 Top = 264 Width = 20 Height = 17 Hint = 'Dekrementace data' Caption = ' - ' ParentShowHint = False ShowHint = True TabOrder = 2 OnClick = BdecClick end object Binc: TButton Left = 53 Top = 264 Width = 20 Height = 17 Hint = 'Inkrementace data' Caption = ' + ' ParentShowHint = False ShowHint = True TabOrder = 3 OnClick = BincClick end object Bdnes: TButton Left = 120 Top = 264 Width = 75 Height = 17 Hint = 'Dne�n� z�statky' Caption = '&Dnes' ParentShowHint = False ShowHint = True TabOrder = 5 OnClick = BdnesClick end object Bodvcera: TButton Left = 72 Top = 264 Width = 50 Height = 17 Hint = 'V�erej�� z�statky' Caption = '&V�era' ParentShowHint = False ShowHint = True TabOrder = 4 OnClick = BodvceraClick end object Bkonecny: TButton Left = 192 Top = 264 Width = 75 Height = 17 Hint = 'Kone�n� z�statky(neomezeno datem)' Caption = '&Kone�n�' ParentShowHint = False ShowHint = True TabOrder = 6 OnClick = BkonecnyClick end end