AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Prism LineTo "löschen" ...
Thema durchsuchen
Ansicht
Themen-Optionen

LineTo "löschen" ...

Ein Thema von kezboard · begonnen am 23. Nov 2005 · letzter Beitrag vom 23. Nov 2005
Antwort Antwort
Benutzerbild von Ultimator
Ultimator

Registriert seit: 17. Feb 2004
Ort: Coburg
1.860 Beiträge
 
FreePascal / Lazarus
 
#1

Re: LineTo "löschen" ...

  Alt 23. Nov 2005, 20:23
Aber auf sienem Screenshot ist zu erkennen, dass er Delphi7 nutzt, also sollte man auch entsrpechend antworten @faux
Aber ich kann das gut nachvollziehen, ich hab auch überlegt, ob ich ne .NET-Lösung vorschlage

@kezboard: Nachdem du mit Delphi7 arbeitest, wähle bitte nicht Delphi.NET als Sprache aus, sondern Win32
Im Delphi7-Handbuchsatz wird das ganz einfach so gemacht, dass man sich den Punkt merkt, von dem die Linie ausgeht. Wenn man dann die Maus bewegt, wird die neue Linie gezeichnet und die alte gelöscht.

Wir brauchen folgende Variablen:
Drawing: Boolean;
Origin, MovePt: TPoint;

Im OnMouseDown der Form/PaintBox/wasauchimmer:
Delphi-Quellcode:
Drawing := true;
Canvas.MoveTo(X, Y);
Origin := Point(X, Y);
MovePt := Point(X, Y);
Im MouseUp:
Delphi-Quellcode:
Canvas.MoveTo(Origin.X, Origin.Y);
Canvas.LineTo(X, Y);
Drawing := false;
Im MouseMove:
Delphi-Quellcode:
if Drawing then
  begin
   Canvas.Pen.Mode := pmNotXor;
   Canvas.MoveTo(Origin.X, Origin.Y);
   Canvas.LineTo(MovePt.Y, MovePt.Y);
   Canvas.MoveTo(Origin.X, Origin.Y);
   Canvas.LineTo(X, Y);
  end;
 MovePt := Point(X, Y);
 Canvas.Pen.Mode := pmCopy;
Julian J. Pracht
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 06:03 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz