home *** CD-ROM | disk | FTP | other *** search
- object RegForm: TRegForm
- Left = 298
- Top = 115
- BorderIcons = [biSystemMenu]
- BorderStyle = bsDialog
- Caption = 'RegForm'
- ClientHeight = 195
- ClientWidth = 325
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poScreenCenter
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnPaint = FormPaint
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Frame: TGroupBox
- Left = 8
- Top = 12
- Width = 309
- Height = 145
- Caption = 'UPLOADING DATA'
- Font.Color = clMaroon
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 0
- object Memo: TMemo
- Left = 8
- Top = 24
- Width = 293
- Height = 113
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ReadOnly = True
- ScrollBars = ssVertical
- TabOrder = 0
- end
- end
- object CancelButton: TButton
- Left = 260
- Top = 164
- Width = 57
- Height = 25
- Hint = 'Cancel'
- Cancel = True
- Caption = '&Cancel'
- ModalResult = 2
- TabOrder = 1
- OnClick = CancelButtonClick
- end
- object Crypto: TMPGCrypto
- Left = 36
- Top = 164
- end
- object NetClient: TMPGNetClient
- Address = '1.1.1.12'
- Port = '4444'
- TimeOut = 20
- OnInfo = NetClientInfo
- OnConnect = NetClientConnect
- OnTimeOut = NetClientTimeOut
- OnDisconnect = NetClientDisconnect
- OnRead = NetClientRead
- OnWrite = NetClientWrite
- Left = 8
- Top = 164
- end
- object Timer: TTimer
- Enabled = False
- Interval = 2000
- OnTimer = TimerTimer
- Left = 64
- Top = 164
- end
- object SaveDialog: TSaveDialog
- DefaultExt = 'txt'
- FileEditStyle = fsEdit
- FileName = 'c:\receipt.txt'
- Filter = 'Text Files (*.txt)|*.txt|All Files (*.*)|*.*'
- InitialDir = 'c:\'
- Options = [ofOverwritePrompt, ofHideReadOnly, ofNoChangeDir]
- Title = 'Copy Receipt To Disk'
- Left = 92
- Top = 164
- end
- end
-