Recent

« previous next »
Pages: [1]

Author Topic: unicode works!  (Read 5573 times)

inky

  • New Member
  • *
  • Posts: 41
    • github
unicode works!
« 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]
Logged
Pages: [1]
« previous next »
 

TinyPortal © 2005-2018