home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2000 August
/
chip_08_2000.iso
/
software
/
astro
/
starcalc
/
STARCALC.EXE
/
0
/
RCDATA
/
TSAVEPICTURE
/
TSAVEPICTURE.txt
Wrap
Text File
|
2000-05-28
|
3KB
|
167 lines
object SavePicture: TSavePicture
Left = 243
Top = 189
ActiveControl = OkBtn
BorderStyle = bsDialog
Caption = 'Save as file'
ClientHeight = 211
ClientWidth = 306
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Position = poScreenCenter
OnCreate = FormCreate
OnKeyDown = FormKeyDown
PixelsPerInch = 96
TextHeight = 13
object Label5: TLabel
Left = 8
Top = 136
Width = 60
Height = 13
Caption = 'File name:'
end
object LegendCB: TCheckBox
Left = 216
Top = 128
Width = 81
Height = 17
Alignment = taLeftJustify
Caption = 'Add legend'
State = cbChecked
TabOrder = 2
end
object FileNameEdit: TEdit
Left = 8
Top = 152
Width = 265
Height = 21
TabOrder = 3
end
object FileNameBtn: TButton
Left = 280
Top = 152
Width = 17
Height = 21
Caption = '...'
TabOrder = 4
OnClick = FileNameBtnClick
end
object OkBtn: TButton
Left = 40
Top = 182
Width = 97
Height = 22
Caption = '&Ok'
Default = True
ModalResult = 1
TabOrder = 5
OnClick = OkBtnClick
OnKeyDown = FormKeyDown
end
object ExitBtn: TButton
Left = 166
Top = 182
Width = 99
Height = 22
Caption = '&Cancel'
ModalResult = 2
TabOrder = 6
OnKeyDown = FormKeyDown
end
object Panel1: TPanel
Left = 8
Top = 8
Width = 289
Height = 36
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 0
object Label1: TLabel
Left = 24
Top = 12
Width = 42
Height = 13
Caption = 'Width:'
end
object Label2: TLabel
Left = 160
Top = 12
Width = 41
Height = 13
Caption = 'Height:'
end
object WidthEdit: TEdit
Left = 80
Top = 8
Width = 41
Height = 21
MaxLength = 4
TabOrder = 0
OnExit = WidthEditExit
end
object HeightEdit: TEdit
Left = 216
Top = 8
Width = 41
Height = 21
MaxLength = 4
TabOrder = 1
OnExit = HeightEditExit
end
end
object Panel2: TPanel
Left = 8
Top = 48
Width = 289
Height = 73
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 1
object Label3: TLabel
Left = 7
Top = 14
Width = 52
Height = 13
Caption = 'File type:'
end
object Label4: TLabel
Left = 7
Top = 45
Width = 76
Height = 13
Caption = 'Color scheme:'
end
object FileTypeCB: TComboBox
Left = 66
Top = 10
Width = 217
Height = 21
Style = csDropDownList
ItemHeight = 13
Items.Strings = (
'(*.bmp) Windows or OS/2 Bitmap'
'(*.gif) CompuServe Grpahics Interchange'
'(*.wmf) Windows Meta File'
'(*.emf) Windows Enhanced MetaFile')
TabOrder = 0
OnChange = FileTypeCBChange
end
object ColorSchemeCB: TComboBox
Left = 98
Top = 42
Width = 185
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 1
end
end
object SaveDialog: TSaveDialog
FileEditStyle = fsEdit
Left = 8
Top = 176
end
end