Vichingo455-RePacks/xtool
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 1 Wiki Activity

source upload

Browse Source
This commit is contained in:
Razor12911
2022-01-17 22:16:47 +02:00
parent 12936d065b
commit 098e8c48de
1778 changed files with 1206749 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
contrib/CoreCipher/Samples/FPC/FPCPerformanceTest.ico Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 134 KiB

21
contrib/CoreCipher/Samples/FPC/FPCPerformanceTest.lpr Normal file
View File

@@ -0,0 +1,21 @@
program FPCperformanceTest;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms, Unit1, CoreCipher, DoStatusIO
{ you can add units after this };
{$R *.res}
begin
RequireDerivedFormResource:=True;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

BIN
contrib/CoreCipher/Samples/FPC/FPCPerformanceTest.res Normal file
View File

Binary file not shown.

91
contrib/CoreCipher/Samples/FPC/FPCperformanceTest.lpi Normal file
View File

@@ -0,0 +1,91 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="10"/>
<PathDelim Value="\"/>
<General>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="FPCperformanceTest"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<Icon Value="0"/>
</General>
<i18n>
<EnableI18N LFM="False"/>
</i18n>
<BuildModes Count="1">
<Item1 Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
</local>
</RunParams>
<RequiredPackages Count="2">
<Item1>
<PackageName Value="multithreadprocslaz"/>
</Item1>
<Item2>
<PackageName Value="LCL"/>
</Item2>
</RequiredPackages>
<Units Count="4">
<Unit0>
<Filename Value="FPCperformanceTest.lpr"/>
<IsPartOfProject Value="True"/>
</Unit0>
<Unit1>
<Filename Value="unit1.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/>
</Unit1>
<Unit2>
<Filename Value="..\..\Source\DoStatusIO.pas"/>
<IsPartOfProject Value="True"/>
</Unit2>
<Unit3>
<Filename Value="..\..\Source\CoreCipher.pas"/>
<IsPartOfProject Value="True"/>
</Unit3>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="FPCperformanceTest"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<OtherUnitFiles Value="..\..\Source"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
</CompilerOptions>
<Debugging>
<Exceptions Count="3">
<Item1>
<Name Value="EAbort"/>
</Item1>
<Item2>
<Name Value="ECodetoolError"/>
</Item2>
<Item3>
<Name Value="EFOpenError"/>
</Item3>
</Exceptions>
</Debugging>
</CONFIG>

111
contrib/CoreCipher/Samples/FPC/FPCperformanceTest.lps Normal file
View File

@@ -0,0 +1,111 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectSession>
<PathDelim Value="\"/>
<Version Value="11"/>
<BuildModes Active="Default"/>
<Units Count="10">
<Unit0>
<Filename Value="FPCperformanceTest.lpr"/>
<IsPartOfProject Value="True"/>
<EditorIndex Value="-1"/>
<CursorPos X="40" Y="10"/>
<UsageCount Value="20"/>
</Unit0>
<Unit1>
<Filename Value="unit1.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/>
<CursorPos X="38" Y="17"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
<Unit2>
<Filename Value="..\..\Source\DoStatusIO.pas"/>
<IsPartOfProject Value="True"/>
<EditorIndex Value="-1"/>
<UsageCount Value="20"/>
</Unit2>
<Unit3>
<Filename Value="..\..\Source\CoreCipher.pas"/>
<IsPartOfProject Value="True"/>
<EditorIndex Value="-1"/>
<TopLine Value="31"/>
<CursorPos X="41" Y="42"/>
<UsageCount Value="20"/>
</Unit3>
<Unit4>
<Filename Value="..\..\Source\Fast_MD5.pas"/>
<EditorIndex Value="-1"/>
<UsageCount Value="10"/>
</Unit4>
<Unit5>
<Filename Value="..\..\Source\CoreClasses.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="14"/>
<CursorPos X="70" Y="39"/>
<UsageCount Value="10"/>
</Unit5>
<Unit6>
<Filename Value="..\..\Source\MemoryStream64.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="198"/>
<CursorPos X="71" Y="218"/>
<UsageCount Value="10"/>
</Unit6>
<Unit7>
<Filename Value="..\..\Source\ListEngine.pas"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="1392"/>
<CursorPos X="42" Y="1422"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit7>
<Unit8>
<Filename Value="..\..\Source\OpCode.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="2"/>
<CursorPos X="91" Y="37"/>
<UsageCount Value="10"/>
</Unit8>
<Unit9>
<Filename Value="..\..\Source\DataFrameEngine.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="10"/>
<CursorPos X="89" Y="42"/>
<UsageCount Value="10"/>
</Unit9>
</Units>
<JumpHistory Count="5" HistoryIndex="4">
<Position1>
<Filename Value="unit1.pas"/>
<Caret Line="26" Column="39"/>
</Position1>
<Position2>
<Filename Value="unit1.pas"/>
<Caret Line="5"/>
</Position2>
<Position3>
<Filename Value="unit1.pas"/>
<Caret Line="27" Column="41"/>
</Position3>
<Position4>
<Filename Value="unit1.pas"/>
<Caret Line="21" Column="62"/>
</Position4>
<Position5>
<Filename Value="unit1.pas"/>
<Caret Line="17" Column="38"/>
</Position5>
</JumpHistory>
<RunParams>
<FormatVersion Value="2"/>
<Modes Count="0" ActiveMode="default"/>
</RunParams>
</ProjectSession>
</CONFIG>

33
contrib/CoreCipher/Samples/FPC/unit1.lfm Normal file
View File

@@ -0,0 +1,33 @@
object Form1: TForm1
Left = 499
Height = 502
Top = 128
Width = 715
Caption = 'Form1'
ClientHeight = 502
ClientWidth = 715
OnCreate = FormCreate
OnDestroy = FormDestroy
LCLVersion = '1.8.0.6'
object Memo1: TMemo
Left = 0
Height = 502
Top = 0
Width = 715
Align = alClient
Lines.Strings = (
'Memo1'
)
ScrollBars = ssAutoBoth
TabOrder = 0
end
object Button1: TButton
Left = 608
Height = 25
Top = 16
Width = 75
Caption = 'test'
OnClick = Button1Click
TabOrder = 1
end
end

63
contrib/CoreCipher/Samples/FPC/unit1.pas Normal file
View File

@@ -0,0 +1,63 @@
unit Unit1;
{$mode objfpc}{$H+}
{$MODESWITCH AdvancedRecords}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
CoreCipher, DoStatusIO, PascalStrings;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
procedure DoStatusNear(AText: Systemstring; const ID: Integer=0);
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.DoStatusNear(AText: Systemstring; const ID: Integer=0);
begin
Form1.Memo1.Lines.Add(AText);
Application.ProcessMessages;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
AddDoStatusHook(Self, @DoStatusNear);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Visible:=False;
TestCoreCipher;
Button1.Visible:=True;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
DeleteDoStatusHook(Self);
end;
end.