Bitmapgröße an Textgröße anpassen?

[Neutral General]

du machst für jede zeile ein Bitmap.
Am besten so etwa:

Delphi-Quellcode:

var Bmps: Array of TBitmap;

procedure Ka;
begin
  SetLength(Bmps,Memo1.Lines.Count);
  for i:= 0 to Memo1.Lines.Count-1 do begin
   Bmps[i] := TBitmap.Create;
   with Bmps[i] do begin
    Canvas.Font := Memo1.Font;
    Height := Canvas.TextHeight(Memo1.Lines[i]);
    Width := Canvas.TextHeight(Memo1.Lines[i]);

    transparentcolor := clWhite;
    transparent := true;

   // canvas.TextOut(0,0,edt_text.Text); ka irgenwo halt wieder malen
   end;
  end;
end;

Gruß
Neutral General