Detectado javascript desactivado

Tienes el javascript desactivado en este momento. Muchas funciones podrían no funcionar. Por favor reactiva el javascript para obtener una funcionalidad completa.

Cambiar de color a un canvas en ejecucion.

Comenzado por Guest_Jose Fco_* , dic 15 2008 05:15

Por favor identifícate para responder

6 respuestas en este tema

#1 Guest_Jose Fco_*

Visitante

Escrito 15 diciembre 2008 - 05:15

Pues eso amigos, tengo este codigo y estoy tratando de hacer un programita:

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.

Volver arriba

#2 Guest_Jose Fco_*

Visitante

Escrito 15 diciembre 2008 - 05:58

Bueno amigos he logrado algo de lo que queria, pero no creo que sea la forma correcta:

delphi

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  with image1.canvas do
  begin
    pen.width:=3;
    pen.color:= Edit1.Color; //puse Edit y con dos botones cambio su color
    drawing:=true;
    moveto(x,y);
  end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Color:= clRed;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
Edit1.Color:= clBlue;
end;
 
end;

Esta trabajando, pero no de la forma que me gustaria ( con un ComboBox)

Un Saludo.

Volver arriba

#3 Guest_Jose Fco_*

Visitante

Escrito 15 diciembre 2008 - 07:02

La cosa mejoro:

delphi

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  with image1.canvas do
  begin
    pen.width:=3;
    pen.color:= Shape1.Brush.Color;
    drawing:=true;
    moveto(x,y);
  end;
end;
procedure TForm1.ColorGrid1Click(Sender: TObject);
begin
Shape1.Brush.Color := ColorGrid1.ForegroundColor;
end;

Con un Shape y un ColorGrid.

Un Saludo.

Volver arriba

#4 eduarcol

Advanced Member

Administrador
4.483 mensajes

LocationVenezuela

Escrito 16 diciembre 2008 - 07:04

puedes ahorrarte el Shape, ya que el colorgrid no pierde su selección:

delphi

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  with image1.canvas do
  begin
    pen.width:=3;
    pen.color:= ColorGrid1.ForegroundColor;
    drawing:=true;
    moveto(x,y);
  end;
end;

0

Volver arriba

#5 Guest_Jose Fco_*

Visitante

Escrito 16 diciembre 2008 - 07:34

Gracias por el dato Eduarcol.

Un Saludo.

Volver arriba

#6 eduarcol

Advanced Member

Administrador
4.483 mensajes

LocationVenezuela

Escrito 16 diciembre 2008 - 08:35

tambien dispones del backgroundcolor, que se seleciona con el botón derecho del mouse, te adjunto un programita para que veas, pruebalo asi:

- Con el boton izquierdo selecciona un color
- Selecciona otro con el derecho
- Presiona el boton de comando