home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World 1999 June
/
PCWorld_1999-06_cd.bin
/
software
/
Vyzkuste
/
Painter
/
Painter17.exe
/
0
/
RCDATA
/
TGRAPHF
/
TGRAPHF.txt
Wrap
Text File
|
1999-04-23
|
9KB
|
435 lines
object GraphF: TGraphF
Left = 172
Top = 70
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'Jans Graph '
ClientHeight = 409
ClientWidth = 477
Color = clMaroon
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 120
TextHeight = 16
object Label2: TLabel
Left = 8
Top = 280
Width = 35
Height = 16
Caption = 'y=f(t)'
Color = clMaroon
Font.Charset = DEFAULT_CHARSET
Font.Color = clYellow
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object Label5: TLabel
Left = 8
Top = 312
Width = 34
Height = 16
Caption = 'x=f(t)'
Color = clMaroon
Font.Charset = DEFAULT_CHARSET
Font.Color = clYellow
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object Label19: TLabel
Left = 280
Top = 184
Width = 36
Height = 16
Caption = 'From'
Font.Charset = DEFAULT_CHARSET
Font.Color = clYellow
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label20: TLabel
Left = 280
Top = 216
Width = 20
Height = 16
Caption = 'To'
Font.Charset = DEFAULT_CHARSET
Font.Color = clYellow
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label21: TLabel
Left = 280
Top = 248
Width = 33
Height = 16
Caption = 'Step'
Font.Charset = DEFAULT_CHARSET
Font.Color = clYellow
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Image1: TImage
Left = 8
Top = 8
Width = 256
Height = 256
end
object Label1: TLabel
Left = 8
Top = 344
Width = 54
Height = 16
Caption = 'Presets'
Color = clMaroon
Font.Charset = DEFAULT_CHARSET
Font.Color = clYellow
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object goCLS: TSpeedButton
Left = 320
Top = 376
Width = 65
Height = 22
Hint = 'Clear Graph'
Caption = 'Clear'
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clYellow
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = goCLSClick
end
object goGraph: TSpeedButton
Left = 392
Top = 376
Width = 65
Height = 22
Hint = 'Draw Graph'
Caption = 'Go'
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clYellow
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = goGraphClick
end
object goHelp: TSpeedButton
Left = 72
Top = 376
Width = 49
Height = 22
Caption = 'Help'
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clYellow
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
OnClick = Contents1Click
end
object goSave: TSpeedButton
Left = 184
Top = 376
Width = 49
Height = 22
Hint = 'Save Graph as bmp, gif or jpg file.'
Caption = 'Save'
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clYellow
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
end
object goAbout: TSpeedButton
Left = 128
Top = 376
Width = 49
Height = 22
Caption = 'About'
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clYellow
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
OnClick = About1Click
end
object goCopy: TSpeedButton
Left = 240
Top = 376
Width = 49
Height = 22
Caption = 'Copy'
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clYellow
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
OnClick = goCopyClick
end
object F1from: TEdit
Left = 320
Top = 184
Width = 49
Height = 24
BorderStyle = bsNone
TabOrder = 0
Text = '-1'
end
object F1to: TEdit
Left = 320
Top = 216
Width = 49
Height = 24
BorderStyle = bsNone
TabOrder = 1
Text = '1'
end
object F1step: TEdit
Left = 320
Top = 248
Width = 49
Height = 24
BorderStyle = bsNone
TabOrder = 2
Text = '0.1'
end
object penwidth: TListBox
Left = 288
Top = 8
Width = 25
Height = 97
Hint = 'Pen Width'
BorderStyle = bsNone
Color = clMaroon
Ctl3D = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clYellow
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ItemHeight = 16
Items.Strings = (
'1'
'2'
'3'
'4'
'5'
'6')
ParentCtl3D = False
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 3
OnClick = penwidthClick
end
object ColorGrid1: TColorGrid
Left = 328
Top = 8
Width = 100
Height = 100
Hint = 'left-click Graph color'#13#10'right-click Back color'
BackgroundIndex = 15
ParentShowHint = False
ShowHint = True
TabOrder = 4
OnClick = ColorGrid1Click
end
object func1: TEdit
Left = 72
Top = 280
Width = 385
Height = 22
BorderStyle = bsNone
Ctl3D = False
ParentCtl3D = False
TabOrder = 5
OnKeyPress = func1KeyPress
end
object func2: TEdit
Left = 72
Top = 312
Width = 385
Height = 24
BorderStyle = bsNone
Ctl3D = False
ParentCtl3D = False
TabOrder = 6
OnKeyPress = func2KeyPress
end
object Presets: TComboBox
Left = 72
Top = 344
Width = 385
Height = 22
Hint = 'click-select'#13#10'right-click to add/delete'
Style = csOwnerDrawFixed
Color = 12639424
ItemHeight = 16
ParentShowHint = False
PopupMenu = presetspop
ShowHint = True
Sorted = True
TabOrder = 7
OnClick = PresetsClick
OnDrawItem = PresetsDrawItem
end
object graphtype: TRadioGroup
Left = 280
Top = 120
Width = 113
Height = 49
Caption = 'graphtype'
Columns = 2
Font.Charset = DEFAULT_CHARSET
Font.Color = clYellow
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemIndex = 0
Items.Strings = (
'y'
'x,y')
ParentFont = False
TabOrder = 8
end
object doAxis: TCheckBox
Left = 400
Top = 128
Width = 57
Height = 17
Caption = 'Axis'
Font.Charset = DEFAULT_CHARSET
Font.Color = clYellow
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 9
end
object Limits: TListBox
Left = 392
Top = 184
Width = 65
Height = 89
Hint = 'Preset Limits'
BorderStyle = bsNone
Color = clMaroon
Ctl3D = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clYellow
Font.Height = -13
Font.Name = 'Symbol'
Font.Style = [fsBold]
ItemHeight = 16
Items.Strings = (
'0..2p'
'-p..+p'
'-10..+10'
'0..10')
ParentCtl3D = False
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 10
OnClick = LimitsClick
end
object doft: TCheckBox
Left = 400
Top = 152
Width = 57
Height = 17
Caption = 'f(t)'
Font.Charset = DEFAULT_CHARSET
Font.Color = clYellow
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 11
end
object Parser1: TParser
OnParserError = Parser1ParserError
Left = 208
Top = 88
end
object Parser2: TParser
Left = 224
Top = 136
end
object SaveDialog1: TSaveDialog
DefaultExt = 'gif'
Filter = 'GIF, BMP or JPG Files|*.gif;*.bmp;*.jpg;*.jpeg'
Left = 128
Top = 88
end
object MSOfficeCaption1: TMSOfficeCaption
AppNameText.Caption = 'Graph'
AppNameText.FontKind = fkSystemB
AppNameText.Visible = True
CaptionText.FontKind = fkSystem
CaptionText.Visible = True
CompanyText.Caption = 'Jans'
CompanyText.FontKind = fkSystemBI
CompanyText.Visible = True
Left = 144
Top = 176
end
object presetspop: TPopupMenu
Left = 168
Top = 344
object Add1: TMenuItem
Caption = '&Add'
OnClick = Add1Click
end
object Delete1: TMenuItem
Caption = '&Delete'
OnClick = Delete1Click
end
end
object pw: TjansPasswordDialog
Password = '1022am'
Left = 72
Top = 232
end
end