home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2000 August
/
chip_08_2000.iso
/
software
/
astro
/
starcalc
/
STARCALC.EXE
/
0
/
RCDATA
/
TSETZOOMFORM
/
TSETZOOMFORM.txt
Wrap
Text File
|
2000-05-28
|
3KB
|
96 lines
object SetZoomForm: TSetZoomForm
Left = 213
Top = 323
BorderStyle = bsNone
ClientHeight = 42
ClientWidth = 138
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OnDeactivate = FormDeactivate
OnKeyPress = FormKeyPress
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 138
Height = 42
Align = alClient
BevelInner = bvRaised
TabOrder = 0
object Label2: TLabel
Left = 92
Top = 15
Width = 8
Height = 13
Caption = '%'
end
object Zoom100: TSpeedButton
Left = 5
Top = 9
Width = 25
Height = 25
Hint = 'All sky'
Glyph.Data = {
66010000424D6601000000000000760000002800000014000000140000000100
040000000000F000000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777774
7777777700007777774777474777777700007777777477747777777700007777
7777477777777777000077777777747777777777000077777777774777777777
0000777777747774777777770000777777474777477777770000777777747777
7777777700007777777777777777777700007444447744477774447700007774
7774777477477747000077747774777477477747000077747774777477477747
0000777477747774774777470000777477747774774777470000777477747774
7747774700007444777477747747774700007774777744477774447700007777
77777777777777770000}
ParentShowHint = False
ShowHint = True
OnClick = Zoom100Click
end
object Panel2: TPanel
Left = 113
Top = 2
Width = 22
Height = 37
BevelInner = bvLowered
BevelOuter = bvNone
TabOrder = 0
object SpeedButton1: TSpeedButton
Left = 3
Top = 3
Width = 16
Height = 14
Glyph.Data = {
5A000000424D5A000000000000003E0000002800000008000000070000000100
0100000000001C000000120B0000120B0000020000000200000000000000FFFF
FF003C00000099000000C3000000E7000000C3000000990000003C000000}
OnClick = SpeedButton1Click
end
object SpeedButton2: TSpeedButton
Left = 3
Top = 19
Width = 16
Height = 14
Glyph.Data = {
5A000000424D5A000000000000003E0000002800000007000000070000000100
0100000000001C0000000000000000000000000000000000000000000000FFFF
FF00DE000000CE000000C6000000C2000000C6000000CE000000DE000000}
OnClick = SpeedButton2Click
end
end
object NewZoom: TEdit
Left = 40
Top = 11
Width = 49
Height = 21
MaxLength = 6
TabOrder = 1
OnKeyPress = FormKeyPress
end
end
end