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.