Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: Zeichenprogramm erstellen: wie die Linien zeichnen?

    Delphi
    by malo, 27. Dez 2004
  aaah... :wall:
  
  Danke, jetzt hab ich's auch verstanden :mrgreen:
• Forum: Multimedia

  Re: Zeichenprogramm erstellen: wie die Linien zeichnen?

    Delphi
    by malo, 27. Dez 2004
  Das ist mir schon klar, war nur zu faul, das wieder zu entfernen... und ich hab auch nicht gefragt, wie man es schöner machen kann, sondern wie man diese blöde Linie weg kriegt...
• Forum: Multimedia

  Re: Zeichenprogramm erstellen: wie die Linien zeichnen?

    Delphi
    by malo, 27. Dez 2004
  Genau das HAB ich doch schon gemacht. Ein paar Posts weiter oben ist mein QuellCode dazu. Und da steht auch mein Problem. Und zwar immer, wenn ich anfange zu zeichnen, zeichnet Canvas mir eine senkrechte Linie nach oben bis zu meinem Cursor. Und ich weiß nicht, warum oder gar, wie ich es verhindern kann.
• Forum: Multimedia

  Re: Zeichenprogramm erstellen: wie die Linien zeichnen?

    Delphi
    by malo, 27. Dez 2004
  :wall:
  
  Gut, da hab ich mich doch wohl etwas fehlerhaft ausgedrückt... ich will ein "freies Zeichnen" erlauben. Das heißt, klicken, Maustaste gedrückt halten, Maus bewegen und damit was Zeichnen, Maustaste loslassen. Ich hoffe, man hat mich jetzt richtig verstanden ;)
• Forum: Multimedia

  Re: Zeichenprogramm erstellen: wie die Linien zeichnen?

    Delphi
    by malo, 27. Dez 2004
  Verbessere mich, wenn ich's falsch verstanden hab, aber das würde doch dann nur eine Linie zeichnen von dem Punkt an, wo ich klicke bis zu dem Punkt, wo ich die Maus loslasse, oder nicht? :gruebel:
• Forum: Multimedia

  Re: Zeichenprogramm erstellen: wie die Linien zeichnen?

    Delphi
    by malo, 27. Dez 2004
  Mit LineTo() hatte ich es auch schon versucht, mich hat da nur gestört, dass der immer unnötige Linien gemacht hat...
  
  Aber auch mit MoveTo geht das nicht wirklich...
  
  procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  var pt: TPoint;
  begin
  Zeichnen := true;
  Canvas.MoveTo (pt.X-196, pt.y-145);
• Forum: Multimedia

  Zeichenprogramm erstellen: wie die Linien zeichnen?

    Delphi
    by malo, 27. Dez 2004
  Ich hab mir mal überlegt, einen kleinen Paint-Klon zu schreiben... Nunja, ich bin noch ziemlich am Anfang :roll:
  
  Und zwar hab ich Probleme damit, Linien zu zeichnen. Ich hab mir überlegt, eine globale boolsche variable zu erstellen. Im OnMouseDown wird sie auf True gesetzt, im OnMouseUp auf False. Dann im OnMouseMove folgende Abfrage:
  
  var
  pt: Tpoint;
  begin
  if Zeichnen = true then
  ...