repo-details geändert

README.md

@@ -4,7 +4,7 @@
 
 **Ein Programm zur Berechnung von Coils in Selbstwickelverdampfern.**
 
-Es können Materialien (Stand 21.06.2017: Kanthal A1, Kanthal A, Kanthal D, NiChrome N80, Nickel 200, V4A, V2A und Titan), Drahtstärke (mm und AWG), gewünschter Widerstand der Wicklung, Innendurchmesser der Wicklung und Befestigungsweg (Abstand Wicklung zu den Anschlussposts, WICHTIG: nur einfachen Weg eingeben), sowie die Anzahl der Coils (single, dual, quad) ausgewählt werden. Die Berechnung erfolgt sofort bei jeder Änderung eines Parameters.
+Es können Materialien (Stand 21.06.2023: Kanthal A1, Kanthal A, Kanthal D, NiChrome N80, Nickel 200, V4A, V2A und Titan), Drahtstärke (mm und AWG), gewünschter Widerstand der Wicklung, Innendurchmesser der Wicklung und Befestigungsweg (Abstand Wicklung zu den Anschlussposts, WICHTIG: nur einfachen Weg eingeben), sowie die Anzahl der Coils (single, dual, quad) ausgewählt werden. Die Berechnung erfolgt sofort bei jeder Änderung eines Parameters.
 
 Als Ergebnis wird die genaue erforderliche Drahtlänge, sowie die genaue Wicklungsanzahl ausgegeben. Da nur mit halben (die Drahtenden zeigen in zwei verschiedene Richtungen) und ganzen (die Drahtenden zeigen in die selbe Richtung) gearbeitet werden kann, werden drei verschiedene gerundete Ergebnisvarianten mit dem jeweils erreichten Widerstand angezeigt.
 
@@ -18,9 +18,7 @@ Die Setups können geladen und gespeichert werden. In der neuen Version werden a
 
 
 
-Das Programm wurde mit [Lazarus](http://www.lazarus-ide.org/)/[Freepascal](https://www.freepascal.org/) erstellt. Die vorhandene ausführbare Datei liegt unter einer Linux-Version vor. Sie wurde unter [Manjaro Linux](https://manjaro.org/) 17.0.1 Gellivara x86_64 erstellt.
-
-Eine Windows-Version steht ebenfalls zur Verfügung (Windows 64 u. Windows 32).
+Das Programm wurde mit [Lazarus](http://www.lazarus-ide.org/)/[Freepascal](https://www.freepascal.org/) erstellt.
 
 
 
@@ -90,5 +88,5 @@ Keulkulator ist lizensiert unter der [GNU General Public License Version 3](http
 
 
 
-Copyright 2017 PepeCyB
+Copyright 2023 PepeCyB
 

backup/keulkulator.lpi

@@ -22,10 +22,16 @@
       <MinorVersionNr Value="2"/>
       <BuildNr Value="8"/>
       <Language Value="0407"/>
-      <StringTable LegalCopyright="Copyright 2017 PepeCyB"/>
+      <StringTable LegalCopyright="Copyright 2023 PepeCyB"/>
     </VersionInfo>
+    <MacroValues Count="1">
+      <Macro1 Name="LCLWidgetType" Value="qt6"/>
+    </MacroValues>
     <BuildModes Count="1">
       <Item1 Name="Default" Default="True"/>
+      <SharedMatrixOptions Count="1">
+        <Item1 ID="768502046799" Modes="Default" Type="IDEMacro" MacroName="LCLWidgetType" Value="qt6"/>
+      </SharedMatrixOptions>
     </BuildModes>
     <PublishOptions>
       <Version Value="2"/>

backup/keulkulator.lps

@@ -19,6 +19,7 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Unit1"/>
+        <IsVisibleTab Value="True"/>
         <TopLine Value="268"/>
         <CursorPos X="3" Y="270"/>
         <UsageCount Value="89"/>
@@ -42,7 +43,6 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Unit2"/>
-        <IsVisibleTab Value="True"/>
         <EditorIndex Value="2"/>
         <TopLine Value="31"/>
         <CursorPos X="52" Y="49"/>

backup/unit1.lfm

@@ -1,22 +1,22 @@
 object MainForm: TMainForm
   Left = 442
-  Height = 726
+  Height = 712
   Top = 90
   Width = 734
   HelpType = htKeyword
   HelpKeyword = 'docs/help.html'
   BorderStyle = bsSingle
   Caption = 'Keulkulator'
-  ClientHeight = 699
+  ClientHeight = 712
   ClientWidth = 734
   Menu = MainMenu
+  LCLVersion = '3.99.0.0'
   OnClose = FormClose
   OnCreate = FormCreate
-  LCLVersion = '2.0.6.0'
   object StatusBar1: TStatusBar
     Left = 0
-    Height = 20
-    Top = 679
+    Height = 22
+    Top = 690
     Width = 734
     Panels = <    
       item
@@ -35,9 +35,9 @@ object MainForm: TMainForm
   end
   object Label1: TLabel
     Left = 16
-    Height = 17
+    Height = 22
     Top = 16
-    Width = 99
+    Width = 88
     Caption = 'Drahtsorte'
     Font.Height = -16
     Font.Name = 'Sans'
@@ -47,13 +47,13 @@ object MainForm: TMainForm
   end
   object CBMaterial: TComboBox
     Left = 16
-    Height = 31
+    Height = 25
     Hint = 'Drahtmaterial auswählen'
     Top = 48
     Width = 264
     HelpType = htKeyword
     HelpKeyword = 'docs/Drahtsorte.html'
-    ItemHeight = 0
+    ItemHeight = 17
     ItemIndex = 0
     Items.Strings = (
       'Kanthal A1'
@@ -69,18 +69,18 @@ object MainForm: TMainForm
       'NiFe48'
       'Nickel200'
     )
-    OnChange = CBMaterialChange
     ParentShowHint = False
     ShowHint = True
     Style = csDropDownList
     TabOrder = 0
     Text = 'Kanthal A1'
+    OnChange = CBMaterialChange
   end
   object Label2: TLabel
     Left = 16
-    Height = 17
+    Height = 22
     Top = 113
-    Width = 109
+    Width = 97
     Caption = 'Drahtstärke'
     Font.Height = -16
     Font.Name = 'Sans'
@@ -90,9 +90,9 @@ object MainForm: TMainForm
   end
   object Label3: TLabel
     Left = 24
-    Height = 15
+    Height = 18
     Top = 152
-    Width = 28
+    Width = 26
     Caption = 'mm'
     Font.Height = -13
     Font.Name = 'Sans'
@@ -102,9 +102,9 @@ object MainForm: TMainForm
   end
   object Label4: TLabel
     Left = 192
-    Height = 15
+    Height = 18
     Top = 152
-    Width = 35
+    Width = 31
     Caption = 'AWG'
     Font.Height = -13
     Font.Name = 'Sans'
@@ -114,9 +114,9 @@ object MainForm: TMainForm
   end
   object Label5: TLabel
     Left = 16
-    Height = 34
+    Height = 44
     Top = 256
-    Width = 138
+    Width = 120
     Caption = 'gewünschter'#10'Widerstand (Ω)'
     Font.Height = -16
     Font.Name = 'Sans'
@@ -126,9 +126,9 @@ object MainForm: TMainForm
   end
   object Label6: TLabel
     Left = 184
-    Height = 34
+    Height = 44
     Top = 256
-    Width = 121
+    Width = 105
     Caption = 'Innendurch-'#10'messer (mm)'
     Font.Height = -16
     Font.Name = 'Sans'
@@ -138,9 +138,9 @@ object MainForm: TMainForm
   end
   object Label7: TLabel
     Left = 16
-    Height = 51
+    Height = 66
     Top = 384
-    Width = 125
+    Width = 110
     Caption = 'Befestigungs-'#10'weg (einfach)'#10'mm'
     Font.Height = -16
     Font.Name = 'Sans'
@@ -165,37 +165,37 @@ object MainForm: TMainForm
       Left = 16
       Height = 23
       Top = 8
-      Width = 89
+      Width = 79
       Caption = 'Singlecoil'
       Checked = True
-      OnChange = RaBSingleChange
       TabOrder = 0
       TabStop = True
+      OnChange = RaBSingleChange
     end
     object RaBDual: TRadioButton
       Left = 16
       Height = 23
       Top = 47
-      Width = 79
+      Width = 71
       Caption = 'Dualcoil'
-      OnChange = RaBDualChange
       TabOrder = 1
+      OnChange = RaBDualChange
     end
     object RaBQuad: TRadioButton
       Left = 16
       Height = 23
       Top = 86
-      Width = 84
+      Width = 76
       Caption = 'Quadcoil'
-      OnChange = RaBQuadChange
       TabOrder = 2
+      OnChange = RaBQuadChange
     end
   end
   object Label8: TLabel
     Left = 392
-    Height = 17
+    Height = 22
     Top = 16
-    Width = 81
+    Width = 75
     Caption = 'Wicklung'
     Font.Height = -16
     Font.Name = 'Sans'
@@ -205,9 +205,9 @@ object MainForm: TMainForm
   end
   object Label9: TLabel
     Left = 392
-    Height = 15
+    Height = 18
     Top = 63
-    Width = 91
+    Width = 81
     Caption = 'Drahtlänge: '
     Font.Height = -13
     Font.Name = 'Sans'
@@ -217,9 +217,9 @@ object MainForm: TMainForm
   end
   object Label10: TLabel
     Left = 392
-    Height = 15
+    Height = 18
     Top = 104
-    Width = 86
+    Width = 79
     Caption = 'Windungen:'
     Font.Height = -13
     Font.Name = 'Sans'
@@ -229,9 +229,9 @@ object MainForm: TMainForm
   end
   object LaLaenge: TLabel
     Left = 496
-    Height = 15
+    Height = 18
     Top = 63
-    Width = 32
+    Width = 26
     Caption = '43.5'
     Font.Color = clBlue
     Font.Height = -13
@@ -242,9 +242,9 @@ object MainForm: TMainForm
   end
   object LaWindungen: TLabel
     Left = 496
-    Height = 15
+    Height = 18
     Top = 104
-    Width = 32
+    Width = 26
     Caption = '3.56'
     Font.Color = clBlue
     Font.Height = -13
@@ -255,9 +255,9 @@ object MainForm: TMainForm
   end
   object Label12: TLabel
     Left = 558
-    Height = 15
+    Height = 18
     Top = 63
-    Width = 28
+    Width = 26
     Caption = 'mm'
     Font.Height = -13
     Font.Name = 'Sans'
@@ -575,9 +575,9 @@ object MainForm: TMainForm
   end
   object LaWindAb: TLabel
     Left = 515
-    Height = 15
+    Height = 18
     Top = 210
-    Width = 9
+    Width = 8
     Caption = '3'
     Font.Color = clBlue
     Font.Height = -13
@@ -588,9 +588,9 @@ object MainForm: TMainForm
   end
   object LaWindHalb: TLabel
     Left = 515
-    Height = 15
+    Height = 18
     Top = 290
-    Width = 23
+    Width = 19
     Caption = '3.5'
     Font.Color = clBlue
     Font.Height = -13
@@ -601,7 +601,7 @@ object MainForm: TMainForm
   end
   object LaWindAuf: TLabel
     Left = 515
-    Height = 15
+    Height = 18
     Top = 370
     Width = 9
     Caption = '4'
@@ -614,9 +614,9 @@ object MainForm: TMainForm
   end
   object Label15: TLabel
     Left = 568
-    Height = 15
+    Height = 18
     Top = 210
-    Width = 97
+    Width = 90
     Caption = 'Windungen ≙'
     Font.Height = -13
     Font.Name = 'Sans'
@@ -626,9 +626,9 @@ object MainForm: TMainForm
   end
   object Label16: TLabel
     Left = 568
-    Height = 15
+    Height = 18
     Top = 290
-    Width = 97
+    Width = 90
     Caption = 'Windungen ≙'
     Font.Height = -13
     Font.Name = 'Sans'
@@ -638,9 +638,9 @@ object MainForm: TMainForm
   end
   object Label17: TLabel
     Left = 568
-    Height = 15
+    Height = 18
     Top = 370
-    Width = 97
+    Width = 90
     Caption = 'Windungen ≙'
     Font.Height = -13
     Font.Name = 'Sans'
@@ -650,9 +650,9 @@ object MainForm: TMainForm
   end
   object LaOhmAb: TLabel
     Left = 680
-    Height = 15
+    Height = 18
     Top = 210
-    Width = 48
+    Width = 40
     Caption = '0.44 Ω'
     Font.Color = clBlue
     Font.Height = -13
@@ -663,9 +663,9 @@ object MainForm: TMainForm
   end
   object LaOhmHalb: TLabel
     Left = 680
-    Height = 15
+    Height = 18
     Top = 290
-    Width = 48
+    Width = 40
     Caption = '0.51 Ω'
     Font.Color = clBlue
     Font.Height = -13
@@ -676,9 +676,9 @@ object MainForm: TMainForm
   end
   object LaOhmAuf: TLabel
     Left = 680
-    Height = 15
+    Height = 18
     Top = 370
-    Width = 48
+    Width = 40
     Caption = '0.57 Ω'
     Font.Color = clBlue
     Font.Height = -13
@@ -689,9 +689,9 @@ object MainForm: TMainForm
   end
   object Label18: TLabel
     Left = 392
-    Height = 17
+    Height = 22
     Top = 474
-    Width = 59
+    Width = 51
     Caption = 'Setup:'
     Font.Height = -16
     Font.Name = 'Sans'
@@ -701,7 +701,7 @@ object MainForm: TMainForm
   end
   object EdFile: TEdit
     Left = 472
-    Height = 35
+    Height = 25
     Top = 466
     Width = 248
     Enabled = False
@@ -710,7 +710,7 @@ object MainForm: TMainForm
   end
   object FlSpWiderstand: TFloatSpinEdit
     Left = 16
-    Height = 35
+    Height = 26
     Hint = 'Zielwiderstand'
     Top = 312
     Width = 152
@@ -719,15 +719,15 @@ object MainForm: TMainForm
     Increment = 0.02
     MaxValue = 4
     MinValue = 0.02
-    OnChange = FlSpWiderstandChange
     ParentShowHint = False
     ShowHint = True
     TabOrder = 3
     Value = 0.5
+    OnChange = FlSpWiderstandChange
   end
   object FlSpDurchmesser: TFloatSpinEdit
     Left = 184
-    Height = 35
+    Height = 26
     Hint = 'Innendurchmesser der Wicklung / '#10'Durchmesser Wickelhilfe'
     Top = 312
     Width = 153
@@ -737,15 +737,15 @@ object MainForm: TMainForm
     Increment = 0.5
     MaxValue = 5
     MinValue = 0.5
-    OnChange = FlSpDurchmesserChange
     ParentShowHint = False
     ShowHint = True
     TabOrder = 4
     Value = 3
+    OnChange = FlSpDurchmesserChange
   end
   object FlSpWeg: TFloatSpinEdit
     Left = 16
-    Height = 35
+    Height = 26
     Hint = 'Weg zwischen Wicklung und'#10'Anschlusspost (einfacher Weg)'
     Top = 464
     Width = 152
@@ -754,12 +754,11 @@ object MainForm: TMainForm
     DecimalPlaces = 1
     Increment = 0.5
     MaxValue = 10
-    MinValue = 0
-    OnChange = FlSpWegChange
     ParentShowHint = False
     ShowHint = True
     TabOrder = 5
     Value = 1
+    OnChange = FlSpWegChange
   end
   object GroupBox1: TGroupBox
     Left = 16
@@ -767,8 +766,8 @@ object MainForm: TMainForm
     Top = 517
     Width = 702
     Caption = 'Strom und Leistung'
-    ClientHeight = 127
-    ClientWidth = 700
+    ClientHeight = 117
+    ClientWidth = 696
     Font.Height = -16
     Font.Name = 'Sans'
     Font.Style = [fsBold]
@@ -776,9 +775,9 @@ object MainForm: TMainForm
     TabOrder = 8
     object Label11: TLabel
       Left = 23
-      Height = 16
+      Height = 21
       Top = 8
-      Width = 165
+      Width = 142
       Caption = 'Akkuspannung (V):'
       Font.Height = -15
       Font.Name = 'Sans'
@@ -788,7 +787,7 @@ object MainForm: TMainForm
     end
     object FlSpSpannung: TFloatSpinEdit
       Left = 23
-      Height = 32
+      Height = 27
       Top = 40
       Width = 142
       HelpType = htKeyword
@@ -798,16 +797,16 @@ object MainForm: TMainForm
       Increment = 0.1
       MaxValue = 16.8
       MinValue = 2.5
-      OnChange = FlSpSpannungChange
       ParentFont = False
       TabOrder = 0
       Value = 3.7
+      OnChange = FlSpSpannungChange
     end
     object Label13: TLabel
       Left = 424
-      Height = 16
+      Height = 21
       Top = 8
-      Width = 88
+      Width = 74
       Caption = 'Strom (A):'
       Font.Color = clGreen
       Font.Height = -15
@@ -818,9 +817,9 @@ object MainForm: TMainForm
     end
     object Label14: TLabel
       Left = 424
-      Height = 16
+      Height = 21
       Top = 51
-      Width = 116
+      Width = 98
       Caption = 'Leistung (W):'
       Font.Height = -15
       Font.Name = 'Sans'
@@ -830,7 +829,7 @@ object MainForm: TMainForm
     end
     object EdStrom: TEdit
       Left = 536
-      Height = 32
+      Height = 26
       Top = 8
       Width = 141
       Enabled = False
@@ -843,7 +842,7 @@ object MainForm: TMainForm
     end
     object EdLeistung: TEdit
       Left = 536
-      Height = 32
+      Height = 26
       Top = 51
       Width = 141
       Enabled = False
@@ -1014,9 +1013,9 @@ object MainForm: TMainForm
     end
     object Label19: TLabel
       Left = 424
-      Height = 16
+      Height = 21
       Top = 88
-      Width = 180
+      Width = 158
       Caption = 'Heat flux (mW/mm²):'
       Font.Height = -15
       Font.Name = 'Sans'
@@ -1026,7 +1025,7 @@ object MainForm: TMainForm
     end
     object EdHflx: TEdit
       Left = 597
-      Height = 32
+      Height = 26
       Top = 88
       Width = 51
       Enabled = False
@@ -1049,7 +1048,7 @@ object MainForm: TMainForm
   end
   object FlSpmm: TFloatSpinEdit
     Left = 16
-    Height = 35
+    Height = 26
     Hint = 'Drahtdurchmesser (mm)'
     Top = 184
     Width = 152
@@ -1058,15 +1057,15 @@ object MainForm: TMainForm
     Increment = 0.01
     MaxValue = 1.2
     MinValue = 0.12
-    OnChange = FlSpmmChange
     ParentShowHint = False
     ShowHint = True
     TabOrder = 1
     Value = 0.4
+    OnChange = FlSpmmChange
   end
   object FlSpAWG: TFloatSpinEdit
     Left = 192
-    Height = 35
+    Height = 26
     Hint = 'Drahtdurchmesser (AWG)'
     Top = 184
     Width = 144
@@ -1075,11 +1074,11 @@ object MainForm: TMainForm
     DecimalPlaces = 0
     MaxValue = 36
     MinValue = 17
-    OnChange = FlSpAWGChange
     ParentShowHint = False
     ShowHint = True
     TabOrder = 2
     Value = 26
+    OnChange = FlSpAWGChange
   end
   object BtMatEdit: TButton
     Left = 289
@@ -1090,23 +1089,23 @@ object MainForm: TMainForm
     HelpType = htKeyword
     HelpKeyword = 'docs/Material-Editor.html'
     Caption = '...'
-    OnClick = BtMatEditClick
     ParentShowHint = False
     ShowHint = True
     TabOrder = 10
+    OnClick = BtMatEditClick
   end
   object ECSwitch1: TECSwitch
     Left = 16
     Height = 28
     Top = 80
-    Width = 145
+    Width = 135
     Caption = 'Flachdraht'
     TabOrder = 11
     OnChange = ECSwitch1Change
   end
   object FlSpBreite: TFloatSpinEdit
     Left = 16
-    Height = 35
+    Height = 26
     Hint = 'Drahtdurchmesser (mm)'
     Top = 184
     Width = 152
@@ -1115,16 +1114,16 @@ object MainForm: TMainForm
     Increment = 0.01
     MaxValue = 1.2
     MinValue = 0.08
-    OnChange = FlSpBreiteChange
     ParentShowHint = False
     ShowHint = True
     TabOrder = 12
     Value = 0.25
     Visible = False
+    OnChange = FlSpBreiteChange
   end
   object FlSpStaerke: TFloatSpinEdit
     Left = 192
-    Height = 35
+    Height = 26
     Hint = 'Drahtdurchmesser (AWG)'
     Top = 184
     Width = 144
@@ -1133,12 +1132,12 @@ object MainForm: TMainForm
     Increment = 0.01
     MaxValue = 1
     MinValue = 0.08
-    OnChange = FlSpStaerkeChange
     ParentShowHint = False
     ShowHint = True
     TabOrder = 13
     Value = 0.12
     Visible = False
+    OnChange = FlSpStaerkeChange
   end
   object SpBSwitch: TSpeedButton
     Left = 168
@@ -1201,8 +1200,8 @@ object MainForm: TMainForm
     OnClick = SpBSwitchClick
   end
   object MainMenu: TMainMenu
-    left = 672
-    top = 16
+    Left = 672
+    Top = 16
     object MDatei: TMenuItem
       Caption = 'Datei'
       object MenuItem1: TMenuItem
@@ -1234,27 +1233,27 @@ object MainForm: TMainForm
     DefaultExt = '.kkl'
     FileName = 'unbenannt.kkl'
     Filter = 'Keulkulator-Datei|*.kkl'
-    left = 672
-    top = 80
+    Left = 672
+    Top = 80
   end
   object OpenDialog1: TOpenDialog
     DefaultExt = '.kkl'
     FileName = 'unbenannt.kkl'
     Filter = 'Keulkulator-Datei|*.kkl'
-    left = 672
-    top = 144
+    Left = 672
+    Top = 144
   end
   object HTMLHelpDatabase1: THTMLHelpDatabase
     BaseURL = 'file://docs'
     AutoRegister = True
     KeywordPrefix = 'docs/'
-    left = 408
-    top = 136
+    Left = 408
+    Top = 136
   end
   object HTMLBrowserHelpViewer1: THTMLBrowserHelpViewer
     BrowserParams = '%s'
     AutoRegister = True
-    left = 504
-    top = 144
+    Left = 504
+    Top = 144
   end
 end

backup/unit2.pas

@@ -0,0 +1,63 @@
+unit Unit2;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
+  StdCtrls, LCLIntf;
+
+type
+
+  { TFUeber }
+
+  TFUeber = class(TForm)
+    Button1: TButton;
+    Image1: TImage;
+    Label1: TLabel;
+    Label2: TLabel;
+    Label3: TLabel;
+    procedure Button1Click(Sender: TObject);
+    procedure Label3Click(Sender: TObject);
+    procedure Label3MouseEnter(Sender: TObject);
+    procedure Label3MouseLeave(Sender: TObject);
+  private
+    { private declarations }
+  public
+    { public declarations }
+  end;
+
+var
+  FUeber: TFUeber;
+
+implementation
+
+{$R *.lfm}
+
+{ TFUeber }
+
+// Programm-Info / Splash anzeigen
+
+procedure TFUeber.Label3MouseEnter(Sender: TObject);
+begin
+  Label3.Font.Color:=clRed;
+end;
+
+procedure TFUeber.Label3Click(Sender: TObject);
+begin
+  OpenURL('https://framagit.org/PepeCyB/keulkulator');
+end;
+
+procedure TFUeber.Button1Click(Sender: TObject);
+begin
+  FUeber.Close;
+end;
+
+procedure TFUeber.Label3MouseLeave(Sender: TObject);
+begin
+  Label3.Font.Color:=clBlue;
+end;
+
+end.
+

keulkulator.lps

@@ -19,7 +19,6 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Unit1"/>
-        <IsVisibleTab Value="True"/>
         <TopLine Value="268"/>
         <CursorPos X="3" Y="270"/>
         <UsageCount Value="89"/>
@@ -43,9 +42,10 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Unit2"/>
+        <IsVisibleTab Value="True"/>
         <EditorIndex Value="2"/>
-        <TopLine Value="31"/>
-        <CursorPos X="52" Y="49"/>
+        <TopLine Value="52"/>
+        <CursorPos X="3" Y="60"/>
         <UsageCount Value="64"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -76,123 +76,123 @@
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
         <Filename Value="unit1.pas"/>
-        <Caret Line="186" Column="54" TopLine="166"/>
+        <Caret Line="238" Column="7" TopLine="218"/>
       </Position1>
       <Position2>
         <Filename Value="unit1.pas"/>
-        <Caret Line="238" Column="7" TopLine="218"/>
+        <Caret Line="319" Column="11" TopLine="299"/>
       </Position2>
       <Position3>
         <Filename Value="unit1.pas"/>
-        <Caret Line="319" Column="11" TopLine="299"/>
+        <Caret Line="163" Column="5" TopLine="153"/>
       </Position3>
       <Position4>
         <Filename Value="unit1.pas"/>
-        <Caret Line="163" Column="5" TopLine="153"/>
+        <Caret Line="390" Column="36" TopLine="371"/>
       </Position4>
       <Position5>
         <Filename Value="unit1.pas"/>
-        <Caret Line="390" Column="36" TopLine="371"/>
+        <Caret Line="407" Column="70" TopLine="390"/>
       </Position5>
       <Position6>
         <Filename Value="unit1.pas"/>
-        <Caret Line="407" Column="70" TopLine="390"/>
+        <Caret Line="443" TopLine="425"/>
       </Position6>
       <Position7>
         <Filename Value="unit1.pas"/>
-        <Caret Line="443" TopLine="425"/>
+        <Caret Line="495" Column="19" TopLine="471"/>
       </Position7>
       <Position8>
         <Filename Value="unit1.pas"/>
-        <Caret Line="495" Column="19" TopLine="471"/>
+        <Caret Line="242" TopLine="226"/>
       </Position8>
       <Position9>
         <Filename Value="unit1.pas"/>
-        <Caret Line="242" TopLine="226"/>
+        <Caret Line="406" Column="39" TopLine="392"/>
       </Position9>
       <Position10>
         <Filename Value="unit1.pas"/>
-        <Caret Line="406" Column="39" TopLine="392"/>
+        <Caret Line="409" Column="3" TopLine="407"/>
       </Position10>
       <Position11>
         <Filename Value="unit1.pas"/>
-        <Caret Line="409" Column="3" TopLine="407"/>
+        <Caret Line="401" Column="68" TopLine="397"/>
       </Position11>
       <Position12>
         <Filename Value="unit1.pas"/>
-        <Caret Line="401" Column="68" TopLine="397"/>
+        <Caret Line="435" Column="18" TopLine="415"/>
       </Position12>
       <Position13>
         <Filename Value="unit1.pas"/>
-        <Caret Line="435" Column="18" TopLine="415"/>
+        <Caret Line="455" Column="3" TopLine="349"/>
       </Position13>
       <Position14>
         <Filename Value="unit1.pas"/>
-        <Caret Line="455" Column="3" TopLine="349"/>
+        <Caret Line="401" Column="74" TopLine="350"/>
       </Position14>
       <Position15>
         <Filename Value="unit1.pas"/>
-        <Caret Line="401" Column="74" TopLine="350"/>
+        <Caret Line="501" TopLine="493"/>
       </Position15>
       <Position16>
         <Filename Value="unit1.pas"/>
-        <Caret Line="501" TopLine="493"/>
+        <Caret Line="365" Column="13" TopLine="346"/>
       </Position16>
       <Position17>
         <Filename Value="unit1.pas"/>
-        <Caret Line="365" Column="13" TopLine="346"/>
+        <Caret Line="333" Column="46" TopLine="312"/>
       </Position17>
       <Position18>
         <Filename Value="unit1.pas"/>
-        <Caret Line="333" Column="46" TopLine="312"/>
+        <Caret Line="334" Column="46" TopLine="313"/>
       </Position18>
       <Position19>
         <Filename Value="unit1.pas"/>
-        <Caret Line="334" Column="46" TopLine="313"/>
+        <Caret Line="333" Column="46"/>
       </Position19>
       <Position20>
         <Filename Value="unit1.pas"/>
-        <Caret Line="333" Column="46"/>
+        <Caret Line="407" Column="3" TopLine="405"/>
       </Position20>
       <Position21>
         <Filename Value="unit1.pas"/>
-        <Caret Line="407" Column="3" TopLine="405"/>
+        <Caret Line="408" Column="3" TopLine="406"/>
       </Position21>
       <Position22>
         <Filename Value="unit1.pas"/>
-        <Caret Line="408" Column="3" TopLine="406"/>
+        <Caret Line="407" Column="3" TopLine="405"/>
       </Position22>
       <Position23>
         <Filename Value="unit1.pas"/>
-        <Caret Line="407" Column="3" TopLine="405"/>
+        <Caret Line="414" Column="3" TopLine="391"/>
       </Position23>
       <Position24>
         <Filename Value="unit1.pas"/>
-        <Caret Line="414" Column="3" TopLine="391"/>
+        <Caret Line="102" Column="15" TopLine="91"/>
       </Position24>
       <Position25>
         <Filename Value="unit1.pas"/>
-        <Caret Line="102" Column="15" TopLine="91"/>
+        <Caret Line="554" Column="31" TopLine="535"/>
       </Position25>
       <Position26>
         <Filename Value="unit1.pas"/>
-        <Caret Line="554" Column="31" TopLine="535"/>
+        <Caret Line="521" Column="40" TopLine="408"/>
       </Position26>
       <Position27>
         <Filename Value="unit1.pas"/>
-        <Caret Line="521" Column="40" TopLine="408"/>
+        <Caret Line="529" Column="3" TopLine="527"/>
       </Position27>
       <Position28>
         <Filename Value="unit1.pas"/>
-        <Caret Line="529" Column="3" TopLine="527"/>
+        <Caret Line="242" Column="18" TopLine="236"/>
       </Position28>
       <Position29>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="242" Column="18" TopLine="236"/>
+        <Filename Value="unit2.pas"/>
+        <Caret Line="40" Column="35"/>
       </Position29>
       <Position30>
         <Filename Value="unit2.pas"/>
-        <Caret Line="40" Column="35"/>
+        <Caret Line="50" Column="52" TopLine="33"/>
       </Position30>
     </JumpHistory>
     <RunParams>

unit1.lfm

@@ -28,7 +28,7 @@ object MainForm: TMainForm
         Width = 250
       end    
       item
-        Text = 'https://framagit.org/PepeCyB/keulkulator'
+        Text = 'https://forgejo.pericles.hu/pepecyb/keulkulator'
         Width = 50
       end>
     SimplePanel = False

unit2.lfm

@@ -1,14 +1,14 @@
 object FUeber: TFUeber
-  Left = 462
+  Left = 0
   Height = 361
-  Top = 257
+  Top = 0
   Width = 320
   BorderIcons = []
   BorderStyle = bsNone
   Caption = 'Über Keulkulator'
   ClientHeight = 361
   ClientWidth = 320
-  LCLVersion = '2.0.6.0'
+  LCLVersion = '3.99.0.0'
   object Image1: TImage
     Left = 0
     Height = 240
@@ -1815,15 +1815,16 @@ object FUeber: TFUeber
     Left = 40
     Height = 17
     Top = 240
-    Width = 222
-    Caption = 'PepeCyB <pepecyb@pepecyb.de>'
+    Width = 187
+    Caption = 'PepeCyB <pepecyb@pericles.hu>'
     ParentColor = False
+    OnClick = Label1Click
   end
   object Label2: TLabel
-    Left = 0
+    Left = 24
     Height = 17
     Top = 264
-    Width = 295
+    Width = 253
     Caption = 'Lizenz: GNU General Public License Version 3'
     ParentColor = False
     ParentFont = False
@@ -1832,8 +1833,8 @@ object FUeber: TFUeber
     Left = 28
     Height = 17
     Top = 288
-    Width = 271
-    Caption = 'https://framagit.org/PepeCyB/keulkulator'
+    Width = 267
+    Caption = 'https://forgejo.pericles.hu/pepecyb/keulkulator'
     Font.Color = clBlue
     ParentColor = False
     ParentFont = False
@@ -1847,7 +1848,7 @@ object FUeber: TFUeber
     Top = 320
     Width = 75
     Caption = 'Schließen'
-    OnClick = Button1Click
     TabOrder = 0
+    OnClick = Button1Click
   end
 end

unit2.pas

@@ -19,6 +19,7 @@ type
     Label2: TLabel;
     Label3: TLabel;
     procedure Button1Click(Sender: TObject);
+    procedure Label1Click(Sender: TObject);
     procedure Label3Click(Sender: TObject);
     procedure Label3MouseEnter(Sender: TObject);
     procedure Label3MouseLeave(Sender: TObject);
@@ -54,6 +55,11 @@ begin
   FUeber.Close;
 end;
 
+procedure TFUeber.Label1Click(Sender: TObject);
+begin
+
+end;
+
 procedure TFUeber.Label3MouseLeave(Sender: TObject);
 begin
   Label3.Font.Color:=clBlue;