1 files changed, 0 insertions, 191 deletions
diff --git a/plugins/!NotAdopted/Chess4Net/lib/TntUnicodeControls/Source/TntAxCtrls.pas b/plugins/!NotAdopted/Chess4Net/lib/TntUnicodeControls/Source/TntAxCtrls.pas
deleted file mode 100644
index bc4b03c883..0000000000
--- a/plugins/!NotAdopted/Chess4Net/lib/TntUnicodeControls/Source/TntAxCtrls.pas
+++ /dev/null
@@ -1,191 +0,0 @@
-
-{*****************************************************************************}
-{                                                                             }
-{    Tnt Delphi Unicode Controls                                              }
-{      http://www.tntware.com/delphicontrols/unicode/                         }
-{        Version: 2.3.0                                                       }
-{                                                                             }
-{    Copyright (c) 2002-2007, Troy Wolbrink (troy.wolbrink@tntware.com)       }
-{                                                                             }
-{*****************************************************************************}
-
-unit TntAxCtrls;
-
-{$INCLUDE TntCompilers.inc}
-
-interface
-
-uses
-  ComObj, StdVcl,
-  {$IFNDEF COMPILER_10_UP}
-  TntWideStrings,
-  {$ELSE}
-  WideStrings,
-  {$ENDIF}
-  TntClasses;
-
-type
-  TWideStringsAdapter = class(TAutoIntfObject, IStrings, IWideStringsAdapter)
-  private
-    FStrings: TWideStrings;
-  protected
-    { IWideStringsAdapter }
-    procedure ReferenceStrings(S: TWideStrings);
-    procedure ReleaseStrings;
-    { IStrings }
-    function Get_ControlDefault(Index: Integer): OleVariant; safecall;
-    procedure Set_ControlDefault(Index: Integer; Value: OleVariant); safecall;
-    function Count: Integer; safecall;
-    function Get_Item(Index: Integer): OleVariant; safecall;
-    procedure Set_Item(Index: Integer; Value: OleVariant); safecall;
-    procedure Remove(Index: Integer); safecall;
-    procedure Clear; safecall;
-    function Add(Item: OleVariant): Integer; safecall;
-    function _NewEnum: IUnknown; safecall;
-  public
-    constructor Create(Strings: TTntStrings);
-  end;
-
-implementation
-
-uses
-  Classes, ActiveX, Variants;
-
-{ TStringsEnumerator }
-
-type
-  TStringsEnumerator = class(TContainedObject, IEnumString)
-  private
-    FIndex: Integer;  // index of next unread string
-    FStrings: IStrings;
-  public
-    constructor Create(const Strings: IStrings);
-    function Next(celt: Longint; out elt;
-      pceltFetched: PLongint): HResult; stdcall;
-    function Skip(celt: Longint): HResult; stdcall;
-    function Reset: HResult; stdcall;
-    function Clone(out enm: IEnumString): HResult; stdcall;
-  end;
-
-constructor TStringsEnumerator.Create(const Strings: IStrings);
-begin
-  inherited Create(Strings);
-  FStrings := Strings;
-end;
-
-function TStringsEnumerator.Next(celt: Longint; out elt; pceltFetched: PLongint): HResult;
-var
-  I: Integer;
-begin
-  I := 0;
-  while (I < celt) and (FIndex < FStrings.Count) do
-  begin
-    TPointerList(elt)[I] := PWideChar(WideString(FStrings.Item[FIndex]));
-    Inc(I);
-    Inc(FIndex);
-  end;
-  if pceltFetched <> nil then pceltFetched^ := I;
-  if I = celt then Result := S_OK else Result := S_FALSE;
-end;
-
-function TStringsEnumerator.Skip(celt: Longint): HResult;
-begin
-  if (FIndex + celt) <= FStrings.Count then
-  begin
-    Inc(FIndex, celt);
-    Result := S_OK;
-  end
-  else
-  begin
-    FIndex := FStrings.Count;
-    Result := S_FALSE;
-  end;
-end;
-
-function TStringsEnumerator.Reset: HResult;
-begin
-  FIndex := 0;
-  Result := S_OK;
-end;
-
-function TStringsEnumerator.Clone(out enm: IEnumString): HResult;
-begin
-  try
-    enm := TStringsEnumerator.Create(FStrings);
-    TStringsEnumerator(enm).FIndex := FIndex;
-    Result := S_OK;
-  except
-    Result := E_UNEXPECTED;
-  end;
-end;
-
-{ TWideStringsAdapter }
-
-constructor TWideStringsAdapter.Create(Strings: TTntStrings);
-var
-  StdVcl: ITypeLib;
-begin
-  OleCheck(LoadRegTypeLib(LIBID_STDVCL, 4, 0, 0, StdVcl));
-  inherited Create(StdVcl, IStrings);
-  FStrings := Strings;
-end;
-
-procedure TWideStringsAdapter.ReferenceStrings(S: TWideStrings);
-begin
-  FStrings := S;
-end;
-
-procedure TWideStringsAdapter.ReleaseStrings;
-begin
-  FStrings := nil;
-end;
-
-function TWideStringsAdapter.Get_ControlDefault(Index: Integer): OleVariant;
-begin
-  Result := Get_Item(Index);
-end;
-
-procedure TWideStringsAdapter.Set_ControlDefault(Index: Integer; Value: OleVariant);
-begin
-  Set_Item(Index, Value);
-end;
-
-function TWideStringsAdapter.Count: Integer;
-begin
-  Result := 0;
-  if FStrings <> nil then Result := FStrings.Count;
-end;
-
-function TWideStringsAdapter.Get_Item(Index: Integer): OleVariant;
-begin
-  Result := NULL;
-  if (FStrings <> nil) then Result := WideString(FStrings[Index]);
-end;
-
-procedure TWideStringsAdapter.Set_Item(Index: Integer; Value: OleVariant);
-begin
-  if (FStrings <> nil) then FStrings[Index] := Value;
-end;
-
-procedure TWideStringsAdapter.Remove(Index: Integer);
-begin
-  if FStrings <> nil then FStrings.Delete(Index);
-end;
-
-procedure TWideStringsAdapter.Clear;
-begin
-  if FStrings <> nil then FStrings.Clear;
-end;
-
-function TWideStringsAdapter.Add(Item: OleVariant): Integer;
-begin
-  Result := -1;
-  if FStrings <> nil then Result := FStrings.Add(Item);
-end;
-
-function TWideStringsAdapter._NewEnum: IUnknown;
-begin
-  Result := TStringsEnumerator.Create(Self);
-end;
-
-end.