object ZVlastni: TZVlastni Left = 159 Top = 155 HelpContext = 340 HorzScrollBar.Visible = False VertScrollBar.Visible = False BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = 'Vlastn� anal�za jednotliv�ch ��sel - hra 5 ze 40' ClientHeight = 253 ClientWidth = 431 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] PopupMenu = PMenu OnActivate = FormActivate OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy PixelsPerInch = 96 TextHeight = 13 object PB1: TGauge Left = 226 Top = 22 Width = 195 Height = 23 ForeColor = clNavy BackColor = clYellow Progress = 0 Visible = False end object Label1: TLabel Left = 226 Top = 2 Width = 194 Height = 15 Alignment = taCenter AutoSize = False end object Label2: TLabel Left = 66 Top = 88 Width = 192 Height = 13 Caption = 'Datum losov�n� + rozd�l ve dnech' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Visible = False end object Button1: TButton Left = 373 Top = 50 Width = 48 Height = 25 Cancel = True Caption = '&Opustit' TabOrder = 0 OnClick = Button1Click end object Button2: TButton Left = 308 Top = 50 Width = 61 Height = 25 Caption = '&V�po�et' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 1 OnClick = Button2Click end object GroupBox1: TGroupBox Left = 15 Top = 20 Width = 179 Height = 47 Caption = ' Zadejte 1 - 5 ��sel ' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False PopupMenu = PMenu TabOrder = 2 object Edit2: TEdit Left = 8 Top = 16 Width = 27 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 2 ParentFont = False TabOrder = 0 OnExit = Edit2Exit OnKeyPress = Edit2KeyPress end object Edit3: TEdit Left = 41 Top = 16 Width = 27 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 2 ParentFont = False TabOrder = 1 OnExit = Edit3Exit OnKeyPress = Edit3KeyPress end object Edit4: TEdit Left = 74 Top = 16 Width = 27 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 2 ParentFont = False TabOrder = 2 OnExit = Edit4Exit OnKeyPress = Edit4KeyPress end object Edit6: TEdit Left = 141 Top = 16 Width = 27 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 2 ParentFont = False TabOrder = 4 OnExit = Edit6Exit OnKeyPress = Edit6KeyPress end object Edit5: TEdit Left = 108 Top = 16 Width = 27 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 2 ParentFont = False TabOrder = 3 OnExit = Edit5Exit OnKeyPress = Edit5KeyPress end end object Button3: TButton Left = 226 Top = 50 Width = 78 Height = 25 Caption = 'V&sadit ��sla' Enabled = False Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 3 OnClick = Button3Click end object StringGrid1: TStringGrid Left = 10 Top = 112 Width = 411 Height = 129 Hint = 'Prav� tla��tko my�i = vyvol�n� skryt�ho menu' ColCount = 8 DefaultColWidth = 50 DefaultRowHeight = 17 RowCount = 7 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSelect] ParentShowHint = False PopupMenu = PMenu ScrollBars = ssNone ShowHint = True TabOrder = 4 RowHeights = ( 17 17 17 17 17 17 17) end object ComboBox1: TComboBox Left = 262 Top = 84 Width = 159 Height = 21 Style = csDropDownList DropDownCount = 17 ItemHeight = 13 TabOrder = 5 Visible = False end object PMenu: TPopupMenu Top = 80 object Vloitdoschrnky1: TMenuItem Caption = '&Vlo�it do schr�nky' ShortCut = 116 OnClick = Vloitdoschrnky1Click end end object MSOfficeCaption1: TMSOfficeCaption AppNameText.FontKind = fkSystemB AppNameText.Visible = True CaptionText.Caption = 'Vlastn� anal�za jednotliv�ch ��sel - hra 5 ze 40' CaptionText.ColorActive = clYellow CaptionText.ColorInactive = clGray CaptionText.FontKind = fkSystem CaptionText.Visible = True CompanyText.FontKind = fkSystemBI CompanyText.Visible = True Color = clNavy Left = 512 Top = 1 end end