home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2001 December
/
Chip_2001-12_cd1.bin
/
zkuste
/
delphi
/
kompon
/
d23456
/
CAJSCRTP.ZIP
/
demo_kylix
/
demo1.dfm
/
demo1.txt
Wrap
Text File
|
2001-05-20
|
3KB
|
136 lines
object Main: TMain
Left = 238
Top = 155
Width = 536
Height = 354
VertScrollBar.Range = 156
ActiveControl = Memo1
Caption = 'Demo'
Color = clButton
Font.Color = clText
Font.Height = 11
Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable
Font.Style = []
Font.Weight = 0
Menu = MainMenu1
ParentFont = False
Position = poScreenCenter
Scaled = False
OnClose = FormClose
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnDestroy = FormDestroy
PixelsPerInch = 75
object Splitter1: TSplitter
Left = 0
Top = 153
Width = 536
Height = 3
Cursor = crVSplit
Align = alTop
end
object Memo1: TMemo
Left = 0
Top = 0
Width = 536
Height = 153
Align = alTop
Lines.Strings = (
'Program IFSTest;'
'Begin'
'End.')
ScrollBars = ssBoth
TabOrder = 0
OnChange = Memo1Change
end
object memo2: TMemo
Left = 0
Top = 156
Width = 536
Height = 173
Align = alClient
ReadOnly = True
ScrollBars = ssBoth
TabOrder = 1
end
object MainMenu1: TMainMenu
Left = 96
Top = 128
object File1: TMenuItem
Caption = '&File'
object New1: TMenuItem
Caption = '&New'
OnClick = New1Click
end
object N2: TMenuItem
Caption = '-'
end
object Open1: TMenuItem
Caption = '&Open'
ShortCut = 16463
OnClick = Open1Click
end
object Save1: TMenuItem
Caption = '&Save'
ShortCut = 16467
OnClick = Save1Click
end
object Saveas1: TMenuItem
Caption = 'Save &as'
OnClick = Saveas1Click
end
object N1: TMenuItem
Caption = '-'
end
object Exit1: TMenuItem
Caption = 'E&xit'
ShortCut = 32856
OnClick = Exit1Click
end
end
object Script1: TMenuItem
Caption = '&Script'
object Run1: TMenuItem
Caption = '&Run'
ShortCut = 4152
OnClick = Run1Click
end
object Stop1: TMenuItem
Caption = '&Stop'
ShortCut = 20529
OnClick = Stop1Click
end
object N3: TMenuItem
Caption = '-'
end
object Runproceduretest1: TMenuItem
Caption = 'Run &Procedure'
OnClick = Runproceduretest1Click
end
object RunwithTestObject1: TMenuItem
Caption = 'Run with &Class'
OnClick = RunwithTestObject1Click
end
object RunwithaddedVariables1: TMenuItem
Caption = 'Run with &Variables'
OnClick = RunwithaddedVariables1Click
end
end
end
object OpenDialog1: TOpenDialog
DefaultExt = 'ifs'
Filter = 'ifs Files|*.ifs'
Title = 'Open'
Left = 256
Top = 152
end
object SaveDialog1: TSaveDialog
DefaultExt = 'ifs'
Filter = 'ifs Files|*.ifs'
Title = 'Save As'
Left = 264
Top = 160
end
end