home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 August
/
Chip_1999-08_cd.bin
/
tema
/
Ozogan
/
RUNTIME
/
APLIKACE.EXE
/
VYPOCTY1.KFM
/
VYPOCTY1.txt
Wrap
Text File
|
1999-06-20
|
8KB
|
318 lines
object Form: TForm
Left = 96
Top = 171
BorderStyle = bsDialog
Caption = 'V�po�et obvodu a plochy geometrick�ch obrazc�'
ClientHeight = 274
ClientWidth = 571
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Position = poDefault
Visible = True
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 152
Top = 30
Width = 64
Height = 20
Caption = 'Strana A'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 152
Top = 70
Width = 65
Height = 20
Caption = 'Strana B'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 152
Top = 110
Width = 65
Height = 20
Caption = 'Strana C'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 152
Top = 150
Width = 62
Height = 20
Caption = 'Polom�r'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Visible = False
end
object Label5: TLabel
Left = 152
Top = 190
Width = 45
Height = 20
Caption = 'V��ka'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Visible = False
end
object ButtonVypocet: TSpeedButton
Left = 144
Top = 232
Width = 96
Height = 24
Caption = '&V�po�et'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00337000000000
73333337777777773F333308888888880333337F3F3F3FFF7F33330808089998
0333337F737377737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3FFFFFFF7F33330800000008
0333337F7777777F7F333308000E0E080333337F7FFFFF7F7F33330800000008
0333337F777777737F333308888888880333337F333333337F33330888888888
03333373FFFFFFFF733333700000000073333337777777773333}
NumGlyphs = 2
OnClick = ButtonVypocetClick
end
object ButtonClose: TSpeedButton
Left = 254
Top = 232
Width = 100
Height = 24
Caption = '&Konec'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
03333377777777777F333301111111110333337F333333337F33330111111111
0333337F333333337F333301111111110333337F333333337F33330111111111
0333337F333333337F333301111111110333337F333333337F33330111111111
0333337F3333333F7F333301111111B10333337F333333737F33330111111111
0333337F333333337F333301111111110333337F33FFFFF37F3333011EEEEE11
0333337F377777F37F3333011EEEEE110333337F37FFF7F37F3333011EEEEE11
0333337F377777337F333301111111110333337F333333337F33330111111111
0333337FFFFFFFFF7F3333000000000003333377777777777333}
NumGlyphs = 2
OnClick = ButtonCloseClick
end
object Bevel1: TBevel
Left = 144
Top = 16
Width = 216
Height = 200
end
object LabelX: TLabel
Left = 371
Top = 228
Width = 106
Height = 20
Caption = 'X = A * B * C'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 371
Top = 252
Width = 87
Height = 20
Caption = 'V�sledek='
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel
Left = 459
Top = 252
Width = 46
Height = 20
Caption = '0.000'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object GroupBox1: TGroupBox
Left = 8
Top = 8
Width = 128
Height = 256
Caption = ' Typ v�po�tu '
TabOrder = 0
object RadioButton1: TRadioButton
Left = 10
Top = 20
Width = 100
Height = 17
Caption = 'Obvod �tverce'
Checked = True
TabOrder = 0
TabStop = True
OnClick = RadioButton1Click
end
object RadioButton2: TRadioButton
Left = 10
Top = 50
Width = 100
Height = 17
Caption = 'Povrcha �tverce'
TabOrder = 1
OnClick = RadioButton2Click
end
object RadioButton3: TRadioButton
Left = 10
Top = 80
Width = 100
Height = 16
Caption = 'Obvod obd�ln�ka'
TabOrder = 2
OnClick = RadioButton3Click
end
object RadioButton4: TRadioButton
Left = 10
Top = 110
Width = 105
Height = 17
Caption = 'Plocha obd�ln�ka'
TabOrder = 3
OnClick = RadioButton4Click
end
object RadioButton5: TRadioButton
Left = 10
Top = 140
Width = 110
Height = 17
Caption = 'Obvod troj�heln�ka'
TabOrder = 4
OnClick = RadioButton5Click
end
object RadioButton6: TRadioButton
Left = 10
Top = 170
Width = 110
Height = 17
Caption = 'Plocha troj�heln�ka'
TabOrder = 5
OnClick = RadioButton6Click
end
object RadioButton7: TRadioButton
Left = 10
Top = 200
Width = 100
Height = 17
Caption = 'Obvod kruhu'
TabOrder = 6
OnClick = RadioButton7Click
end
object RadioButton8: TRadioButton
Left = 10
Top = 230
Width = 100
Height = 17
Caption = 'Plocha kruhu'
TabOrder = 7
OnClick = RadioButton8Click
end
end
object Edit1: TEdit
Left = 224
Top = 28
Width = 128
Height = 21
TabOrder = 1
Text = '10'
OnExit = ButtonVypocetClick
end
object Edit2: TEdit
Left = 224
Top = 68
Width = 128
Height = 21
TabOrder = 2
Text = '20'
OnExit = ButtonVypocetClick
end
object Edit3: TEdit
Left = 224
Top = 108
Width = 128
Height = 21
TabOrder = 3
Text = '30'
OnExit = ButtonVypocetClick
end
object Edit4: TEdit
Left = 224
Top = 148
Width = 128
Height = 21
TabOrder = 4
Text = '10'
Visible = False
OnExit = ButtonVypocetClick
end
object Edit5: TEdit
Left = 224
Top = 188
Width = 128
Height = 21
TabOrder = 5
Text = '20'
Visible = False
OnExit = ButtonVypocetClick
end
object Panel1: TPanel
Left = 368
Top = 16
Width = 200
Height = 200
TabOrder = 6
object Image: TImage
Left = 1
Top = 1
Width = 198
Height = 198
Align = alClient
end
end
end