Forum: Cross-Platform-Entwicklung
Delphi
by fisipjm,
26. Sep 2023
Uff :oops:
Ich stand richtig auf dem Schlauch.
Wenn man im Canvas Right und Bottom auch noch richtig setzt funktioniert es auch. So gehts jetzt:
PositionX := Measurement.SVGPoint.Position.X;
PositionY := Measurement.SVGPoint.Position.Y;
lWidth := Measurement.SVGPoint.Width ;
lHeight := Measurement.SVGPoint.Height ;
Forum: Cross-Platform-Entwicklung
Delphi
by fisipjm,
26. Sep 2023
Okay, was ich bisher habe, stark vereinfachtes Beispiel, die Scales sind normal dynamisch und passen auch.
procedure MergeSVGAndImage;
var
DestCanvas: TCanvas;
PositionX: Single;
PositionY: Single;
SVGPoint: TSkSvg;
Image1: TImage;
lWidth: Single;
Forum: Cross-Platform-Entwicklung
Delphi
by fisipjm,
25. Sep 2023
Hi,
ich versuche mich jetzt schon eine ganze Zeit lang an folgendem Problem.
Ich bin dabei eine Komponente zu erstellen, auf der ich ein Bild "ändern" kann. Ändern in dem Sinne, dass ich Vektorgrafiken auf diesem Bild Platzieren kann und diese auch noch verschieben und die Größe ändern kann. Funktioniert auch ganz schön.
Ich hab eine TImageControl, da lade ich ein Image rein. Dann habe ich...