Hola a todos!!!
como el titulo lo dice: Necesito controlar el numero de clicks del mouse, tengo una funcion que MouseDown y ya recibo el click derecho del mouse, pero lo que necesito es controlar los tres primeros clicks del usuario, dados en una imagen para obtener su rgb. Para despues manipular estos colores en un shape.
Esto es lo que llevo:
Código Delphi
[-]
procedure TForm6.Image3MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
pix,click : integer;
cr,cg,cb : byte;
begin
pix := Image3.Canvas.Pixels[X,Y];
cr := pix and $FF;
cg := (pix shr 8) and $FF;
cb := (pix shr 16) and $FF;
if button = mbleft then begin
Shape1.Brush.Color:= RGB(cr,cg,cb);
click:=1;
end;
if click = 1 then begin
Shape2.Brush.Color:= RGB(cr,cg,cb);
click:=2;
end;
if click = 2 then begin
Shape3.Brush.Color:= RGB(cr,cg,cb);
end;
end;
Espero su respuesta!!! Gracias!!!