Узнать размеры области вывода текста

[Kronos913]

bmp.Canvas.Font:=Ft;
bmp.Canvas.TextOut(x, y, s)

s:string;
Ft:TFont;
bmp: TBitMap;

Как узнать, какого размера будет изображение с текстом?
Чтобы под этот текст задать необходимые размеры БитМапа

Собственно, у меня задача такая: перевести текст из Memo и БитМап, по фонту Ft
Я так понимаю, это надо делать построчно?

[NetSpace]

метод кривой, но как вариант за неимением чего другого: программно вставить текст в TLabel, применив к нему такой же размер шрифта. и посмотреть размеры TLabel. думаю, размеры текста в TBitMap будут такие же...

[evg_m]

Canvas.TextWidth
Canvas.TextHeight
... и другие методы Сanvas
https://programmersforum.ru/showthre...ight=textwidth

[Kronos913]

Сообщение от NetSpace

метод кривой, но как вариант за неимением чего другого: программно вставить текст в TLabel, применив к нему такой же размер шрифта. и посмотреть размеры TLabel. думаю, размеры текста в TBitMap будут такие же...

Я, кстати, думал об этом. Но да, это уже на крайний случай вариант. Хотелось бы более прямой способ

Сообщение от evg_m

Canvas.TextWidth
Canvas.TextHeight
... и другие методы Сanvas
https://programmersforum.ru/showthre...ight=textwidth

Спасибо, сейчас попробую

[Kronos913]

Все спасибо. Вот код процедуры, может кому пригодится

procedure TextToBmp(const s: TStrings; var bmp:TBitmap; const ft:Tfont);
var
 i, h, w:integer;
begin
 If s.Count>0 then begin
  bmp.Canvas.Font:=ft;
  h:= bmp.Canvas.TextHeight('1')+1;
  bmp.Height:=h*s.Count+2;
  w:= 0;
  For i:=0 to s.Count-1 do begin
   If w<bmp.Canvas.TextWidth(s[i])+1 then begin
    w:=bmp.Canvas.TextWidth(s[i])+1;
    bmp.Width:=w;
   end;
   bmp.Canvas.TextOut(1, h*i, s[i]);
  end;
 end;
end;

И вот так ее вызываю:

procedure TForm1.Button1Click(Sender: TObject);
var
 b:tbitmap;
begin
 b:=TBitmap.Create;
 TextToBmp(memo1.Lines, b, FontDialog1.Font);
 image1.Picture.Assign(b);
 b.Free;
end;

[Kronos913]

Вот еще версия, в формате функции

Function TextToBmp(const s: TStrings; var bmp:TBitmap; const ft:Tfont): boolean;
var
 i, h, w:integer;
begin
 If s.Count>0 then begin
  bmp.Canvas.Font:=ft;
  h:= bmp.Canvas.TextHeight('A1')+1;
  bmp.Height:=h*s.Count+2;
  w:= 0;

  For i:=0 to s.Count-1 do begin
   If w<bmp.Canvas.TextWidth(s[i]+'  ') then begin
    w:=bmp.Canvas.TextWidth(s[i]+'  ');
    bmp.Width:=w;
   end;
   bmp.Canvas.TextOut(0, (h*i)+1, ' '+s[i]);

  end;
  TextToBmp:=true;
 end else TextToBmp:=false;
end;