home *** CD-ROM | disk | FTP | other *** search
- object fASCII: TfASCII
- Tag = 106
- Left = 759
- Top = 161
- Width = 219
- Height = 471
- BorderIcons = [biSystemMenu, biHelp]
- BorderStyle = bsSizeToolWin
- Caption = 'ASCII tabulka'
- Color = clBtnFace
- UseDockManager = True
- DragKind = dkDock
- DragMode = dmAutomatic
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- OnCreate = FormCreate
- OnHide = FormHide
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 408
- Width = 211
- Height = 29
- Align = alBottom
- BevelOuter = bvNone
- TabOrder = 1
- DesignSize = (
- 211
- 29)
- object lChar: TLabel
- Left = 4
- Top = 2
- Width = 15
- Height = 24
- Caption = 'A'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -21
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- ShowAccelChar = False
- end
- object bPrint: TButton
- Left = 40
- Top = 3
- Width = 64
- Height = 23
- Anchors = [akLeft, akBottom]
- Caption = '&Tisk'
- TabOrder = 0
- OnClick = bPrintClick
- end
- end
- object Grid: TStringGrid
- Left = 0
- Top = 0
- Width = 211
- Height = 408
- Align = alClient
- ColCount = 4
- Ctl3D = False
- DefaultRowHeight = 16
- FixedCols = 0
- RowCount = 2
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Courier New'
- Font.Style = []
- Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected]
- ParentCtl3D = False
- ParentFont = False
- PopupMenu = PopupASCII
- ScrollBars = ssVertical
- TabOrder = 0
- OnClick = GridClick
- OnDblClick = GridDblClick
- OnKeyPress = GridKeyPress
- OnMouseWheelDown = GridMouseWheelDown
- OnMouseWheelUp = GridMouseWheelDown
- ColWidths = (
- 35
- 40
- 39
- 72)
- end
- object PopupASCII: TPopupMenu
- Left = 56
- Top = 112
- object m1: TMenuItem
- ShortCut = 16451
- Visible = False
- OnClick = m1Click
- end
- object m2: TMenuItem
- ShortCut = 16429
- Visible = False
- end
- end
- end
-