home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 200
- Top = 108
- BorderIcons = []
- BorderStyle = bsSingle
- Caption = 'TMC PRO communications unit...'
- ClientHeight = 41
- ClientWidth = 116
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- WindowState = wsMinimized
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 116
- Height = 41
- Align = alClient
- TabOrder = 0
- object LMDLabel1: TLMDLabel
- Left = 2
- Top = 5
- Width = 105
- Height = 30
- Caption = 'TMC talk'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -24
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold]
- FontFx.Style = tdPColorRaised
- ParentFont = False
- end
- end
- object Clientinn: TDdeClientItem
- DdeConv = Convinn
- DdeItem = 'TalkerCalls'
- OnChange = ClientinnChange
- Left = 58
- Top = 8
- end
- object Convinn: TDdeClientConv
- ServiceApplication = 'TMsystem'
- DdeService = 'TMsystem'
- DdeTopic = 'TalkerConversion'
- ConnectMode = ddeManual
- Left = 38
- Top = 6
- LinkInfo = (
- 'Service TMsystem'
- 'Topic TalkerConversion')
- end
- object Timer1: TTimer
- Enabled = False
- Interval = 100
- OnTimer = Timer1Timer
- Left = 24
- Top = 8
- end
- object RxTrayIcon1: TRxTrayIcon
- Active = False
- Icon.Data = {<image001.ico>}
- Left = 88
- Top = 8
- end
- end
-