rendered paste bodyobject MainForm: TMainForm Left = 1516 Top = 280 Width = 494 Height = 436 Caption = 'G-Rex Serial Loader' Color = clBtnFace Constraints.MinHeight = 436 Constraints.MinWidth = 478 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poScreenCenter ShowHint = True PixelsPerInch = 96 TextHeight = 13 object Splitter1: TSplitter Left = 0 Top = 262 Width = 486 Height = 3 Cursor = crVSplit Align = alBottom MinSize = 144 ResizeStyle = rsUpdate end object TopPanel: TPanel Left = 0 Top = 0 Width = 486 Height = 105 Align = alTop TabOrder = 0 object PickLoadButton: TSpeedButton Left = 358 Top = 47 Width = 23 Height = 22 Hint = 'Select a file to load' Anchors = [akTop, akRight] Caption = '. . .' OnClick = PickLoadButtonClick end object PickSaveButton: TSpeedButton Left = 358 Top = 77 Width = 23 Height = 22 Anchors = [akTop, akRight] Caption = '. . .' OnClick = PickSaveButtonClick end object Label3: TLabel Left = 24 Top = 19 Width = 49 Height = 13 Hint = 'Select the G-Rex COM port' Caption = '&COM Port:' FocusControl = ComPortCombo end object Label4: TLabel Left = 248 Top = 19 Width = 54 Height = 13 Hint = 'Set the COM port Baud Rate' Anchors = [akTop, akRight] Caption = '&Baud Rate:' FocusControl = BaudRateCombo end object Label5: TLabel Left = 24 Top = 52 Width = 46 Height = 13 Hint = 'File name to load' Caption = '&Load File:' FocusControl = LoadEdit end object Label6: TLabel Left = 24 Top = 76 Width = 49 Height = 13 Hint = 'Name of file to store the communications log' Caption = '&Save Log:' FocusControl = SaveEdit end object LoadEdit: TEdit Left = 80 Top = 47 Width = 277 Height = 21 Hint = 'File name to load' Anchors = [akLeft, akTop, akRight] TabOrder = 0 OnKeyPress = LoadEditKeyPress end object SaveEdit: TEdit Left = 80 Top = 77 Width = 277 Height = 21 Hint = 'Name of file to store the communications log' Anchors = [akLeft, akTop, akRight] TabOrder = 1 OnKeyPress = SaveEditKeyPress end object GoButton: TBitBtn Left = 396 Top = 45 Width = 75 Height = 25 Hint = 'Load the selected file' Anchors = [akTop, akRight] Caption = '&Open' ModalResult = 1 TabOrder = 2 OnClick = GoButtonClick NumGlyphs = 2 end object CloseButton: TBitBtn Left = 396 Top = 75 Width = 75 Height = 25 Hint = 'Exit from the program' Anchors = [akTop, akRight] Cancel = True Caption = '&Close' TabOrder = 3 OnClick = CloseButtonClick NumGlyphs = 2 end object ComPortCombo: TComboBox Left = 80 Top = 16 Width = 161 Height = 21 Hint = 'Select the G-Rex COM port' Style = csDropDownList Anchors = [akLeft, akTop, akRight] ItemHeight = 13 TabOrder = 4 end object BaudRateCombo: TComboBox Left = 312 Top = 16 Width = 65 Height = 21 Hint = 'Set the COM port Baud Rate' Style = csDropDownList Anchors = [akTop, akRight] ItemHeight = 13 TabOrder = 5 Items.Strings = ( '9600' '19200' '38400' '57600' '115.2k' '230.4k') end object SetPortButton: TBitBtn Left = 396 Top = 16 Width = 75 Height = 25 Hint = 'Apply changes in COM port and Baud Rate' Anchors = [akTop, akRight] Caption = '&Reset Port' TabOrder = 6 OnClick = SetPortButtonClick end end object BottomPanel: TPanel Left = 0 Top = 265 Width = 486 Height = 144 Align = alBottom Constraints.MinHeight = 144 TabOrder = 1 object Label1: TLabel Left = 8 Top = 112 Width = 65 Height = 13 Hint = 'Enter commands manually' Anchors = [akLeft, akBottom] Caption = '&Manual Entry:' FocusControl = ManualEntry end object Label2: TLabel Left = 8 Top = 8 Width = 53 Height = 13 Caption = 'Comm Log:' end object SendLog: TMemo Left = 80 Top = 8 Width = 401 Height = 89 Hint = 'Communications Log' Anchors = [akLeft, akTop, akRight, akBottom] ReadOnly = True ScrollBars = ssVertical TabOrder = 0 OnDblClick = SendLogDblClick end object ManualEntry: TEdit Left = 80 Top = 112 Width = 401 Height = 21 Hint = 'Enter commands manually' Anchors = [akLeft, akRight, akBottom] Enabled = False TabOrder = 1 OnKeyPress = ManualEntryKeyPress end end object MainPanel: TPanel Left = 0 Top = 105 Width = 486 Height = 157 Align = alClient Constraints.MinHeight = 144 TabOrder = 2 object UploadFile: TMemo Left = 1 Top = 33 Width = 484 Height = 123 Hint = 'The loaded file - you may edit this' Align = alClient ScrollBars = ssVertical TabOrder = 0 WordWrap = False OnDblClick = UploadFileDblClick end object ButtonPanel: TPanel Left = 1 Top = 1 Width = 484 Height = 32 Align = alTop Enabled = False TabOrder = 1 object PlayButton: TSpeedButton Left = 186 Top = 5 Width = 23 Height = 22 Hint = 'Send the loaded file, line by line' NumGlyphs = 2 OnClick = PlayButtonClick end object PauseButton: TSpeedButton Left = 210 Top = 5 Width = 23 Height = 22 Hint = 'Pause the file download' NumGlyphs = 2 OnClick = PauseButtonClick end object StepButton: TSpeedButton Left = 234 Top = 5 Width = 23 Height = 22 Hint = 'Send the next line in the file' NumGlyphs = 2 OnClick = StepButtonClick end object StopButton: TSpeedButton Left = 258 Top = 5 Width = 23 Height = 22 Hint = 'Stop playing the file, and reset to the beginning' NumGlyphs = 2 OnClick = StopButtonClick end object Label7: TLabel Left = 8 Top = 10 Width = 77 Height = 13 Hint = 'Enter the delay between commands (in milliseconds)' Caption = 'Command &Delay' FocusControl = DelaySpinEdit end object DelaySpinEdit: TCSpinEdit Left = 88 Top = 5 Width = 89 Height = 22 Hint = 'Enter the delay between commands (in milliseconds)' TabStop = True MaxValue = 5000 ParentColor = False TabOrder = 0 Value = 50 end end end object OpenDialog: TOpenDialog InitialDir = '".\"' Options = [ofHideReadOnly, ofFileMustExist, ofEnableSizing] Title = 'Select G-Rex File' Top = 24 end object SaveDialog: TSaveDialog Options = [ofHideReadOnly, ofPathMustExist, ofEnableSizing] endend