libTextSuite/ultsTextBlock.pas

unit ultsTextBlock;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils,
  utsTextSuite,
  ultsTypes;

function ltsTextBlockGetRect        (const aHandle: TltsTextBlockHandle; var aValue: TtsRect):            TltsErrorCode; stdcall;
function ltsTextBlockGetWidth       (const aHandle: TltsTextBlockHandle; var aValue: Integer):            TltsErrorCode; stdcall;
function ltsTextBlockGetHeight      (const aHandle: TltsTextBlockHandle; var aValue: Integer):            TltsErrorCode; stdcall;
function ltsTextBlockGetFlags       (const aHandle: TltsTextBlockHandle; var aValue: TtsBlockFlags):      TltsErrorCode; stdcall;

function ltsTextBlockGetTop         (const aHandle: TltsTextBlockHandle; var aValue: Integer):            TltsErrorCode; stdcall;
function ltsTextBlockGetLeft        (const aHandle: TltsTextBlockHandle; var aValue: Integer):            TltsErrorCode; stdcall;
function ltsTextBlockGetVertAlign   (const aHandle: TltsTextBlockHandle; var aValue: TtsVertAlignment):   TltsErrorCode; stdcall;
function ltsTextBlockGetHorzAlign   (const aHandle: TltsTextBlockHandle; var aValue: TtsHorzAlignment):   TltsErrorCode; stdcall;
function ltsTextBlockGetClipping    (const aHandle: TltsTextBlockHandle; var aValue: TtsClipping):        TltsErrorCode; stdcall;
function ltsTextBlockGetColor       (const aHandle: TltsTextBlockHandle; var aValue: TtsColor4f):         TltsErrorCode; stdcall;
function ltsTextBlockGetFont        (const aHandle: TltsTextBlockHandle; var aValue: TltsFontHandle):     TltsErrorCode; stdcall;

function ltsTextBlockSetTop         (const aHandle: TltsTextBlockHandle; const aValue: Integer):          TltsErrorCode; stdcall;
function ltsTextBlockSetLeft        (const aHandle: TltsTextBlockHandle; const aValue: Integer):          TltsErrorCode; stdcall;
function ltsTextBlockSetVertAlign   (const aHandle: TltsTextBlockHandle; const aValue: TtsVertAlignment): TltsErrorCode; stdcall;
function ltsTextBlockSetHorzAlign   (const aHandle: TltsTextBlockHandle; const aValue: TtsHorzAlignment): TltsErrorCode; stdcall;
function ltsTextBlockSetClipping    (const aHandle: TltsTextBlockHandle; const aValue: TtsClipping):      TltsErrorCode; stdcall;
function ltsTextBlockSetColor       (const aHandle: TltsTextBlockHandle; const aValue: TtsColor4f):       TltsErrorCode; stdcall;
function ltsTextBlockSetFont        (const aHandle: TltsTextBlockHandle; const aValue: TltsFontHandle):   TltsErrorCode; stdcall;

function ltsTextBlockGetActualHeight(const aHandle: TltsTextBlockHandle):                                 Integer;       stdcall;
function ltsTextBlockGetTextWidthA  (const aHandle: TltsTextBlockHandle; const aText: PAnsiChar):         Integer;       stdcall;
function ltsTextBlockGetTextWidthW  (const aHandle: TltsTextBlockHandle; const aText: PWideChar):         Integer;       stdcall;

function ltsTextBlockTextOutA       (const aHandle: TltsTextBlockHandle; const aText: PAnsiChar):         TltsErrorCode; stdcall;
function ltsTextBlockTextOutW       (const aHandle: TltsTextBlockHandle; const aText: PWideChar):         TltsErrorCode; stdcall;

function ltsTextBlockDestroy        (const aHandle: TltsTextBlockHandle):                                 TltsErrorCode; stdcall;

implementation

uses
  ultsUtils;

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//TextBlock/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function ltsTextBlockGetRect(const aHandle: TltsTextBlockHandle; var aValue: TtsRect): TltsErrorCode; stdcall;
var
  b: TtsTextBlock;
begin
  try
    result := ltsErrNone;
    if CheckTextBlockHandle(aHandle, b)
      then aValue := b.Rect
      else result := LastErrorCode;
  except
    on ex: Exception do begin
      SetLastError(ex);
      result := LastErrorCode;
    end;
  end;
end;

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function ltsTextBlockGetWidth(const aHandle: TltsTextBlockHandle; var aValue: Integer): TltsErrorCode; stdcall;
var
  b: TtsTextBlock;
begin
  try
    result := ltsErrNone;
    if CheckTextBlockHandle(aHandle, b)
      then aValue := b.Width
      else result := LastErrorCode;
  except
    on ex: Exception do begin
      SetLastError(ex);
      result := LastErrorCode;
    end;
  end;
end;

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function ltsTextBlockGetHeight(const aHandle: TltsTextBlockHandle; var aValue: Integer): TltsErrorCode; stdcall;
var
  b: TtsTextBlock;
begin
  try
    result := ltsErrNone;
    if CheckTextBlockHandle(aHandle, b)
      then aValue := b.Height
      else result := LastErrorCode;
  except
    on ex: Exception do begin
      SetLastError(ex);
      result := LastErrorCode;
    end;
  end;
end;

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function ltsTextBlockGetFlags(const aHandle: TltsTextBlockHandle; var aValue: TtsBlockFlags): TltsErrorCode; stdcall;
var
  b: TtsTextBlock;
begin
  try
    result := ltsErrNone;
    if CheckTextBlockHandle(aHandle, b)
      then aValue := b.Flags
      else result := LastErrorCode;
  except
    on ex: Exception do begin
      SetLastError(ex);
      result := LastErrorCode;
    end;
  end;
end;

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function ltsTextBlockGetTop(const aHandle: TltsTextBlockHandle; var aValue: Integer): TltsErrorCode; stdcall;
var
  b: TtsTextBlock;
begin
  try
    result := ltsErrNone;
    if CheckTextBlockHandle(aHandle, b)
      then aValue := b.Top
      else result := LastErrorCode;
  except
    on ex: Exception do begin
      SetLastError(ex);
      result := LastErrorCode;
    end;
  end;
end;

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function ltsTextBlockGetLeft(const aHandle: TltsTextBlockHandle; var aValue: Integer): TltsErrorCode; stdcall;
var
  b: TtsTextBlock;
begin
  try
    result := ltsErrNone;
    if CheckTextBlockHandle(aHandle, b)
      then aValue := b.Left
      else result := LastErrorCode;
  except
    on ex: Exception do begin
      SetLastError(ex);
      result := LastErrorCode;
    end;
  end;
end;

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function ltsTextBlockGetVertAlign(const aHandle: TltsTextBlockHandle; var aValue: TtsVertAlignment): TltsErrorCode; stdcall;
var
  b: TtsTextBlock;
begin
  try
    result := ltsErrNone;
    if CheckTextBlockHandle(aHandle, b)
      then aValue := b.VertAlign
      else result := LastErrorCode;
  except
    on ex: Exception do begin
      SetLastError(ex);
      result := LastErrorCode;
    end;
  end;
end;

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function ltsTextBlockGetHorzAlign(const aHandle: TltsTextBlockHandle; var aValue: TtsHorzAlignment): TltsErrorCode; stdcall;
var
  b: TtsTextBlock;
begin
  try
    result := ltsErrNone;
    if CheckTextBlockHandle(aHandle, b)
      then aValue := b.HorzAlign
      else result := LastErrorCode;
  except
    on ex: Exception do begin
      SetLastError(ex);
      result := LastErrorCode;
    end;
  end;
end;

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function ltsTextBlockGetClipping(const aHandle: TltsTextBlockHandle; var aValue: TtsClipping): TltsErrorCode; stdcall;
var
  b: TtsTextBlock;
begin
  try
    result := ltsErrNone;
    if CheckTextBlockHandle(aHandle, b)
      then aValue := b.Clipping
      else result := LastErrorCode;
  except
    on ex: Exception do begin
      SetLastError(ex);
      result := LastErrorCode;
    end;
  end;
end;

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function ltsTextBlockGetColor(const aHandle: TltsTextBlockHandle; var aValue: TtsColor4f): TltsErrorCode; stdcall;
var
  b: TtsTextBlock;
begin
  try
    result := ltsErrNone;
    if CheckTextBlockHandle(aHandle, b)
      then aValue := b.CurrentColor
      else result := LastErrorCode;
  except
    on ex: Exception do begin
      SetLastError(ex);
      result := LastErrorCode;
    end;
  end;
end;

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function ltsTextBlockGetFont(const aHandle: TltsTextBlockHandle; var aValue: TltsFontHandle): TltsErrorCode; stdcall;
var
  b: TtsTextBlock;
begin
  try
    result := ltsErrNone;
    if CheckTextBlockHandle(aHandle, b)
      then aValue := b.CurrentFont
      else result := LastErrorCode;
  except
    on ex: Exception do begin
      SetLastError(ex);
      result := LastErrorCode;
    end;
  end;
end;

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function ltsTextBlockSetTop(const aHandle: TltsTextBlockHandle; const aValue: Integer): TltsErrorCode; stdcall;
var
  b: TtsTextBlock;
begin
  try
    result := ltsErrNone;
    if CheckTextBlockHandle(aHandle, b)
      then b.Top := aValue
      else result := LastErrorCode;
  except
    on ex: Exception do begin
      SetLastError(ex);
      result := LastErrorCode;
    end;
  end;
end;

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function ltsTextBlockSetLeft(const aHandle: TltsTextBlockHandle; const aValue: Integer): TltsErrorCode; stdcall;
var
  b: TtsTextBlock;
begin
  try
    result := ltsErrNone;
    if CheckTextBlockHandle(aHandle, b)
      then b.Left := aValue
      else result := LastErrorCode;
  except
    on ex: Exception do begin
      SetLastError(ex);
      result := LastErrorCode;
    end;
  end;
end;

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function ltsTextBlockSetVertAlign(const aHandle: TltsTextBlockHandle; const aValue: TtsVertAlignment): TltsErrorCode; stdcall;
var
  b: TtsTextBlock;
begin
  try
    result := ltsErrNone;
    if CheckTextBlockHandle(aHandle, b)
      then b.VertAlign := aValue
      else result := LastErrorCode;
  except
    on ex: Exception do begin
      SetLastError(ex);
      result := LastErrorCode;
    end;
  end;
end;

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function ltsTextBlockSetHorzAlign(const aHandle: TltsTextBlockHandle; const aValue: TtsHorzAlignment): TltsErrorCode; stdcall;
var
  b: TtsTextBlock;
begin
  try
    result := ltsErrNone;
    if CheckTextBlockHandle(aHandle, b)
      then b.HorzAlign := aValue
      else result := LastErrorCode;
  except
    on ex: Exception do begin
      SetLastError(ex);
      result := LastErrorCode;
    end;
  end;
end;

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function ltsTextBlockSetClipping(const aHandle: TltsTextBlockHandle; const aValue: TtsClipping): TltsErrorCode; stdcall;
var
  b: TtsTextBlock;
begin
  try
    result := ltsErrNone;
    if CheckTextBlockHandle(aHandle, b)
      then b.Clipping := aValue
      else result := LastErrorCode;
  except
    on ex: Exception do begin
      SetLastError(ex);
      result := LastErrorCode;
    end;
  end;
end;

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function ltsTextBlockSetColor(const aHandle: TltsTextBlockHandle; const aValue: TtsColor4f): TltsErrorCode; stdcall;
var
  b: TtsTextBlock;
begin
  try
    result := ltsErrNone;
    if CheckTextBlockHandle(aHandle, b)
      then b.CurrentColor := aValue
      else result := LastErrorCode;
  except
    on ex: Exception do begin
      SetLastError(ex);
      result := LastErrorCode;
    end;
  end;
end;

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function ltsTextBlockSetFont(const aHandle: TltsTextBlockHandle; const aValue: TltsFontHandle): TltsErrorCode; stdcall;
var
  b: TtsTextBlock;
  f: TtsFont;
begin
  try
    result := ltsErrNone;
    if CheckTextBlockHandle(aHandle, b) and CheckFontHandle(aValue, f)
      then b.CurrentFont := f
      else result := LastErrorCode;
  except
    on ex: Exception do begin
      SetLastError(ex);
      result := LastErrorCode;
    end;
  end;
end;

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function ltsTextBlockGetActualHeight(const aHandle: TltsTextBlockHandle): Integer; stdcall;
var
  b: TtsTextBlock;
begin
  try
    if CheckTextBlockHandle(aHandle, b)
      then result := b.GetActualBlockHeight
      else result := -1;
  except
    on ex: Exception do begin
      SetLastError(ex);
      result := -1;
    end;
  end;
end;

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function ltsTextBlockGetTextWidthA(const aHandle: TltsTextBlockHandle; const aText: PAnsiChar): Integer; stdcall;
var
  b: TtsTextBlock;
begin
  try
    if CheckTextBlockHandle(aHandle, b)
      then result := b.GetTextWidthA(aText)
      else result := -1;
  except
    on ex: Exception do begin
      SetLastError(ex);
      result := -1;
    end;
  end;
end;

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function ltsTextBlockGetTextWidthW(const aHandle: TltsTextBlockHandle; const aText: PWideChar): Integer; stdcall;
var
  b: TtsTextBlock;
begin
  try
    if CheckTextBlockHandle(aHandle, b)
      then result := b.GetTextWidthW(aText)
      else result := -1;
  except
    on ex: Exception do begin
      SetLastError(ex);
      result := -1;
    end;
  end;
end;

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function ltsTextBlockTextOutA(const aHandle: TltsTextBlockHandle; const aText: PAnsiChar): TltsErrorCode; stdcall;
var
  b: TtsTextBlock;
begin
  try
    result := ltsErrNone;
    if CheckTextBlockHandle(aHandle, b)
      then b.TextOutA(aText)
      else result := LastErrorCode;
  except
    on ex: Exception do begin
      SetLastError(ex);
      result := LastErrorCode;
    end;
  end;
end;

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function ltsTextBlockTextOutW(const aHandle: TltsTextBlockHandle; const aText: PWideChar): TltsErrorCode; stdcall;
var
  b: TtsTextBlock;
begin
  try
    result := ltsErrNone;
    if CheckTextBlockHandle(aHandle, b)
      then b.TextOutW(aText)
      else result := LastErrorCode;
  except
    on ex: Exception do begin
      SetLastError(ex);
      result := LastErrorCode;
    end;
  end;
end;

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function ltsTextBlockDestroy(const aHandle: TltsTextBlockHandle): TltsErrorCode; stdcall;
var
  b: TtsTextBlock;
begin
  try
    result := ltsErrNone;
    if CheckTextBlockHandle(aHandle, b) then begin
      DelReference(ltsObjTypeTextBlock, b);
      FreeAndNil(b);
    end else
      result := LastErrorCode;
  except
    on ex: Exception do begin
      SetLastError(ex);
      result := LastErrorCode;
    end;
  end;
end;

end.