Hallo,
danke für die Antwort S.h.a.r.k,
ich glaube ich habe mittlerweile die Lösung zu dem Problem:
An dem Parameter "Rect" der "TGraphic.Draw(ACanvas: TCanvas; const Rect: TRect)"-Funktion kann man anscheinend erkennen, ob das TImage gestretched gezeichnet werden soll; Wenn das TImage nicht gestretched gezeichnet werden soll, entspricht die Größe von "Rect" anscheinend immer der Orginalgrösse der zu zeichnenden Grafikdatei.
falls ich nicht irgendwas übersehen habe denke ich ist das Problem gelöst.
schöne Grüsse,
flippinho
Delphi-Quellcode:
procedure TRSVG_Graphic.Draw(ACanvas: TCanvas; const Rect: TRect);
var
lStretch : Boolean;
begin
if (Rect.Right-Rect.Left = GetWidth) and
(Rect.Bottom-Rect.Top = GetHeight) then begin
lStretch := false;
end else begin
lStretch := true;
end;
if FExportPRsvgHandle <> nil then begin
Export_rsvg_handle_render_cairo(FExportPRsvgHandle,
ACanvas.handle,
point(Rect.Right-Rect.Left,Rect.Bottom-Rect.Top),
lStretch );
end;
end;