Changeset 522 for GraphicTest/Packages/Graphics32/GR32_Backends.pas

Timestamp:

Apr 17, 2019, 10:42:18 AM (5 years ago)

Author:

chronos

Message:

• Modified: Updated Graphics32 library.

Location:

GraphicTest/Packages/Graphics32

Files:

• . (modified) (1 prop)
• GR32_Backends.pas (modified) (4 diffs)

GraphicTest/Packages/Graphics32/GR32_Backends.pas

@@ -44 +44 @@
   Windows, Messages, Controls, Graphics,
 {$ENDIF}
-  Classes, SysUtils, GR32, GR32_Containers, GR32_Image;
+  Classes, SysUtils, GR32, GR32_Containers, GR32_Image, GR32_Paths;
 
 type
+  EBackend = class(Exception);
+
   ITextSupport = interface(IUnknown)
   ['{225997CC-958A-423E-8B60-9EDE0D3B53B5}']
@@ -70 +72 @@
     property Font: TFont read GetFont write SetFont;
     property OnFontChange: TNotifyEvent read GetOnFontChange write SetOnFontChange;
+  end;
+
+  ITextToPathSupport = interface(IUnknown)
+  ['{6C4037E4-FF4D-4EE2-9C20-B9DB9C64B42D}']
+    procedure TextToPath(Path: TCustomPath; const X, Y: TFloat; const Text: WideString); overload;
+    procedure TextToPath(Path: TCustomPath; const DstRect: TFloatRect; const Text: WideString; Flags: Cardinal); overload;
+    function MeasureText(const DstRect: TFloatRect; const Text: WideString; Flags: Cardinal): TFloatRect;
   end;
 
@@ -130 +139 @@
 implementation
 
-uses
-  GR32_LowLevel;
-
 procedure RequireBackendSupport(TargetBitmap: TCustomBitmap32;
   RequiredInterfaces: array of TGUID;
@@ -159 +165 @@
     // TODO: Try to find a back-end that supports the required interfaces
     //       instead of resorting to the default platform back-end class...
-    TargetBitmap.Backend := GetPlatformBackendClass.Create;
+    TargetBitmap.Backend := TargetBitmap.GetPlatformBackendClass.Create;
   end
   else