Небольшая проблема с CreateImage

[Stranger]

image=CreateImage(70,20)
SetBuffer ImageBuffer(image)
Color 255,255,255
Rect 0,0,70,20
Color 0,0,0
font1=LoadFont ("impact",20)
SetFont font1
Text 0,0,"Открыть"
FreeFont font1

SetBuffer FrontBuffer()
DrawImage image,100,100
WaitKey()
End

Нужно, чтобы в белом прямоугольнике писалось слово "Открыть", но Блиц пропускает последнюю букву, хотя видно, что для нее пространство еще есть. В чем может быть проблема?

[ZanoZa]

Проблема,как я понимаю, в глячности команды text с русскими шрифтами.
С англ. шрифтами всё в порядке.
Кстати, если использовать шрифт "Times New Roman cyr", то у текста вообще отсекает 2 буквы

[ZanoZa]

Просто сделай image побольше

[impersonalis]

Блитц не корректно отображает кирилические шрифты. Это давно известно. Есть различные методы решения самы простой -"в лоб":

Graphics 800,600,32
SetFont LoadFont("arial cyr",20)
TEXTS$= "Нужно, чтобы в белом прямоугольнике писалось слово ''Открыть'', но Блиц пропускает "
Text 0,0,TEXTS$
For I=1 To Len(TEXTS)
	Text 0+StringWidth(Left(TEXTS,I-1)),40,Mid(TEXTS,I,1)
Next
Flip
WaitKey()
End

Первая строчка, которая выводится без премудростей - обрывается на предпоследнем слове; вторая - выодится полностью.

[Stranger]

impersonalis, спасибо, теперь понял, как это сделать. Раньше не замечал такой полезной команды как StringWidth.