lazarus-tutorials/stream_visualize/main_stream.lfm

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