35 respuestas en este tema

[enecumene]

jajajaja no hombre que va, así está mejor

[eduarcol]

Coloquen un spinedit y un boton, en el evento onclick del boton peguen este codigo:

delphi

var
   Factor: Integer;
begin
   Factor := spFactor.Value;
   //Amarillo
   Form1.Canvas.Pen.Color := clYellow;
   Form1.Canvas.Pen.Width := 0;
   Form1.Canvas.Brush.Color := clYellow;
   Form1.Canvas.Rectangle(10, 10, 200*Factor, 80*(Factor div 2));
   //Azul
   Form1.Canvas.Pen.Color := clBlue;
   Form1.Canvas.Pen.Width := 0;
   Form1.Canvas.Brush.Color := clBlue;
   Form1.Canvas.Rectangle(10, 10 + (70*(Factor div 2)), 200*Factor, 150*(Factor div 2));
   //Rojo
   Form1.Canvas.Pen.Color := clRed;
   Form1.Canvas.Pen.Width := 0;
   Form1.Canvas.Brush.Color := clRed;
   Form1.Canvas.Rectangle(10, (10 + (70*(Factor div 2))* 2), 200*Factor, 220*(Factor div 2));
end;

¿Que hace?, Estira las barras proporcionalmente, segun el factor dado en el spinedit.

[enecumene]

Muy interesante el código compadre

[egostar]

Yo quiero ver cómo diantres le haríamos para el escudito       

Hola

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Top := 60;
  Image1.Left := 140;
  with Canvas do begin
      Pen.Color := clWhite;
      Pen.Width := 0;
      Brush.Color := clWhite;
      Rectangle(10,10,390,200);
 
      Pen.Color := clRed;
      Pen.Width := 0;
      Brush.Color := clRed;
      Rectangle(10,10,130,200);
 
      Pen.Color := clGreen;
      Pen.Width := 0;
      Brush.Color := clGreen;
      Rectangle(260,10,390,200);
 
      Image1.Repaint; \\ Escudo
   end;
end;

Salud OS

Archivos adjuntos

•  126_.zip   17,48KB   3 descargas

[Fenareth]

Yo quiero ver cómo diantres le haríamos para el escudito       

Hola

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Top := 60;
  Image1.Left := 140;
  with Canvas do begin
      Pen.Color := clWhite;
      Pen.Width := 0;
      Brush.Color := clWhite;
      Rectangle(10,10,390,200);
 
      Pen.Color := clRed;
      Pen.Width := 0;
      Brush.Color := clRed;
      Rectangle(10,10,130,200);
 
      Pen.Color := clGreen;
      Pen.Width := 0;
      Brush.Color := clGreen;
      Rectangle(260,10,390,200);
 
      Image1.Repaint; \\ Escudo
   end;
end;

Salud OS

Jajajajaja, eso pensé pero luego me dije: trampositaaa !!!! 

[egostar]

Jajajajaja, eso pensé pero luego me dije: trampositaaa !!!! 

:$ (w)

Carnal, me salistes buen alumno, estoy orgulloso de ti. 

Salud OS

[Fenareth]

Estuve ayer jugando con el código que usa Canvas para dibujar cualquier cosa sobre un Form y me encontré con algo "curioso" para mi. Trataré de explicarlo paso por paso cómo lo hice para hacerme entender:

1. Ejecuto
2. Doy click al botón que dibuja la Bandera (lo hace correctamente)
3. Restauro una ventana de cualquier otra aplicación corriendo que cubra total o parcialmente el Form con la Bandera dibujada
4. La parte de la Bandera que fue cubierta por la ventana restaurada se desdibuja, lo que no sucede con la parte que no cubrió.

De esto me di cuenta "accidentalmente" e hice también pruebas moviendo la ventana del hacia uno de los extremos de la pantalla, de tal manera que también se ocultara una parte de la Bandera y al regresar la ventana al centro de la pantalla, esa parte cubierta se había desdibujado.

Sé que debe existir una razón para ello... y sé que alguien me lo aclarará

Saludos 

[egostar]

Estuve ayer jugando con el código que usa Canvas para dibujar cualquier cosa sobre un Form y me encontré con algo "curioso" para mi. Trataré de explicarlo paso por paso cómo lo hice para hacerme entender:

1. Ejecuto
2. Doy click al botón que dibuja la Bandera (lo hace correctamente)
3. Restauro una ventana de cualquier otra aplicación corriendo que cubra total o parcialmente el Form con la Bandera dibujada
4. La parte de la Bandera que fue cubierta por la ventana restaurada se desdibuja, lo que no sucede con la parte que no cubrió.

De esto me di cuenta "accidentalmente" e hice también pruebas moviendo la ventana del hacia uno de los extremos de la pantalla, de tal manera que también se ocultara una parte de la Bandera y al regresar la ventana al centro de la pantalla, esa parte cubierta se había desdibujado.

Sé que debe existir una razón para ello... y sé que alguien me lo aclarará

Saludos 

Hola

delphi

procedure TForm1.FormPaint(Sender: TObject);
begin
  Button1.Click;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Top := 60;
  Image1.Left := 140;
  with Canvas do begin
      Pen.Color := clWhite;
      Pen.Width := 0;
      Brush.Color := clWhite;
      Rectangle(10,10,390,200);
 
      Pen.Color := clRed;
      Pen.Width := 0;
      Brush.Color := clRed;
      Rectangle(10,10,130,200);
 
      Pen.Color := clGreen;
      Pen.Width := 0;
      Brush.Color := clGreen;
      Rectangle(260,10,390,200);
 
      Image1.Repaint; \\ Escudo
   end;
end;

Salud OS

[eduarcol]

lo que Eliseo quizo decir fue...

jejeje lo que sucede es que el comportamiento que describes es el normal.  cuando una pantalla se oculta al volverse a mostrar se pinta de nuevo.  Como pintas directamente al canvas debes sobreescribir el metodo Paint, para que el sepa que es lo que va a pintar.

[Fenareth]

Gracias !, ya quedó...   

El único detalle que agregué para que la Bandera no se dibuje desde el principio si no hasta que se le de Click al botón fue con una variable global booleana que detectara si el Form se estaba dibujando por primera vez o lo hacía después del Click del botón y funciona bonito...

Gracias... 

[eduarcol]

entonces utilizastes una bandera para dibujar la bandera jejej

[Fenareth]

entonces utilizastes una bandera para dibujar la bandera jejej

Efectivamente mi estimado y querido amiguito 

[egostar]

entonces utilizastes una bandera para dibujar la bandera jejej

Efectivamente mi estimado y querido amiguito 

jejeje, muy inteligente esa frase amigo eduarcol después de leer mas de dos veces tu respuesta la entendi

Salud OS

[eduarcol]

jeje es que de pronto me recorde de  Luis Joyanes y mis interminables noches estudiando algoritmo