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