Unicode not supported?!?

Grisu, the following code works for me:-

SuperStrict

Local MyWindow:TGadget=CreateWindow("Canvas Example", 200,200,320,240)
Local MyCanvas:TGadget=CreateCanvas(10,10,290,140,MyWindow)
SetGraphics CanvasGraphics (MyCanvas)
Local font:TImageFont=LoadImageFont("C:\WINDOWS\Fonts\arial.ttf",12)
SetImageFont(font) 
SetColor 255,255,255


Repeat
  WaitEvent()
  Select EventID()
  Case EVENT_WINDOWCLOSE
     End
  Case EVENT_GADGETPAINT
    SetGraphics CanvasGraphics (MyCanvas)
    DrawText "BjÃ¶rn",20,20
    Flip
   End Select
Forever

make sure you set the font after the setgraphics command