delphi
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin with image1.canvas do begin pen.width:=3; pen.color:=clRed; // me gustaria poder cambiar este color en ejecucion(selecionarlo de un combobox) drawing:=true; moveto(x,y); end; end;
¿Debo usar alguna var ? Si es asi seria una del tipo string?
Algun Maestro a ver si me hecha una manito en esto. Gracias.
Un Saludo.