Diverse Komponenten: SVGImage, Adv. Memo, PaletteForm

[0KommaNix]

Hallo,

Zitat von xaromz:

Wie ich schon in einer vorigen Nachricht geschrieben habe, wäre da ein TCanvas besser, auf dem Du ein TSVG malst. Das sieht dann so bsp. so aus:

Delphi-Quellcode:

procedure PaintSVGTo(SVG: TSVG; Canvas: TCanvas; Left, Top: Integer; Scale: Double);
var
  W, H: Integer;
begin
  W := Round(SVG.Width * Scale);
  H := Round(SVG.Height * Scale);
  SVG.PaintTo(Canvas.Handle,
    MakeRect(Left, Top, W, H));
end;

Vielen Dank, so werde ich es machen.

Gruß Bernd