astroCalc/unit1.lfm

147 lines
3.5 KiB
Plaintext

object Form1: TForm1
Left = 421
Height = 240
Top = 140
Width = 320
Caption = 'Form1'
ClientHeight = 240
ClientWidth = 320
LCLVersion = '2.2.0.4'
object PageControl1: TPageControl
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 248
Top = 0
Width = 320
ActivePage = TabSheet1
Align = alCustom
Anchors = [akTop, akLeft, akRight, akBottom]
TabIndex = 1
TabOrder = 0
OnChange = PageControl1Change
object ML: TTabSheet
Caption = 'M->L'
ClientHeight = 209
ClientWidth = 310
OnContextPopup = MLContextPopup
object LabeledEdit1: TLabeledEdit
Left = 248
Height = 37
Top = 24
Width = 48
EditLabel.Height = 25
EditLabel.Width = 192
EditLabel.Caption = 'Absolute Helligkeit M = '
LabelPosition = lpLeft
TabOrder = 0
Text = '0'
OnChange = LabeledEdit1Change
end
object LabeledEdit2: TLabeledEdit
Left = 192
Height = 37
Top = 112
Width = 104
EditLabel.Height = 25
EditLabel.Width = 168
EditLabel.Caption = 'rel. Leuchtkraft L* = '
EditLabel.Color = clHighlightText
LabelPosition = lpLeft
TabOrder = 1
OnChange = LabeledEdit2Change
end
object LabeledEdit3: TLabeledEdit
Left = 136
Height = 37
Top = 152
Width = 137
EditLabel.Height = 25
EditLabel.Width = 127
EditLabel.Caption = 'Leuchtkraft L = '
EditLabel.Color = clYellow
LabelPosition = lpLeft
TabOrder = 2
OnChange = LabeledEdit3Change
end
object BitBtn1: TBitBtn
Left = 72
Height = 30
Top = 72
Width = 164
Caption = 'Berechne'
OnClick = BitBtn1Click
TabOrder = 3
end
object Label1: TLabel
Left = 280
Height = 25
Top = 160
Width = 16
Caption = 'W'
end
end
object TabSheet1: TTabSheet
Caption = 'L->M'
ClientHeight = 209
ClientWidth = 310
object LabeledEdit4: TLabeledEdit
Left = 192
Height = 37
Top = 16
Width = 104
EditLabel.Height = 25
EditLabel.Width = 172
EditLabel.Caption = 'Rel. Leuchtkraft L* = '
LabelPosition = lpLeft
TabOrder = 0
Text = '1'
OnChange = LabeledEdit4Change
OnEditingDone = LabeledEdit4EditingDone
end
object LabeledEdit5: TLabeledEdit
Left = 144
Height = 37
Top = 56
Width = 128
EditLabel.Height = 25
EditLabel.Width = 127
EditLabel.Caption = 'Leuchtkraft L = '
LabelPosition = lpLeft
TabOrder = 1
Text = '3.828e26'
OnChange = LabeledEdit5Change
OnEditingDone = LabeledEdit5EditingDone
end
object Label2: TLabel
Left = 280
Height = 25
Top = 64
Width = 16
Caption = 'W'
end
object Button1: TButton
Left = 80
Height = 25
Top = 104
Width = 152
Caption = 'Berechne'
OnClick = Button1Click
TabOrder = 2
end
object LabeledEdit6: TLabeledEdit
Left = 208
Height = 37
Top = 152
Width = 88
EditLabel.Height = 25
EditLabel.Width = 192
EditLabel.Caption = 'Absolute Helligkeit M = '
LabelPosition = lpLeft
TabOrder = 3
OnChange = LabeledEdit6Change
end
end
end
end