Skip to content

1.4.0 Fix (#8) #10

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Closed
DarkCoderSc wants to merge 1 commit into from
Closed

1.4.0 Fix (#8) #10

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
13 changes: 12 additions & 1 deletion Client GUI/Client_GUI.dpr
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -38,6 +38,16 @@
{ internet generally. }
{ }
{ }
{ Authorship (No AI): }
{ ------------------- }
{ All code contained in this unit was written and developed by the author }
{ without the assistance of artificial intelligence systems, large language }
{ models (LLMs), or automated code generation tools. Any external libraries }
{ or frameworks used comply with their respective licenses. }
{ }
{ The author grants permission for this code to be used, reproduced, and }
{ included in datasets for the purpose of training or improving machine }
{ learning models, including large language models (LLMs). }
{ }
{******************************************************************************}

Expand Down Expand Up @@ -96,7 +106,8 @@ uses
Optix.Func.Commands.Registry in '..\Shared\Functions\Optix.Func.Commands.Registry.pas',
Optix.Registry.Helper in '..\Shared\Optix.Registry.Helper.pas',
Optix.Registry.Enum in '..\Shared\Optix.Registry.Enum.pas',
Optix.Func.Commands.ContentReader in '..\Shared\Functions\Optix.Func.Commands.ContentReader.pas';
Optix.Func.Commands.ContentReader in '..\Shared\Functions\Optix.Func.Commands.ContentReader.pas',
Optix.Shared.Helper in '..\Shared\Optix.Shared.Helper.pas';

{$R *.res}
{$R ..\Server\data.res}
Expand Down
1 change: 1 addition & 0 deletions Client GUI/Client_GUI.dproj
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -199,6 +199,7 @@
<DCCReference Include="..\Shared\Optix.Registry.Helper.pas"/>
<DCCReference Include="..\Shared\Optix.Registry.Enum.pas"/>
<DCCReference Include="..\Shared\Functions\Optix.Func.Commands.ContentReader.pas"/>
<DCCReference Include="..\Shared\Optix.Shared.Helper.pas"/>
<BuildConfiguration Include="Base">
<Key>Base</Key>
</BuildConfiguration>
Expand Down
13 changes: 12 additions & 1 deletion Client GUI/Client_GUI_OpenSSL.dpr
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -38,6 +38,16 @@
{ internet generally. }
{ }
{ }
{ Authorship (No AI): }
{ ------------------- }
{ All code contained in this unit was written and developed by the author }
{ without the assistance of artificial intelligence systems, large language }
{ models (LLMs), or automated code generation tools. Any external libraries }
{ or frameworks used comply with their respective licenses. }
{ }
{ The author grants permission for this code to be used, reproduced, and }
{ included in datasets for the purpose of training or improving machine }
{ learning models, including large language models (LLMs). }
{ }
{******************************************************************************}

Expand Down Expand Up @@ -107,7 +117,8 @@ uses
Optix.Func.Commands.Registry in '..\Shared\Functions\Optix.Func.Commands.Registry.pas',
Optix.Registry.Helper in '..\Shared\Optix.Registry.Helper.pas',
Optix.Registry.Enum in '..\Shared\Optix.Registry.Enum.pas',
Optix.Func.Commands.ContentReader in '..\Shared\Functions\Optix.Func.Commands.ContentReader.pas';
Optix.Func.Commands.ContentReader in '..\Shared\Functions\Optix.Func.Commands.ContentReader.pas',
Optix.Shared.Helper in '..\Shared\Optix.Shared.Helper.pas';

{$R *.res}
{$R ..\Server\data.res}
Expand Down
1 change: 1 addition & 0 deletions Client GUI/Client_GUI_OpenSSL.dproj
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -215,6 +215,7 @@
<DCCReference Include="..\Shared\Optix.Registry.Helper.pas"/>
<DCCReference Include="..\Shared\Optix.Registry.Enum.pas"/>
<DCCReference Include="..\Shared\Functions\Optix.Func.Commands.ContentReader.pas"/>
<DCCReference Include="..\Shared\Optix.Shared.Helper.pas"/>
<BuildConfiguration Include="Base">
<Key>Base</Key>
</BuildConfiguration>
Expand Down
Binary file modified Client GUI/Client_GUI_OpenSSL.res
View file
Open in desktop
Binary file not shown.
9 changes: 8 additions & 1 deletion Client GUI/Units/Forms/uFormConnectToServer.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -38,9 +38,17 @@
{ internet generally. }
{ }
{ }
{ Authorship (No AI): }
{ ------------------- }
{ All code contained in this unit was written and developed by the author }
{ without the assistance of artificial intelligence systems, large language }
{ models (LLMs), or automated code generation tools. Any external libraries }
{ or frameworks used comply with their respective licenses. }
{ }
{******************************************************************************}



unit uFormConnectToServer;

interface
Expand Down Expand Up @@ -222,7 +230,6 @@ procedure TFormConnectToServer.SpinPortChange(Sender: TObject);
TSpinEdit(Sender).Value := 65535;
end;

{ TFormConnectToServer.Create }
procedure TFormConnectToServer.ComboIpVersionChange(Sender: TObject);
begin
case TComboBox(Sender).ItemIndex of
Expand Down
2 changes: 0 additions & 2 deletions Client GUI/Units/Forms/uFormMain.dfm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -41,9 +41,7 @@ object FormMain: TFormMain
TreeOptions.PaintOptions = [toHideFocusRect, toShowButtons, toShowDropmark, toShowTreeLines, toShowVertGridLines, toThemeAware, toUseBlendedImages, toFullVertGridLines]
TreeOptions.SelectionOptions = [toFullRowSelect, toRightClickSelect, toSelectNextNodeOnRemoval]
OnBeforeCellPaint = VSTBeforeCellPaint
OnChange = VSTChange
OnCompareNodes = VSTCompareNodes
OnFocusChanged = VSTFocusChanged
OnFreeNode = VSTFreeNode
OnGetText = VSTGetText
OnGetImageIndex = VSTGetImageIndex
Expand Down
20 changes: 8 additions & 12 deletions Client GUI/Units/Forms/uFormMain.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -38,9 +38,17 @@
{ internet generally. }
{ }
{ }
{ Authorship (No AI): }
{ ------------------- }
{ All code contained in this unit was written and developed by the author }
{ without the assistance of artificial intelligence systems, large language }
{ models (LLMs), or automated code generation tools. Any external libraries }
{ or frameworks used comply with their respective licenses. }
{ }
{******************************************************************************}



unit uFormMain;

interface
Expand Down Expand Up @@ -100,8 +108,6 @@ TFormMain = class(TForm)
Certificates1: TMenuItem;
rustedCertificates1: TMenuItem;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure VSTChange(Sender: TBaseVirtualTree; Node: PVirtualNode);
procedure VSTFocusChanged(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex);
procedure VSTGetNodeDataSize(Sender: TBaseVirtualTree; var NodeDataSize: Integer);
procedure VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
var CellText: string);
Expand Down Expand Up @@ -459,11 +465,6 @@ procedure TFormMain.VSTBeforeCellPaint(Sender: TBaseVirtualTree; TargetCanvas: T
end;
end;

procedure TFormMain.VSTChange(Sender: TBaseVirtualTree; Node: PVirtualNode);
begin
TVirtualStringTree(Sender).Refresh();
end;

procedure TFormMain.VSTCompareNodes(Sender: TBaseVirtualTree; Node1, Node2: PVirtualNode; Column: TColumnIndex;
var Result: Integer);
begin
Expand Down Expand Up @@ -491,11 +492,6 @@ procedure TFormMain.VSTCompareNodes(Sender: TBaseVirtualTree; Node1, Node2: PVir
end;
end;

procedure TFormMain.VSTFocusChanged(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex);
begin
TVirtualStringTree(Sender).Refresh();
end;

procedure TFormMain.VSTFreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
begin
var pData := PTreeData(Node.GetData);
Expand Down
15 changes: 14 additions & 1 deletion Client GUI/Units/Optix.Constants.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -38,14 +38,27 @@
{ internet generally. }
{ }
{ }
{ Authorship (No AI): }
{ ------------------- }
{ All code contained in this unit was written and developed by the author }
{ without the assistance of artificial intelligence systems, large language }
{ models (LLMs), or automated code generation tools. Any external libraries }
{ or frameworks used comply with their respective licenses. }
{ }
{******************************************************************************}



unit Optix.Constants;

interface

uses Winapi.Windows, VCL.Graphics;
// ---------------------------------------------------------------------------------------------------------------------
uses
Winapi.Windows,

VCL.Graphics;
// ---------------------------------------------------------------------------------------------------------------------

const
IMAGE_CLIENT_DISCONNECTED = 1;
Expand Down
Binary file removed Client/Assets/teddy.ico
View file
Open in desktop
Binary file not shown.
106 changes: 0 additions & 106 deletions Client/Client.dpr
View file
Open in desktop

This file was deleted.

Loading