Font für 45°-Winkel

[uligerhardt]

Morsche!

Ich hab jetzt in dem Demo aus AARotation.zip folgenden OnCreate-Handler eingefügt:

Delphi-Quellcode:

procedure TMainForm.FormCreate(Sender: TObject);
var
  bmp: TBitmap;
  BackColor: TColor;
begin
  BackColor := ColorToRGB(clFuchsia);
  bmp := TBitmap.Create;
  try
    bmp.PixelFormat := pf24bit;
    bmp.SetSize(100, 20);
    bmp.Canvas.Font := Font;
    //bmp.Canvas.Font.Size := bmp.Canvas.Font.Size + 1;
    bmp.Canvas.Brush.Color := BackColor;
    bmp.Canvas.FillRect(Rect(0, 0, 100, 20));
    bmp.Canvas.TextOut(0, 0, 'Hallo, Welt');

    OrgImage.Picture.Assign(bmp);
  finally
    bmp.Free;
  end;

  OrgImage.Transparent := True;
  RotatedImage.Picture.Assign(OrgImage.Picture);
  RotatedImage.Transparent := True;
end;

und kriege das Ergebnis im Anhang - das schaut ja soweit gut aus. Das Problem ist jetzt nur, dass ich in meinem Anwendungsfall (gedrehtes Label) kein Hintergrundbitmap habe, auf das ich CombineImage loslassen könnte. :-/
Naja, mal sehen.