From a0f6fd68a56068a20e7186e2dd2d7daccfbce4aa Mon Sep 17 00:00:00 2001
From: Pavel Perminov <packpaul@mail.ru>
Date: Wed, 26 Sep 2012 19:02:53 +0000
Subject: Chess4Net_MI 2010.0 release (106 rev. truncated adjusted copy)

git-svn-id: http://svn.miranda-ng.org/main/trunk@1666 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 .../lib/TntUnicodeControls/Source/TntGraphics.pas  | 142 +++++++++++++++++++++
 1 file changed, 142 insertions(+)
 create 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
new file mode 100644
index 0000000000..617b901f77
--- /dev/null
+++ b/plugins/Chess4Net/lib/TntUnicodeControls/Source/TntGraphics.pas
@@ -0,0 +1,142 @@
+
+{*****************************************************************************}
+{                                                                             }
+{    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