22 respuestas en este tema

[seoane]

Pues el titulo lo dice todo, este es un ejemplo de como dibujar, mover y redimensionar figuras (cuadrados, elipses, fotos, etc ...) sobre un TPaintbox.

PD: Probar a  poner este código en el OnCreate del formulario y veréis como se consigue un efecto muy bueno:

delphi

  TransparentColor:= TRUE;
  TransparentColorValue:= pbMain.Color;
  pbMain.Canvas.Pen.Width:= 5;
  WindowState:= wsMaximized;

Archivos adjuntos

•  1850_b341b0346fffce1d574a14907611019938d3c159.zip   18,17KB   53 descargas

[egostar]

, tramposo, me la hiciste, caí como un bobo

Muy bueno amigo

Salud OS

[seoane]

, tramposo, me la hiciste, caí como un bobo

Muy bueno amigo

Salud OS

¿En que hice trampa?

[eduarcol]

Lo mismo me lo pregunto, jejeje esta muy bueno el codigo...  Justo necesitaba algo asi

[egostar]

, tramposo, me la hiciste, caí como un bobo

Muy bueno amigo

Salud OS

¿En que hice trampa?

Pues haces invisible la forma y no se ve, y yo buscandola por cielo tierra y mar y no la encontraba

Salud OS

[seoane]

, tramposo, me la hiciste, caí como un bobo

Muy bueno amigo

Salud OS

¿En que hice trampa?

Pues haces invisible la forma y no se ve, y yo buscandola por cielo tierra y mar y no la encontraba

Salud OS

No, no la hago invisible. Si te fijas el menu aparece en la parte superior de la pantalla, y el boton sigue apareciendo en la barra de tareas. Y cuando añades una forma, estas se dibujan por encima de las otras ventanas

Archivos adjuntos

•  1851_df590aa461fbb305e6a6b340c76059122505a50e.png   79,4KB   22 descargas

[Caral]

Hola
Siempre me gusta ver el codigo de seoane.
Lo que me gustaria es poder entenderlo algun dia.
Muy bueno, eso de poder escribir y hacer lo que sea en la pantalla es impresionante.
Pero lo que mas me llama la atencion es el tamaño del codigo.
Saludos

[Delphius]

Muy buen code amigo,

Esto da algunas ideas para el desarrollo de un Paint... como para empezar.

Saludos,

[felipe]

Muy buen aporte seoane... gracias


Saludos!

[eduarcol]

Hola, esta muy bueno el codigo, de hecho estoy haciendo una adaptacion para que imprima un codigo de barra a la imagen, lo que hago es utilizar una fuente de codigo de barra y la escribo con el outtext, pero la imagen debe quedar midiendo 8.5 * 5.3  pero siempre la guarda mas del doble de eso, hay algun metodo para controlar el tamaño de la imagen final?

Gracias 

[seoane]

Hola, esta muy bueno el codigo, de hecho estoy haciendo una adaptacion para que imprima un codigo de barra a la imagen, lo que hago es utilizar una fuente de codigo de barra y la escribo con el outtext, pero la imagen debe quedar midiendo 8.5 * 5.3  pero siempre la guarda mas del doble de eso, hay algun metodo para controlar el tamaño de la imagen final?

Gracias 

No entiendo ¿esta dibujando el código de barras en el programa que pongo de ejemplo o en otro? ¿donde te queda pequeño, dentro del propio programa, al imprimirlo, ala exportarlo ...?

[eduarcol]

Saludos, tome trozos de codigo del ejemplo,

Para cargar la imagen:

delphi

with TOpenDialog.Create(nil) do
  try
     Filter:= 'Archivos de imagen|*.bmp;*.ico;*.jpg';
     if Execute then
     begin
       if not Assigned(Fondo) then
          Fondo:= TPicture.Create;
       try
         Fondo.LoadFromFile(Filename);
         Dibujar;
       except
         FreeAndNil(Fondo);
       end;
     end;
  finally
    Free;
  end;

Para escribir el serial:

delphi

//Dibuja la fuente
   if cTexto <> '' then
   begin
      pb.Canvas.Font.Name := cFuente;
      pb.Canvas.Font.Size := nTamayo;
      pb.Canvas.Brush.Color := clWhite;
      pb.Canvas.TextOut(StrtoInt(lbX.Caption), StrtoInt(lby.Caption), cTexto);
   end;

Para Grabar la Imagen

delphi

var
  Buffer: TBitmap;
  j,k: integer;
begin
  with TSaveDialog.Create(nil) do
  try
    Filter:= 'Archivos bmp|*.bmp';
    if Execute then
    begin
      if Fondo <> nil then
      begin
        j:= Fondo.Width;
        k:= Fondo.Height;
      end else
      begin
        j:= 0;
        k:= 0;
      end;
      Buffer:= TBitmap.Create;
      try
        Buffer.Canvas.Brush.Color:= pb.Canvas.Brush.Color;
        Buffer.Width:= j + 1;
        Buffer.Height:= k + 1;
        if Fondo <> nil then
          Buffer.Canvas.Draw(0,0,Fondo.Graphic);
 
        //Dibuja la fuente
         if cTexto <> '' then
         begin
            Buffer.Canvas.Font.Name := cFuente;
            Buffer.Canvas.Font.Size := nTamayo;
            Buffer.Canvas.TextOut(StrtoInt(lbX.Caption), StrtoInt(lby.Caption), cTexto);
         end;
 
        Buffer.SaveToFile(Filename);
      finally
        Buffer.Free;
      end;
    end;
  finally
    Free;
  end;
end;

El asunto es que cuando quiero grabar la imagen no me respeta el tamaño original si no que lo graba mucho mas grande,

[seoane]

Yo acabo de probar tu  código y me lo graba con el mismo tamaño que la imagen de fondo ¿no es eso lo que quieres?

[eduarcol]

Bueno amigo, realmente es tu codigo 

Si eso es lo que quiero, pero me altera el tamaño, probare de nuevo a ver si es que hago algo mal. Gracias

[JoAnCa]

Hola a todos

Amigo Seoane, el compactado lo descargo bien, pero al abrirlo me da error de final de archivo inesperado,y no puedo descomprimirlo, faltan archivos debido al error

Pudieras subirlo de nuevo?

[seoane]

Pudieras subirlo de nuevo?

El archivo esta bien, acabo de comprobarlo. A lo mejor lo descargaste mal la primera vez y cuando volviste a intentar descargarlo ya lo tenias mal en la cache de tu navegador. Prueba a eliminar los ficheros temporales y descargarlo de nuevo

[JoAnCa]

Pudieras subirlo de nuevo?

El archivo esta bien, acabo de comprobarlo. A lo mejor lo descargaste mal la primera vez y cuando volviste a intentar descargarlo ya lo tenias mal en la cache de tu navegador. Prueba a eliminar los ficheros temporales y descargarlo de nuevo

Ok, ya lo pude descargar
Al parecer fue eso mismo lo que sucedió

[JoAnCa]

Ayuda de nuevo

Al intentar ejecutar el programa me sale este error
Donde obtengo el componente que falta?

Archivos adjuntos

•  1915_29f30d4a2641892d122ea56dc1fb0c8583236a9c.png   7,4KB   6 descargas

[Delphius]

Hola JoAnCa,

Ese aviso de "error" no es por un componente... es el aviso de que hay algunas propiedades que no tienen tus componentes. Es por un tema de versión de Delphi. En D7 y siguientes se han añadido algunas nuevas propiedades a algunas clases y como tu tienes una versión inferior te da un aviso de que no las encuentra.
Con ignorarlas bastará. No deberías tener mayores problemas

Al menos con esas propiedades ExplicitLeft... no se para que se utilizarán pero al menos cuando he visto y probado código de otros de versiones superiores a D6 con ignorarlas no tuve inconvenientes.

Saludos,

[enecumene]

Es problema de versión Delphi puede ser que seoane lo hizo con D2007 y tú tienes D7.

Saludos.