babaev-an/lasarus_compotents
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Стартовый пул

Browse Source
This commit is contained in:
Александр Бабаев
2024-04-02 08:46:59 +03:00
parent fd57fffd3a
commit 3bb34d000b
5591 changed files with 3291734 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
ScrollingText/DemoProject/DomoForm.lfm Normal file
View File

@@ -0,0 +1,23 @@
object DomoFrm: TDomoFrm
Left = 344
Height = 449
Top = 145
Width = 1500
Caption = 'LazScrollingText Demo Project'
ClientHeight = 449
ClientWidth = 1500
Font.CharSet = RUSSIAN_CHARSET
Font.Height = -15
Font.Name = 'Times New Roman'
Font.Pitch = fpVariable
Font.Quality = fqDraft
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '1.0.10.0'
object ScrollingText: TScrollingText
Left = 0
Height = 448
Top = 0
Width = 1497
end
end

30
ScrollingText/DemoProject/DomoForm.pas Normal file
View File

@@ -0,0 +1,30 @@
unit DomoForm;
interface
uses Classes, scrollingtext, SysUtils, FileUtil, Forms, Controls, Graphics,
Dialogs;
type
{ TDomoFrm }
TDomoFrm = class(TForm)
ScrollingText: TScrollingText;
procedure FormCreate(Sender: TObject);
private
public
end;
var
DomoFrm: TDomoFrm;
implementation
{$R *.lfm}
{ TDomoFrm }
procedure TDomoFrm.FormCreate(Sender: TObject);
begin
with ScrollingText do
begin
Align:= alClient;
ReplaceList.Clear;
ReplaceList.Add('$packversion$=2.0.2.105');
ReplaceList.Add('$author$=Lazarus / GoodBoyAlex');
Lines.LoadFromFile('Text.txt');
Active:= true;
end;
end;
end.

BIN
ScrollingText/DemoProject/LazScrollingTextDemo.ico Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 134 KiB

111
ScrollingText/DemoProject/LazScrollingTextDemo.lpi Normal file
View File

@@ -0,0 +1,111 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<PathDelim Value="\"/>
<General>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="LazScrollingText Demo Project"/>
<UseAppBundle Value="False"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<Icon Value="0"/>
</General>
<i18n>
<EnableI18N LFM="False"/>
</i18n>
<VersionInfo>
<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>
</RunParams>
<RequiredPackages Count="2">
<Item1>
<PackageName Value="LazScrollingText"/>
</Item1>
<Item2>
<PackageName Value="LCL"/>
</Item2>
</RequiredPackages>
<Units Count="2">
<Unit0>
<Filename Value="LazScrollingTextDemo.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="LazScrollingTextDemo"/>
</Unit0>
<Unit1>
<Filename Value="DomoForm.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="DomoFrm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="DomoForm"/>
</Unit1>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="LazScrollingTextDemo"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<SyntaxMode Value="Delphi"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
<SmartLinkUnit Value="True"/>
<Optimizations>
<OptimizationLevel Value="3"/>
</Optimizations>
</CodeGeneration>
<Linking>
<Debugging>
<StripSymbols Value="True"/>
<UseExternalDbgSyms Value="True"/>
</Debugging>
<LinkSmart Value="True"/>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerMessages>
<MsgFileName Value=""/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<Exceptions Count="3">
<Item1>
<Name Value="EAbort"/>
</Item1>
<Item2>
<Name Value="ECodetoolError"/>
</Item2>
<Item3>
<Name Value="EFOpenError"/>
</Item3>
</Exceptions>
</Debugging>
</CONFIG>

22
ScrollingText/DemoProject/LazScrollingTextDemo.lpr Normal file
View File

@@ -0,0 +1,22 @@
program LazScrollingTextDemo;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms, DomoForm
{ you can add units after this };
{$R *.res}
begin
Application.Title:='LazScrollingText Demo Project';
RequireDerivedFormResource := True;
Application.Initialize;
Application.CreateForm(TDomoFrm, DomoFrm);
Application.Run;
end.

7
ScrollingText/DemoProject/Text.txt Normal file
View File

@@ -0,0 +1,7 @@
{font: name:Times New Roman; size:18; style:bold,italic;}Эта строка написана Times New Roman размером 18 полужирным курсивом
{font: name:Segoe Script; size:22; style:underline,strikeout;}Эта строка написана Segoe Script размером 22 подчёркнутая и зачёркнутая
{font: name:Times New Roman; size:16; style:;}Версия пакета: $packversion$ от $author$

69
ScrollingText/LazScrollingText.lpk Normal file
View File

@@ -0,0 +1,69 @@
<?xml version="1.0"?>
<CONFIG>
<Package Version="4">
<PathDelim Value="\"/>
<Name Value="LazScrollingText"/>
<Author Value="Lazarus / GoodBoyAlex"/>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<SearchPaths>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<SyntaxMode Value="Delphi"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
<SmartLinkUnit Value="True"/>
<Optimizations>
<OptimizationLevel Value="3"/>
</Optimizations>
</CodeGeneration>
<Linking>
<Debugging>
<GenerateDebugInfo Value="False"/>
</Debugging>
</Linking>
<Other>
<CompilerMessages>
<MsgFileName Value=""/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Description Value="Прокручивающийся текст"/>
<Version Major="2" Release="2" Build="105"/>
<Files Count="3">
<Item1>
<Filename Value="scrollingtext.pas"/>
<UnitName Value="scrollingtext"/>
</Item1>
<Item2>
<Filename Value="st_registerit.pas"/>
<HasRegisterProc Value="True"/>
<UnitName Value="st_registerit"/>
</Item2>
<Item3>
<Filename Value="scrollingtext_icon.lrs"/>
<Type Value="LRS"/>
</Item3>
</Files>
<Type Value="RunAndDesignTime"/>
<RequiredPkgs Count="2">
<Item1>
<PackageName Value="LCL"/>
</Item1>
<Item2>
<PackageName Value="FCL"/>
</Item2>
</RequiredPkgs>
<UsageOptions>
<UnitPath Value="$(PkgOutDir)"/>
</UsageOptions>
<PublishOptions>
<Version Value="2"/>
</PublishOptions>
</Package>
</CONFIG>

21
ScrollingText/LazScrollingText.pas Normal file
View File

@@ -0,0 +1,21 @@
{ This file was automatically created by Lazarus. Do not edit!
This source is only used to compile and install the package.
}
unit LazScrollingText;
interface
uses
scrollingtext, st_registerit, LazarusPackageIntf;
implementation
procedure Register;
begin
RegisterUnit('st_registerit', @st_registerit.Register);
end;
initialization
RegisterPackage('LazScrollingText', @Register);
end.

61
ScrollingText/StringDesigner/data/MainForm.lfm Normal file
View File

@@ -0,0 +1,61 @@
object MainFrm: TMainFrm
Left = 449
Height = 668
Top = 192
Width = 963
Caption = 'LazScrollingText String Designer'
ClientHeight = 648
ClientWidth = 963
Font.CharSet = RUSSIAN_CHARSET
Font.Height = -15
Font.Name = 'Times New Roman'
Font.Pitch = fpVariable
Font.Quality = fqDraft
Menu = MainMenu
Position = poScreenCenter
LCLVersion = '1.0.10.0'
object ToolBar: TToolBar
Left = 0
Height = 26
Top = 0
Width = 963
Caption = 'ToolBar'
Images = ImageList
TabOrder = 0
end
object MainMenu: TMainMenu
Images = ImageList
left = 752
top = 120
object FileM: TMenuItem
Caption = '&File'
end
object EditM: TMenuItem
Caption = '&Edit'
end
object ToolsM: TMenuItem
Caption = '&Tools'
end
object ExportM: TMenuItem
Caption = '&Export'
end
object HelpM: TMenuItem
Caption = '&Help'
RightJustify = True
end
end
object PopupMenu: TPopupMenu
Images = ImageList
left = 792
top = 120
end
object ActionList: TActionList
Images = ImageList
left = 832
top = 120
end
object ImageList: TImageList
left = 872
top = 120
end
end

28
ScrollingText/StringDesigner/data/MainForm.pas Normal file
View File

@@ -0,0 +1,28 @@
unit MainForm;
{$mode delphi}
interface
uses ActnList, Classes, ComCtrls, Menus, SysUtils, FileUtil, Forms, Controls,
Graphics, Dialogs;
type
{ TMainFrm }
TMainFrm = class(TForm)
ActionList: TActionList;
ImageList: TImageList;
MainMenu: TMainMenu;
FileM: TMenuItem;
EditM: TMenuItem;
HelpM: TMenuItem;
ExportM: TMenuItem;
ToolsM: TMenuItem;
PopupMenu: TPopupMenu;
ToolBar: TToolBar;
private
public
end;
var
MainFrm: TMainFrm;
implementation
{$R *.lfm}
end.

8
ScrollingText/StringDesigner/data/~history/MainForm.lfm;1 Normal file
View File

@@ -0,0 +1,8 @@
object Form1: TForm1
Left = 344
Height = 240
Top = 145
Width = 320
Caption = 'Form1'
LCLVersion = '1.0.10.0'
end

14
ScrollingText/StringDesigner/data/~history/MainForm.lfm;2 Normal file
View File

@@ -0,0 +1,14 @@
object MainFrm: TMainFrm
Left = 449
Height = 668
Top = 192
Width = 963
Caption = 'LazScrollingText String Designer'
Font.CharSet = RUSSIAN_CHARSET
Font.Height = -15
Font.Name = 'Times New Roman'
Font.Pitch = fpVariable
Font.Quality = fqDraft
Position = poScreenCenter
LCLVersion = '1.0.10.0'
end

33
ScrollingText/StringDesigner/data/~history/MainForm.lfm;3 Normal file
View File

@@ -0,0 +1,33 @@
object MainFrm: TMainFrm
Left = 449
Height = 668
Top = 192
Width = 963
Caption = 'LazScrollingText String Designer'
ClientHeight = 668
ClientWidth = 963
Font.CharSet = RUSSIAN_CHARSET
Font.Height = -15
Font.Name = 'Times New Roman'
Font.Pitch = fpVariable
Font.Quality = fqDraft
Menu = MainMenu
Position = poScreenCenter
LCLVersion = '1.0.10.0'
object ToolBar: TToolBar
Left = 0
Height = 26
Top = 0
Width = 963
Caption = 'ToolBar'
TabOrder = 0
end
object MainMenu: TMainMenu
left = 752
top = 120
end
object PopupMenu: TPopupMenu
left = 792
top = 120
end
end

58
ScrollingText/StringDesigner/data/~history/MainForm.lfm;4 Normal file
View File

@@ -0,0 +1,58 @@
object MainFrm: TMainFrm
Left = 449
Height = 668
Top = 192
Width = 963
Caption = 'LazScrollingText String Designer'
ClientHeight = 648
ClientWidth = 963
Font.CharSet = RUSSIAN_CHARSET
Font.Height = -15
Font.Name = 'Times New Roman'
Font.Pitch = fpVariable
Font.Quality = fqDraft
Menu = MainMenu
Position = poScreenCenter
LCLVersion = '1.0.10.0'
object ToolBar: TToolBar
Left = 0
Height = 26
Top = 0
Width = 963
Caption = 'ToolBar'
Images = ImageList
TabOrder = 0
end
object MainMenu: TMainMenu
Images = ImageList
left = 752
top = 120
object FileM: TMenuItem
Caption = '&File'
end
object EditM: TMenuItem
Caption = '&Edit'
end
object ToolsM: TMenuItem
Caption = '&Tools'
end
object HelpM: TMenuItem
Caption = '&Help'
RightJustify = True
end
end
object PopupMenu: TPopupMenu
Images = ImageList
left = 792
top = 120
end
object ActionList: TActionList
Images = ImageList
left = 832
top = 120
end
object ImageList: TImageList
left = 872
top = 120
end
end

26
ScrollingText/StringDesigner/data/~history/MainForm.pas;1 Normal file
View File

@@ -0,0 +1,26 @@
unit MainForm;
{$mode delphi}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;
type
TForm1 = class(TForm)
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
end.

14
ScrollingText/StringDesigner/data/~history/MainForm.pas;2 Normal file
View File

@@ -0,0 +1,14 @@
unit MainForm;
{$mode delphi}
interface
uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;
type
TMainFrm = class(TForm)
private
public
end;
var
MainFrm: TMainFrm;
implementation
{$R *.lfm}
end.

21
ScrollingText/StringDesigner/data/~history/MainForm.pas;3 Normal file
View File

@@ -0,0 +1,21 @@
unit MainForm;
{$mode delphi}
interface
uses Classes, ComCtrls, Menus, SysUtils, FileUtil, Forms, Controls, Graphics,
Dialogs;
type
{ TMainFrm }
TMainFrm = class(TForm)
MainMenu: TMainMenu;
PopupMenu: TPopupMenu;
ToolBar: TToolBar;
private
public
end;
var
MainFrm: TMainFrm;
implementation
{$R *.lfm}
end.

27
ScrollingText/StringDesigner/data/~history/MainForm.pas;4 Normal file
View File

@@ -0,0 +1,27 @@
unit MainForm;
{$mode delphi}
interface
uses ActnList, Classes, ComCtrls, Menus, SysUtils, FileUtil, Forms, Controls,
Graphics, Dialogs;
type
{ TMainFrm }
TMainFrm = class(TForm)
ActionList: TActionList;
ImageList: TImageList;
MainMenu: TMainMenu;
FileM: TMenuItem;
EditM: TMenuItem;
HelpM: TMenuItem;
ToolsM: TMenuItem;
PopupMenu: TPopupMenu;
ToolBar: TToolBar;
private
public
end;
var
MainFrm: TMainFrm;
implementation
{$R *.lfm}
end.

BIN
ScrollingText/StringDesigner/lst_strdes.ico Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 134 KiB

164
ScrollingText/StringDesigner/lst_strdes.lpi Normal file
View File

@@ -0,0 +1,164 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<PathDelim Value="\"/>
<General>
<Flags>
<AlwaysBuild Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="LazScrollingText String Designer"/>
<UseAppBundle Value="False"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<Icon Value="0"/>
</General>
<i18n>
<EnableI18N LFM="False"/>
</i18n>
<VersionInfo>
<UseVersionInfo Value="True"/>
<AutoIncrementBuild Value="True"/>
<MajorVersionNr Value="2"/>
<RevisionNr Value="2"/>
<BuildNr Value="106"/>
<Language Value="0419"/>
<StringTable CompanyName="Alexander Babaev" FileDescription="LazScrollingText String Designer" InternalName="sd" LegalCopyright="Alexander Babaev" LegalTrademarks="Alexander Babaev" ProductName="LazScrollingText String Designer" ProductVersion="2.0"/>
</VersionInfo>
<BuildModes Count="2">
<Item1 Name="x64" Default="True"/>
<Item2 Name="x32">
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="lst_strdes_32"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<OtherUnitFiles Value="data"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<SyntaxMode Value="Delphi"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
<SmartLinkUnit Value="True"/>
<TargetCPU Value="i386"/>
<TargetOS Value="win32"/>
<Optimizations>
<OptimizationLevel Value="3"/>
</Optimizations>
</CodeGeneration>
<Linking>
<Debugging>
<StripSymbols Value="True"/>
<UseExternalDbgSyms Value="True"/>
</Debugging>
<LinkSmart Value="True"/>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerMessages>
<MsgFileName Value=""/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</Item2>
</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>
</RunParams>
<RequiredPackages Count="1">
<Item1>
<PackageName Value="LCL"/>
</Item1>
</RequiredPackages>
<Units Count="2">
<Unit0>
<Filename Value="lst_strdes.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="lst_strdes"/>
</Unit0>
<Unit1>
<Filename Value="data\MainForm.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="MainFrm"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="MainForm"/>
</Unit1>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="lst_strdes_64"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<OtherUnitFiles Value="data"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<SyntaxMode Value="Delphi"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
<SmartLinkUnit Value="True"/>
<TargetCPU Value="x86_64"/>
<TargetOS Value="win64"/>
<Optimizations>
<OptimizationLevel Value="3"/>
</Optimizations>
</CodeGeneration>
<Linking>
<Debugging>
<StripSymbols Value="True"/>
<UseExternalDbgSyms Value="True"/>
</Debugging>
<LinkSmart Value="True"/>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerMessages>
<MsgFileName Value=""/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<Exceptions Count="3">
<Item1>
<Name Value="EAbort"/>
</Item1>
<Item2>
<Name Value="ECodetoolError"/>
</Item2>
<Item3>
<Name Value="EFOpenError"/>
</Item3>
</Exceptions>
</Debugging>
</CONFIG>

9
ScrollingText/StringDesigner/lst_strdes.lpr Normal file
View File

@@ -0,0 +1,9 @@
program lst_strdes;
uses Interfaces, Forms, MainForm;
{$R *.res}
begin
Application.Title:= 'LazScrollingText String Designer';
Application.Initialize;
Application.CreateForm(TMainFrm, MainFrm);
Application.Run;
end.

119
ScrollingText/StringDesigner/~history/lst_strdes.lpi;1 Normal file
View File

@@ -0,0 +1,119 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<PathDelim Value="\"/>
<General>
<Flags>
<AlwaysBuild Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="LazScrollingText String Designer"/>
<UseAppBundle Value="False"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<Icon Value="0"/>
</General>
<i18n>
<EnableI18N LFM="False"/>
</i18n>
<VersionInfo>
<UseVersionInfo Value="True"/>
<AutoIncrementBuild Value="True"/>
<MajorVersionNr Value="2"/>
<RevisionNr Value="2"/>
<BuildNr Value="105"/>
<Language Value="0419"/>
<StringTable CompanyName="Alexander Babaev" FileDescription="LazScrollingText String Designer" InternalName="sd" LegalCopyright="Alexander Babaev" LegalTrademarks="Alexander Babaev" ProductName="LazScrollingText String Designer" ProductVersion="2.0"/>
</VersionInfo>
<BuildModes Count="2">
<Item1 Name="x64" Default="True"/>
<Item2 Name="x32">
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="project1"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerMessages>
<MsgFileName Value=""/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</Item2>
</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>
</RunParams>
<RequiredPackages Count="1">
<Item1>
<PackageName Value="LCL"/>
</Item1>
</RequiredPackages>
<Units Count="1">
<Unit0>
<Filename Value="lst_strdes.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="lst_strdes"/>
</Unit0>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="lst_strdes"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerMessages>
<MsgFileName Value=""/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<Exceptions Count="3">
<Item1>
<Name Value="EAbort"/>
</Item1>
<Item2>
<Name Value="ECodetoolError"/>
</Item2>
<Item3>
<Name Value="EFOpenError"/>
</Item3>
</Exceptions>
</Debugging>
</CONFIG>

155
ScrollingText/StringDesigner/~history/lst_strdes.lpi;2 Normal file
View File

@@ -0,0 +1,155 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<PathDelim Value="\"/>
<General>
<Flags>
<AlwaysBuild Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="LazScrollingText String Designer"/>
<UseAppBundle Value="False"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<Icon Value="0"/>
</General>
<i18n>
<EnableI18N LFM="False"/>
</i18n>
<VersionInfo>
<UseVersionInfo Value="True"/>
<AutoIncrementBuild Value="True"/>
<MajorVersionNr Value="2"/>
<RevisionNr Value="2"/>
<BuildNr Value="105"/>
<Language Value="0419"/>
<StringTable CompanyName="Alexander Babaev" FileDescription="LazScrollingText String Designer" InternalName="sd" LegalCopyright="Alexander Babaev" LegalTrademarks="Alexander Babaev" ProductName="LazScrollingText String Designer" ProductVersion="2.0"/>
</VersionInfo>
<BuildModes Count="2">
<Item1 Name="x64" Default="True"/>
<Item2 Name="x32">
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="lst_strdes_32"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<SyntaxMode Value="Delphi"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
<SmartLinkUnit Value="True"/>
<TargetCPU Value="i386"/>
<TargetOS Value="win32"/>
<Optimizations>
<OptimizationLevel Value="3"/>
</Optimizations>
</CodeGeneration>
<Linking>
<Debugging>
<StripSymbols Value="True"/>
<UseExternalDbgSyms Value="True"/>
</Debugging>
<LinkSmart Value="True"/>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerMessages>
<MsgFileName Value=""/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</Item2>
</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>
</RunParams>
<RequiredPackages Count="1">
<Item1>
<PackageName Value="LCL"/>
</Item1>
</RequiredPackages>
<Units Count="1">
<Unit0>
<Filename Value="lst_strdes.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="lst_strdes"/>
</Unit0>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="lst_strdes_64"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<SyntaxMode Value="Delphi"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
<SmartLinkUnit Value="True"/>
<TargetCPU Value="x86_64"/>
<TargetOS Value="win64"/>
<Optimizations>
<OptimizationLevel Value="3"/>
</Optimizations>
</CodeGeneration>
<Linking>
<Debugging>
<StripSymbols Value="True"/>
<UseExternalDbgSyms Value="True"/>
</Debugging>
<LinkSmart Value="True"/>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerMessages>
<MsgFileName Value=""/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<Exceptions Count="3">
<Item1>
<Name Value="EAbort"/>
</Item1>
<Item2>
<Name Value="ECodetoolError"/>
</Item2>
<Item3>
<Name Value="EFOpenError"/>
</Item3>
</Exceptions>
</Debugging>
</CONFIG>

163
ScrollingText/StringDesigner/~history/lst_strdes.lpi;3 Normal file
View File

@@ -0,0 +1,163 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<PathDelim Value="\"/>
<General>
<Flags>
<AlwaysBuild Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="LazScrollingText String Designer"/>
<UseAppBundle Value="False"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<Icon Value="0"/>
</General>
<i18n>
<EnableI18N LFM="False"/>
</i18n>
<VersionInfo>
<UseVersionInfo Value="True"/>
<AutoIncrementBuild Value="True"/>
<MajorVersionNr Value="2"/>
<RevisionNr Value="2"/>
<BuildNr Value="105"/>
<Language Value="0419"/>
<StringTable CompanyName="Alexander Babaev" FileDescription="LazScrollingText String Designer" InternalName="sd" LegalCopyright="Alexander Babaev" LegalTrademarks="Alexander Babaev" ProductName="LazScrollingText String Designer" ProductVersion="2.0"/>
</VersionInfo>
<BuildModes Count="2">
<Item1 Name="x64" Default="True"/>
<Item2 Name="x32">
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="lst_strdes_32"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<SyntaxMode Value="Delphi"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
<SmartLinkUnit Value="True"/>
<TargetCPU Value="i386"/>
<TargetOS Value="win32"/>
<Optimizations>
<OptimizationLevel Value="3"/>
</Optimizations>
</CodeGeneration>
<Linking>
<Debugging>
<StripSymbols Value="True"/>
<UseExternalDbgSyms Value="True"/>
</Debugging>
<LinkSmart Value="True"/>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerMessages>
<MsgFileName Value=""/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</Item2>
</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>
</RunParams>
<RequiredPackages Count="1">
<Item1>
<PackageName Value="LCL"/>
</Item1>
</RequiredPackages>
<Units Count="2">
<Unit0>
<Filename Value="lst_strdes.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="lst_strdes"/>
</Unit0>
<Unit1>
<Filename Value="data\MainForm.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="MainFrm"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="MainForm"/>
</Unit1>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="lst_strdes_64"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<OtherUnitFiles Value="data"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<SyntaxMode Value="Delphi"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
<SmartLinkUnit Value="True"/>
<TargetCPU Value="x86_64"/>
<TargetOS Value="win64"/>
<Optimizations>
<OptimizationLevel Value="3"/>
</Optimizations>
</CodeGeneration>
<Linking>
<Debugging>
<StripSymbols Value="True"/>
<UseExternalDbgSyms Value="True"/>
</Debugging>
<LinkSmart Value="True"/>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerMessages>
<MsgFileName Value=""/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<Exceptions Count="3">
<Item1>
<Name Value="EAbort"/>
</Item1>
<Item2>
<Name Value="ECodetoolError"/>
</Item2>
<Item3>
<Name Value="EFOpenError"/>
</Item3>
</Exceptions>
</Debugging>
</CONFIG>

163
ScrollingText/StringDesigner/~history/lst_strdes.lpi;4 Normal file
View File

@@ -0,0 +1,163 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<PathDelim Value="\"/>
<General>
<Flags>
<AlwaysBuild Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="LazScrollingText String Designer"/>
<UseAppBundle Value="False"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<Icon Value="0"/>
</General>
<i18n>
<EnableI18N LFM="False"/>
</i18n>
<VersionInfo>
<UseVersionInfo Value="True"/>
<AutoIncrementBuild Value="True"/>
<MajorVersionNr Value="2"/>
<RevisionNr Value="2"/>
<BuildNr Value="105"/>
<Language Value="0419"/>
<StringTable CompanyName="Alexander Babaev" FileDescription="LazScrollingText String Designer" InternalName="sd" LegalCopyright="Alexander Babaev" LegalTrademarks="Alexander Babaev" ProductName="LazScrollingText String Designer" ProductVersion="2.0"/>
</VersionInfo>
<BuildModes Count="2">
<Item1 Name="x64" Default="True"/>
<Item2 Name="x32">
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="lst_strdes_32"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<SyntaxMode Value="Delphi"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
<SmartLinkUnit Value="True"/>
<TargetCPU Value="i386"/>
<TargetOS Value="win32"/>
<Optimizations>
<OptimizationLevel Value="3"/>
</Optimizations>
</CodeGeneration>
<Linking>
<Debugging>
<StripSymbols Value="True"/>
<UseExternalDbgSyms Value="True"/>
</Debugging>
<LinkSmart Value="True"/>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerMessages>
<MsgFileName Value=""/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</Item2>
</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>
</RunParams>
<RequiredPackages Count="1">
<Item1>
<PackageName Value="LCL"/>
</Item1>
</RequiredPackages>
<Units Count="2">
<Unit0>
<Filename Value="lst_strdes.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="lst_strdes"/>
</Unit0>
<Unit1>
<Filename Value="data\MainForm.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="MainFrm"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="MainForm"/>
</Unit1>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="lst_strdes_64"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<OtherUnitFiles Value="data"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<SyntaxMode Value="Delphi"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
<SmartLinkUnit Value="True"/>
<TargetCPU Value="x86_64"/>
<TargetOS Value="win64"/>
<Optimizations>
<OptimizationLevel Value="3"/>
</Optimizations>
</CodeGeneration>
<Linking>
<Debugging>
<StripSymbols Value="True"/>
<UseExternalDbgSyms Value="True"/>
</Debugging>
<LinkSmart Value="True"/>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerMessages>
<MsgFileName Value=""/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<Exceptions Count="3">
<Item1>
<Name Value="EAbort"/>
</Item1>
<Item2>
<Name Value="ECodetoolError"/>
</Item2>
<Item3>
<Name Value="EFOpenError"/>
</Item3>
</Exceptions>
</Debugging>
</CONFIG>

164
ScrollingText/StringDesigner/~history/lst_strdes.lpi;5 Normal file
View File

@@ -0,0 +1,164 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<PathDelim Value="\"/>
<General>
<Flags>
<AlwaysBuild Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="LazScrollingText String Designer"/>
<UseAppBundle Value="False"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<Icon Value="0"/>
</General>
<i18n>
<EnableI18N LFM="False"/>
</i18n>
<VersionInfo>
<UseVersionInfo Value="True"/>
<AutoIncrementBuild Value="True"/>
<MajorVersionNr Value="2"/>
<RevisionNr Value="2"/>
<BuildNr Value="105"/>
<Language Value="0419"/>
<StringTable CompanyName="Alexander Babaev" FileDescription="LazScrollingText String Designer" InternalName="sd" LegalCopyright="Alexander Babaev" LegalTrademarks="Alexander Babaev" ProductName="LazScrollingText String Designer" ProductVersion="2.0"/>
</VersionInfo>
<BuildModes Count="2">
<Item1 Name="x64" Default="True"/>
<Item2 Name="x32">
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="lst_strdes_32"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<OtherUnitFiles Value="data"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<SyntaxMode Value="Delphi"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
<SmartLinkUnit Value="True"/>
<TargetCPU Value="i386"/>
<TargetOS Value="win32"/>
<Optimizations>
<OptimizationLevel Value="3"/>
</Optimizations>
</CodeGeneration>
<Linking>
<Debugging>
<StripSymbols Value="True"/>
<UseExternalDbgSyms Value="True"/>
</Debugging>
<LinkSmart Value="True"/>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerMessages>
<MsgFileName Value=""/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</Item2>
</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>
</RunParams>
<RequiredPackages Count="1">
<Item1>
<PackageName Value="LCL"/>
</Item1>
</RequiredPackages>
<Units Count="2">
<Unit0>
<Filename Value="lst_strdes.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="lst_strdes"/>
</Unit0>
<Unit1>
<Filename Value="data\MainForm.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="MainFrm"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="MainForm"/>
</Unit1>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="lst_strdes_64"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<OtherUnitFiles Value="data"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<SyntaxMode Value="Delphi"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
<SmartLinkUnit Value="True"/>
<TargetCPU Value="x86_64"/>
<TargetOS Value="win64"/>
<Optimizations>
<OptimizationLevel Value="3"/>
</Optimizations>
</CodeGeneration>
<Linking>
<Debugging>
<StripSymbols Value="True"/>
<UseExternalDbgSyms Value="True"/>
</Debugging>
<LinkSmart Value="True"/>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerMessages>
<MsgFileName Value=""/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<Exceptions Count="3">
<Item1>
<Name Value="EAbort"/>
</Item1>
<Item2>
<Name Value="ECodetoolError"/>
</Item2>
<Item3>
<Name Value="EFOpenError"/>
</Item3>
</Exceptions>
</Debugging>
</CONFIG>

164
ScrollingText/StringDesigner/~history/lst_strdes.lpi;6 Normal file
View File

@@ -0,0 +1,164 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<PathDelim Value="\"/>
<General>
<Flags>
<AlwaysBuild Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="LazScrollingText String Designer"/>
<UseAppBundle Value="False"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<Icon Value="0"/>
</General>
<i18n>
<EnableI18N LFM="False"/>
</i18n>
<VersionInfo>
<UseVersionInfo Value="True"/>
<AutoIncrementBuild Value="True"/>
<MajorVersionNr Value="2"/>
<RevisionNr Value="2"/>
<BuildNr Value="106"/>
<Language Value="0419"/>
<StringTable CompanyName="Alexander Babaev" FileDescription="LazScrollingText String Designer" InternalName="sd" LegalCopyright="Alexander Babaev" LegalTrademarks="Alexander Babaev" ProductName="LazScrollingText String Designer" ProductVersion="2.0"/>
</VersionInfo>
<BuildModes Count="2">
<Item1 Name="x64" Default="True"/>
<Item2 Name="x32">
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="lst_strdes_32"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<OtherUnitFiles Value="data"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<SyntaxMode Value="Delphi"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
<SmartLinkUnit Value="True"/>
<TargetCPU Value="i386"/>
<TargetOS Value="win32"/>
<Optimizations>
<OptimizationLevel Value="3"/>
</Optimizations>
</CodeGeneration>
<Linking>
<Debugging>
<StripSymbols Value="True"/>
<UseExternalDbgSyms Value="True"/>
</Debugging>
<LinkSmart Value="True"/>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerMessages>
<MsgFileName Value=""/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</Item2>
</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>
</RunParams>
<RequiredPackages Count="1">
<Item1>
<PackageName Value="LCL"/>
</Item1>
</RequiredPackages>
<Units Count="2">
<Unit0>
<Filename Value="lst_strdes.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="lst_strdes"/>
</Unit0>
<Unit1>
<Filename Value="data\MainForm.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="MainFrm"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="MainForm"/>
</Unit1>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="lst_strdes_64"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<OtherUnitFiles Value="data"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<SyntaxMode Value="Delphi"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
<SmartLinkUnit Value="True"/>
<TargetCPU Value="x86_64"/>
<TargetOS Value="win64"/>
<Optimizations>
<OptimizationLevel Value="3"/>
</Optimizations>
</CodeGeneration>
<Linking>
<Debugging>
<StripSymbols Value="True"/>
<UseExternalDbgSyms Value="True"/>
</Debugging>
<LinkSmart Value="True"/>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerMessages>
<MsgFileName Value=""/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<Exceptions Count="3">
<Item1>
<Name Value="EAbort"/>
</Item1>
<Item2>
<Name Value="ECodetoolError"/>
</Item2>
<Item3>
<Name Value="EFOpenError"/>
</Item3>
</Exceptions>
</Debugging>
</CONFIG>

164
ScrollingText/StringDesigner/~history/lst_strdes.lpi;7 Normal file
View File

@@ -0,0 +1,164 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<PathDelim Value="\"/>
<General>
<Flags>
<AlwaysBuild Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="LazScrollingText String Designer"/>
<UseAppBundle Value="False"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<Icon Value="0"/>
</General>
<i18n>
<EnableI18N LFM="False"/>
</i18n>
<VersionInfo>
<UseVersionInfo Value="True"/>
<AutoIncrementBuild Value="True"/>
<MajorVersionNr Value="2"/>
<RevisionNr Value="2"/>
<BuildNr Value="106"/>
<Language Value="0419"/>
<StringTable CompanyName="Alexander Babaev" FileDescription="LazScrollingText String Designer" InternalName="sd" LegalCopyright="Alexander Babaev" LegalTrademarks="Alexander Babaev" ProductName="LazScrollingText String Designer" ProductVersion="2.0"/>
</VersionInfo>
<BuildModes Count="2">
<Item1 Name="x64" Default="True"/>
<Item2 Name="x32">
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="lst_strdes_32"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<OtherUnitFiles Value="data"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<SyntaxMode Value="Delphi"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
<SmartLinkUnit Value="True"/>
<TargetCPU Value="i386"/>
<TargetOS Value="win32"/>
<Optimizations>
<OptimizationLevel Value="3"/>
</Optimizations>
</CodeGeneration>
<Linking>
<Debugging>
<StripSymbols Value="True"/>
<UseExternalDbgSyms Value="True"/>
</Debugging>
<LinkSmart Value="True"/>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerMessages>
<MsgFileName Value=""/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</Item2>
</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>
</RunParams>
<RequiredPackages Count="1">
<Item1>
<PackageName Value="LCL"/>
</Item1>
</RequiredPackages>
<Units Count="2">
<Unit0>
<Filename Value="lst_strdes.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="lst_strdes"/>
</Unit0>
<Unit1>
<Filename Value="data\MainForm.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="MainFrm"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="MainForm"/>
</Unit1>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="lst_strdes_64"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<OtherUnitFiles Value="data"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<SyntaxMode Value="Delphi"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
<SmartLinkUnit Value="True"/>
<TargetCPU Value="x86_64"/>
<TargetOS Value="win64"/>
<Optimizations>
<OptimizationLevel Value="3"/>
</Optimizations>
</CodeGeneration>
<Linking>
<Debugging>
<StripSymbols Value="True"/>
<UseExternalDbgSyms Value="True"/>
</Debugging>
<LinkSmart Value="True"/>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerMessages>
<MsgFileName Value=""/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<Exceptions Count="3">
<Item1>
<Name Value="EAbort"/>
</Item1>
<Item2>
<Name Value="ECodetoolError"/>
</Item2>
<Item3>
<Name Value="EFOpenError"/>
</Item3>
</Exceptions>
</Debugging>
</CONFIG>

164
ScrollingText/StringDesigner/~history/lst_strdes.lpi;8 Normal file
View File

@@ -0,0 +1,164 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<PathDelim Value="\"/>
<General>
<Flags>
<AlwaysBuild Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="LazScrollingText String Designer"/>
<UseAppBundle Value="False"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<Icon Value="0"/>
</General>
<i18n>
<EnableI18N LFM="False"/>
</i18n>
<VersionInfo>
<UseVersionInfo Value="True"/>
<AutoIncrementBuild Value="True"/>
<MajorVersionNr Value="2"/>
<RevisionNr Value="2"/>
<BuildNr Value="106"/>
<Language Value="0419"/>
<StringTable CompanyName="Alexander Babaev" FileDescription="LazScrollingText String Designer" InternalName="sd" LegalCopyright="Alexander Babaev" LegalTrademarks="Alexander Babaev" ProductName="LazScrollingText String Designer" ProductVersion="2.0"/>
</VersionInfo>
<BuildModes Count="2">
<Item1 Name="x64" Default="True"/>
<Item2 Name="x32">
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="lst_strdes_32"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<OtherUnitFiles Value="data"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<SyntaxMode Value="Delphi"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
<SmartLinkUnit Value="True"/>
<TargetCPU Value="i386"/>
<TargetOS Value="win32"/>
<Optimizations>
<OptimizationLevel Value="3"/>
</Optimizations>
</CodeGeneration>
<Linking>
<Debugging>
<StripSymbols Value="True"/>
<UseExternalDbgSyms Value="True"/>
</Debugging>
<LinkSmart Value="True"/>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerMessages>
<MsgFileName Value=""/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</Item2>
</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>
</RunParams>
<RequiredPackages Count="1">
<Item1>
<PackageName Value="LCL"/>
</Item1>
</RequiredPackages>
<Units Count="2">
<Unit0>
<Filename Value="lst_strdes.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="lst_strdes"/>
</Unit0>
<Unit1>
<Filename Value="data\MainForm.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="MainFrm"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="MainForm"/>
</Unit1>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="lst_strdes_64"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<OtherUnitFiles Value="data"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<SyntaxMode Value="Delphi"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
<SmartLinkUnit Value="True"/>
<TargetCPU Value="x86_64"/>
<TargetOS Value="win64"/>
<Optimizations>
<OptimizationLevel Value="3"/>
</Optimizations>
</CodeGeneration>
<Linking>
<Debugging>
<StripSymbols Value="True"/>
<UseExternalDbgSyms Value="True"/>
</Debugging>
<LinkSmart Value="True"/>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerMessages>
<MsgFileName Value=""/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<Exceptions Count="3">
<Item1>
<Name Value="EAbort"/>
</Item1>
<Item2>
<Name Value="ECodetoolError"/>
</Item2>
<Item3>
<Name Value="EFOpenError"/>
</Item3>
</Exceptions>
</Debugging>
</CONFIG>

20
ScrollingText/StringDesigner/~history/lst_strdes.lpr;1 Normal file
View File

@@ -0,0 +1,20 @@
program lst_strdes;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms;
{$R *.res}
begin
Application.Title:='LazScrollingText String Designer';
RequireDerivedFormResource := True;
Application.Initialize;
Application.Run;
end.

9
ScrollingText/StringDesigner/~history/lst_strdes.lpr;2 Normal file
View File

@@ -0,0 +1,9 @@
program lst_strdes;
uses Interfaces, Forms, MainForm;
{$R *.res}
begin
Application.Title:= 'LazScrollingText String Designer';
Application.Initialize;
Application.CreateForm(TMainFrm, MainFrm);
Application.Run;
end.

17
ScrollingText/StringDesigner/~history/lst_strdes.lps;1 Normal file
View File

@@ -0,0 +1,17 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectSession>
<PathDelim Value="\"/>
<Version Value="9"/>
<BuildModes Active="x64"/>
<Units Count="1">
<Unit0>
<Filename Value="lst_strdes.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="lst_strdes"/>
<UsageCount Value="20"/>
</Unit0>
</Units>
<JumpHistory Count="0" HistoryIndex="-1"/>
</ProjectSession>
</CONFIG>

76
ScrollingText/StringDesigner/~history/lst_strdes.lps;10 Normal file
View File

@@ -0,0 +1,76 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectSession>
<PathDelim Value="\"/>
<Version Value="9"/>
<BuildModes Active="x32"/>
<Units Count="2">
<Unit0>
<Filename Value="lst_strdes.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="lst_strdes"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="25" Y="2"/>
<UsageCount Value="20"/>
<DefaultSyntaxHighlighter Value="Delphi"/>
</Unit0>
<Unit1>
<Filename Value="data\MainForm.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="MainFrm"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="MainForm"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="0"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="5" Y="27"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
</Units>
<General>
<ActiveWindowIndexAtStart Value="0"/>
</General>
<JumpHistory Count="9" HistoryIndex="8">
<Position1>
<Filename Value="data\MainForm.pas"/>
<Caret Line="14" Column="5" TopLine="1"/>
</Position1>
<Position2>
<Filename Value="data\MainForm.pas"/>
<Caret Line="18" Column="5" TopLine="1"/>
</Position2>
<Position3>
<Filename Value="data\MainForm.pas"/>
<Caret Line="19" Column="5" TopLine="1"/>
</Position3>
<Position4>
<Filename Value="data\MainForm.pas"/>
<Caret Line="21" Column="5" TopLine="1"/>
</Position4>
<Position5>
<Filename Value="data\MainForm.pas"/>
<Caret Line="22" Column="5" TopLine="1"/>
</Position5>
<Position6>
<Filename Value="data\MainForm.pas"/>
<Caret Line="23" Column="5" TopLine="1"/>
</Position6>
<Position7>
<Filename Value="data\MainForm.pas"/>
<Caret Line="24" Column="5" TopLine="1"/>
</Position7>
<Position8>
<Filename Value="data\MainForm.pas"/>
<Caret Line="25" Column="5" TopLine="1"/>
</Position8>
<Position9>
<Filename Value="data\MainForm.pas"/>
<Caret Line="26" Column="5" TopLine="1"/>
</Position9>
</JumpHistory>
</ProjectSession>
</CONFIG>

80
ScrollingText/StringDesigner/~history/lst_strdes.lps;11 Normal file
View File

@@ -0,0 +1,80 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectSession>
<PathDelim Value="\"/>
<Version Value="9"/>
<BuildModes Active="x32"/>
<Units Count="2">
<Unit0>
<Filename Value="lst_strdes.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="lst_strdes"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="25" Y="2"/>
<UsageCount Value="20"/>
<DefaultSyntaxHighlighter Value="Delphi"/>
</Unit0>
<Unit1>
<Filename Value="data\MainForm.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="MainFrm"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="MainForm"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="0"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="5" Y="28"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
</Units>
<General>
<ActiveWindowIndexAtStart Value="0"/>
</General>
<JumpHistory Count="10" HistoryIndex="9">
<Position1>
<Filename Value="data\MainForm.pas"/>
<Caret Line="14" Column="5" TopLine="1"/>
</Position1>
<Position2>
<Filename Value="data\MainForm.pas"/>
<Caret Line="18" Column="5" TopLine="1"/>
</Position2>
<Position3>
<Filename Value="data\MainForm.pas"/>
<Caret Line="19" Column="5" TopLine="1"/>
</Position3>
<Position4>
<Filename Value="data\MainForm.pas"/>
<Caret Line="21" Column="5" TopLine="1"/>
</Position4>
<Position5>
<Filename Value="data\MainForm.pas"/>
<Caret Line="22" Column="5" TopLine="1"/>
</Position5>
<Position6>
<Filename Value="data\MainForm.pas"/>
<Caret Line="23" Column="5" TopLine="1"/>
</Position6>
<Position7>
<Filename Value="data\MainForm.pas"/>
<Caret Line="24" Column="5" TopLine="1"/>
</Position7>
<Position8>
<Filename Value="data\MainForm.pas"/>
<Caret Line="25" Column="5" TopLine="1"/>
</Position8>
<Position9>
<Filename Value="data\MainForm.pas"/>
<Caret Line="26" Column="5" TopLine="1"/>
</Position9>
<Position10>
<Filename Value="data\MainForm.pas"/>
<Caret Line="27" Column="5" TopLine="1"/>
</Position10>
</JumpHistory>
</ProjectSession>
</CONFIG>

17
ScrollingText/StringDesigner/~history/lst_strdes.lps;2 Normal file
View File

@@ -0,0 +1,17 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectSession>
<PathDelim Value="\"/>
<Version Value="9"/>
<BuildModes Active="x32"/>
<Units Count="1">
<Unit0>
<Filename Value="lst_strdes.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="lst_strdes"/>
<UsageCount Value="20"/>
</Unit0>
</Units>
<JumpHistory Count="0" HistoryIndex="-1"/>
</ProjectSession>
</CONFIG>

17
ScrollingText/StringDesigner/~history/lst_strdes.lps;3 Normal file
View File

@@ -0,0 +1,17 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectSession>
<PathDelim Value="\"/>
<Version Value="9"/>
<BuildModes Active="x64"/>
<Units Count="1">
<Unit0>
<Filename Value="lst_strdes.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="lst_strdes"/>
<UsageCount Value="20"/>
</Unit0>
</Units>
<JumpHistory Count="0" HistoryIndex="-1"/>
</ProjectSession>
</CONFIG>

39
ScrollingText/StringDesigner/~history/lst_strdes.lps;4 Normal file
View File

@@ -0,0 +1,39 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectSession>
<PathDelim Value="\"/>
<Version Value="9"/>
<BuildModes Active="x64"/>
<Units Count="2">
<Unit0>
<Filename Value="lst_strdes.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="lst_strdes"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="5" Y="8"/>
<UsageCount Value="20"/>
<DefaultSyntaxHighlighter Value="Delphi"/>
</Unit0>
<Unit1>
<Filename Value="data\MainForm.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="MainFrm"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="MainForm"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="0"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="5" Y="14"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
</Units>
<General>
<ActiveWindowIndexAtStart Value="0"/>
</General>
<JumpHistory Count="0" HistoryIndex="-1"/>
</ProjectSession>
</CONFIG>

39
ScrollingText/StringDesigner/~history/lst_strdes.lps;5 Normal file
View File

@@ -0,0 +1,39 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectSession>
<PathDelim Value="\"/>
<Version Value="9"/>
<BuildModes Active="x32"/>
<Units Count="2">
<Unit0>
<Filename Value="lst_strdes.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="lst_strdes"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="5" Y="8"/>
<UsageCount Value="20"/>
<DefaultSyntaxHighlighter Value="Delphi"/>
</Unit0>
<Unit1>
<Filename Value="data\MainForm.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="MainFrm"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="MainForm"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="0"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="5" Y="14"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
</Units>
<General>
<ActiveWindowIndexAtStart Value="0"/>
</General>
<JumpHistory Count="0" HistoryIndex="-1"/>
</ProjectSession>
</CONFIG>

46
ScrollingText/StringDesigner/~history/lst_strdes.lps;6 Normal file
View File

@@ -0,0 +1,46 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectSession>
<PathDelim Value="\"/>
<Version Value="9"/>
<BuildModes Active="x32"/>
<Units Count="2">
<Unit0>
<Filename Value="lst_strdes.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="lst_strdes"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="25" Y="2"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<DefaultSyntaxHighlighter Value="Delphi"/>
</Unit0>
<Unit1>
<Filename Value="data\MainForm.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="MainFrm"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="MainForm"/>
<EditorIndex Value="0"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="5" Y="14"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
</Units>
<General>
<ActiveWindowIndexAtStart Value="0"/>
</General>
<JumpHistory Count="1" HistoryIndex="0">
<Position1>
<Filename Value="lst_strdes.lpr"/>
<Caret Line="8" Column="5" TopLine="1"/>
</Position1>
</JumpHistory>
</ProjectSession>
</CONFIG>

46
ScrollingText/StringDesigner/~history/lst_strdes.lps;7 Normal file
View File

@@ -0,0 +1,46 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectSession>
<PathDelim Value="\"/>
<Version Value="9"/>
<BuildModes Active="x32"/>
<Units Count="2">
<Unit0>
<Filename Value="lst_strdes.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="lst_strdes"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="25" Y="2"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<DefaultSyntaxHighlighter Value="Delphi"/>
</Unit0>
<Unit1>
<Filename Value="data\MainForm.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="MainFrm"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="MainForm"/>
<EditorIndex Value="0"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="5" Y="14"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
</Units>
<General>
<ActiveWindowIndexAtStart Value="0"/>
</General>
<JumpHistory Count="1" HistoryIndex="0">
<Position1>
<Filename Value="lst_strdes.lpr"/>
<Caret Line="8" Column="5" TopLine="1"/>
</Position1>
</JumpHistory>
</ProjectSession>
</CONFIG>

39
ScrollingText/StringDesigner/~history/lst_strdes.lps;8 Normal file
View File

@@ -0,0 +1,39 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectSession>
<PathDelim Value="\"/>
<Version Value="9"/>
<BuildModes Active="x32"/>
<Units Count="2">
<Unit0>
<Filename Value="lst_strdes.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="lst_strdes"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="25" Y="2"/>
<UsageCount Value="20"/>
<DefaultSyntaxHighlighter Value="Delphi"/>
</Unit0>
<Unit1>
<Filename Value="data\MainForm.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="MainFrm"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="MainForm"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="0"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="5" Y="14"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
</Units>
<General>
<ActiveWindowIndexAtStart Value="0"/>
</General>
<JumpHistory Count="0" HistoryIndex="-1"/>
</ProjectSession>
</CONFIG>

52
ScrollingText/StringDesigner/~history/lst_strdes.lps;9 Normal file
View File

@@ -0,0 +1,52 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectSession>
<PathDelim Value="\"/>
<Version Value="9"/>
<BuildModes Active="x32"/>
<Units Count="2">
<Unit0>
<Filename Value="lst_strdes.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="lst_strdes"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="25" Y="2"/>
<UsageCount Value="20"/>
<DefaultSyntaxHighlighter Value="Delphi"/>
</Unit0>
<Unit1>
<Filename Value="data\MainForm.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="MainFrm"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="MainForm"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="0"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="5" Y="21"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
</Units>
<General>
<ActiveWindowIndexAtStart Value="0"/>
</General>
<JumpHistory Count="3" HistoryIndex="2">
<Position1>
<Filename Value="data\MainForm.pas"/>
<Caret Line="14" Column="5" TopLine="1"/>
</Position1>
<Position2>
<Filename Value="data\MainForm.pas"/>
<Caret Line="18" Column="5" TopLine="1"/>
</Position2>
<Position3>
<Filename Value="data\MainForm.pas"/>
<Caret Line="19" Column="5" TopLine="1"/>
</Position3>
</JumpHistory>
</ProjectSession>
</CONFIG>

229
ScrollingText/scrollingtext.pas Normal file
View File

@@ -0,0 +1,229 @@
unit scrollingtext;
{$mode delphi}
interface
uses Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ExtCtrls, LCLIntf, strutils;
function SearchAndReplaceStr(const AStr, ASearchStr, AReplaceStr: AnsiString): string; stdcall;
function FormatFromList(const AFrmtdStr: string; const AArgs: TStrings): string; stdcall;
type TScrollingText = class(TGraphicControl)
private
FActive: boolean;
FActiveLine: integer;
FBuffer: TBitmap;
FEndLine: integer;
FLineHeight: integer;
FLines: TStrings;
FNumLines: integer;
FOffset: integer;
FStartLine: integer;
FStepSize: integer;
FTimer: TTimer;
FReplaceList: TStrings;
function ActiveLineIsURL: boolean;
procedure DoTimer(Sender: TObject);
procedure Init;
procedure DrawScrollingText(Sender: TObject);
function GetFont (var VString: string): TFont;
protected
procedure SetActive(const AValue: boolean);
procedure DoOnChangeBounds; override;
procedure MouseDown(Button: TMouseButton; Shift:TShiftState; X,Y:Integer); override;
procedure MouseMove(Shift: TShiftState; X,Y: Integer); override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
property Active: boolean read FActive write SetActive;
property Align;
property Height;
property Left;
property Lines: TStrings read FLines write FLines;
property ReplaceList: TStrings read FReplaceList write FReplaceList;
property Top;
property Width;
end;
implementation
function SearchAndReplaceStr(const AStr, ASearchStr, AReplaceStr: AnsiString): string;
var CurrDelim, NextDelim: Integer;
ElemName, s: string;
begin
s:= '';
CurrDelim:= 1;
repeat
NextDelim:= PosEx(ASearchStr, AStr, CurrDelim);
if NextDelim = 0 then
NextDelim:= Length(AStr) + 1;
ElemName:= Copy(AStr, CurrDelim, NextDelim - CurrDelim);
if not (NextDelim > Length(AStr)) then
s:= s + ElemName + AReplaceStr
else
s:= s + ElemName;
CurrDelim:= NextDelim + Length(ASearchStr);
until CurrDelim > Length(AStr);
Result:= s;
end;
function FormatFromList(const AFrmtdStr: string; const AArgs: TStrings): string;
var i: integer;
s: string;
begin
s:= AFrmtdStr;
if AArgs.Count > 0 then
for i:= 0 to AArgs.Count - 1 do
s:= SearchAndReplaceStr(s, AArgs.Names[i], AArgs.ValueFromIndex[i]);
Result:= s;
end;
function TScrollingText.ActiveLineIsURL: boolean;
begin
if (FActiveLine > 0) and (FActiveLine < FLines.Count) then
Result:= (Pos('http://', FLines[FActiveLine]) = 1) or (Pos('https://', FLines[FActiveLine]) = 1)
else
Result:= False;
end;
procedure TScrollingText.DoTimer(Sender: TObject);
var w, i, j, k: integer;
s, t, FS: string;
begin
if not Active then
Exit;
Dec(FOffset, FStepSize);
if FOffSet < 0 then
FStartLine:= -FOffset div FLineHeight
else
FStartLine:= 0;
FEndLine:= FStartLine + FNumLines + 1;
if FEndLine > FLines.Count - 1 then
FEndLine:= FLines.Count - 1;
FBuffer.Canvas.FillRect(Rect(0, 0, FBuffer.Width, FBuffer.Height));
for i:= FEndLine downto FStartLine do
begin
s:= Trim(FLines[i]);
FBuffer.Canvas.Font.Style:= [];
FBuffer.Canvas.Font.Color:= clBlack;
if Length(s) > 0 then
begin
if (Pos('http://', s) = 1) or (Pos('https://', s) = 1) then
begin
if i = FActiveLine then
begin
FBuffer.Canvas.Font.Style:= [fsUnderline];
FBuffer.Canvas.Font.Color:= clRed;
end
else
FBuffer.Canvas.Font.Color:= clBlue;
end
else
FBuffer.Canvas.Font:= GetFont(s);
s:= FormatFromList(s, ReplaceList);
w:= FBuffer.Canvas.TextWidth(s);
FBuffer.Canvas.TextOut((FBuffer.Width - w) div 2, FOffset + i * FLineHeight, s);
end;
end;
if FStartLine > FLines.Count - 1 then
FOffset:= FBuffer.Height;
Invalidate;
end;
procedure TScrollingText.SetActive(const AValue: boolean);
begin
FActive:= AValue;
if FActive then
Init;
FTimer.Enabled:= Active;
end;
procedure TScrollingText.Init;
begin
FBuffer.Width:= Width;
FBuffer.Height:= Height;
FLineHeight:= FBuffer.Canvas.TextHeight('X');
FNumLines:= FBuffer.Height div FLineHeight;
if FOffset = -1 then
FOffset:= FBuffer.Height;
with FBuffer.Canvas do
begin
Brush.Color:= clWhite;
Brush.Style:= bsSolid;
FillRect(0, 0, Width, Height);
end;
end;
procedure TScrollingText.DrawScrollingText(Sender: TObject);
begin
if Active then
Canvas.Draw(0, 0, FBuffer);
end;
procedure TScrollingText.DoOnChangeBounds;
begin
inherited DoOnChangeBounds;
Init;
end;
procedure TScrollingText.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
inherited MouseDown(Button, Shift, X, Y);
if ActiveLineIsURL then
OpenURL(FLines[FActiveLine]);
end;
procedure TScrollingText.MouseMove(Shift: TShiftState; X, Y: Integer);
begin
inherited MouseMove(Shift, X, Y);
FActiveLine:= (Y - FOffset) div FLineHeight;
Cursor:= crDefault;
if (FActiveLine >= 0) and (FActiveLine < FLines.Count) and ActiveLineIsURL then
Cursor:= crHandPoint;
end;
function TScrollingText.GetFont (var VString: string): TFont;
var FS, FSt: string;
i, EndPos: integer;
F: TFont;
begin
EndPos:= 0;
F:= TFont.Create;
F.Assign(Font);
if (LowerCase(Copy(VString, 0, 5)) = '{font') then
begin
EndPos:= Pos('}', VString) + 1;
FS:= LowerCase(Copy(VString, 0, EndPos-1));
i:= Pos('name:', FS);
if (i > 0) then
F.Name:= Copy(FS, i+5, PosEx(';', FS, i+5)-i-5);
i:= Pos('size:', FS);
if (i > 0) then
F.Size:= StrToInt(Copy(FS, i+5, PosEx(';', FS, i+5)-i-5));
i:= Pos('style:', FS);
if (i > 0) then
begin
FSt:= Copy(FS, i+6, PosEx(';', FS, i+6)-i-6);
if (Pos('bold', LowerCase(FSt)) > 0) then
F.Style:= F.Style + [fsBold];
if (Pos('italic', LowerCase(FSt)) > 0) then
F.Style:= F.Style + [fsItalic];
if (Pos('underline', LowerCase(FSt)) > 0) then
F.Style:= F.Style + [fsUnderline];
if (Pos('strikeout', LowerCase(FSt)) > 0) then
F.Style:= F.Style + [fsStrikeOut];
end;
end;
VString:= Copy(VString, EndPos, Length(VString)-EndPos+1);
Result:= F;
end;
constructor TScrollingText.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
ControlStyle:= ControlStyle + [csOpaque];
OnPaint:= DrawScrollingText;
FLines:= TStringList.Create;
FReplaceList:= TStringList.Create;
FTimer:= TTimer.Create(nil);
FTimer.OnTimer:= DoTimer;
FTimer.Interval:= 30;
FBuffer:= TBitmap.Create;
FStepSize:= 1;
FStartLine:= 0;
FOffset:= -1;
Width:= 200;
Height:= 200;
end;
destructor TScrollingText.Destroy;
begin
FLines.Free;
FReplaceList.Free;
FTimer.Free;
FBuffer.Free;
inherited Destroy;
end;
end.

13
ScrollingText/st_registerit.pas Normal file
View File

@@ -0,0 +1,13 @@
unit st_registerit;
{$mode delphi}
{$codepage UTF8}
interface
uses Classes, SysUtils, scrollingtext, LResources;
procedure Register;
implementation
procedure Register;
begin
{$I scrollingtext_icon.lrs}
RegisterComponents('Misc',[TScrollingText]);
end;
end.