stretch-Informationen in TGraphic-Object

[flippinho]

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;