diff --git a/fpcupdeluxe.lps b/fpcupdeluxe.lps
index 7288441c..2a3ba728 100644
--- a/fpcupdeluxe.lps
+++ b/fpcupdeluxe.lps
@@ -4,16 +4,18 @@
-
-
+
+
-
+
+
-
+
+
@@ -21,11 +23,11 @@
-
-
-
+
+
+
@@ -75,6 +77,8 @@
+
+
@@ -124,9 +128,9 @@
-
-
-
+
+
+
@@ -243,8 +247,8 @@
-
-
+
+
@@ -535,9 +539,9 @@
-
-
-
+
+
+
@@ -4950,11 +4954,44 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/fpcupdeluxetrunk.lps b/fpcupdeluxetrunk.lps
index 98e01963..40f5f4ec 100644
--- a/fpcupdeluxetrunk.lps
+++ b/fpcupdeluxetrunk.lps
@@ -4,7 +4,6 @@
-
@@ -13,7 +12,7 @@
-
+
@@ -21,9 +20,10 @@
-
-
-
+
+
+
+
@@ -35,13 +35,13 @@
-
+
-
+
@@ -50,7 +50,7 @@
-
+
@@ -58,7 +58,7 @@
-
+
@@ -66,29 +66,33 @@
-
+
-
+
+
+
-
+
-
+
+
+
-
+
@@ -96,17 +100,15 @@
-
+
-
-
-
-
+
+
+
-
@@ -118,11 +120,10 @@
-
-
-
+
+
+
-
@@ -134,11 +135,10 @@
-
-
+
+
-
@@ -164,20 +164,18 @@
-
-
+
+
-
-
+
-
@@ -685,11 +683,10 @@
-
-
-
+
+
+
-
@@ -715,11 +712,10 @@
-
+
-
@@ -739,27 +735,24 @@
-
+
-
-
+
-
-
+
-
@@ -776,119 +769,42 @@
-
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/public/gitrevision.txt b/public/gitrevision.txt
index 0614b048..8767f645 100644
--- a/public/gitrevision.txt
+++ b/public/gitrevision.txt
@@ -1 +1 @@
-[master]darwin_amd64_crossbins_all-2916(23d86e6)
+[master]darwin_amd64_crossbins_all-2917(ea1e6a5)
diff --git a/sources/fpcup.ini b/sources/fpcup.ini
index 6e5c84dc..e173d039 100644
--- a/sources/fpcup.ini
+++ b/sources/fpcup.ini
@@ -19,7 +19,7 @@
; ... and you can define your own, like below:
[fpcupinfo]
-inifileversion=4.0.0.1
+inifileversion=4.0.0.2
[ALIASfpcURL]
stable.git=https://github.com/LongDirtyAnimAlf/fpcsource_3_2_2.git
@@ -108,6 +108,7 @@ stable.gitlab=release_3_2_2
[ALIASlazTAG]
stable.gitlab=lazarus_3_6
+; 4.0.gitlab=lazarus_4_0
3.6.gitlab=lazarus_3_6
3.4.gitlab=lazarus_3_4
3.2.gitlab=lazarus_3_2
diff --git a/sources/revision.inc b/sources/revision.inc
index d390a004..08730ad1 100644
--- a/sources/revision.inc
+++ b/sources/revision.inc
@@ -1,4 +1,4 @@
const
- {%H-}DELUXEVERSION='2.4.0fp';
- {%H-}RevisionStr='504';
- {%H-}VersionDate='20241102';
+ {%H-}DELUXEVERSION='2.4.0f';
+ {%H-}RevisionStr='506';
+ {%H-}VersionDate='20241224';
diff --git a/sources/updeluxe/fpcupdeluxemainform.lfm b/sources/updeluxe/fpcupdeluxemainform.lfm
index ed0f55bd..87f75700 100644
--- a/sources/updeluxe/fpcupdeluxemainform.lfm
+++ b/sources/updeluxe/fpcupdeluxemainform.lfm
@@ -9,11 +9,11 @@ object Form1: TForm1
ClientWidth = 1190
Constraints.MinHeight = 400
Menu = MainMenu1
- LCLVersion = '3.99.0.0'
- Visible = True
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
+ LCLVersion = '3.2.0.0'
+ Visible = True
object btnSetupPlus: TButton
AnchorSideLeft.Control = PageControl1
AnchorSideTop.Control = PageControl1
@@ -700,11 +700,11 @@ object Form1: TForm1
Caption = 'WA'
Images = ImageList_32x32
ImageIndex = 7
+ OnClick = QuickBtnClick
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 9
- OnClick = QuickBtnClick
end
object TrunkBtn: TBitBtn
AnchorSideLeft.Control = Panel1
@@ -721,11 +721,11 @@ object Form1: TForm1
Caption = 'Trunk'
Images = ImageList_32x32
ImageIndex = 4
+ OnClick = QuickBtnClick
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
- OnClick = QuickBtnClick
end
object FixesBtn: TBitBtn
AnchorSideLeft.Control = TrunkBtn
@@ -743,11 +743,11 @@ object Form1: TForm1
Caption = 'Fixes'
Images = ImageList_32x32
ImageIndex = 0
+ OnClick = QuickBtnClick
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 1
- OnClick = QuickBtnClick
end
object StableBtn: TBitBtn
AnchorSideLeft.Control = FixesBtn
@@ -765,11 +765,11 @@ object Form1: TForm1
Caption = 'Stable'
Images = ImageList_32x32
ImageIndex = 3
+ OnClick = QuickBtnClick
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 2
- OnClick = QuickBtnClick
end
object AndroidBtn: TBitBtn
AnchorSideLeft.Control = StableBtn
@@ -787,11 +787,11 @@ object Form1: TForm1
Caption = 'LAMW'
Images = ImageList_32x32
ImageIndex = 6
+ OnClick = QuickBtnClick
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 3
- OnClick = QuickBtnClick
end
object WioBtn: TBitBtn
AnchorSideLeft.Control = WABtn
@@ -809,11 +809,11 @@ object Form1: TForm1
Caption = 'Wio'
Images = ImageList_32x32
ImageIndex = 14
+ OnClick = QuickBtnClick
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 4
- OnClick = QuickBtnClick
end
object PicoBtn: TBitBtn
AnchorSideLeft.Control = WioBtn
@@ -831,11 +831,11 @@ object Form1: TForm1
Caption = 'Pico'
Images = ImageList_32x32
ImageIndex = 12
+ OnClick = QuickBtnClick
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 5
- OnClick = QuickBtnClick
end
object UltiboBtn: TBitBtn
AnchorSideLeft.Control = ESPBtn
@@ -852,11 +852,11 @@ object Form1: TForm1
BorderSpacing.Around = 4
Images = ImageList_88x32
ImageIndex = 1
+ OnClick = QuickBtnClick
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 6
- OnClick = QuickBtnClick
end
object mORMotBtn: TBitBtn
AnchorSideLeft.Control = UltiboBtn
@@ -874,11 +874,11 @@ object Form1: TForm1
Caption = 'mORMot2'
Images = ImageList_32x32
ImageIndex = 11
+ OnClick = btnInstallModuleClick
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 7
- OnClick = btnInstallModuleClick
end
object ESPBtn: TBitBtn
AnchorSideLeft.Control = PicoBtn
@@ -896,11 +896,11 @@ object Form1: TForm1
Caption = 'ESP32'
Images = ImageList_32x32
ImageIndex = 10
+ OnClick = QuickBtnClick
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 10
- OnClick = QuickBtnClick
end
object BitBtnHalt: TBitBtn
AnchorSideTop.Control = Panel1
@@ -920,11 +920,11 @@ object Form1: TForm1
Enabled = False
Images = ImageList_32x32
ImageIndex = 5
+ OnClick = BitBtnHaltClick
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 8
- OnClick = BitBtnHaltClick
end
end
object memoSummary: TMemo
@@ -1081,11 +1081,11 @@ object Form1: TForm1
Layout = blGlyphTop
Images = ImageList_32x32
ImageIndex = 1
+ OnClick = InstallClick
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
- OnClick = InstallClick
end
object BitBtnLazarusOnly: TBitBtn
AnchorSideLeft.Control = ListBoxLazarusTarget
@@ -1106,11 +1106,11 @@ object Form1: TForm1
Layout = blGlyphTop
Images = ImageList_32x32
ImageIndex = 2
+ OnClick = InstallClick
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 1
- OnClick = InstallClick
end
object BitBtnFPCandLazarus: TBitBtn
AnchorSideLeft.Control = BasicSheet
@@ -1135,11 +1135,11 @@ object Form1: TForm1
Layout = blGlyphTop
Images = ImageList_88x32
ImageIndex = 0
+ OnClick = InstallClick
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 2
- OnClick = InstallClick
end
object chkGitlab: TCheckBox
AnchorSideLeft.Control = BasicSheet
@@ -1237,10 +1237,10 @@ object Form1: TForm1
'riscv32'
'riscv64'
)
+ OnSelectionChanged = radgrpTargetChanged
ParentFont = False
ParentShowHint = False
TabOrder = 0
- OnSelectionChanged = radgrpTargetChanged
end
object radgrpOS: TRadioGroup
AnchorSideLeft.Control = radgrpCPU
@@ -1298,10 +1298,10 @@ object Form1: TForm1
'wasi'
'atari'
)
+ OnSelectionChanged = radgrpTargetChanged
ParentFont = False
ParentShowHint = False
TabOrder = 1
- OnSelectionChanged = radgrpTargetChanged
end
object ButtonInstallCrossCompiler: TButton
AnchorSideLeft.Control = radgrpCPU
@@ -1502,10 +1502,10 @@ object Form1: TForm1
Caption = 'OPM'
Images = ImageList_32x32
ImageIndex = 9
+ OnClick = btnInstallModuleClick
ParentShowHint = False
ShowHint = True
TabOrder = 4
- OnClick = btnInstallModuleClick
end
object DockBtn: TBitBtn
AnchorSideLeft.Control = OPMBtn
@@ -1526,10 +1526,10 @@ object Form1: TForm1
Caption = 'Dock'
Images = ImageList_32x32
ImageIndex = 8
+ OnClick = btnInstallModuleClick
ParentShowHint = False
ShowHint = True
TabOrder = 5
- OnClick = btnInstallModuleClick
end
end
object TagSheet: TTabSheet
@@ -1643,11 +1643,11 @@ object Form1: TForm1
Layout = blGlyphTop
Images = ImageList_32x32
ImageIndex = 1
+ OnClick = OnlyTagClick
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 2
- OnClick = OnlyTagClick
end
object BitBtnLazarusOnlyTag: TBitBtn
AnchorSideLeft.Control = ListBoxLazarusTargetTag
@@ -1668,11 +1668,11 @@ object Form1: TForm1
Layout = blGlyphTop
Images = ImageList_32x32
ImageIndex = 2
+ OnClick = OnlyTagClick
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 3
- OnClick = OnlyTagClick
end
object MemoAddTag: TMemo
AnchorSideLeft.Control = TagSheet
@@ -1761,11 +1761,11 @@ object Form1: TForm1
Layout = blGlyphTop
Images = ImageList_32x32
ImageIndex = 1
+ OnClick = BitBtnSetRevisionClick
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
- OnClick = BitBtnSetRevisionClick
end
object BitBtnLazarusSetRevision: TBitBtn
AnchorSideLeft.Control = HistorySheet
@@ -1789,11 +1789,11 @@ object Form1: TForm1
Layout = blGlyphTop
Images = ImageList_32x32
ImageIndex = 2
+ OnClick = BitBtnSetRevisionClick
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 1
- OnClick = BitBtnSetRevisionClick
end
object MemoHistory: TMemo
AnchorSideLeft.Control = HistorySheet
diff --git a/sources/updeluxe/fpcupdeluxemainform.pas b/sources/updeluxe/fpcupdeluxemainform.pas
index 004ff698..573b99b1 100644
--- a/sources/updeluxe/fpcupdeluxemainform.pas
+++ b/sources/updeluxe/fpcupdeluxemainform.pas
@@ -337,6 +337,8 @@ TForm1 = class(TForm)
upSelectCPUTarget = 'Please select a CPU target first.';
upSelectOSTarget = 'Please select an OS target first.';
+ upGITNotFound = 'No GIT executable found on system. Tag-list cannot be received.';
+
var
Form1: TForm1;
@@ -1921,6 +1923,9 @@ procedure TForm1.PageControl1Change(Sender: TObject);
if FileExists(GitExe) then
begin
+ //Do this only once !!
+ TPageControl(Sender).OnChange:=nil;
+
aTargetListBox[FPC]:=ListBoxFPCTargetTag;
aTargetListBox[LAZARUS]:=ListBoxLazarusTargetTag;
@@ -1970,10 +1975,11 @@ procedure TForm1.PageControl1Change(Sender: TObject);
end;
aFileList.Free;
+ end
+ else
+ begin
+ AddMessage(upGITNotFound);
end;
-
- //Do this only once !!
- TPageControl(Sender).OnChange:=nil;
end;
end;
diff --git a/up.res b/up.res
index a45c6884..dc923746 100644
Binary files a/up.res and b/up.res differ