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