unit mainform;

{$mode objfpc}{$H+}

interface

uses
  SysUtils, Forms, Graphics, ExtCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Image: TImage;
    procedure FormCreate(Sender: TObject);
  private

  public

  end; 

var
  Form1: TForm1; 

implementation

uses lclintf, types;

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
var
  lRes: Integer;
  lStr: String;
  lMaxCount: Integer;
  lPartialWidths: array[0..23] of Integer;
  lSize: TSize;
  i: Integer;
begin
  for i := 0 to 23 do lPartialWidths[i] := 0;

  // Basic initialization
  Image.Canvas.Font.Size := 12;
  Image.Canvas.Pen.Color := clWhite;
  Image.Canvas.Brush.Color := clWhite;
  Image.Canvas.Brush.Style := bsSolid;
  Image.Canvas.Rectangle(0, 0, Image.Width, Image.Height);

  // TextFitInfo test 1 (calls GetTextExtentExPoint with partial widths = nil)
  lStr := 'ABCDEFGHIJKLMNOPQRSXYZ';
  lRes := Image.Canvas.TextFitInfo(lStr, 80);
  Image.Canvas.TextOut(20, 20, Format('TextFitInfo Test 1. Returned %d should be aprox. 7 to 10', [lRes]));
  Image.Canvas.Brush.Color := clBlue;
  Image.Canvas.Brush.Style := bsSolid;
  Image.Canvas.Rectangle(20, 35, 100, 50);
  Image.Canvas.Brush.Style := bsClear;
  Image.Canvas.TextOut(20, 35, lStr);

  // GetTextExtentExPoint test 1 with partial widths and MaxCount
  lStr := 'ABCDEFGHIJKLMNOPQRSXYZ';
  LCLIntf.GetTextExtentExPoint(Image.Canvas.Handle, PChar(lStr),
    Length(lStr), 50, @lMaxCount, @lPartialWidths[0], lSize);
  lRes := Image.Canvas.TextFitInfo(lStr, 50);
  Image.Canvas.Brush.Style := bsClear;
  Image.Canvas.TextOut(20, 60, Format('GetTextExtentExPoint Test 1. Returned MaxCount=%d should be aprox. 4 to 6', [lMaxCount]));
  Image.Canvas.Brush.Color := clBlue;
  for i := 0 to 6 do
  begin
    Image.Canvas.Brush.Style := bsSolid;
    Image.Canvas.Rectangle(20, 75 + i * 15, 20+lPartialWidths[i], 90 + i * 15);
    Image.Canvas.Brush.Style := bsClear;
    Image.Canvas.TextOut(20, 75 + i *15, lStr);
  end;

  // Now add something hard: Arabic
  lStr := 'العرب';
  LCLIntf.GetTextExtentExPoint(Image.Canvas.Handle, PChar(lStr),
    Length(lStr), 50, @lMaxCount, @lPartialWidths[0], lSize);
  lRes := Image.Canvas.TextFitInfo(lStr, 50);
  Image.Canvas.Brush.Style := bsClear;
  Image.Canvas.TextOut(20, 200, Format('GetTextExtentExPoint Arabic. Returned MaxCount=%d should be aprox. 5', [lMaxCount]));
  Image.Canvas.Brush.Color := clBlue;
  for i := 0 to 4 do
  begin
    Image.Canvas.Brush.Style := bsSolid;
    Image.Canvas.Rectangle(20+lSize.cx-lPartialWidths[i], 225 + i * 15, 20+lSize.cx, 240 + i * 15);
    Image.Canvas.Brush.Style := bsClear;
    Image.Canvas.TextOut(20, 225 + i *15, lStr);
  end;
end;

end.