Lazarus

Using the Lazarus IDE => Editor => Topic started by: inky on February 04, 2005, 09:11:53 am

Title: unicode works!
Post by: inky on February 04, 2005, 09:11:53 am
this way :
(sylfaen is miscrosoft unicode font, that contains armenian and russian characters and it 's name under linux is 'SylfaenARM';)
procedure TForm1.Form1Create(Sender: TObject);
begin
Form1.Font.Name := 'SylfaenARM';
Label1.Font.Name := 'SylfaenARM';
Label1.Text := #$D0#$9F#$D1#$80#$D0#$B8#$D0#$B2#$D0#$B5#$D1#$82;

it will show russian 'hello' word ;)

[/img]
TinyPortal © 2005-2018