Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: Eine Orthogonale Linie zeichnen ohne zickzack

    Delphi
    by himitsu, 7. Apr 2009
  ups, ganz vergessen ... X und Y sind relativ zur Form
  
  unit Unit1;
  
  interface
  
  uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
• Forum: Multimedia

  Re: Eine Orthogonale Linie zeichnen ohne zickzack

    Delphi
    by himitsu, 6. Apr 2009
  in FormMouseMove verwendest du zum Zeichnen dennoch alten X und Y der Ereignisprozedur und nicht die neuen Zurückgesetzen :zwinker:
  
  procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
  begin
  if strgpressed and keypressed then begin
  SetCursorPos(Ortho_korrdinate, Mouse.CursorPos.Y);
  Canvas.LineTo(Ortho_korrdinate, Mouse.CursorPos.Y);
  end;
  end;