home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 292
- Top = 144
- Width = 415
- Height = 413
- Caption = 'Delphi API test'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- PixelsPerInch = 96
- TextHeight = 13
- object Label1: TLabel
- Left = 16
- Top = 16
- Width = 101
- Height = 13
- Caption = 'TechScheduler Path:'
- end
- object SpeedButton1: TSpeedButton
- Left = 376
- Top = 8
- Width = 25
- Height = 25
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
- 333B3BB3888BB8888BB333B0000000000B333330FFFFFFFF08333330FFFFFFFF
- 08333330F00F000F08333330FFFFFFFF0833BBB0F0000F0F0BB33BB0FFFFFFFF
- 0BBB3330F00F000003333330FFFF0FF033333330F07F0F0B33333330FFFF003B
- B33333B000000333BB333BB3333BB3333BB3B333333B3333333B}
- OnClick = SpeedButton1Click
- end
- object Label2: TLabel
- Left = 16
- Top = 45
- Width = 51
- Height = 13
- Caption = 'Job Name:'
- end
- object Label3: TLabel
- Left = 176
- Top = 245
- Width = 19
- Height = 13
- Caption = 'File:'
- end
- object Label4: TLabel
- Left = 8
- Top = 309
- Width = 33
- Height = 13
- Caption = 'Param:'
- end
- object Label5: TLabel
- Left = 8
- Top = 330
- Width = 39
- Height = 13
- Caption = 'StrData:'
- end
- object Label6: TLabel
- Left = 8
- Top = 354
- Width = 38
- Height = 13
- Caption = 'IntData:'
- end
- object Label7: TLabel
- Left = 152
- Top = 354
- Width = 47
- Height = 13
- Caption = 'BoolData:'
- end
- object Button1: TButton
- Left = 24
- Top = 80
- Width = 145
- Height = 25
- Caption = 'Run TechScheduler'
- TabOrder = 0
- OnClick = Button1Click
- end
- object Button2: TButton
- Left = 24
- Top = 112
- Width = 145
- Height = 25
- Caption = 'Terminate TechScheduler'
- TabOrder = 1
- OnClick = Button2Click
- end
- object Edit1: TEdit
- Left = 128
- Top = 12
- Width = 241
- Height = 21
- TabOrder = 2
- end
- object Button3: TButton
- Left = 24
- Top = 144
- Width = 145
- Height = 25
- Caption = 'Pause TechScheduler'
- TabOrder = 3
- OnClick = Button3Click
- end
- object Button4: TButton
- Left = 24
- Top = 176
- Width = 145
- Height = 25
- Caption = 'Restart TechScheduler'
- TabOrder = 4
- end
- object Button5: TButton
- Left = 24
- Top = 208
- Width = 145
- Height = 25
- Caption = 'Get Last Error'
- TabOrder = 5
- OnClick = Button5Click
- end
- object Edit2: TEdit
- Left = 128
- Top = 40
- Width = 177
- Height = 21
- TabOrder = 6
- end
- object Button6: TButton
- Left = 208
- Top = 80
- Width = 145
- Height = 25
- Caption = 'Run Job'
- TabOrder = 7
- OnClick = Button6Click
- end
- object Button7: TButton
- Left = 208
- Top = 112
- Width = 145
- Height = 25
- Caption = 'Pause Job'
- TabOrder = 8
- OnClick = Button7Click
- end
- object Button8: TButton
- Left = 208
- Top = 144
- Width = 145
- Height = 25
- Caption = 'Restart Job'
- TabOrder = 9
- OnClick = Button8Click
- end
- object Button9: TButton
- Left = 208
- Top = 176
- Width = 145
- Height = 25
- Caption = 'Delete Job'
- TabOrder = 10
- OnClick = Button9Click
- end
- object Button10: TButton
- Left = 24
- Top = 240
- Width = 145
- Height = 25
- Caption = 'Read Job File'
- TabOrder = 11
- OnClick = Button10Click
- end
- object Button11: TButton
- Left = 24
- Top = 272
- Width = 145
- Height = 25
- Caption = 'Set Job Parameter'
- TabOrder = 12
- OnClick = Button11Click
- end
- object Edit3: TEdit
- Left = 224
- Top = 240
- Width = 129
- Height = 21
- TabOrder = 13
- end
- object Edit4: TEdit
- Left = 56
- Top = 304
- Width = 145
- Height = 21
- TabOrder = 14
- end
- object Edit5: TEdit
- Left = 56
- Top = 328
- Width = 145
- Height = 21
- TabOrder = 15
- end
- object SpinEdit1: TSpinEdit
- Left = 56
- Top = 352
- Width = 81
- Height = 22
- MaxValue = 0
- MinValue = 0
- TabOrder = 16
- Value = 0
- end
- object RadioGroup1: TRadioGroup
- Left = 216
- Top = 340
- Width = 153
- Height = 33
- Columns = 2
- Items.Strings = (
- 'True'
- 'False')
- TabOrder = 17
- end
- object Button12: TButton
- Left = 208
- Top = 272
- Width = 145
- Height = 25
- Caption = 'Set Config Parameter'
- TabOrder = 18
- OnClick = Button12Click
- end
- object Button13: TButton
- Left = 208
- Top = 208
- Width = 145
- Height = 25
- Caption = 'Write Log (strdata,jobname)'
- TabOrder = 19
- OnClick = Button13Click
- end
- object OpenDialog1: TOpenDialog
- Left = 368
- Top = 272
- end
- end
-