1
0
lazarus-tutorials/stream_visualize/main_stream.lfm
2021-11-11 15:15:54 -05:00

199 lines
3.8 KiB
Plaintext

object Form1: TForm1
Left = 533
Height = 670
Top = 272
Width = 700
Caption = 'Visualizing a stream of records '
ClientHeight = 670
ClientWidth = 700
OnDestroy = FormDestroy
LCLVersion = '2.0.12.0'
object tbPosition: TTrackBar
Left = 0
Height = 25
Top = 0
Width = 700
Position = 0
TabStop = False
Align = alTop
TabOrder = 0
end
object lblOrigin: TLabel
AnchorSideTop.Control = tbPosition
AnchorSideTop.Side = asrBottom
Left = 31
Height = 16
Top = 25
Width = 8
Caption = '0'
ParentColor = False
end
object lblPositionDesc: TLabel
Left = 80
Height = 16
Top = 24
Width = 525
Caption = '< the trackbar pointer above illustrates the stream''s Position between origin and Size >'
ParentColor = False
end
object lblStreamSize: TLabel
AnchorSideTop.Control = tbPosition
AnchorSideTop.Side = asrBottom
AnchorSideBottom.Control = tbPosition
Left = 667
Height = 1
Top = 25
Width = 1
Alignment = taRightJustify
Anchors = [akTop]
ParentColor = False
end
object edtRecord: TEdit
Left = 0
Height = 22
Top = 56
Width = 700
Alignment = taCenter
AutoSize = False
TabOrder = 1
end
object memoDisplay: TMemo
Left = 14
Height = 300
Top = 101
Width = 450
Font.CharSet = ANSI_CHARSET
Font.Height = -13
Font.Name = 'Courier'
HideSelection = False
Lines.Strings = ( )
ParentFont = False
ScrollBars = ssAutoBoth
TabOrder = 2
end
object lblAdjustPosition: TLabel
Left = 480
Height = 16
Top = 101
Width = 161
Caption = 'Show previous/next record'
ParentColor = False
end
object udMover: TUpDown
Left = 656
Height = 31
Top = 96
Width = 34
Min = 0
OnClick = udMoverClick
Orientation = udHorizontal
Position = 0
TabOrder = 3
end
object lblRecordNo: TLabel
Left = 504
Height = 16
Top = 133
Width = 126
Caption = 'View record number:'
ParentColor = False
end
object seCurrentRecNo: TSpinEdit
Left = 640
Height = 21
Top = 128
Width = 50
OnChange = seCurrentRecNoChange
TabOrder = 4
Value = 30
end
object lblNumRecords: TLabel
Left = 472
Height = 16
Top = 208
Width = 163
Caption = 'No. of records to generate:'
ParentColor = False
end
object seNoOfRecords: TSpinEdit
Left = 640
Height = 21
Top = 203
Width = 50
MaxValue = 10000
MinValue = 1
TabOrder = 5
Value = 40
end
object btnGenerateStream: TButton
Left = 532
Height = 25
Top = 232
Width = 158
Caption = 'Generate new Stream.'
OnClick = btnGenerateStreamClick
TabOrder = 6
end
object btnSaveStream: TButton
Left = 472
Height = 25
Top = 312
Width = 218
Caption = 'Save stream to file, then discard'
Enabled = False
OnClick = btnSaveStreamClick
TabOrder = 7
end
object btnLoadStream: TButton
Left = 532
Height = 25
Top = 344
Width = 158
Caption = 'Load stream from file'
Enabled = False
OnClick = btnLoadStreamClick
TabOrder = 8
end
object lblSavedFileSize: TLabel
Left = 488
Height = 1
Top = 388
Width = 1
ParentColor = False
end
object memoEncrypted: TMemo
Left = 14
Height = 218
Top = 440
Width = 338
Lines.Strings = ( )
TabOrder = 9
end
object memoDecrypted: TMemo
Left = 360
Height = 218
Top = 440
Width = 326
Lines.Strings = ( )
TabOrder = 10
end
object btnEncrypt: TButton
Left = 136
Height = 25
Top = 408
Width = 75
Caption = 'Encrypt'
OnClick = btnEncryptClick
TabOrder = 11
end
object btnDecrypt: TButton
Left = 480
Height = 25
Top = 408
Width = 75
Caption = 'Decrypt'
OnClick = btnDecryptClick
TabOrder = 12
end
end