From 194923c172167eb3fc33807ec8009b255f86337e Mon Sep 17 00:00:00 2001
From: Vadim Dashevskiy <watcherhd@gmail.com>
Date: Mon, 8 Oct 2012 09:10:06 +0000
Subject: Plugin is not adapted until someone can compile it and tell others
 how to do the same

git-svn-id: http://svn.miranda-ng.org/main/trunk@1809 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 .../lib/TntUnicodeControls/Source/TntGraphics.pas  | 142 ---------------------
 1 file changed, 142 deletions(-)
 delete mode 100644 plugins/Chess4Net/lib/TntUnicodeControls/Source/TntGraphics.pas

(limited to 'plugins/Chess4Net/lib/TntUnicodeControls/Source/TntGraphics.pas')

diff --git a/plugins/Chess4Net/lib/TntUnicodeControls/Source/TntGraphics.pas b/plugins/Chess4Net/lib/TntUnicodeControls/Source/TntGraphics.pas
deleted file mode 100644
index 617b901f77..0000000000
--- a/plugins/Chess4Net/lib/TntUnicodeControls/Source/TntGraphics.pas
+++ /dev/null
@@ -1,142 +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 TntGraphics;
-
-{$INCLUDE TntCompilers.inc}
-
-interface
-
-uses
-  Graphics, Windows;
-
-{TNT-WARN TextRect}
-procedure WideCanvasTextRect(Canvas: TCanvas; Rect: TRect; X, Y: Integer; const Text: WideString);
-{TNT-WARN TextOut}
-procedure WideCanvasTextOut(Canvas: TCanvas; X, Y: Integer; const Text: WideString);
-{TNT-WARN TextExtent}
-function WideCanvasTextExtent(Canvas: TCanvas; const Text: WideString): TSize;
-function WideDCTextExtent(hDC: THandle; const Text: WideString): TSize;
-{TNT-WARN TextWidth}
-function WideCanvasTextWidth(Canvas: TCanvas; const Text: WideString): Integer;
-{TNT-WARN TextHeight}
-function WideCanvasTextHeight(Canvas: TCanvas; const Text: WideString): Integer;
-
-type
-{TNT-WARN TPicture}
-  TTntPicture = class(TPicture{TNT-ALLOW TPicture})
-  public
-    procedure LoadFromFile(const Filename: WideString);
-    procedure SaveToFile(const Filename: WideString);
-  end;
-
-implementation
-
-uses
-  SysUtils, TntSysUtils;
-
-type
-  TAccessCanvas = class(TCanvas);
-
-procedure WideCanvasTextRect(Canvas: TCanvas; Rect: TRect; X, Y: Integer; const Text: WideString);
-var
-  Options: Longint;
-begin
-  with TAccessCanvas(Canvas) do begin
-    Changing;
-    RequiredState([csHandleValid, csFontValid, csBrushValid]);
-    Options := ETO_CLIPPED or TextFlags;
-    if Brush.Style <> bsClear then
-      Options := Options or ETO_OPAQUE;
-    if ((TextFlags and ETO_RTLREADING) <> 0) and
-       (CanvasOrientation = coRightToLeft) then Inc(X, WideCanvasTextWidth(Canvas, Text) + 1);
-    Windows.ExtTextOutW(Handle, X, Y, Options, @Rect, PWideChar(Text),
-      Length(Text), nil);
-    Changed;
-  end;
-end;
-
-procedure WideCanvasTextOut(Canvas: TCanvas; X, Y: Integer; const Text: WideString);
-begin
-  with TAccessCanvas(Canvas) do begin
-    Changing;
-    RequiredState([csHandleValid, csFontValid, csBrushValid]);
-    if CanvasOrientation = coRightToLeft then Inc(X, WideCanvasTextWidth(Canvas, Text) + 1);
-    Windows.ExtTextOutW(Handle, X, Y, TextFlags, nil, PWideChar(Text),
-     Length(Text), nil);
-    MoveTo(X + WideCanvasTextWidth(Canvas, Text), Y);
-    Changed;
-  end;
-end;
-
-function WideDCTextExtent(hDC: THandle; const Text: WideString): TSize;
-begin
-  Result.cx := 0;
-  Result.cy := 0;
-  Windows.GetTextExtentPoint32W(hDC, PWideChar(Text), Length(Text), Result);
-end;
-
-function WideCanvasTextExtent(Canvas: TCanvas; const Text: WideString): TSize;
-begin
-  with TAccessCanvas(Canvas) do begin
-    RequiredState([csHandleValid, csFontValid]);
-    Result := WideDCTextExtent(Handle, Text);
-  end;
-end;
-
-function WideCanvasTextWidth(Canvas: TCanvas; const Text: WideString): Integer;
-begin
-  Result := WideCanvasTextExtent(Canvas, Text).cX;
-end;
-
-function WideCanvasTextHeight(Canvas: TCanvas; const Text: WideString): Integer;
-begin
-  Result := WideCanvasTextExtent(Canvas, Text).cY;
-end;
-
-{ TTntPicture }
-
-procedure TTntPicture.LoadFromFile(const Filename: WideString);
-var
-  ShortName: WideString;
-begin
-  ShortName := WideExtractShortPathName(Filename);
-  if WideSameText(WideExtractFileExt(FileName), '.jpeg') // the short name ends with ".JPE"!
-  or (ShortName = '') then // GetShortPathName failed
-    inherited LoadFromFile(FileName)
-  else
-    inherited LoadFromFile(WideExtractShortPathName(Filename));
-end;
-
-procedure TTntPicture.SaveToFile(const Filename: WideString);
-var
-  TempFile: WideString;
-begin
-  if Graphic <> nil then begin
-    // create to temp file (ansi safe file name)
-    repeat
-      TempFile := WideExtractFilePath(Filename) + IntToStr(Random(MaxInt)) + WideExtractFileExt(Filename);
-    until not WideFileExists(TempFile);
-    CloseHandle(WideFileCreate(TempFile)); // make it a real file so that it has a temp
-    try
-      // save
-      Graphic.SaveToFile(WideExtractShortPathName(TempFile));
-      // rename
-      WideDeleteFile(Filename);
-      if not WideRenameFile(TempFile, FileName) then
-        RaiseLastOSError;
-    finally
-      WideDeleteFile(TempFile);
-    end;
-  end;
-end;
-
-end.
-- 
cgit v1.2.3