Alternativa a TEXTOUT que soporte Unicode

[MDSato]

MUCHISIMAS GRACIAS!!!!
TODO PERFECTO ENTONCES...

Mil gracias por tu respuesta... Veía el asunto muy negro (o en chino, para seguir con la temática unicode)...

[[seoane]]

Pues vaya, mientras estaba creando un ejemplo me pisaron la respuestaa

Código Delphi [-]
var
  Bitmap: TBitmap;
  Size: TSize;
  Texto: WideString;
begin
  Texto:= #$06E9 + #$06E9; // Caracteres arabes
  Bitmap:= TBitmap.Create;
  try
    Bitmap.Canvas.Font.Name:= 'Arial';
    Bitmap.Canvas.Font.Size:= 16;
    Bitmap.Canvas.Font.Style := [];
    // Version Unicode de GetTextExtentPoint32
    GetTextExtentPoint32W(Bitmap.Canvas.Handle,PWideChar(Texto),
      Length(Texto),Size);
    Bitmap.Width:= Size.cx;
    Bitmap.Height:= Size.cy;
    // Version Unicode de TextExtent
    ExtTextOutW(Bitmap.Canvas.Handle, 0, 0, 0, nil, PWideChar(Texto),
      Length(Texto), nil);
    // Aqui yo lo dibujo para ver el resultado
    Canvas.Draw(0,0,Bitmap);
  finally
    Bitmap.Free;
  end;
end;

Hasta tenia preparada una explicación:

La mayoria de la funciones de la API que tienen que tratar con texto tienen dos versiones la ANSI y la Unicode. El metodo TextOut del Canvas utiliza la funcion ExtTextOut en su version ANSI (ExtTextOutA), si necesitas trabajar con Unicode tendras que usar la otra version (ExtTextOutW).

Tengo que ser mas rápido

[[ArdiIIa]]

Empezado por seoane

:
Tengo que ser mas rápido

Sabía que estabas tardando demasiado en aparecer...
Y pensaba... "verás cuando venga seoane. "

[MDSato]

De todas formas, gracias a los dos...
Seguro que servirá a algún novato como yo en estos temas...