95 lines
2.0 KiB
Plaintext
95 lines
2.0 KiB
Plaintext
|
object MainForm: TMainForm
|
||
|
|
Left = 275
|
||
|
|
Top = 163
|
||
|
|
Width = 771
|
||
|
|
Height = 641
|
||
|
|
Caption = 'TJclMappedTextReader class demo'
|
||
|
|
Color = clBtnFace
|
||
|
|
Constraints.MinHeight = 200
|
||
|
|
Constraints.MinWidth = 200
|
||
|
|
Font.Charset = DEFAULT_CHARSET
|
||
|
|
Font.Color = clWindowText
|
||
|
|
Font.Height = -11
|
||
|
|
Font.Name = 'MS Sans Serif'
|
||
|
|
Font.Style = []
|
||
|
|
OldCreateOrder = False
|
||
|
|
OnCreate = FormCreate
|
||
|
|
OnDestroy = FormDestroy
|
||
|
|
PixelsPerInch = 96
|
||
|
|
TextHeight = 13
|
||
|
|
object ReadLnLabel: TLabel
|
||
|
|
Left = 200
|
||
|
|
Top = 16
|
||
|
|
Width = 64
|
||
|
|
Height = 13
|
||
|
|
Caption = 'ReadLnLabel'
|
||
|
|
end
|
||
|
|
object TextListView: TListView
|
||
|
|
Left = 0
|
||
|
|
Top = 40
|
||
|
|
Width = 763
|
||
|
|
Height = 555
|
||
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
||
|
|
Columns = <
|
||
|
|
item
|
||
|
|
Caption = 'Text'
|
||
|
|
Width = 750
|
||
|
|
end>
|
||
|
|
ColumnClick = False
|
||
|
|
Font.Charset = DEFAULT_CHARSET
|
||
|
|
Font.Color = clWindowText
|
||
|
|
Font.Height = -11
|
||
|
|
Font.Name = 'Courier New'
|
||
|
|
Font.Style = []
|
||
|
|
HotTrackStyles = []
|
||
|
|
OwnerData = True
|
||
|
|
ReadOnly = True
|
||
|
|
RowSelect = True
|
||
|
|
ParentFont = False
|
||
|
|
TabOrder = 0
|
||
|
|
ViewStyle = vsReport
|
||
|
|
OnData = TextListViewData
|
||
|
|
end
|
||
|
|
object OpenBtn: TButton
|
||
|
|
Left = 8
|
||
|
|
Top = 8
|
||
|
|
Width = 75
|
||
|
|
Height = 25
|
||
|
|
Caption = 'Open file'
|
||
|
|
TabOrder = 1
|
||
|
|
OnClick = OpenBtnClick
|
||
|
|
end
|
||
|
|
object StatusBar: TStatusBar
|
||
|
|
Left = 0
|
||
|
|
Top = 595
|
||
|
|
Width = 763
|
||
|
|
Height = 19
|
||
|
|
Panels = <
|
||
|
|
item
|
||
|
|
Width = 210
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Width = 210
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Width = 50
|
||
|
|
end>
|
||
|
|
SimplePanel = False
|
||
|
|
end
|
||
|
|
object ReadLnBtn: TButton
|
||
|
|
Left = 112
|
||
|
|
Top = 8
|
||
|
|
Width = 75
|
||
|
|
Height = 25
|
||
|
|
Caption = 'ReadLn test'
|
||
|
|
TabOrder = 3
|
||
|
|
OnClick = ReadLnBtnClick
|
||
|
|
end
|
||
|
|
object OpenDialog: TOpenDialog
|
||
|
|
Filter = 'Text files (*.txt)|*.txt|All files (*.*)|*.*'
|
||
|
|
Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing]
|
||
|
|
Left = 8
|
||
|
|
Top = 552
|
||
|
|
end
|
||
|
|
end
|