199 lines
3.8 KiB
Plaintext
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
|