Delphi - programma paint mancato "inchiostro"

Forum - Delphi - programma paint mancato "inchiostro"

lucca (Normal User)
Pro

Messaggi: 84
Iscritto: 03/12/2009

Postato alle 16:24
Giovedì, 19/05/2011

ciao a tutti sto facendo paint ma quando tengo premuto il mouse e lo trascino molto velocemente non mi colora la parte dove passo veloce. Vi posto il codice:

Codice sorgente - presumibilmente Delphi

procedure TForm1.PMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  cliccato:=true;
  p.OnMouseMove:=PMouseMove;
end;
 
procedure TForm1.PMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  cliccato:=false;
end;
 
procedure TForm1.PMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if cliccato=true then
    begin
      p.Canvas.Pen.Color:=clBlack;
      p.Canvas.Pen.Width:=3;
      p.Canvas.Rectangle(x,y,x+2,y+2);
    end;
end;
procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   if cliccato=true then
    begin
      p.Canvas.Pen.Color:=clWhite;
      p.Canvas.Pen.Width:=5;
      p.Canvas.Rectangle(x,y,x+2,y+2);
    end;
end;

Come posso fare?????
grazie in anticipo ciao

Goblin (Member)
Expert

Messaggi: 375
Iscritto: 02/02/2011

Postato alle 12:27
Venerdì, 20/05/2011

infatti ... come dice marco ...
nell'evento PMouseDown setti il punto iniziale
P.Canvas.MoveTo(x,y);

e in PmouseMove sostituisci
p.Canvas.Rectangle(x,y,x+2,y+2);
con
P.Canvas.LineTo(x,y);

non dovrebbe più darti l'effetto "spray"
G.

ecco adesso si che va grazie!!! - lucca - 22/05/11 14:18

Ibis redibis non morieris in bello

Poggi Marco (Member)
Guru

Messaggi: 969
Iscritto: 05/01/2010

Postato alle 21:21
Giovedì, 19/05/2011

Ciao!

Se non ho capito male, tu disegni un rettangolino in corrispondenza della posizione del mouse.
in alternativa si può memorizzare la posizione del mouse, al fine di designare un segmento tra due posizionamenti successivi.

ok grazie - lucca - 20/05/11 09:54