Использование TCanvas для определения размера шрифта

← →
Yl2011 (2012-04-05 12:48) [0]

Здравствуйте!
Вот есть некий текст, ширину которого мне необходимо узнать.
Но в используемом компоненте “Canvas” работает некорректно
, поэтому мне необходимо создать свой и в нем все изменить с тем шрифтом и размером шрифта, который используется моем глючном компоненте, а потом приплюсовать эту ширину в компонент. Вот когда я делаю так, то не работает. Пишет «Canvas doesn’t allow drawning»:

Var
Ac:TCanvas;
begin
Ac:=TCanvas.Create;
Ac.Font.Name:="Arial";
Ac.Font.size:=12;
Showmessage(Inttostr(Ac.TextWidth("1111111111122222222")));
end;

А как правильно?

← →
webpauk © (2012-04-05 12:55) [1]

Ac:=TCanvas.Create;
Ac.Handle:=GetDC(Application.Handle);

← →
webpauk © (2012-04-05 12:56) [2]

вообще то это я для примера. тебе необходимо определить контекст канваса

← →
Yl2011 (2012-04-05 13:10) [3]

Ваш пример работает!
А что это за строка:
Ac.Handle:=GetDC(Application.Handle);

← →
webpauk © (2012-04-05 13:13) [4]

на абстрактном канвасе и возникает абстрактная ошибка. )))
канвас должен быть с чем-то связан (контекст)

> Но в используемом компоненте “Canvas” работает некорректно

судя по всему надо сделать Ac.Handle:=GetDC(Component.Handle);

для определения длины текста в пикселях, я использовал следующее
While DBGrid1.Canvas.TextWidth(nme)<200 do nme:=nme+" ";
где nme это строка с выводимым текстом

В вашем случае надо прислушаться к Yl2011
хотя, странно, но не ужели у Вас нет ни одного визуального компонента, наследника от TForm?

Использование TCanvas для определения размера шрифта Найти похожие ветки