paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9121 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2024-01-07 15:34:31 +00:00
parent 162a4049ff
commit c3b8ec47e8
20 changed files with 207 additions and 103 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/aboutcomponent/aboutcomponentunit.pas
View File

@ -188,9 +188,10 @@ begin
FreeAndNil(fBackgroundbitmap); FreeAndNil(fBackgroundbitmap);
inherited Destroy; inherited Destroy;
end; end;
procedure TAboutbox.SetDialogTitle(Const AValue:String); procedure TAboutbox.SetDialogTitle(Const AValue:String);
begin begin
if AnsiContainsText(fDialogTitle, rs_About) then if AnsiContainsText(AValue, rs_About) then
fDialogTitle := AValue fDialogTitle := AValue
else else
fDialogTitle := rs_About + ' ' + Avalue; fDialogTitle := rs_About + ' ' + Avalue;

2
components/lazautoupdate/latest_stable/aboutlazautoupdateunit.pas
View File

@ -190,7 +190,7 @@ end;
procedure TAboutbox.SetDialogTitle(const AValue: string); procedure TAboutbox.SetDialogTitle(const AValue: string);
begin begin
if AnsiContainsText(fDialogTitle, rs_About) then if AnsiContainsText(AValue, rs_About) then
fDialogTitle := AValue fDialogTitle := AValue
else else
fDialogTitle := rs_About + ' ' + Avalue; fDialogTitle := rs_About + ' ' + Avalue;

7
components/lazautoupdate/latest_stable/lazupdate.lpk
View File

@ -1,6 +1,6 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<Package Version="4"> <Package Version="5">
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Name Value="lazupdate"/> <Name Value="lazupdate"/>
<Type Value="RunAndDesignTime"/> <Type Value="RunAndDesignTime"/>
@ -35,7 +35,7 @@
</CompilerOptions> </CompilerOptions>
<Description Value="Laz AutoUpdater <Description Value="Laz AutoUpdater
A component for SourceForge and GitHub Project Developers and end-users to update their apps easily. A component for SourceForge and GitHub Project Developers and end-users to update their apps easily.
Drop onto a form, set a few properties and call the Method 'AutoUpdate' - as easy as pie! Drop onto a form, set a few properties and call the Method &apos;AutoUpdate&apos; - as easy as pie!
Fully configurable. Fully configurable.
Included in the source tree is Update Pack - an app that makes update maintenance simple and efficient. Also TrayUpdater - a systray app that schedules updates automatically. Included in the source tree is Update Pack - an app that makes update maintenance simple and efficient. Also TrayUpdater - a systray app that schedules updates automatically.
Compiles and runs in Windows and Linux. Compiles and runs in Windows and Linux.
@ -67,7 +67,7 @@ More information in the Wiki Home Page http://wiki.freepascal.org/LazAutoUpdater
along with this library; if not, write to the Free Software Foundation, along with this library; if not, write to the Free Software Foundation,
Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
"/> "/>
<Version Minor="3" Release="9"/> <Version Minor="3" Release="10"/>
<Files Count="7"> <Files Count="7">
<Item1> <Item1>
<Filename Value="ulazautoupdate.pas"/> <Filename Value="ulazautoupdate.pas"/>
@ -100,6 +100,7 @@ More information in the Wiki Home Page http://wiki.freepascal.org/LazAutoUpdater
<UnitName Value="ushortcut"/> <UnitName Value="ushortcut"/>
</Item7> </Item7>
</Files> </Files>
<CompatibilityMode Value="True"/>
<i18n> <i18n>
<EnableI18N Value="True"/> <EnableI18N Value="True"/>
<OutDir Value="locale"/> <OutDir Value="locale"/>

BIN
components/lazautoupdate/latest_stable/testapp/testapp.res
View File

Binary file not shown.

2
components/longtimer/latest_stable/aboutlongtimerunit.pas
View File

@ -190,7 +190,7 @@ begin
end; end;
procedure TAboutbox.SetDialogTitle(Const AValue:String); procedure TAboutbox.SetDialogTitle(Const AValue:String);
begin begin
if AnsiContainsText(fDialogTitle, rs_About) then if AnsiContainsText(AValue, rs_About) then
fDialogTitle := AValue fDialogTitle := AValue
else else
fDialogTitle := rs_About + ' ' + Avalue; fDialogTitle := rs_About + ' ' + Avalue;

29
components/longtimer/latest_stable/demo/longtimerdemo.lpi
View File

@ -1,27 +1,24 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/> <Version Value="12"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<General> <General>
<Flags>
<CompatibilityMode Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="LongTimer Demo"/> <Title Value="LongTimer Demo"/>
<ResourceType Value="res"/> <ResourceType Value="res"/>
<UseXPManifest Value="True"/> <UseXPManifest Value="True"/>
<XPManifest> <XPManifest>
<DpiAware Value="True"/> <DpiAware Value="True"/>
<ExecutionLevel Value="1"/>
<UIAccess Value="True"/>
</XPManifest> </XPManifest>
<Icon Value="0"/> <Icon Value="0"/>
</General> </General>
<i18n> <i18n>
<EnableI18N LFM="False"/> <EnableI18N LFM="False"/>
</i18n> </i18n>
<VersionInfo>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="3"> <BuildModes Count="3">
<Item1 Name="Default" Default="True"/> <Item1 Name="Default" Default="True"/>
<Item2 Name="Debug"> <Item2 Name="Debug">
@ -51,7 +48,6 @@
<Linking> <Linking>
<Debugging> <Debugging>
<DebugInfoType Value="dsDwarf2Set"/> <DebugInfoType Value="dsDwarf2Set"/>
<UseHeaptrc Value="True"/>
<UseExternalDbgSyms Value="True"/> <UseExternalDbgSyms Value="True"/>
</Debugging> </Debugging>
<Options> <Options>
@ -62,6 +58,9 @@
</Linking> </Linking>
<Other> <Other>
<CustomOptions Value="-dDEBUG"/> <CustomOptions Value="-dDEBUG"/>
<OtherDefines Count="1">
<Define0 Value="DEBUG"/>
</OtherDefines>
</Other> </Other>
</CompilerOptions> </CompilerOptions>
</Item2> </Item2>
@ -86,6 +85,7 @@
<Linking> <Linking>
<Debugging> <Debugging>
<GenerateDebugInfo Value="False"/> <GenerateDebugInfo Value="False"/>
<DebugInfoType Value="dsDwarf3"/>
</Debugging> </Debugging>
<LinkSmart Value="True"/> <LinkSmart Value="True"/>
<Options> <Options>
@ -94,6 +94,11 @@
</Win32> </Win32>
</Options> </Options>
</Linking> </Linking>
<Other>
<OtherDefines Count="1">
<Define0 Value="DEBUG"/>
</OtherDefines>
</Other>
</CompilerOptions> </CompilerOptions>
</Item3> </Item3>
</BuildModes> </BuildModes>
@ -101,9 +106,10 @@
<Version Value="2"/> <Version Value="2"/>
</PublishOptions> </PublishOptions>
<RunParams> <RunParams>
<local> <FormatVersion Value="2"/>
<FormatVersion Value="1"/> <Modes Count="1">
</local> <Mode0 Name="default"/>
</Modes>
</RunParams> </RunParams>
<RequiredPackages Count="2"> <RequiredPackages Count="2">
<Item1> <Item1>
@ -125,7 +131,6 @@
<ComponentName Value="mainform"/> <ComponentName Value="mainform"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="umainform"/>
</Unit1> </Unit1>
</Units> </Units>
</ProjectOptions> </ProjectOptions>

BIN
components/longtimer/latest_stable/demo/longtimerdemo.res
View File

Binary file not shown.

202
components/longtimer/latest_stable/demo/umainform.lfm
View File

@ -1,32 +1,44 @@
object mainform: Tmainform object mainform: Tmainform
Left = 1050 Left = 1050
Height = 264 Height = 245
Top = 186 Top = 186
Width = 437 Width = 544
BorderIcons = [biSystemMenu, biMinimize] BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle BorderStyle = bsSingle
Caption = 'Application Title' Caption = 'Application Title'
ClientHeight = 264 ClientHeight = 245
ClientWidth = 437 ClientWidth = 544
DefaultMonitor = dmPrimary DefaultMonitor = dmPrimary
OnCreate = FormCreate
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '1.3' LCLVersion = '3.99.0.0'
OnCreate = FormCreate
object cmd_Close: TBitBtn object cmd_Close: TBitBtn
Left = 104 AnchorSideLeft.Control = cmd_StartTimer
Height = 30 AnchorSideTop.Control = cmd_StartTimer
Top = 224 AnchorSideTop.Side = asrBottom
Width = 75 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 DefaultCaption = True
Kind = bkClose Kind = bkClose
ModalResult = 11 ModalResult = 11
TabOrder = 0 TabOrder = 0
end end
object memo_ReportTimerEvent: TMemo object memo_ReportTimerEvent: TMemo
Left = 192 AnchorSideRight.Control = Owner
Height = 240 AnchorSideRight.Side = asrBottom
Left = 240
Height = 225
Top = 8 Top = 8
Width = 232 Width = 296
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 8
Lines.Strings = ( Lines.Strings = (
'Memo1' 'Memo1'
) )
@ -35,45 +47,67 @@ object mainform: Tmainform
TabOrder = 1 TabOrder = 1
end end
object cmd_StopTimer: TButton object cmd_StopTimer: TButton
Left = 16 AnchorSideRight.Control = Bevel1
Left = 31
Height = 25 Height = 25
Top = 197 Top = 176
Width = 75 Width = 83
Anchors = [akTop, akRight]
AutoSize = True
Caption = 'Stop Timer' Caption = 'Stop Timer'
OnClick = cmd_StopTimerClick
TabOrder = 2 TabOrder = 2
OnClick = cmd_StopTimerClick
end end
object cmd_StartTimer: TButton 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 Height = 25
Top = 197 Top = 176
Width = 75 Width = 83
AutoSize = True
BorderSpacing.Top = 16
Caption = 'Start Timer' Caption = 'Start Timer'
OnClick = cmd_StartTimerClick
TabOrder = 3 TabOrder = 3
OnClick = cmd_StartTimerClick
end end
object crp_SetTimer: TGroupBox object crp_SetTimer: TGroupBox
Left = 8 Left = 8
Height = 176 Height = 152
Top = 8 Top = 8
Width = 184 Width = 220
AutoSize = True
Caption = 'Set up LongTimer' Caption = 'Set up LongTimer'
ClientHeight = 156 ClientHeight = 132
ClientWidth = 180 ClientWidth = 216
TabOrder = 4 TabOrder = 4
object Label1: TLabel object Label1: TLabel
Left = 16 AnchorSideTop.Control = cmb_IntervalType
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = cmb_IntervalType
Left = 41
Height = 15 Height = 15
Top = 16 Top = 12
Width = 28 Width = 28
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
Caption = 'Every' Caption = 'Every'
ParentColor = False ParentColor = False
end end
object cmb_IntervalType: TComboBox 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 Height = 23
Top = 16 Top = 8
Width = 100 Width = 131
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 8
ItemHeight = 15 ItemHeight = 15
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
@ -81,82 +115,136 @@ object mainform: Tmainform
'Week' 'Week'
'Month' 'Month'
) )
OnChange = cmb_IntervalTypeChange
Style = csDropDownList Style = csDropDownList
TabOrder = 0 TabOrder = 0
Text = 'Day' Text = 'Day'
OnChange = cmb_IntervalTypeChange
end end
object Label3: TLabel object Label3: TLabel
Left = 0 AnchorSideLeft.Control = crp_SetTimer
AnchorSideTop.Control = cmb_weekordate
AnchorSideTop.Side = asrCenter
Left = 8
Height = 15 Height = 15
Top = 48 Top = 43
Width = 61 Width = 61
BorderSpacing.Left = 8
BorderSpacing.Right = 8
Caption = 'Day or Date' Caption = 'Day or Date'
ParentColor = False ParentColor = False
end end
object cmb_weekordate: TComboBox 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 Height = 23
Top = 44 Top = 39
Width = 100 Width = 131
BorderSpacing.Top = 8
BorderSpacing.Right = 8
Enabled = False Enabled = False
ItemHeight = 15 ItemHeight = 15
OnChange = cmb_weekordateChange
Style = csDropDownList Style = csDropDownList
TabOrder = 1 TabOrder = 1
OnChange = cmb_weekordateChange
end end
object Label2: TLabel object Label2: TLabel
Left = 0 AnchorSideTop.Control = cmb_Daily24Hour
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = cmb_weekordate
Left = 9
Height = 15 Height = 15
Top = 88 Top = 74
Width = 61 Width = 60
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
Caption = 'Time (24hr)' Caption = 'Time (24hr)'
ParentColor = False ParentColor = False
end end
object cmb_Daily24Hour: TComboBox 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 Height = 23
Top = 88 Top = 70
Width = 100 Width = 131
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 8
ItemHeight = 15 ItemHeight = 15
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
'Midnight' 'Midnight'
) )
OnChange = cmb_Daily24HourChange
Style = csDropDownList Style = csDropDownList
TabOrder = 2 TabOrder = 2
Text = 'Midnight' Text = 'Midnight'
OnChange = cmb_Daily24HourChange
end end
object cmb_SampleInterval: TComboBox 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 Height = 23
Top = 128 Top = 101
Width = 124 Width = 131
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 8
BorderSpacing.Bottom = 8
ItemHeight = 15 ItemHeight = 15
OnChange = cmb_SampleIntervalChange
Style = csDropDownList Style = csDropDownList
TabOrder = 3 TabOrder = 3
OnChange = cmb_SampleIntervalChange
end end
object Label4: TLabel object Label4: TLabel
Left = 0 AnchorSideTop.Control = cmb_SampleInterval
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = cmb_weekordate
Left = 30
Height = 15 Height = 15
Top = 128 Top = 105
Width = 39 Width = 39
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
Caption = 'Sample' Caption = 'Sample'
ParentColor = False ParentColor = False
end end
end end
object cmd_clearmemo: TBitBtn object cmd_clearmemo: TBitBtn
Left = 16 AnchorSideLeft.Control = cmd_StopTimer
Height = 30 AnchorSideTop.Control = cmd_StopTimer
Top = 224 AnchorSideTop.Side = asrBottom
Width = 75 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' Caption = 'Clear'
Kind = bkCancel Kind = bkCancel
ModalResult = 2 ModalResult = 2
OnClick = cmd_clearmemoClick
TabOrder = 5 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 end
object LongTimer1: TLongTimer object LongTimer1: TLongTimer
About.Description.Strings = ( About.Description.Strings = (
@ -181,7 +269,7 @@ object mainform: Tmainform
Daily24Hour = 0 Daily24Hour = 0
WeeklyDay = lt3Wednesday WeeklyDay = lt3Wednesday
OnSample = LongTimer1Sample OnSample = LongTimer1Sample
left = 8 Left = 296
top = 8 Top = 64
end end
end end

8
components/longtimer/latest_stable/demo/umainform.pas
View File

@ -6,11 +6,12 @@ interface
uses uses
Classes, SysUtils, Forms, Classes, SysUtils, Forms,
Buttons, StdCtrls, uLongTimer; Buttons, StdCtrls, ExtCtrls, uLongTimer;
{ Tmainform } { Tmainform }
type type
Tmainform = class(TForm) Tmainform = class(TForm)
Bevel1: TBevel;
cmd_clearmemo: TBitBtn; cmd_clearmemo: TBitBtn;
cmb_Daily24Hour: TComboBox; cmb_Daily24Hour: TComboBox;
cmb_IntervalType: TComboBox; cmb_IntervalType: TComboBox;
@ -59,7 +60,8 @@ procedure Tmainform.LongTimer1Timer(Sender: TObject);
begin begin
// memo_ReportTimerEvent.Lines.Add('LastFired at ' + FormatDateTime('hh:nn:ss', LongTimer1.LastFired)); // 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('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; end;
@ -89,7 +91,7 @@ end;
procedure Tmainform.LongTimer1Sample(Sender: TObject); procedure Tmainform.LongTimer1Sample(Sender: TObject);
begin begin
memo_ReportTimerEvent.Lines.Add('Sampled at ' + FormatDateTime('hh:nn:ss', Now)); 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; end;
procedure Tmainform.LongTimer1StartTimer(Sender: TObject); procedure Tmainform.LongTimer1StartTimer(Sender: TObject);

1
components/longtimer/latest_stable/locale/aboutlongtimerunit.en.po
View File

@ -42,3 +42,4 @@ msgstr "License"
#: aboutlongtimerunit.rs_licensetexterror #: aboutlongtimerunit.rs_licensetexterror
msgid "There is something wrong with the Licence text" msgid "There is something wrong with the Licence text"
msgstr "There is something wrong with the Licence text" msgstr "There is something wrong with the Licence text"

1
components/longtimer/latest_stable/locale/aboutlongtimerunit.es.po
View File

@ -42,3 +42,4 @@ msgstr "Licencia"
#: aboutlongtimerunit.rs_licensetexterror #: aboutlongtimerunit.rs_licensetexterror
msgid "There is something wrong with the Licence text" msgid "There is something wrong with the Licence text"
msgstr "Hay algo mal con el texto de la licencia" msgstr "Hay algo mal con el texto de la licencia"

5
components/longtimer/latest_stable/longtimerpackage.lpk
View File

@ -1,6 +1,6 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<Package Version="4"> <Package Version="5">
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Name Value="longtimerpackage"/> <Name Value="longtimerpackage"/>
<Type Value="RunAndDesignTime"/> <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, along with this library; if not, write to the Free Software Foundation,
Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
"/> "/>
<Version Release="3"/> <Version Release="4"/>
<Files Count="2"> <Files Count="2">
<Item1> <Item1>
<Filename Value="ulongtimer.pas"/> <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"/> <UnitName Value="AboutLongTimerunit"/>
</Item2> </Item2>
</Files> </Files>
<CompatibilityMode Value="True"/>
<i18n> <i18n>
<EnableI18N Value="True"/> <EnableI18N Value="True"/>
<OutDir Value="locale"/> <OutDir Value="locale"/>

2
components/playsoundpackage/latest_stable/aboutplaysound.pas
View File

@ -190,7 +190,7 @@ begin
end; end;
procedure TAboutbox.SetDialogTitle(Const AValue:String); procedure TAboutbox.SetDialogTitle(Const AValue:String);
begin begin
if AnsiContainsText(fDialogTitle, rs_About) then if AnsiContainsText(AValue, rs_About) then
fDialogTitle := AValue fDialogTitle := AValue
else else
fDialogTitle := rs_About + ' ' + Avalue; fDialogTitle := rs_About + ' ' + Avalue;

19
components/playsoundpackage/latest_stable/demo/demo.lpi
View File

@ -1,10 +1,12 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/> <Version Value="12"/>
<General> <General>
<Flags>
<CompatibilityMode Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="PlaySound component demo"/> <Title Value="PlaySound component demo"/>
<ResourceType Value="res"/> <ResourceType Value="res"/>
<UseXPManifest Value="True"/> <UseXPManifest Value="True"/>
@ -16,20 +18,18 @@
<VersionInfo> <VersionInfo>
<UseVersionInfo Value="True"/> <UseVersionInfo Value="True"/>
<RevisionNr Value="1"/> <RevisionNr Value="1"/>
<StringTable ProductVersion=""/>
</VersionInfo> </VersionInfo>
<BuildModes Count="1"> <BuildModes Count="1">
<Item1 Name="Default" Default="True"/> <Item1 Name="Default" Default="True"/>
</BuildModes> </BuildModes>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|o|so);*~;backup"/>
</PublishOptions> </PublishOptions>
<RunParams> <RunParams>
<local> <FormatVersion Value="2"/>
<FormatVersion Value="1"/> <Modes Count="1">
</local> <Mode0 Name="default"/>
</Modes>
</RunParams> </RunParams>
<RequiredPackages Count="4"> <RequiredPackages Count="4">
<Item1> <Item1>
@ -70,6 +70,9 @@
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/> <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths> </SearchPaths>
<Linking> <Linking>
<Debugging>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
<Options> <Options>
<Win32> <Win32>
<GraphicApplication Value="True"/> <GraphicApplication Value="True"/>

BIN
components/playsoundpackage/latest_stable/demo/demo.res
View File

Binary file not shown.

2
components/poweredby/latest_stable/aboutpoweredbyunit.pas
View File

@ -185,7 +185,7 @@ begin
end; end;
procedure TAboutbox.SetDialogTitle(Const AValue:String); procedure TAboutbox.SetDialogTitle(Const AValue:String);
begin begin
if AnsiContainsText(fDialogTitle, rs_About) then if AnsiContainsText(AValue, rs_About) then
fDialogTitle := AValue fDialogTitle := AValue
else else
fDialogTitle := rs_About + ' ' + Avalue; fDialogTitle := rs_About + ' ' + Avalue;

5
components/poweredby/latest_stable/poweredby.lpk
View File

@ -1,6 +1,6 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<Package Version="4"> <Package Version="5">
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Name Value="poweredby"/> <Name Value="poweredby"/>
<Type Value="RunAndDesignTime"/> <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, along with this library; if not, write to the Free Software Foundation,
Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. 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"> <Files Count="2">
<Item1> <Item1>
<Filename Value="upoweredby.pas"/> <Filename Value="upoweredby.pas"/>
@ -62,6 +62,7 @@ Copyright (C)2014 minesadorada@charcodelvalle.com
<UnitName Value="AboutPoweredbyunit"/> <UnitName Value="AboutPoweredbyunit"/>
</Item2> </Item2>
</Files> </Files>
<CompatibilityMode Value="True"/>
<RequiredPkgs Count="1"> <RequiredPkgs Count="1">
<Item1> <Item1>
<PackageName Value="IDEIntf"/> <PackageName Value="IDEIntf"/>

2
components/scrolltext/latest_stable/aboutscrolltextunit.pas
View File

@ -185,7 +185,7 @@ begin
end; end;
procedure TAboutbox.SetDialogTitle(Const AValue:String); procedure TAboutbox.SetDialogTitle(Const AValue:String);
begin begin
if AnsiContainsText(fDialogTitle, rs_About) then if AnsiContainsText(AValue, rs_About) then
fDialogTitle := AValue fDialogTitle := AValue
else else
fDialogTitle := rs_About + ' ' + Avalue; fDialogTitle := rs_About + ' ' + Avalue;

18
components/scrolltext/latest_stable/exampleapp/unit1.lfm
View File

@ -2,13 +2,13 @@ object Form1: TForm1
Left = 403 Left = 403
Height = 356 Height = 356
Top = 139 Top = 139
Width = 551 Width = 638
BorderStyle = bsToolWindow BorderStyle = bsToolWindow
Caption = 'Form1' Caption = 'Form1'
ClientHeight = 356 ClientHeight = 356
ClientWidth = 551 ClientWidth = 638
Position = poDesktopCenter Position = poDesktopCenter
LCLVersion = '2.3.0.0' LCLVersion = '3.99.0.0'
object ScrollingText1: TScrollingText object ScrollingText1: TScrollingText
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
@ -18,7 +18,7 @@ object Form1: TForm1
Left = 12 Left = 12
Height = 294 Height = 294
Top = 12 Top = 12
Width = 552 Width = 614
About.Description.Strings = ( 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' '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.ComponentName = 'ScrollingText component'
About.LicenseType = abLGPL About.LicenseType = abLGPL
Active = False Active = False
Anchors = [akTop, akLeft, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
Borderspacing.Around = 12 Borderspacing.Around = 12
Lines.Strings = ( Lines.Strings = (
'The file ''../readme.txt'' is missing.' 'The file ''../readme.txt'' is missing.'
@ -53,7 +53,7 @@ object Form1: TForm1
AnchorSideLeft.Side = asrCenter AnchorSideLeft.Side = asrCenter
AnchorSideBottom.Control = Owner AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 238 Left = 282
Height = 30 Height = 30
Top = 318 Top = 318
Width = 75 Width = 75
@ -68,15 +68,15 @@ object Form1: TForm1
AnchorSideTop.Control = BitBtn1 AnchorSideTop.Control = BitBtn1
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 468 Left = 555
Height = 30 Height = 30
Top = 318 Top = 318
Width = 75 Width = 75
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Caption = 'Toggle' Caption = 'Toggle'
OnClick = Button1Click
TabOrder = 1 TabOrder = 1
OnClick = Button1Click
end end
object TrackBar1: TTrackBar object TrackBar1: TTrackBar
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
@ -87,8 +87,8 @@ object Form1: TForm1
Top = 321 Top = 321
Width = 100 Width = 100
Max = 4 Max = 4
OnChange = TrackBar1Change
Position = 2 Position = 2
OnChange = TrackBar1Change
BorderSpacing.Left = 12 BorderSpacing.Left = 12
TabOrder = 2 TabOrder = 2
end end

2
components/scrolltext/latest_stable/scrolltext.lpk
View File

@ -44,7 +44,7 @@
along with this library; if not, write to the Free Software Foundation, along with this library; if not, write to the Free Software Foundation,
Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. 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"> <Files Count="2">
<Item1> <Item1>
<Filename Value="scrollingtext.pas"/> <Filename Value="scrollingtext.pas"/>