From c3b8ec47e8491b80b1cb6ce0913b67d649365dce Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Sun, 7 Jan 2024 15:34:31 +0000 Subject: [PATCH] Fix About box caption in components using "powered by" component. Issue #39064, patch by artem78. Fix compilation and run of longtimer demo. Increment "release" version number for new OPM version. git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9121 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- .../aboutcomponent/aboutcomponentunit.pas | 3 +- .../latest_stable/aboutlazautoupdateunit.pas | 2 +- .../lazautoupdate/latest_stable/lazupdate.lpk | 7 +- .../latest_stable/testapp/testapp.res | Bin 139584 -> 139752 bytes .../latest_stable/aboutlongtimerunit.pas | 2 +- .../latest_stable/demo/longtimerdemo.lpi | 29 +-- .../latest_stable/demo/longtimerdemo.res | Bin 3640 -> 4364 bytes .../latest_stable/demo/umainform.lfm | 202 +++++++++++++----- .../latest_stable/demo/umainform.pas | 8 +- .../locale/aboutlongtimerunit.en.po | 1 + .../locale/aboutlongtimerunit.es.po | 1 + .../latest_stable/longtimerpackage.lpk | 5 +- .../latest_stable/aboutplaysound.pas | 2 +- .../latest_stable/demo/demo.lpi | 19 +- .../latest_stable/demo/demo.res | Bin 4968 -> 5016 bytes .../latest_stable/aboutpoweredbyunit.pas | 2 +- .../poweredby/latest_stable/poweredby.lpk | 5 +- .../latest_stable/aboutscrolltextunit.pas | 2 +- .../latest_stable/exampleapp/unit1.lfm | 18 +- .../scrolltext/latest_stable/scrolltext.lpk | 2 +- 20 files changed, 207 insertions(+), 103 deletions(-) diff --git a/components/aboutcomponent/aboutcomponentunit.pas b/components/aboutcomponent/aboutcomponentunit.pas index b3e3bd488..10c5a8d04 100644 --- a/components/aboutcomponent/aboutcomponentunit.pas +++ b/components/aboutcomponent/aboutcomponentunit.pas @@ -188,9 +188,10 @@ begin FreeAndNil(fBackgroundbitmap); inherited Destroy; end; + procedure TAboutbox.SetDialogTitle(Const AValue:String); begin - if AnsiContainsText(fDialogTitle, rs_About) then + if AnsiContainsText(AValue, rs_About) then fDialogTitle := AValue else fDialogTitle := rs_About + ' ' + Avalue; diff --git a/components/lazautoupdate/latest_stable/aboutlazautoupdateunit.pas b/components/lazautoupdate/latest_stable/aboutlazautoupdateunit.pas index 2593aa4d4..7be223b48 100644 --- a/components/lazautoupdate/latest_stable/aboutlazautoupdateunit.pas +++ b/components/lazautoupdate/latest_stable/aboutlazautoupdateunit.pas @@ -190,7 +190,7 @@ end; procedure TAboutbox.SetDialogTitle(const AValue: string); begin - if AnsiContainsText(fDialogTitle, rs_About) then + if AnsiContainsText(AValue, rs_About) then fDialogTitle := AValue else fDialogTitle := rs_About + ' ' + Avalue; diff --git a/components/lazautoupdate/latest_stable/lazupdate.lpk b/components/lazautoupdate/latest_stable/lazupdate.lpk index 74f0f635f..f11306dfe 100644 --- a/components/lazautoupdate/latest_stable/lazupdate.lpk +++ b/components/lazautoupdate/latest_stable/lazupdate.lpk @@ -1,6 +1,6 @@ - + @@ -35,7 +35,7 @@ - + @@ -100,6 +100,7 @@ More information in the Wiki Home Page http://wiki.freepascal.org/LazAutoUpdater + diff --git a/components/lazautoupdate/latest_stable/testapp/testapp.res b/components/lazautoupdate/latest_stable/testapp/testapp.res index 3a2d1f4d6c2f5f4fb57de18a61bb61f7c55844ea..6dd47e321217f01fe2d995ae5c7f9abee2e86f6e 100644 GIT binary patch delta 113 zcmX?bh~vd!jtL5kw>Byouua~_>f~!^rXQY}my%yz9GqHGl9`uYtYpW_rJ$eyCTw!@ v^U?znOEMhG6N^&q(h_ruQ*HE71>ve~^d}!+6>auqYxiYi-0sW9^jQi3jcX&$ delta 27 jcmaEHnB%}9jtL5kMjI6k*qVQ`wf|&e-2Rh|>Ae&Hpfd{d diff --git a/components/longtimer/latest_stable/aboutlongtimerunit.pas b/components/longtimer/latest_stable/aboutlongtimerunit.pas index c24905a6d..545986090 100644 --- a/components/longtimer/latest_stable/aboutlongtimerunit.pas +++ b/components/longtimer/latest_stable/aboutlongtimerunit.pas @@ -190,7 +190,7 @@ begin end; procedure TAboutbox.SetDialogTitle(Const AValue:String); begin - if AnsiContainsText(fDialogTitle, rs_About) then + if AnsiContainsText(AValue, rs_About) then fDialogTitle := AValue else fDialogTitle := rs_About + ' ' + Avalue; diff --git a/components/longtimer/latest_stable/demo/longtimerdemo.lpi b/components/longtimer/latest_stable/demo/longtimerdemo.lpi index 2cadc6c85..6b28d3db9 100644 --- a/components/longtimer/latest_stable/demo/longtimerdemo.lpi +++ b/components/longtimer/latest_stable/demo/longtimerdemo.lpi @@ -1,27 +1,24 @@ - + + + + - <ResourceType Value="res"/> <UseXPManifest Value="True"/> <XPManifest> <DpiAware Value="True"/> - <ExecutionLevel Value="1"/> - <UIAccess Value="True"/> </XPManifest> <Icon Value="0"/> </General> <i18n> <EnableI18N LFM="False"/> </i18n> - <VersionInfo> - <StringTable ProductVersion=""/> - </VersionInfo> <BuildModes Count="3"> <Item1 Name="Default" Default="True"/> <Item2 Name="Debug"> @@ -51,7 +48,6 @@ <Linking> <Debugging> <DebugInfoType Value="dsDwarf2Set"/> - <UseHeaptrc Value="True"/> <UseExternalDbgSyms Value="True"/> </Debugging> <Options> @@ -62,6 +58,9 @@ </Linking> <Other> <CustomOptions Value="-dDEBUG"/> + <OtherDefines Count="1"> + <Define0 Value="DEBUG"/> + </OtherDefines> </Other> </CompilerOptions> </Item2> @@ -86,6 +85,7 @@ <Linking> <Debugging> <GenerateDebugInfo Value="False"/> + <DebugInfoType Value="dsDwarf3"/> </Debugging> <LinkSmart Value="True"/> <Options> @@ -94,6 +94,11 @@ </Win32> </Options> </Linking> + <Other> + <OtherDefines Count="1"> + <Define0 Value="DEBUG"/> + </OtherDefines> + </Other> </CompilerOptions> </Item3> </BuildModes> @@ -101,9 +106,10 @@ <Version Value="2"/> </PublishOptions> <RunParams> - <local> - <FormatVersion Value="1"/> - </local> + <FormatVersion Value="2"/> + <Modes Count="1"> + <Mode0 Name="default"/> + </Modes> </RunParams> <RequiredPackages Count="2"> <Item1> @@ -125,7 +131,6 @@ <ComponentName Value="mainform"/> <HasResources Value="True"/> <ResourceBaseClass Value="Form"/> - <UnitName Value="umainform"/> </Unit1> </Units> </ProjectOptions> diff --git a/components/longtimer/latest_stable/demo/longtimerdemo.res b/components/longtimer/latest_stable/demo/longtimerdemo.res index 79dc42f9996bcd5ce60d193b7ce5b5c07f779149..7064b84699e0dc0063459ac0151b5dbb0b935d2a 100644 GIT binary patch delta 686 zcmaLVzi-qq6bEn}hp1Gw6B81H2}=iF<DZEwr6(N=>Ozr<V1AD6VsTBPOWLYJ=)_zG zsx15!EM53>_)CEFu0soLM?XJ(Y`ypW`Sfe@jXe1E=sfweHf@^Mc<B4BQE?GRXQL<B z?pDY3M?X)<QJj{gZ`++D;H>Q*kEa`Deb`_ZZJfpK{LAyj_4DcWF-s<!>x2~8G_zO^ zjdiswkm4Btc^@lRpS0v%Y&#?XS6A&()710MyS;s~>vob)o>Ru8%7H1FffS_zRKWwK z+IjDV6M=qCNIKbE43FKk^Lt#On9$ZBC}##YSO?m32gs$QoU332uH64veLK5Y{#POo zTzdgZSOZc@1{O^TE;CM|#LNqQm%GhwmzOXLS)P@72AX;Xk_!VySqoY?8Zt-S0`t3M zM(=^Ory)ni!3HaaNq7yzTogzhoTA7Sn(LED|J`Sit`@(xO2TQsH~ukt+y5Rz|9$-O w70c4AUGMv@i`7B9$_2R$2PtNCb?^qe57QHz`^jate39NPE*md49==%r3$eS!D*ylh delta 99 zcmV-p0G$7fBDfroAPWox001BW009607?W=Y6_G&U2U%}*azSu#lPCc^1t4f;a%Hn* z0gC}2XlZ9?Wpi{vc4293VPb4$A|Q2XL1SZOb8|f+baHi*2m?WrfCZ@mbdxFuEwldy F4GI=kARGVy diff --git a/components/longtimer/latest_stable/demo/umainform.lfm b/components/longtimer/latest_stable/demo/umainform.lfm index 0c95cfc71..8972368e0 100644 --- a/components/longtimer/latest_stable/demo/umainform.lfm +++ b/components/longtimer/latest_stable/demo/umainform.lfm @@ -1,32 +1,44 @@ object mainform: Tmainform Left = 1050 - Height = 264 + Height = 245 Top = 186 - Width = 437 + Width = 544 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'Application Title' - ClientHeight = 264 - ClientWidth = 437 + ClientHeight = 245 + ClientWidth = 544 DefaultMonitor = dmPrimary - OnCreate = FormCreate Position = poScreenCenter - LCLVersion = '1.3' + LCLVersion = '3.99.0.0' + OnCreate = FormCreate object cmd_Close: TBitBtn - Left = 104 - Height = 30 - Top = 224 - Width = 75 + AnchorSideLeft.Control = cmd_StartTimer + AnchorSideTop.Control = cmd_StartTimer + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = cmd_StartTimer + AnchorSideRight.Side = asrBottom + Left = 122 + Height = 26 + Top = 207 + Width = 83 + Anchors = [akTop, akLeft, akRight] + AutoSize = True + BorderSpacing.Top = 6 DefaultCaption = True Kind = bkClose ModalResult = 11 TabOrder = 0 end object memo_ReportTimerEvent: TMemo - Left = 192 - Height = 240 + AnchorSideRight.Control = Owner + AnchorSideRight.Side = asrBottom + Left = 240 + Height = 225 Top = 8 - Width = 232 + Width = 296 + Anchors = [akTop, akLeft, akRight, akBottom] + BorderSpacing.Around = 8 Lines.Strings = ( 'Memo1' ) @@ -35,45 +47,67 @@ object mainform: Tmainform TabOrder = 1 end object cmd_StopTimer: TButton - Left = 16 + AnchorSideRight.Control = Bevel1 + Left = 31 Height = 25 - Top = 197 - Width = 75 + Top = 176 + Width = 83 + Anchors = [akTop, akRight] + AutoSize = True Caption = 'Stop Timer' - OnClick = cmd_StopTimerClick TabOrder = 2 + OnClick = cmd_StopTimerClick end object cmd_StartTimer: TButton - Left = 104 + AnchorSideLeft.Control = Bevel1 + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = crp_SetTimer + AnchorSideTop.Side = asrBottom + AnchorSideRight.Side = asrBottom + Left = 122 Height = 25 - Top = 197 - Width = 75 + Top = 176 + Width = 83 + AutoSize = True + BorderSpacing.Top = 16 Caption = 'Start Timer' - OnClick = cmd_StartTimerClick TabOrder = 3 + OnClick = cmd_StartTimerClick end object crp_SetTimer: TGroupBox Left = 8 - Height = 176 + Height = 152 Top = 8 - Width = 184 + Width = 220 + AutoSize = True Caption = 'Set up LongTimer' - ClientHeight = 156 - ClientWidth = 180 + ClientHeight = 132 + ClientWidth = 216 TabOrder = 4 object Label1: TLabel - Left = 16 + AnchorSideTop.Control = cmb_IntervalType + AnchorSideTop.Side = asrCenter + AnchorSideRight.Control = cmb_IntervalType + Left = 41 Height = 15 - Top = 16 + Top = 12 Width = 28 + Anchors = [akTop, akRight] + BorderSpacing.Right = 8 Caption = 'Every' ParentColor = False end object cmb_IntervalType: TComboBox - Left = 72 + AnchorSideLeft.Control = cmb_weekordate + AnchorSideTop.Control = crp_SetTimer + AnchorSideRight.Control = cmb_weekordate + AnchorSideRight.Side = asrBottom + Left = 77 Height = 23 - Top = 16 - Width = 100 + Top = 8 + Width = 131 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Top = 8 ItemHeight = 15 ItemIndex = 0 Items.Strings = ( @@ -81,82 +115,136 @@ object mainform: Tmainform 'Week' 'Month' ) - OnChange = cmb_IntervalTypeChange Style = csDropDownList TabOrder = 0 Text = 'Day' + OnChange = cmb_IntervalTypeChange end object Label3: TLabel - Left = 0 + AnchorSideLeft.Control = crp_SetTimer + AnchorSideTop.Control = cmb_weekordate + AnchorSideTop.Side = asrCenter + Left = 8 Height = 15 - Top = 48 + Top = 43 Width = 61 + BorderSpacing.Left = 8 + BorderSpacing.Right = 8 Caption = 'Day or Date' ParentColor = False end object cmb_weekordate: TComboBox - Left = 72 + AnchorSideLeft.Control = Label3 + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = cmb_IntervalType + AnchorSideTop.Side = asrBottom + AnchorSideRight.Side = asrBottom + Left = 77 Height = 23 - Top = 44 - Width = 100 + Top = 39 + Width = 131 + BorderSpacing.Top = 8 + BorderSpacing.Right = 8 Enabled = False ItemHeight = 15 - OnChange = cmb_weekordateChange Style = csDropDownList TabOrder = 1 + OnChange = cmb_weekordateChange end object Label2: TLabel - Left = 0 + AnchorSideTop.Control = cmb_Daily24Hour + AnchorSideTop.Side = asrCenter + AnchorSideRight.Control = cmb_weekordate + Left = 9 Height = 15 - Top = 88 - Width = 61 + Top = 74 + Width = 60 + Anchors = [akTop, akRight] + BorderSpacing.Right = 8 Caption = 'Time (24hr)' ParentColor = False end object cmb_Daily24Hour: TComboBox - Left = 72 + AnchorSideLeft.Control = cmb_weekordate + AnchorSideTop.Control = cmb_weekordate + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = cmb_weekordate + AnchorSideRight.Side = asrBottom + Left = 77 Height = 23 - Top = 88 - Width = 100 + Top = 70 + Width = 131 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Top = 8 ItemHeight = 15 ItemIndex = 0 Items.Strings = ( 'Midnight' ) - OnChange = cmb_Daily24HourChange Style = csDropDownList TabOrder = 2 Text = 'Midnight' + OnChange = cmb_Daily24HourChange end object cmb_SampleInterval: TComboBox - Left = 48 + AnchorSideLeft.Control = cmb_weekordate + AnchorSideTop.Control = cmb_Daily24Hour + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = cmb_weekordate + AnchorSideRight.Side = asrBottom + Left = 77 Height = 23 - Top = 128 - Width = 124 + Top = 101 + Width = 131 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Top = 8 + BorderSpacing.Bottom = 8 ItemHeight = 15 - OnChange = cmb_SampleIntervalChange Style = csDropDownList TabOrder = 3 + OnChange = cmb_SampleIntervalChange end object Label4: TLabel - Left = 0 + AnchorSideTop.Control = cmb_SampleInterval + AnchorSideTop.Side = asrCenter + AnchorSideRight.Control = cmb_weekordate + Left = 30 Height = 15 - Top = 128 + Top = 105 Width = 39 + Anchors = [akTop, akRight] + BorderSpacing.Right = 8 Caption = 'Sample' ParentColor = False end end object cmd_clearmemo: TBitBtn - Left = 16 - Height = 30 - Top = 224 - Width = 75 + AnchorSideLeft.Control = cmd_StopTimer + AnchorSideTop.Control = cmd_StopTimer + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = cmd_StopTimer + AnchorSideRight.Side = asrBottom + Left = 31 + Height = 26 + Top = 207 + Width = 83 + Anchors = [akTop, akLeft, akRight] + AutoSize = True + BorderSpacing.Top = 6 Caption = 'Clear' Kind = bkCancel ModalResult = 2 - OnClick = cmd_clearmemoClick TabOrder = 5 + OnClick = cmd_clearmemoClick + end + object Bevel1: TBevel + AnchorSideLeft.Control = crp_SetTimer + AnchorSideLeft.Side = asrCenter + Left = 114 + Height = 50 + Top = 166 + Width = 8 + Shape = bsSpacer end object LongTimer1: TLongTimer About.Description.Strings = ( @@ -181,7 +269,7 @@ object mainform: Tmainform Daily24Hour = 0 WeeklyDay = lt3Wednesday OnSample = LongTimer1Sample - left = 8 - top = 8 + Left = 296 + Top = 64 end end diff --git a/components/longtimer/latest_stable/demo/umainform.pas b/components/longtimer/latest_stable/demo/umainform.pas index c44179cf6..cbe6a3cb8 100644 --- a/components/longtimer/latest_stable/demo/umainform.pas +++ b/components/longtimer/latest_stable/demo/umainform.pas @@ -6,11 +6,12 @@ interface uses Classes, SysUtils, Forms, - Buttons, StdCtrls, uLongTimer; + Buttons, StdCtrls, ExtCtrls, uLongTimer; { Tmainform } type Tmainform = class(TForm) + Bevel1: TBevel; cmd_clearmemo: TBitBtn; cmb_Daily24Hour: TComboBox; cmb_IntervalType: TComboBox; @@ -59,7 +60,8 @@ procedure Tmainform.LongTimer1Timer(Sender: TObject); begin // memo_ReportTimerEvent.Lines.Add('LastFired at ' + FormatDateTime('hh:nn:ss', LongTimer1.LastFired)); memo_ReportTimerEvent.Lines.Add('Timer fired at ' + FormatDateTime('hh:nn:ss dd-mm-yyyy', Now)); - memo_ReportTimerEvent.Lines.Add(LongTimer1.fDebugString); + +// memo_ReportTimerEvent.Lines.Add(LongTimer1.fDebugString); // wp Jan 07 2024: property not found end; @@ -89,7 +91,7 @@ end; procedure Tmainform.LongTimer1Sample(Sender: TObject); begin memo_ReportTimerEvent.Lines.Add('Sampled at ' + FormatDateTime('hh:nn:ss', Now)); - memo_ReportTimerEvent.Lines.Add(LongTimer1.fDebugString); +// memo_ReportTimerEvent.Lines.Add(LongTimer1.fDebugString); // wp: Jan 07 2024: property does not exist any more... end; procedure Tmainform.LongTimer1StartTimer(Sender: TObject); diff --git a/components/longtimer/latest_stable/locale/aboutlongtimerunit.en.po b/components/longtimer/latest_stable/locale/aboutlongtimerunit.en.po index 1ba46df14..e947da5d7 100644 --- a/components/longtimer/latest_stable/locale/aboutlongtimerunit.en.po +++ b/components/longtimer/latest_stable/locale/aboutlongtimerunit.en.po @@ -42,3 +42,4 @@ msgstr "License" #: aboutlongtimerunit.rs_licensetexterror msgid "There is something wrong with the Licence text" msgstr "There is something wrong with the Licence text" + diff --git a/components/longtimer/latest_stable/locale/aboutlongtimerunit.es.po b/components/longtimer/latest_stable/locale/aboutlongtimerunit.es.po index d79cbe5f2..605d2580d 100644 --- a/components/longtimer/latest_stable/locale/aboutlongtimerunit.es.po +++ b/components/longtimer/latest_stable/locale/aboutlongtimerunit.es.po @@ -42,3 +42,4 @@ msgstr "Licencia" #: aboutlongtimerunit.rs_licensetexterror msgid "There is something wrong with the Licence text" msgstr "Hay algo mal con el texto de la licencia" + diff --git a/components/longtimer/latest_stable/longtimerpackage.lpk b/components/longtimer/latest_stable/longtimerpackage.lpk index 9532a9d77..0c2c5406d 100644 --- a/components/longtimer/latest_stable/longtimerpackage.lpk +++ b/components/longtimer/latest_stable/longtimerpackage.lpk @@ -1,6 +1,6 @@ <?xml version="1.0" encoding="UTF-8"?> <CONFIG> - <Package Version="4"> + <Package Version="5"> <PathDelim Value="\"/> <Name Value="longtimerpackage"/> <Type Value="RunAndDesignTime"/> @@ -44,7 +44,7 @@ It is intended for TTrayIcon applications. DailyHour is a 24-hour clock (16 = 4 along with this library; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. "/> - <Version Release="3"/> + <Version Release="4"/> <Files Count="2"> <Item1> <Filename Value="ulongtimer.pas"/> @@ -57,6 +57,7 @@ It is intended for TTrayIcon applications. DailyHour is a 24-hour clock (16 = 4 <UnitName Value="AboutLongTimerunit"/> </Item2> </Files> + <CompatibilityMode Value="True"/> <i18n> <EnableI18N Value="True"/> <OutDir Value="locale"/> diff --git a/components/playsoundpackage/latest_stable/aboutplaysound.pas b/components/playsoundpackage/latest_stable/aboutplaysound.pas index 969bad882..b0d724cea 100644 --- a/components/playsoundpackage/latest_stable/aboutplaysound.pas +++ b/components/playsoundpackage/latest_stable/aboutplaysound.pas @@ -190,7 +190,7 @@ begin end; procedure TAboutbox.SetDialogTitle(Const AValue:String); begin - if AnsiContainsText(fDialogTitle, rs_About) then + if AnsiContainsText(AValue, rs_About) then fDialogTitle := AValue else fDialogTitle := rs_About + ' ' + Avalue; diff --git a/components/playsoundpackage/latest_stable/demo/demo.lpi b/components/playsoundpackage/latest_stable/demo/demo.lpi index 62dbbbca3..dc255cc87 100644 --- a/components/playsoundpackage/latest_stable/demo/demo.lpi +++ b/components/playsoundpackage/latest_stable/demo/demo.lpi @@ -1,10 +1,12 @@ <?xml version="1.0" encoding="UTF-8"?> <CONFIG> <ProjectOptions> - <Version Value="9"/> + <Version Value="12"/> <General> + <Flags> + <CompatibilityMode Value="True"/> + </Flags> <SessionStorage Value="InProjectDir"/> - <MainUnit Value="0"/> <Title Value="PlaySound component demo"/> <ResourceType Value="res"/> <UseXPManifest Value="True"/> @@ -16,20 +18,18 @@ <VersionInfo> <UseVersionInfo Value="True"/> <RevisionNr Value="1"/> - <StringTable ProductVersion=""/> </VersionInfo> <BuildModes Count="1"> <Item1 Name="Default" Default="True"/> </BuildModes> <PublishOptions> <Version Value="2"/> - <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/> - <ExcludeFileFilter Value="*.(bak|ppu|o|so);*~;backup"/> </PublishOptions> <RunParams> - <local> - <FormatVersion Value="1"/> - </local> + <FormatVersion Value="2"/> + <Modes Count="1"> + <Mode0 Name="default"/> + </Modes> </RunParams> <RequiredPackages Count="4"> <Item1> @@ -70,6 +70,9 @@ <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/> </SearchPaths> <Linking> + <Debugging> + <DebugInfoType Value="dsDwarf3"/> + </Debugging> <Options> <Win32> <GraphicApplication Value="True"/> diff --git a/components/playsoundpackage/latest_stable/demo/demo.res b/components/playsoundpackage/latest_stable/demo/demo.res index e3872854a698630af1a0c37cfe25b3fb6d235984..a19aca37ab7f969bbabc0ed3bb622719223f4856 100644 GIT binary patch delta 60 zcmaE%HbZ@a0^`GtiqqIs6l`+x^U?znOEMhG6N^&q(h_ruQ*HE71ShX$b7y4O{F$wk F2LP=R78d{j delta 21 dcmbQC{z7en0^{b5iqqI8KV`GstioQx0{~qh2e|+M diff --git a/components/poweredby/latest_stable/aboutpoweredbyunit.pas b/components/poweredby/latest_stable/aboutpoweredbyunit.pas index 5f977878a..d311a2c05 100644 --- a/components/poweredby/latest_stable/aboutpoweredbyunit.pas +++ b/components/poweredby/latest_stable/aboutpoweredbyunit.pas @@ -185,7 +185,7 @@ begin end; procedure TAboutbox.SetDialogTitle(Const AValue:String); begin - if AnsiContainsText(fDialogTitle, rs_About) then + if AnsiContainsText(AValue, rs_About) then fDialogTitle := AValue else fDialogTitle := rs_About + ' ' + Avalue; diff --git a/components/poweredby/latest_stable/poweredby.lpk b/components/poweredby/latest_stable/poweredby.lpk index 6984c0f3a..ceeeeebae 100644 --- a/components/poweredby/latest_stable/poweredby.lpk +++ b/components/poweredby/latest_stable/poweredby.lpk @@ -1,6 +1,6 @@ <?xml version="1.0" encoding="UTF-8"?> <CONFIG> - <Package Version="4"> + <Package Version="5"> <PathDelim Value="\"/> <Name Value="poweredby"/> <Type Value="RunAndDesignTime"/> @@ -49,7 +49,7 @@ Copyright (C)2014 minesadorada@charcodelvalle.com along with this library; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. "/> - <Version Major="1" Minor="2"/> + <Version Major="1" Minor="2" Release="1"/> <Files Count="2"> <Item1> <Filename Value="upoweredby.pas"/> @@ -62,6 +62,7 @@ Copyright (C)2014 minesadorada@charcodelvalle.com <UnitName Value="AboutPoweredbyunit"/> </Item2> </Files> + <CompatibilityMode Value="True"/> <RequiredPkgs Count="1"> <Item1> <PackageName Value="IDEIntf"/> diff --git a/components/scrolltext/latest_stable/aboutscrolltextunit.pas b/components/scrolltext/latest_stable/aboutscrolltextunit.pas index 19132cbe3..80898b00b 100644 --- a/components/scrolltext/latest_stable/aboutscrolltextunit.pas +++ b/components/scrolltext/latest_stable/aboutscrolltextunit.pas @@ -185,7 +185,7 @@ begin end; procedure TAboutbox.SetDialogTitle(Const AValue:String); begin - if AnsiContainsText(fDialogTitle, rs_About) then + if AnsiContainsText(AValue, rs_About) then fDialogTitle := AValue else fDialogTitle := rs_About + ' ' + Avalue; diff --git a/components/scrolltext/latest_stable/exampleapp/unit1.lfm b/components/scrolltext/latest_stable/exampleapp/unit1.lfm index c71e2e4ae..e5f94436e 100644 --- a/components/scrolltext/latest_stable/exampleapp/unit1.lfm +++ b/components/scrolltext/latest_stable/exampleapp/unit1.lfm @@ -2,13 +2,13 @@ object Form1: TForm1 Left = 403 Height = 356 Top = 139 - Width = 551 + Width = 638 BorderStyle = bsToolWindow Caption = 'Form1' ClientHeight = 356 - ClientWidth = 551 + ClientWidth = 638 Position = poDesktopCenter - LCLVersion = '2.3.0.0' + LCLVersion = '3.99.0.0' object ScrollingText1: TScrollingText AnchorSideLeft.Control = Owner AnchorSideTop.Control = Owner @@ -18,7 +18,7 @@ object Form1: TForm1 Left = 12 Height = 294 Top = 12 - Width = 552 + Width = 614 About.Description.Strings = ( 'Component that shows a scrolling window.'#13#10'Use Lines property to set text and Active=True'#13#10'to use the component' ) @@ -36,7 +36,7 @@ object Form1: TForm1 About.ComponentName = 'ScrollingText component' About.LicenseType = abLGPL Active = False - Anchors = [akTop, akLeft, akBottom] + Anchors = [akTop, akLeft, akRight, akBottom] Borderspacing.Around = 12 Lines.Strings = ( 'The file ''../readme.txt'' is missing.' @@ -53,7 +53,7 @@ object Form1: TForm1 AnchorSideLeft.Side = asrCenter AnchorSideBottom.Control = Owner AnchorSideBottom.Side = asrBottom - Left = 238 + Left = 282 Height = 30 Top = 318 Width = 75 @@ -68,15 +68,15 @@ object Form1: TForm1 AnchorSideTop.Control = BitBtn1 AnchorSideRight.Control = Owner AnchorSideRight.Side = asrBottom - Left = 468 + Left = 555 Height = 30 Top = 318 Width = 75 Anchors = [akTop, akRight] BorderSpacing.Right = 8 Caption = 'Toggle' - OnClick = Button1Click TabOrder = 1 + OnClick = Button1Click end object TrackBar1: TTrackBar AnchorSideLeft.Control = Owner @@ -87,8 +87,8 @@ object Form1: TForm1 Top = 321 Width = 100 Max = 4 - OnChange = TrackBar1Change Position = 2 + OnChange = TrackBar1Change BorderSpacing.Left = 12 TabOrder = 2 end diff --git a/components/scrolltext/latest_stable/scrolltext.lpk b/components/scrolltext/latest_stable/scrolltext.lpk index a5c3e9e59..54c173f30 100644 --- a/components/scrolltext/latest_stable/scrolltext.lpk +++ b/components/scrolltext/latest_stable/scrolltext.lpk @@ -44,7 +44,7 @@ along with this library; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. "/> - <Version Major="1" Minor="1" Release="3"/> + <Version Major="1" Minor="1" Release="4"/> <Files Count="2"> <Item1> <Filename Value="scrollingtext.pas"/>