The first commit.

Enthaltene Umrechnungen:
- Leuchtkraft zu absoluter Helligkeit
- absolute Helligkeit zu Leuchtkraft

lib/x86_64-linux/astroCalc.compiled

@@ -0,0 +1,5 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<CONFIG>
+  <Compiler Value="/usr/bin/fpc" Date="1622464867"/>
+  <Params Value=" -MObjFPC -Scghi -Cg -O1 -g -gl -l -vewnhibq -Fi/home/mputzlocher/Nextcloud/astro/astroCalc/lib/x86_64-linux -Fu/usr/lib/lazarus/lcl/units/x86_64-linux/gtk2 -Fu/usr/lib/lazarus/lcl/units/x86_64-linux -Fu/usr/lib/lazarus/components/freetype/lib/x86_64-linux -Fu/usr/lib/lazarus/components/lazutils/lib/x86_64-linux -Fu/usr/lib/lazarus/packager/units/x86_64-linux -Fu/home/mputzlocher/Nextcloud/astro/astroCalc/ -FU/home/mputzlocher/Nextcloud/astro/astroCalc/lib/x86_64-linux/ -FE/home/mputzlocher/Nextcloud/astro/astroCalc/ -o/home/mputzlocher/Nextcloud/astro/astroCalc/astroCalc -dLCL -dLCLgtk2 astroCalc.lpr"/>
+</CONFIG>

lib/x86_64-linux/unit1.lfm

@@ -0,0 +1,146 @@
+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