pascal/lina-components
1
0
Fork 0
mirror of https://bitbucket.org/Dennis07/lina-components.git synced 2024-11-13 16:20:24 +02:00
Code Issues Actions Releases Activity

Version 1.0 DEV 1.17d

Browse Source 
Signed-off-by: dennis07 <den.goehlert@t-online.de>
This commit is contained in:
dennis07 2018-02-27 20:06:09 +01:00
parent 8b735b1af5
commit ce997cdbef
15 changed files with 516 additions and 124 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
Package/Delphi_10_2/LINA_D_10_2.dproj.local
View File

@ -15,41 +15,41 @@
<Transaction>1899.12.30 00:00:00.000.546,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uFrmCtrls.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.584,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uVirtObj.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.650,C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uSysCtrls.pas=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uBattery.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.633,=C:\Users\Dennis\Documents\RAD Studio\Projekte\LinaComponents\uLocalMgr.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.648,=C:\Users\Dennis\Documents\RAD Studio\Projekte\LinaComponents\uScriptMgr.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.555,=C:\Users\Dennis\Documents\RAD Studio\Projekte\LinaComponents\uBase.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.566,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uScriptMgr.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.318,=vcl.dcp</Transaction>
<Transaction>1899.12.30 00:00:00.000.555,=C:\Users\Dennis\Documents\RAD Studio\Projekte\LinaComponents\uBase.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.633,=C:\Users\Dennis\Documents\RAD Studio\Projekte\LinaComponents\uLocalMgr.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.537,C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Package\Delphi_XE5\Untitled1.htm=C:\Users\Dennis G\Documents\CodeQuality.htm</Transaction>
<Transaction>1899.12.30 00:00:00.000.075,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uCalc.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.672,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\uFrmCtrls.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.318,=vcl.dcp</Transaction>
<Transaction>1899.12.30 00:00:00.000.325,=dbrtl.dcp</Transaction>
<Transaction>1899.12.30 00:00:00.000.648,=C:\Users\Dennis\Documents\RAD Studio\Projekte\LinaComponents\uScriptMgr.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.143,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Package\Delphi_XE5\Untitled1.htm</Transaction>
<Transaction>1899.12.30 00:00:00.000.535,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uFileTools.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.938,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\Config.inc</Transaction>
<Transaction>1899.12.30 00:00:00.000.934,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\Config.inc</Transaction>
<Transaction>1899.12.30 00:00:00.000.518,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uBattery.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.675,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Package\Delphi_XE5\Unit1.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.733,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\Config.inc</Transaction>
<Transaction>1899.12.30 00:00:00.000.971,=IndySystem.dcp</Transaction>
<Transaction>1899.12.30 00:00:00.000.592,=C:\Users\Dennis\Documents\RAD Studio\Projekte\LinaComponents\uFileTools.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.518,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uBattery.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.579,C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Package\Delphi_XE5\LINA_D_XE5.dproj=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Package\Delphi_10_2\LINA_D_10_2.dproj</Transaction>
<Transaction>1899.12.30 00:00:00.000.508,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uBase.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.045,=IndyProtocols.dcp</Transaction>
<Transaction>1899.12.30 00:00:00.000.577,=C:\Users\Dennis\Documents\RAD Studio\Projekte\LinaComponents\uBattery.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.857,=PascalScript_Core_D19.dcp</Transaction>
<Transaction>1899.12.30 00:00:00.000.799,=PascalScript_Core_D19.dcp</Transaction>
<Transaction>1899.12.30 00:00:00.000.674,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Package\Delphi_XE5\Unit1.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.577,=C:\Users\Dennis\Documents\RAD Studio\Projekte\LinaComponents\uBattery.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.525,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uCrypt.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.686,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\uSysTools.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.556,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uLocalMgr.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.932,C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Package\Delphi_XE5\uFileCtrls.pas=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Package\Delphi_XE5\Unit1.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.118,=IndyCore.dcp</Transaction>
<Transaction>1899.12.30 00:00:00.000.582,C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uWebCtrls.pas=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Package\Delphi_XE5\Unit1.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.791,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Package\Delphi_XE5\Unit1.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.674,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Package\Delphi_XE5\Unit1.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.412,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Package\Delphi_XE5\Unit1.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.837,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Package\Delphi_XE5\Unit1.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.971,=IndySystem.dcp</Transaction>
<Transaction>1899.12.30 00:00:00.000.576,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uSysTools.pas</Transaction>
<Transaction>2017.11.19 05:20:24.733,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\Config.inc</Transaction>
<Transaction>1899.12.30 00:00:00.000.791,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Package\Delphi_XE5\Unit1.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.675,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Package\Delphi_XE5\Unit1.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\..\LinaComponents"/>
@ -79,9 +79,6 @@
<File Path="..\..\Source\uSysTools.pas"/>
<File Path="..\..\Source\uVirtObj.pas"/>
<File Path="..\..\Source\uWebCtrls.pas"/>
<File Path="IndyCore.dcp"/>
<File Path="IndyProtocols.dcp"/>
<File Path="IndySystem.dcp"/>
<File Path="rtl.dcp"/>
<File Path="vcl.dcp"/>
<File Path="vclx.dcp"/>

49
Package/Delphi_XE5/LINA_D_XE5.dproj.local
View File

@ -2,53 +2,53 @@
<BorlandProject>
<Transactions>
<Transaction>1899.12.30 00:00:00.000.508,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uBase.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.592,=C:\Users\Dennis\Documents\RAD Studio\Projekte\LinaComponents\uFileTools.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.576,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uSysTools.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.518,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uBattery.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.650,C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uBattery.pas=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uSysCtrls.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.204,C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Package\Delphi_XE5\uFileCtrls.pas=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uFileCtrls.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.411,C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Package\Delphi_XE5\Unit1.pas=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uAdvCtrls.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.675,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Package\Delphi_XE5\Unit1.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.681,C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Resource\Lina.rc=</Transaction>
<Transaction>1899.12.30 00:00:00.000.325,=dbrtl.dcp</Transaction>
<Transaction>1899.12.30 00:00:00.000.809,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Resource\Lina.rc</Transaction>
<Transaction>1899.12.30 00:00:00.000.592,=C:\Users\Dennis\Documents\RAD Studio\Projekte\LinaComponents\uFileTools.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.934,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\Config.inc</Transaction>
<Transaction>1899.12.30 00:00:00.000.465,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\Config.inc</Transaction>
<Transaction>1899.12.30 00:00:00.000.938,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\Config.inc</Transaction>
<Transaction>1899.12.30 00:00:00.000.621,=C:\Users\Dennis\Documents\RAD Studio\Projekte\LinaComponents\uLinaTest.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.325,=dbrtl.dcp</Transaction>
<Transaction>1899.12.30 00:00:00.000.411,C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Package\Delphi_XE5\Unit1.pas=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uAdvCtrls.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.674,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Package\Delphi_XE5\Unit1.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.204,C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Package\Delphi_XE5\uFileCtrls.pas=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uFileCtrls.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.809,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Resource\Lina.rc</Transaction>
<Transaction>1899.12.30 00:00:00.000.681,C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Resource\Lina.rc=</Transaction>
<Transaction>1899.12.30 00:00:00.000.414,C:\Users\Dennis\Documents\RAD Studio\Projekte\LinaComponents\uLinaTest.pas=</Transaction>
<Transaction>1899.12.30 00:00:00.000.318,=vcl.dcp</Transaction>
<Transaction>1899.12.30 00:00:00.000.556,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uLocalMgr.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.577,=C:\Users\Dennis\Documents\RAD Studio\Projekte\LinaComponents\uBattery.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.861,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Package\Settings.inc</Transaction>
<Transaction>1899.12.30 00:00:00.000.318,=vcl.dcp</Transaction>
<Transaction>1899.12.30 00:00:00.000.621,=C:\Users\Dennis\Documents\RAD Studio\Projekte\LinaComponents\uLinaTest.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.648,=C:\Users\Dennis\Documents\RAD Studio\Projekte\LinaComponents\uScriptMgr.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.934,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\Config.inc</Transaction>
<Transaction>1899.12.30 00:00:00.000.537,C:\Users\Dennis G\Documents\CodeQuality.htm=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Package\Delphi_XE5\Untitled1.htm</Transaction>
<Transaction>1899.12.30 00:00:00.000.518,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uBattery.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.650,C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uBattery.pas=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uSysCtrls.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.143,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Package\Delphi_XE5\Untitled1.htm</Transaction>
<Transaction>1899.12.30 00:00:00.000.896,C:\Users\Dennis G\Documents\CodeQuality.htm=</Transaction>
<Transaction>1899.12.30 00:00:00.000.412,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Package\Delphi_XE5\Unit1.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.537,C:\Users\Dennis G\Documents\CodeQuality.htm=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Package\Delphi_XE5\Untitled1.htm</Transaction>
<Transaction>1899.12.30 00:00:00.000.584,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uVirtObj.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.555,=C:\Users\Dennis\Documents\RAD Studio\Projekte\LinaComponents\uBase.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.971,=IndySystem.dcp</Transaction>
<Transaction>1899.12.30 00:00:00.000.584,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uVirtObj.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.633,C:\Users\Dennis\Documents\RAD Studio\Projekte\Package1.dproj=C:\Users\Dennis\Documents\RAD Studio\Projekte\LinaComponents\LINA_D_XE5.dproj</Transaction>
<Transaction>1899.12.30 00:00:00.000.525,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uCrypt.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.075,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uCalc.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.196,=rtl.dcp</Transaction>
<Transaction>1899.12.30 00:00:00.000.633,=C:\Users\Dennis\Documents\RAD Studio\Projekte\LinaComponents\uLocalMgr.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.118,=IndyCore.dcp</Transaction>
<Transaction>1899.12.30 00:00:00.000.535,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uFileTools.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.633,=C:\Users\Dennis\Documents\RAD Studio\Projekte\LinaComponents\uLocalMgr.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.196,=rtl.dcp</Transaction>
<Transaction>1899.12.30 00:00:00.000.686,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\uSysTools.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.672,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\uFrmCtrls.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.633,C:\Users\Dennis\Documents\RAD Studio\Projekte\Package1.dproj=C:\Users\Dennis\Documents\RAD Studio\Projekte\LinaComponents\LINA_D_XE5.dproj</Transaction>
<Transaction>1899.12.30 00:00:00.000.412,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Package\Delphi_XE5\Unit1.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.582,C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Package\Delphi_XE5\Unit1.pas=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uWebCtrls.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.932,C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Package\Delphi_XE5\Unit1.pas=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Package\Delphi_XE5\uFileCtrls.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.173,C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Package\Delphi_XE5\Unit1.pas=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uInit.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.791,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Package\Delphi_XE5\Unit1.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.674,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Package\Delphi_XE5\Unit1.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.675,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Package\Delphi_XE5\Unit1.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.837,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Package\Delphi_XE5\Unit1.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.857,=PascalScript_Core_D19.dcp</Transaction>
<Transaction>1899.12.30 00:00:00.000.045,=IndyProtocols.dcp</Transaction>
<Transaction>1899.12.30 00:00:00.000.799,=PascalScript_Core_D19.dcp</Transaction>
<Transaction>1899.12.30 00:00:00.000.045,=IndyProtocols.dcp</Transaction>
<Transaction>1899.12.30 00:00:00.000.173,C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Package\Delphi_XE5\Unit1.pas=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uInit.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.566,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uScriptMgr.pas</Transaction>
<Transaction>1899.12.30 00:00:00.000.546,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uFrmCtrls.pas</Transaction>
<Transaction>2017.11.19 05:17:23.465,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\Config.inc</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\..\LinaComponents"/>
@ -74,15 +74,10 @@
<File Path="..\..\Source\uFrmCtrls.pas"/>
<File Path="..\..\Source\uInit.pas"/>
<File Path="..\..\Source\uLocalMgr.pas"/>
<File Path="..\..\Source\uScriptMgr.pas"/>
<File Path="..\..\Source\uSysCtrls.pas"/>
<File Path="..\..\Source\uSysTools.pas"/>
<File Path="..\..\Source\uVirtObj.pas"/>
<File Path="..\..\Source\uWebCtrls.pas"/>
<File Path="IndyCore.dcp"/>
<File Path="IndyProtocols.dcp"/>
<File Path="IndySystem.dcp"/>
<File Path="PascalScript_Core_D19.dcp"/>
<File Path="rtl.dcp"/>
<File Path="vcl.dcp"/>
<File Path="vclx.dcp"/>

4
Source/Config.inc
View File

@ -1,7 +1,7 @@
//////////////////////////////////////
/// Lina Configuration File ///
/// **************************** ///
/// (c) 2015 Dennis Göhlert a.o. ///
/// (c) 2018 Dennis Göhlert a.o. ///
//////////////////////////////////////
{$DEFINE LINA}
@ -81,7 +81,7 @@
{$DEFINE ADD_SPLASHENTRY}
{$DEFINE ADD_ABOUTENTRY}
{$DEFINE ADD_COMPONENTREG}
{$DEFINE ADD_DEPENDENCIES}
//{$DEFINE ADD_DEPENDENCIES}
{$DEFINE ADD_SINGLECATEGORY}
{$DEFINE WARN_INCOMPATIBLEPLATFORM}
{$DEFINE WARN_INCOMPATIBLECOMPILER}

4
Source/uAdvCtrls.pas
View File

@ -3,7 +3,7 @@ unit uAdvCtrls;
//////////////////////////////////////
/// Lina Advanced Controls Unit ///
/// **************************** ///
/// (c) 2017 Dennis Göhlert a.o. ///
/// (c) 2018 Dennis Göhlert a.o. ///
//////////////////////////////////////
{$I 'Config.inc'}
@ -332,7 +332,7 @@ implementation
{$IFDEF ADD_COMPONENTREG}
procedure Register;
begin
RegisterComponents(ComponentsPage,[TCommandButton,TScrollListBox,TPaintMemo,TShortcutLabel,TSizePanel,TPathEdit,TValueEdit]);
RegisterComponents({$IFDEF ADD_SINGLECATEGORY}ComponentsPage{$ELSE}ComponentsPage_Advanced{$ENDIF},[TCommandButton,TScrollListBox,TPaintMemo,TShortcutLabel,TSizePanel,TPathEdit,TValueEdit]);
end;
{$ENDIF}

13
Source/uBase.pas
View File

@ -3,7 +3,7 @@ unit uBase;
//////////////////////////////////////
/// Lina Base Unit ///
/// **************************** ///
/// (c) 2017 Dennis Göhlert a.o. ///
/// (c) 2018 Dennis Göhlert a.o. ///
//////////////////////////////////////
{$I 'Config.inc'}
@ -23,7 +23,16 @@ const
LinaVersion = 1.00;
About_Title = 'About...';
{ Komponenten-Informationen }
ComponentsPage = 'Lina';
{$IFDEF ADD_SINGLECATEGORY}
ComponentsPage = 'Lina';
{$ELSE}
ComponentsPage_System = 'Lina - System';
ComponentsPage_Advanced = 'Lina - Advanced';
ComponentsPage_Form = 'Lina - Form';
ComponentsPage_File = 'Lina - File';
ComponentsPage_Web = 'Lina - Web';
ComponentsPage_Misc = 'Lina - Misc';
{$ENDIF}
ComponentsVersion = '1.0';
ComponentsCopyright = 'Copyright © 2017';
ComponentsAuthor = 'Dennis Göhlert a.o.';

4
Source/uCalc.pas
View File

@ -3,7 +3,7 @@ unit uCalc;
//////////////////////////////////////
/// Lina Calculator Unit ///
/// **************************** ///
/// (c) 2017 Dennis Göhlert a.o. ///
/// (c) 2018 Dennis Göhlert a.o. ///
//////////////////////////////////////
{$I 'Config.inc'}
@ -152,7 +152,7 @@ implementation
{$IFDEF ADD_COMPONENTREG}
procedure Register;
begin
RegisterComponents(ComponentsPage,[TCalculator]);
RegisterComponents({$IFDEF ADD_SINGLECATEGORY}ComponentsPage{$ELSE}ComponentsPage_Misc{$ENDIF},[TCalculator]);
end;
{$ENDIF}

4
Source/uFileCtrls.pas
View File

@ -3,7 +3,7 @@ unit uFileCtrls;
//////////////////////////////////////
/// Lina File Controls Unit ///
/// **************************** ///
/// (c) 2017 Dennis Göhlert a.o. ///
/// (c) 2018 Dennis Göhlert a.o. ///
//////////////////////////////////////
{$I 'Config.inc'}
@ -114,7 +114,7 @@ implementation
{$IFDEF ADD_COMPONENTREG}
procedure Register;
begin
RegisterComponents(ComponentsPage,[TContextMenu]);
RegisterComponents({$IFDEF ADD_SINGLECATEGORY}ComponentsPage{$ELSE}ComponentsPage_File{$ENDIF},[TContextMenu]);
end;
{$ENDIF}

34
Source/uFileTools.pas
View File

@ -3,7 +3,7 @@ unit uFileTools;
//////////////////////////////////////
/// Lina File Tools Unit ///
/// **************************** ///
/// (c) 2017 Dennis Göhlert a.o. ///
/// (c) 2018 Dennis Göhlert a.o. ///
//////////////////////////////////////
{$I 'Config.inc'}
@ -34,6 +34,7 @@ type
TFileExecuteMode = (feOpen,feEdit,feExplore,feFind,fePrint,feProperties,feRunAs,feRunAsUser);
TFileNameStyles = set of (fnDirectory,fnExtension);
TFileAttributes = set of (faReadOnly,faHidden,faSystem,faArchive,faTemporary);
TRecursionDepth = (rdNone, rdSingle, rdMultiple);
TInvalidFileName = String[4];
TInvalidFileNames = array[1..22] of TInvalidFileName;
@ -139,9 +140,11 @@ type
InDir: Boolean = False): Boolean;
function ExtractFileFolder(FileName: String): String;
procedure ListFiles(Dir: String; out OutList: TStrings; FileExts: array of String;
NameStyles: TFileNameStyles = []; RecMode: Boolean = False);
NameStyles: TFileNameStyles = []; RecDepth: TRecursionDepth = rdNone); overload;
procedure ListFiles(Dir: String; out OutList: TStrings; FileExt: String;
NameStyles: TFileNameStyles = []; RecDepth: TRecursionDepth = rdNone); overload;
procedure ListFolders(Dir: String; var OutList: TStrings;
NameStyles: TFileNameStyles = []; RecMode: Boolean = False);
NameStyles: TFileNameStyles = []; RecDepth: TRecursionDepth = rdNone);
function ExtractDriveChar(const FileName: String): Char;
function DriveCharToFileDir(DriveChar: Char): ShortString;
function DriveCharToFilePath(DriveChar: Char): ShortString;
@ -395,7 +398,7 @@ begin
end;
procedure ListFiles(Dir: String; out OutList: TStrings; FileExts: array of String;
NameStyles: TFileNameStyles = []; RecMode: Boolean = False);
NameStyles: TFileNameStyles = []; RecDepth: TRecursionDepth = rdNone);
var
SRec: TSearchRec;
ExtIndex: Integer;
@ -421,9 +424,9 @@ begin
begin
if ((SRec.Attr and faDirectory) = faDirectory) then
begin
if RecMode then
begin
ListFiles(Dir + SRec.Name,OutList,FileExts,NameStyles,RecMode);
case RecDepth of
rdSingle: ListFiles(Dir + SRec.Name,OutList,FileExts,NameStyles);
rdMultiple: ListFiles(Dir + SRec.Name,OutList,FileExts,NameStyles,rdMultiple);
end;
end else
begin
@ -448,8 +451,14 @@ begin
end;
end;
procedure ListFiles(Dir: String; out OutList: TStrings; FileExt: String;
NameStyles: TFileNameStyles = []; RecDepth: TRecursionDepth = rdNone);
begin
ListFiles(Dir,OutList,[FileExt],NameStyles,RecDepth);
end;
procedure ListFolders(Dir: String; var OutList: TStrings;
NameStyles: TFileNameStyles = []; RecMode: Boolean = False);
NameStyles: TFileNameStyles = []; RecDepth: TRecursionDepth = rdNone);
var
SRec: TSearchRec;
begin
@ -457,8 +466,7 @@ begin
if FindFirst(Dir + '*.*',faAnyFile,SRec) = 0 then
begin
repeat
if ((SRec.Attr and faDirectory) = faDirectory) and
(SRec.Name <> '.') and (SRec.Name <> '..') then
if ((SRec.Attr and faDirectory) = faDirectory) and (SRec.Name <> '.') and (SRec.Name <> '..') then
begin
if fnDirectory in NameStyles then
begin
@ -466,9 +474,9 @@ begin
end else
begin
OutList.Add(SRec.Name);
if RecMode then
begin
ListFolders(Dir + SRec.Name,OutList,NameStyles,RecMode);
case RecDepth of
rdSingle: ListFolders(Dir + SRec.Name,OutList,NameStyles);
rdMultiple: ListFolders(Dir + SRec.Name,OutList,NameStyles,rdMultiple);
end;
end;
end;

20
Source/uFrmCtrls.pas
View File

@ -3,7 +3,7 @@ unit uFrmCtrls;
//////////////////////////////////////
/// Lina Form Controls Unit ///
/// **************************** ///
/// (c) 2017 Dennis Göhlert a.o. ///
/// (c) 2018 Dennis Göhlert a.o. ///
//////////////////////////////////////
{$I 'Config.inc'}
@ -850,6 +850,7 @@ type
function GetValueLeft(Index: Integer): Integer;
function GetValueWidth: Integer;
function GetValueSpace: Integer;
function GetIndexAt(Left: Integer): Integer;
protected
{ Protected-Deklarationen }
procedure Paint; override;
@ -872,8 +873,6 @@ type
function GetValueRect(Value: TDiagramValue): TRect; overload;
public
{ Public-Deklarationen }
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
property ValueRect[Index: Integer]: TRect read GetValueRect;
property ZeroWidth: Integer read GetZeroWidth;
property ZeroHeight: Integer read GetZeroHeight;
@ -882,6 +881,9 @@ type
property ValueLeft[Index: Integer]: Integer read GetValueLeft;
property ValueWidth: Integer read GetValueWidth;
property ValueSpace: Integer read GetValueSpace;
property IndexAt[Left: Integer]: Integer read GetIndexAt;
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
published
{ Published-Deklarationen }
{ Ereignisse }
@ -943,7 +945,7 @@ implementation
{$IFDEF ADD_COMPONENTREG}
procedure Register;
begin
RegisterComponents(ComponentsPage,[TSplashScreen,TProgressBarManager,TListBoxManager,TParamDefiner,TDiagram]);
RegisterComponents({$IFDEF ADD_SINGLECATEGORY}ComponentsPage{$ELSE}ComponentsPage_Form{$ENDIF},[TSplashScreen,TProgressBarManager,TListBoxManager,TParamDefiner,TDiagram]);
end;
{$ENDIF}
@ -3936,6 +3938,16 @@ begin
end;
end;
function TDiagram.GetIndexAt(Left: Integer): Integer;
begin
Dec(Left, ZeroWidth);
while Left >= 0 do
begin
end;
end;
procedure TDiagram.MouseMove(Shift: TShiftState; X, Y: Integer);
begin
inherited;

99
Source/uInit.pas
View File

@ -3,7 +3,7 @@ unit uInit;
//////////////////////////////////////
/// Lina Initialization Unit ///
/// **************************** ///
/// (c) 2017 Dennis Göhlert a.o. ///
/// (c) 2018 Dennis Göhlert a.o. ///
//////////////////////////////////////
{$I 'Config.inc'}
@ -18,56 +18,71 @@ uses
{ Standard-Units }
ToolsAPI, Graphics;
procedure RegisterPackageOnSplash;
procedure RegisterPackageOnAbout;
procedure UnregisterPackageOnAbout;
{$IFDEF ADD_SPLASHENTRY}
procedure RegisterPackageOnSplash;
{$ENDIF}
{$IFDEF ADD_ABOUTENTRY}
procedure RegisterPackageOnAbout;
procedure UnregisterPackageOnAbout;
{$ENDIF}
const
Package_Name = 'Lina Components';
Package_Description = 'Components and code library for Delphi' + sLineBreak + '© 2017 Dennis Göhlert a.o.';
Package_License = 'Mozilla Public License (MPL) 2.0';
Package_SKU = '(Dev-Preview)';
{$IF Defined(ADD_SPLASHENTRY) OR Defined(ADD_ABOUTENTRY)}
const
Package_Name = 'Lina Components';
{$IFDEF ADD_ABOUTENTRY}
Package_Description = 'Components and code library for Delphi' + sLineBreak + '© 2017 Dennis Göhlert a.o.';
{$ENDIF}
Package_License = 'Mozilla Public License (MPL) 2.0';
Package_SKU = '(Dev-Preview)';
{$ENDIF}
var
PluginIndex: Integer = -1;
AboutBitmap: TBitmap;
{$IFDEF ADD_ABOUTENTRY}
var
PluginIndex: Integer = -1;
AboutBitmap: TBitmap;
{$ENDIF}
implementation
procedure RegisterPackageOnSplash;
var
SplashBitmap: TBitmap;
begin
SplashBitmap := TBitmap.Create;
try
SplashBitmap.LoadFromResourceName(HInstance,'LINA');
(SplashScreenServices as IOTASplashScreenServices).AddPluginBitmap(
Package_Name,SplashBitmap.Handle,False,Package_License,Package_SKU);
finally
SplashBitmap.Free;
{$IFDEF ADD_SPLASHENTRY}
procedure RegisterPackageOnSplash;
var
SplashBitmap: TBitmap;
begin
SplashBitmap := TBitmap.Create;
try
SplashBitmap.LoadFromResourceName(HInstance,'LINA');
(SplashScreenServices as IOTASplashScreenServices).AddPluginBitmap(
Package_Name,SplashBitmap.Handle,False,Package_License,Package_SKU);
finally
SplashBitmap.Free;
end;
end;
end;
{$ENDIF}
procedure RegisterPackageOnAbout;
begin
AboutBitmap := TBitmap.Create;
try
AboutBitmap.LoadFromResourceName(HInstance,'LINA');
PluginIndex := (BorlandIDEServices as IOTAAboutBoxServices120).AddPluginInfo(
Package_Name,Package_Description,AboutBitmap.Handle,False,Package_License,Package_SKU);
except
AboutBitmap.Free;
end;
end;
procedure UnregisterPackageOnAbout;
begin
try
(BorlandIDEServices As IOTAAboutBoxServices).RemovePluginInfo(PluginIndex);
finally
AboutBitmap.Free;
{$IFDEF ADD_ABOUTENTRY}
procedure RegisterPackageOnAbout;
begin
AboutBitmap := TBitmap.Create;
try
AboutBitmap.LoadFromResourceName(HInstance,'LINA');
PluginIndex := (BorlandIDEServices as IOTAAboutBoxServices120).AddPluginInfo(
Package_Name,Package_Description,AboutBitmap.Handle,False,Package_License,Package_SKU);
except
AboutBitmap.Free;
end;
end;
end;
procedure UnregisterPackageOnAbout;
begin
try
(BorlandIDEServices As IOTAAboutBoxServices).RemovePluginInfo(PluginIndex);
finally
AboutBitmap.Free;
end;
end;
{$ENDIF}
initialization
{ Package-Registrierung }

10
Source/uLocalMgr.pas
View File

@ -3,7 +3,7 @@ unit uLocalMgr;
//////////////////////////////////////
/// Lina Localize Manager Unit ///
/// **************************** ///
/// (c) 2017 Dennis Göhlert a.o. ///
/// (c) 2018 Dennis Göhlert a.o. ///
//////////////////////////////////////
{$I 'Config.inc'}
@ -148,7 +148,7 @@ type
function IndexOfTag(const Tag: TLanguageTag): Integer;
procedure LoadFromFile(const FileName: String);
procedure SaveToFile(const FileName: String);
procedure LoadFromDirectory(const Dir: String; FileExts: array of String; RecMode: Boolean = True);
procedure LoadFromDirectory(const Dir: String; FileExts: array of String; RecDepth: TRecursionDepth);
end;
TLocalizationExporter = class
@ -317,7 +317,7 @@ implementation
{$IFDEF ADD_COMPONENTREG}
procedure Register;
begin
RegisterComponents(ComponentsPage,[TLocalizationManager]);
RegisterComponents({$IFDEF ADD_SINGLECATEGORY}ComponentsPage{$ELSE}ComponentsPage_Misc{$ENDIF},[TLocalizationManager]);
end;
{$ENDIF}
@ -1087,14 +1087,14 @@ begin
end;
end;
procedure TLocalizations.LoadFromDirectory(const Dir: String; FileExts: array of String; RecMode: Boolean = True);
procedure TLocalizations.LoadFromDirectory(const Dir: String; FileExts: array of String; RecDepth: TRecursionDepth);
var
Languages: TStrings;
Language_Index: Integer;
begin
Languages := TStringList.Create;
try
ListFiles(Dir,Languages,FileExts,[fnDirectory,fnExtension],RecMode);
ListFiles(Dir,Languages,FileExts,[fnDirectory,fnExtension],RecDepth);
for Language_Index := 0 to Languages.Count - 1 do
begin
with (Add as TLocalization) do

4
Source/uSysCtrls.pas
View File

@ -3,7 +3,7 @@ unit uSysCtrls;
//////////////////////////////////////
/// Lina System Controls Unit ///
/// **************************** ///
/// (c) 2017 Dennis Göhlert a.o. ///
/// (c) 2018 Dennis Göhlert a.o. ///
//////////////////////////////////////
{$I 'Config.inc'}
@ -404,7 +404,7 @@ implementation
{$IFDEF ADD_COMPONENTREG}
procedure Register;
begin
RegisterComponents(ComponentsPage,[TBattery,TCursorFix,TProcessManager,TStringContainer,TDelphiManager,TCryptManager]);
RegisterComponents({$IFDEF ADD_SINGLECATEGORY}ComponentsPage{$ELSE}ComponentsPage_System{$ENDIF},[TBattery,TCursorFix,TProcessManager,TStringContainer,TDelphiManager,TCryptManager]);
end;
{$ENDIF}

362
Source/uSysTools.pas
View File

@ -3,7 +3,7 @@ unit uSysTools;
//////////////////////////////////////
/// Lina System Tools Unit ///
/// **************************** ///
/// (c) 2017 Dennis Göhlert a.o. ///
/// (c) 2018 Dennis Göhlert a.o. ///
//////////////////////////////////////
{$I 'Config.inc'}
@ -13,8 +13,8 @@ interface
uses
{ Standard-Units }
SysUtils, Classes, Math, Windows, Graphics, Printers, TypInfo, Controls,
Forms;
SysUtils, Variants, Classes, Math, Windows, Graphics, Printers, TypInfo,
Controls, Forms;
type
{ Fehlermeldungen }
@ -31,6 +31,7 @@ type
{$IF !Declared(TVerticalAlignment}
TVerticalAlignment = (taAlignTop, taAlignBottom, taVerticalCenter);
{$ENDIF}
TCheckSum = (csBitCount,csFetcher);
TBit = 0..1;
@ -50,6 +51,7 @@ type
TUnicodeStringArray = TStringArray;
{$ENDIF}
TBitArray = array of TBit;
TByteArray = array of Byte;
TUInt8Array = TByteArray;
TWordArray = array of Word;
@ -330,6 +332,13 @@ type
property MaxDistance: TPoint read GetMaxDistance;
end;
(*TIntegerList = class(TPersistent)
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;*)
TFilteredStringList = class(TStringList)
private
{ Private-Deklarationen }
@ -531,6 +540,26 @@ type
function Prime(X: Byte): Boolean; overload;
function Prime(X: Integer): Boolean; overload;
function Prime(X: Cardinal): Boolean; overload;
{ Bedingungsroutinen }
function IfThenElse(Condition: Boolean; TrueValue, FalseValue: Variant): Variant; overload;
function IfThenElse(Condition: Boolean; TrueValue: Variant): Variant; overload;
function IfThenElse(Condition: Boolean; TrueValue: Pointer; FalseValue: Pointer = nil): Pointer; overload;
function IfThenElse(Condition: Boolean; TrueValue: PChar; FalseValue: PChar = nil): PChar; overload;
function IfThenElse(Condition: Boolean; TrueValue: Char; FalseValue: Char = #0): Char; overload;
function IfThenElse(Condition: Boolean; TrueValue: String; FalseValue: String = ''): String; overload;
function IfThenElse(Condition: Boolean; TrueValue: ShortString; FalseValue: ShortString = ''): ShortString; overload;
function IfThenElse(Condition: Boolean; TrueValue: Byte; FalseValue: Byte = 0): Byte; overload;
function IfThenElse(Condition: Boolean; TrueValue: Word; FalseValue: Word = 0): Word; overload;
function IfThenElse(Condition: Boolean; TrueValue: Cardinal; FalseValue: Cardinal = 0): Cardinal; overload;
function IfThenElse(Condition: Boolean; TrueValue: UInt64; FalseValue: UInt64 = 0): UInt64; overload;
function IfThenElse(Condition: Boolean; TrueValue: ShortInt; FalseValue: ShortInt = 0): SmallInt; overload;
function IfThenElse(Condition: Boolean; TrueValue: SmallInt; FalseValue: SmallInt = 0): SmallInt; overload;
function IfThenElse(Condition: Boolean; TrueValue: Integer; FalseValue: Integer = 0): Integer; overload;
function IfThenElse(Condition: Boolean; TrueValue: Int64; FalseValue: Int64 = 0): Int64; overload;
function IfThenElse(Condition: Boolean; TrueValue: Currency; FalseValue: Currency = 0): Currency; overload;
function IfThenElse(Condition: Boolean; TrueValue: Single; FalseValue: Single = 0): Single; overload;
function IfThenElse(Condition: Boolean; TrueValue: Double; FalseValue: Double = 0): Double; overload;
function IfThenElse(Condition: Boolean; TrueValue: Extended; FalseValue: Extended = 0): Extended; overload;
{ Sonstige }
function PointAdd(A,B: TPoint): TPoint;
function PointSub(A,B: TPoint): TPoint;
@ -572,6 +601,10 @@ type
{$ENDIF}
function ConsistsOf(const S: String; Chars: array of Char): Boolean; overload;
function ConsistsOf(const S: String; Chars: TCharSet): Boolean; overload;
function ArrayToString(AArray: array of const): String;
function BitsToBytes(Bits: array of TBit): TByteArray;
function BytesToBits(Bytes: array of Byte): TBitArray;
function CheckSum(Bytes: array of Byte; Algorith: TCheckSum): Word;
procedure IndentBlock(var S: String; Indents: Byte; const Indent: Char = ' ');
procedure Exchange(var X,Y); inline;
procedure PrintText(Strings: TStrings; Font: TFont);
@ -2026,6 +2059,215 @@ begin
end;
end;
function IfThenElse(Condition: Boolean; TrueValue, FalseValue: Variant): Variant;
begin
if Condition then
begin
Result := TrueValue;
end else
begin
Result := FalseValue;
end;
end;
function IfThenElse(Condition: Boolean; TrueValue: Variant): Variant;
begin
if Condition then
begin
Result := TrueValue;
end else
begin
Result := Null;
end;
end;
function IfThenElse(Condition: Boolean; TrueValue: Pointer; FalseValue: Pointer = nil): Pointer;
begin
if Condition then
begin
Result := TrueValue;
end else
begin
Result := FalseValue;
end;
end;
function IfThenElse(Condition: Boolean; TrueValue: PChar; FalseValue: PChar = nil): PChar;
begin
if Condition then
begin
Result := TrueValue;
end else
begin
Result := FalseValue;
end;
end;
function IfThenElse(Condition: Boolean; TrueValue: Char; FalseValue: Char = #0): Char;
begin
if Condition then
begin
Result := TrueValue;
end else
begin
Result := FalseValue;
end;
end;
function IfThenElse(Condition: Boolean; TrueValue: String; FalseValue: String = ''): String;
begin
if Condition then
begin
Result := TrueValue;
end else
begin
Result := FalseValue;
end;
end;
function IfThenElse(Condition: Boolean; TrueValue: ShortString; FalseValue: ShortString = ''): ShortString;
begin
if Condition then
begin
Result := TrueValue;
end else
begin
Result := FalseValue;
end;
end;
function IfThenElse(Condition: Boolean; TrueValue: Byte; FalseValue: Byte = 0): Byte;
begin
if Condition then
begin
Result := TrueValue;
end else
begin
Result := FalseValue;
end;
end;
function IfThenElse(Condition: Boolean; TrueValue: Word; FalseValue: Word = 0): Word;
begin
if Condition then
begin
Result := TrueValue;
end else
begin
Result := FalseValue;
end;
end;
function IfThenElse(Condition: Boolean; TrueValue: Cardinal; FalseValue: Cardinal = 0): Cardinal;
begin
if Condition then
begin
Result := TrueValue;
end else
begin
Result := FalseValue;
end;
end;
function IfThenElse(Condition: Boolean; TrueValue: UInt64; FalseValue: UInt64 = 0): UInt64;
begin
if Condition then
begin
Result := TrueValue;
end else
begin
Result := FalseValue;
end;
end;
function IfThenElse(Condition: Boolean; TrueValue: ShortInt; FalseValue: ShortInt = 0): SmallInt;
begin
if Condition then
begin
Result := TrueValue;
end else
begin
Result := FalseValue;
end;
end;
function IfThenElse(Condition: Boolean; TrueValue: SmallInt; FalseValue: SmallInt = 0): SmallInt;
begin
if Condition then
begin
Result := TrueValue;
end else
begin
Result := FalseValue;
end;
end;
function IfThenElse(Condition: Boolean; TrueValue: Integer; FalseValue: Integer = 0): Integer;
begin
if Condition then
begin
Result := TrueValue;
end else
begin
Result := FalseValue;
end;
end;
function IfThenElse(Condition: Boolean; TrueValue: Int64; FalseValue: Int64 = 0): Int64;
begin
if Condition then
begin
Result := TrueValue;
end else
begin
Result := FalseValue;
end;
end;
function IfThenElse(Condition: Boolean; TrueValue: Currency; FalseValue: Currency = 0): Currency;
begin
if Condition then
begin
Result := TrueValue;
end else
begin
Result := FalseValue;
end;
end;
function IfThenElse(Condition: Boolean; TrueValue: Single; FalseValue: Single = 0): Single;
begin
if Condition then
begin
Result := TrueValue;
end else
begin
Result := FalseValue;
end;
end;
function IfThenElse(Condition: Boolean; TrueValue: Double; FalseValue: Double = 0): Double;
begin
if Condition then
begin
Result := TrueValue;
end else
begin
Result := FalseValue;
end;
end;
function IfThenElse(Condition: Boolean; TrueValue: Extended; FalseValue: Extended = 0): Extended;
begin
if Condition then
begin
Result := TrueValue;
end else
begin
Result := FalseValue;
end;
end;
function PointAdd(A,B: TPoint): TPoint;
begin
Result := Point(A.X + B.X,A.Y + B.Y);
@ -3393,6 +3635,120 @@ begin
Result := True;
end;
function ArrayToString(AArray: array of const): String;
var
OldDecSep: Char;
Index: Integer;
begin
{$IF Declared(FormatSettings)}
OldDecSep := FormatSettings.DecimalSeparator;
FormatSettings.DecimalSeparator := '.';
{$ELSE}
OldDecSep := DecimalSeparator;
DecimalSeparator := '.';
{$ENDIF}
try
for Index := Low(AArray) to High(AArray) do
begin
case AArray[Index].VType of
vtInteger: Result := Result + IntToStr(AArray[Index].VInteger);
vtBoolean: Result := Result + BoolToStr(AArray[Index].VBoolean, True);
vtChar: Result := Result + QuotedStr(AArray[Index].VChar);
vtExtended: Result := Result + FloatToStr(AArray[Index].VExtended^);
vtString: Result := Result + QuotedStr(AArray[Index].VString^);
vtPointer: Result := Result + IntToStr(Integer(AArray[Index].VPointer));
vtPChar: Result := Result + QuotedStr(String(AArray[Index].VPChar));
vtObject: Result := Result + AArray[Index].VObject.ClassName + '(' + IntToStr(Integer(AArray[Index].VObject)) + ')';
vtClass: Result := Result + AArray[Index].VClass.ClassName;
{$IFNDEF NO_UNICODE}
vtWideChar: Result := Result + QuotedStr(AArray[Index].VWideChar);
vtPWideChar: Result := Result + QuotedStr(WideString(AArray[Index].VPWideChar));
vtUnicodeString: Result := Result + QuotedStr(String(AArray[Index].VUnicodeString));
{$ENDIF}
vtAnsiString: Result := Result + QuotedStr(AnsiString(AArray[Index].VAnsiString));
vtCurrency: Result := Result + CurrToStr(AArray[Index].VCurrency^);
vtVariant: begin
if VarIsStr(AArray[Index].VVariant^) then
begin
Result := Result + 'Variant(' + QuotedStr(VarToStr(AArray[Index].VVariant^)) + ')';
end else
begin
Result := Result + 'Variant(' + VarToStr(AArray[Index].VVariant^) + ')';
end;
end;
vtInterface: Result := Result + 'Interface(' + IntToStr(Integer(AArray[Index].VInterface)) + ')';
vtWideString: Result := Result + QuotedStr(WideString(AArray[Index].VWideString));
vtInt64: Result := Result + IntToStr(AArray[Index].VInteger);
end;
if Index <> High(AArray) then
begin
Result := Result + ',';
end;
end;
Result := '[' + Result + ']';
finally
{$IF Declared(FormatSettings)}
FormatSettings.DecimalSeparator := OldDecSep;
{$ELSE}
DecimalSeparator := OldDecSep;
{$ENDIF}
end;
end;
function BitsToBytes(Bits: array of TBit): TByteArray;
var
Index: Integer;
begin
SetLength(Result, Ceil(Length(Bits) / 8));
for Index := Low(Bits) to High(Bits) do
begin
Result[Index div 8] := Result[Index div 8] or (Bits[Index] shl (7 - Index mod 8));
end;
end;
function BytesToBits(Bytes: array of Byte): TBitArray;
var
Index: Integer;
begin
SetLength(Result, Length(Bytes) * 8);
for Index := Low(Result) to High(Result) do
begin
Result[Index] := Bytes[Index div 8] and (Index shl (7 - Index mod 8));
end;
end;
function CheckSum(Bytes: array of Byte; Algorith: TCheckSum): Word;
var
Index: Integer;
begin
Result := 0;
case Algorith of
csBitCount: begin
for Index := Low(Bytes) to High(Bytes) do
begin
//...
end;
end;
csFetcher: begin
for Index := Low(Bytes) to High(Bytes) do
begin
if TBytePair(Result)[0] + Bytes[Index] > MAXBYTE then
begin
//0-Bytewert ausgleichen, schneller als "mod MAXBYTE"
Inc(TBytePair(Result)[0]);
end;
Inc(TBytePair(Result)[0], Bytes[Index]);
if TBytePair(Result)[0] + TBytePair(Result)[1] > MAXBYTE then
begin
//0-Bytewert ausgleichen, schneller als "mod MAXBYTE"
Inc(TBytePair(Result)[1]);
end;
Inc(TBytePair(Result)[1], TBytePair(Result)[0]);
end;
end;
end;
end;
procedure IndentBlock(var S: String; Indents: Byte; const Indent: Char = ' ');
var
Index: Integer;

4
Source/uVirtObj.pas
View File

@ -3,7 +3,7 @@ unit uVirtObj;
//////////////////////////////////////
/// Lina Virtual Object Unit ///
/// **************************** ///
/// (c) 2017 Dennis Göhlert a.o. ///
/// (c) 2018 Dennis Göhlert a.o. ///
//////////////////////////////////////
{$I 'Config.inc'}
@ -76,7 +76,7 @@ implementation
{$IFDEF ADD_COMPONENTREG}
procedure Register;
begin
RegisterComponents(ComponentsPage,[TVirtualProgram]);
RegisterComponents({$IFDEF ADD_SINGLECATEGORY}ComponentsPage{$ELSE}ComponentsPage_Misc{$ENDIF},[TVirtualProgram]);
end;
{$ENDIF}

4
Source/uWebCtrls.pas
View File

@ -3,7 +3,7 @@ unit uWebCtrls;
//////////////////////////////////////
/// Lina Web Controls Unit ///
/// **************************** ///
/// (c) 2017 Dennis Göhlert a.o. ///
/// (c) 2018 Dennis Göhlert a.o. ///
//////////////////////////////////////
{$I 'Config.inc'}
@ -320,7 +320,7 @@ implementation
{$IFDEF ADD_COMPONENTREG}
procedure Register;
begin
RegisterComponents(ComponentsPage,[{$IFDEF ADD_DEPENDENCIES}TDownload{$ENDIF}]);
RegisterComponents({$IFDEF ADD_SINGLECATEGORY}ComponentsPage{$ELSE}ComponentsPage_Web{$ENDIF},[{$IFDEF ADD_DEPENDENCIES}TDownload{$ENDIF}]);
end;
{$ENDIF}