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
This commit is contained in:
wp_xxyyzz
parent
162a4049ff
commit
c3b8ec47e8
@ -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;
|
||||
|
||||
@ -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;
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<CONFIG>
|
||||
<Package Version="4">
|
||||
<Package Version="5">
|
||||
<PathDelim Value="\"/>
|
||||
<Name Value="lazupdate"/>
|
||||
<Type Value="RunAndDesignTime"/>
|
||||
@ -35,7 +35,7 @@
|
||||
</CompilerOptions>
|
||||
<Description Value="Laz AutoUpdater
|
||||
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 'AutoUpdate' - as easy as pie!
|
||||
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.
|
||||
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,
|
||||
Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
||||
"/>
|
||||
<Version Minor="3" Release="9"/>
|
||||
<Version Minor="3" Release="10"/>
|
||||
<Files Count="7">
|
||||
<Item1>
|
||||
<Filename Value="ulazautoupdate.pas"/>
|
||||
@ -100,6 +100,7 @@ More information in the Wiki Home Page http://wiki.freepascal.org/LazAutoUpdater
|
||||
<UnitName Value="ushortcut"/>
|
||||
</Item7>
|
||||
</Files>
|
||||
<CompatibilityMode Value="True"/>
|
||||
<i18n>
|
||||
<EnableI18N Value="True"/>
|
||||
<OutDir Value="locale"/>
|
||||
|
||||
Binary file not shown.
@ -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;
|
||||
|
||||
@ -1,27 +1,24 @@
|
||||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<Version Value="9"/>
|
||||
<Version Value="12"/>
|
||||
<PathDelim Value="\"/>
|
||||
<General>
|
||||
<Flags>
|
||||
<CompatibilityMode Value="True"/>
|
||||
</Flags>
|
||||
<SessionStorage Value="InProjectDir"/>
|
||||
<MainUnit Value="0"/>
|
||||
<Title Value="LongTimer Demo"/>
|
||||
<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>
|
||||
|
||||
Binary file not shown.
@ -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
|
||||
|
||||
@ -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);
|
||||
|
||||
@ -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"
|
||||
|
||||
|
||||
@ -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"
|
||||
|
||||
|
||||
@ -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"/>
|
||||
|
||||
@ -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;
|
||||
|
||||
@ -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"/>
|
||||
|
||||
Binary file not shown.
@ -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;
|
||||
|
||||
@ -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"/>
|
||||
|
||||
@ -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;
|
||||
|
||||
@ -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
|
||||
|
||||
@ -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"/>
|
||||
|
||||
Loading…
Reference in New Issue
Block a user