размер шрифта

[varelik]

Добрый день.
Товарищи специалисты, подскажите как сделать следующее:
надо определить размеры прямоугольника под выбранный winдузовый текст

[SuperVisor]

Canvas.TextWidth('aaa');
Canvas.TextHeight('aaa');

Естественно, тебе нужно выбрать шрифт, резмер...

[varelik]

Ок, вношу конкретику:
Ссылаясь на свою старую тему: как вывести текст в несколько строк
на канву имагера, я пришел к следующему: в memo1 вводил строки,
а потом по щелчку по кнопке они появлялись на канве имагера.
Этот имагер создается динамически. И если использовать одну строку-
можно написать :timage1(new).width:=timage1(new).c anvas.textwidth(form5.memo1.text);
а если строк много и они разной длины- то как выбрать размер имагера по размеру самой длинной строки?

i3,max:integer;
//--------
for i3=0 to form5.memo1.lines.count-1 do begin
timage1(new).canvas.textout(0,i3*20,form5.memo1.lines.strings[i3]);
max:=0;//максималь. к-во символов в строке
if length(form5.memo1.lines.strings[i3])>max
then max:=length(form5.memo1.lines.strings[i3]); //определили этот max
timage1(new).width:=max*коэффициэнт;

Вот, собсно этот коэффициэнт мне и нада узнать

[Stilet]

Коэффициент я лично получаю по самой длинной букве шрифта:
коэффициэнт:=<Обьект на котором рисуем>.Canvas.TextExtent('W');

[varelik]

Stilet,
когда я пишу:
timage1(new).width:=max*timage1(new ).Canvas.TextExtent('W');
выдает ошибку: operator not applicable to this operand.
вобще, function textextent:tagsize. что такое tagsize?
и как мне правильно записать?

[SuperVisor]

Выдержка из модуля Types:

tagSIZE = packed record
    cx: Longint;
    cy: Longint;
  end;

[Stilet]

когда я пишу:

Я так понимаю что хелп из моды вышел?
А почитал бы ты про этот метод натолкнулся на такое:

timage1(new).width:=max*timage1(new ).Canvas.TextExtent('W').cx;

Или же:

timage1(new).width:=max*timage1(new ).Canvas.TextWidth('W');

[varelik]

благодарю за разъяснение)
Stilet, как ты сказал- работает. Но есть еще проблемка:
я у memo1 сделал wordwrap=false, шоб текст мог выходить за границы memo1, а не перелазил на его следущую строку, достигнув этой границы.
Используя:
timage1(new).width:=max*timage1(new ).Canvas.TextWidth('W');
у меня на канве имагера текст, введенный после границы memo1 обрезается- как исправить?

[JTG]

Так пойдёт?

procedure TForm1.FormPaint(Sender: TObject);
const text = 'Однажды в студёную зимнюю пору я из лесу вышел, был сильный мороз';
var rect: trect;
begin
  SetRect(rect, 10,10,200,200);
  With canvas do
  begin
    Font.Name := 'Comic Sans MS';
    Font.Size := 14;
    DrawText(Handle,pchar(text),length(text),rect, DT_LEFT or DT_WORDBREAK);
  end;
end;

[varelik]

JTG,
вот сразу не могу сказать, - эта тема для меня новая и далеко не все понимаю.
у меня, повторюсь, из memo текстовые строки различной длины должны на канву image отображаться не урезаясь. и размер image должен автоматически(чтоб не урезались строки) стать таким же как длина самой длинной строки из memo. вот..
Мне бы свой, приведенный выше код поправить..