Escrever WideString em Canvas

Question

Ol�!Existe alguma forma de escrever uma WideString em um Canvas. Exemplo: Image1.Picture.Bitmap.Canvas.TextOut(8,8,Texto);Sendo que Texto seria uma vari�vel WideString. Na verdade o que eu estou tenta...

Massuda · Answer

Acho que poucas fun��es da VCL est�o prontas para lidar com Unicode (talvez nenhuma).

No caso, voc� n�o pode usar TCanvas.TextOut porque esse m�todo assume que ir� escrever uma string normal (ANSI).

Acho que a alternativa � usar as rotinas de API do Windows para Unicode. Por exemplo, para escrever num canvas, fa�a algo assim...

var
  S: WideString;
  R: TRect;
  Flags: UINT;
....
  // veja a Ajuda do Delphi para DrawText
  DrawTextW(Canvas.Handle, PWideChar(@S[1]), Length(S), R, Flags);
...

Note o �W� no final do nome da fun��o... v�rias fun��es da API do Windows que usam strings vem em duas vers�es, uma para strings ANSI (e que s�o normalmente chamadas pelo Delphi) e outra para strings Unicode (tem o mesmo nome da vers�o ANSI, s� que tem o �W� no final do nome).

Delphi32 · Answer

Massuda, seu c�digo funcionou direitinho, mas s� pra ficar registrado aqui caso outras pessoas precisem da mesma coisa, logo depois que postei o t�pico aqui eu fui dar uma vasculhada pela net e achei na Code Central uma unit que implementa a classe TWideCanvas. Nessa unit tem inclusive rotinas para escrever WideStrings em um TCanvas. Segue a URL:

[url]http://cc.borland.com/Item.aspx?id=17762[/url]

Valeu pela ajuda! At�!

F�rum Escrever WideString em Canvas #294951