From 322c312a7de995e0fe87326b64f05b2e60f0e9f0 Mon Sep 17 00:00:00 2001
From: Bergmann89 <info@bergmann89.de>
Date: Sun, 3 Jan 2016 17:41:32 +0100
Subject: [PATCH] * switched Constructor Parameter in TextBlock (Left and
 Right)

---
 utsRenderer.pas  | 6 +++---
 utsTextBlock.pas | 4 ++--
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/utsRenderer.pas b/utsRenderer.pas
index 84f8b1c..025f14e 100644
--- a/utsRenderer.pas
+++ b/utsRenderer.pas
@@ -17,7 +17,7 @@ type
     function GetTextWidthA(const aFont: TtsFont; const aText: PAnsiChar): Integer;
     function GetTextWidthW(const aFont: TtsFont; const aText: PWideChar): Integer;
 
-    function BeginBlock(const aTop, aLeft, aWidth, aHeight: Integer; const aFlags: TtsBlockFlags): TtsTextBlock;
+    function BeginBlock(const aLeft, aTop, aWidth, aHeight: Integer; const aFlags: TtsBlockFlags): TtsTextBlock;
   public
     class procedure EndBlock(var aBlock: TtsTextBlock);
     class procedure AbortBlock(var aBlock: TtsTextBlock);
@@ -49,9 +49,9 @@ begin
 end;
 
 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
-function TtsRenderer.BeginBlock(const aTop, aLeft, aWidth, aHeight: Integer; const aFlags: TtsBlockFlags): TtsTextBlock;
+function TtsRenderer.BeginBlock(const aLeft, aTop, aWidth, aHeight: Integer; const aFlags: TtsBlockFlags): TtsTextBlock;
 begin
-  result := TtsTextBlock.Create(self, aTop, aLeft, aWidth, aHeight, aFlags);
+  result := TtsTextBlock.Create(self, aLeft, aTop, aWidth, aHeight, aFlags);
 end;
 
 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
diff --git a/utsTextBlock.pas b/utsTextBlock.pas
index 5523838..f27af11 100644
--- a/utsTextBlock.pas
+++ b/utsTextBlock.pas
@@ -154,7 +154,7 @@ type
 
     procedure Render;
 
-    constructor Create(const aRenderer: TtsBlockRenderer; const aTop, aLeft, aWidth, aHeight: Integer; const aFlags: TtsBlockFlags);
+    constructor Create(const aRenderer: TtsBlockRenderer; const aLeft, aTop, aWidth, aHeight: Integer; const aFlags: TtsBlockFlags);
     destructor Destroy; override;
   end;
 
@@ -802,7 +802,7 @@ begin
 end;
 
 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
-constructor TtsTextBlock.Create(const aRenderer: TtsBlockRenderer; const aTop, aLeft, aWidth, aHeight: Integer; const aFlags: TtsBlockFlags);
+constructor TtsTextBlock.Create(const aRenderer: TtsBlockRenderer; const aLeft, aTop, aWidth, aHeight: Integer; const aFlags: TtsBlockFlags);
 begin
   inherited Create(aRenderer);
   fRenderer := aRenderer;