Canvas hvordan afsætter man (x1;y1) ved første klik, (x2;y2) osv

Det er da bare at gemme en TPoint for dit første klik, og så forbinde den med en LineTo med det næste klik. Hvis det skal være sådan en linje du kan flytte er det en anden snak.

Jens B

Hvordan gør jeg det i praksis (det første)

Gunden til jeg skal bruge koordinaterne er at jeg senere skalberegne længden af den samlede streg.

Brug OnMouseDown der får du x og y udleveret. Dem gemmer du en kopi af

Jens B

Det har jeg fået til at virke nu.
Hvordan henter jeg så indholdet så jeg kan beregne længden af en streg.
SQRT((x1 - x2)^2 + (y1 - y2)^2))

Jeg har lidt koder der ser sådan ud:

procedure TRuteMaaler.mapMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if tegnerrute then
begin
map.Canvas.Pen.Mode := pmCopy;
map.Canvas.Pen.Color := clRed;
map.Canvas.Pen.Width := 2;
map.Canvas.LineTo(X, Y);

end else begin
tegnerrute :=True;
map.Canvas.MoveTo(X, Y);
startpunkt := Point(X, Y);
end
end;

og har fundet ud af hvordan man henter koordinaterne fra det sidste klip, hvordan henter jeg værdierne der er gemt i "startpunkt"?

Fik det selv til at virke...

Smider du et svar...

:-)

Nu ved jeg ikke hvor hard core du er men du skulle overveje en løsning med streger der kan flyttes. Jeg kan godt hjælpe dig, jeg har sådan en streg på lager.

Jens B

Ja, det var da måske enmulighed,men er det ikke et kæmpe arbejde? er rimelig ikke overdrevet hardcore for at sige det mildt...

Men omvendt så lærer du en masse ....

Det der ville blive din store udfordring var at forbinde to streger så ledes Streg 1 havde samme slut punkt som Streg 2' start punkt .. Men det er op til dig :O Jeg vil gerne flække et eksempel sammen hvis du vil bruge det.

Jens B

Det lyder jo meget tiltalende, men så kommer mit næste problem. Længden af densamlede streg skal findes... Nu beregner jeg det et stykke for hvert klik og lægger det sammen ed total. Det kan jeg jo ikke på den måde. Men hvis du også har en idé til det, må du da gerne flække et eksempel sammen. hvor mange point?

Det sidste er nemt nok, fordi sådan en streg er et rigtigt objekt, så det er bare at spørge stregen efter dens koordinater ...

Jeg flækker lidt sammen til dig ....

Glem det med pointsene .... Jeg står ikke lige og mangler. Du kan i stedet give mig karma, det kan bruges til noget. Fordi så kan andre se om jeg opfører mig pænt eller jeg blot ahr mange poinst.

Jens B

Det skal du få...

Jeg har lavet et eksempel til dig med en alm linje, lavet med LineTo
http://borrisholt.com/Eksperten/SmartLine.zip, men i modsætning til din kan den flyttes. Så skal du bare lave noget med at holde styr på flere linjer, men det er vel heller ikke så svært ?

Programmer virker ved at man loadet et billede ind som man så tegner på (JPEG medfølger)!

Jens B

Et alternativ kunne være at lave Stregerne som rigtige Objecter der arver fra TgrapichControl, men hvis du ikke er Hardcore, så tror jeg du lige skal klappe hesten. Men omvendt hvis du ikke er bange fore en udfordring, laver jeg gerne sådan en til dig.

Jens B

Jeg tror bare vi stopper her, for det her er længe fint til mit program.

Men jeg siger mange tak for hjælpen.