Bitmapgröße an Textgröße anpassen?

[Neutral General]

Ja die Funktion mit der du die Breite ausrechnest ist zwar nötig aber nicht gut genug eigentlich.. Weil z.B was passiert wenn im Memo z.B vier Punkte in der ersten Reihe sind und drei 'W's in der zweiten?

Du musst da auch mit Canvas.TextWidth arbeiten.. Ich habs so probiert:

Delphi-Quellcode:

function GetLongesLineLength(AMemo: TMemo): Integer;
var i,temp: Integer;
    tempBmp: TBitmap;
begin
  temp := 0;

  tempBmp := TBitmap.Create;
  tempBmp.Canvas.Font := AMemo.Font;

  for i:= 0 to AMemo.Lines.Count-1 do begin
   if tempBmp.Canvas.TextWidth(AMemo.Lines[i]) > temp then
    Temp := tempBmp.Canvas.TextWidth(AMemo.Lines[i]);
  end;
  TempBmp.Free;
  Result := Temp;
end;

So müsste es besser gehn

Das ganze sieht dann bei mir so aus:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var B: TBitmap;
    i: Integer;
begin
  B := TBitmap.Create;
  with B do begin
   Canvas.Font := Memo1.Font;
   Height := Canvas.TextHeight(Memo1.Lines[0]) * Memo1.Lines.Count;
   Width := GetLongesLineLength(Memo1);
   for i:= 0 to Memo1.Lines.Count-1 do begin
    Canvas.TextOut(0,i*Canvas.TextHeight(Memo1.Lines[0]),Memo1.Lines[i]);
   end;
  end;
  Canvas.Draw(0,0,B);
  B.Free;
end;

Gruß
Neutral General