home *** CD-ROM | disk | FTP | other *** search
- object Form5: TForm5
- Left = 270
- Top = 112
- Width = 352
- Height = 345
- Caption = 'Form5'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- FormStyle = fsStayOnTop
- OnClose = FormClose
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object ListView1: TListView
- Left = 9
- Top = 26
- Width = 326
- Height = 283
- Align = alClient
- Color = 16776176
- Columns = <>
- ReadOnly = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- GridLines = True
- OnMouseDown = ListView1MouseDown
- ParentFont = False
- PopupMenu = PopupMenu1
- TabOrder = 0
- ViewStyle = vsList
- end
- object Dock971: TDock97
- Left = 0
- Top = 0
- Width = 344
- Height = 26
- object ToolWindow971: TToolWindow97
- Left = 0
- Top = 0
- ClientHeight = 22
- ClientWidth = 68
- Caption = 'ToolWindow971'
- DockedTo = Dock971
- DockPos = 0
- TabOrder = 0
- object FLLButton: TToolbarButton97
- Left = 0
- Top = 0
- Width = 31
- Height = 22
- AllowAllUp = True
- GroupIndex = 1
- Caption = 'FLL'
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- ParentFont = False
- OnClick = FLLButtonClick
- end
- object RLLButton: TToolbarButton97
- Left = 32
- Top = 0
- Width = 33
- Height = 22
- AllowAllUp = True
- GroupIndex = 2
- Caption = 'RLL'
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- ParentFont = False
- OnClick = RLLButtonClick
- end
- end
- end
- object Dock972: TDock97
- Left = 0
- Top = 26
- Width = 9
- Height = 283
- LimitToOneRow = True
- Position = dpLeft
- end
- object Dock973: TDock97
- Left = 335
- Top = 26
- Width = 9
- Height = 283
- LimitToOneRow = True
- Position = dpRight
- end
- object Dock974: TDock97
- Left = 0
- Top = 309
- Width = 344
- Height = 9
- Position = dpBottom
- end
- object PopupMenu1: TPopupMenu
- Left = 24
- Top = 48
- object Select1: TMenuItem
- Caption = 'Draw'
- OnClick = Select1Click
- end
- end
- end
-