Imitar Fondo Web en Delphi

[Deiv]

Gracias en este momento no tengo Delphi a mano, lo probaré en casa,
¿No hay forma de llevar el código a una TImage? Digo esto ya que he tenido problemas con el TPaintBox ultimamente debido a que luego de dibujar al cambiar de ventana se me borra.

[roman]

Posiblemente se te borra porque dibujas en él y te olvidas. Pero debes hacerlo en su evento OnPaint para que se redibuje cada vez que sea necesario. Aquí está el ejemplo más detallado y ya probado

Código Delphi [-]
procedure TForm1.PaintBox1Paint(Sender: TObject);
var
  N, Y: Integer;

begin
  // Pintas el fondo del paintbox (blanco en este caso)
  Paintbox1.Canvas.Brush.Color := clWhite;
  PaintBox1.Canvas.Brush.Style := bsSolid;
  PaintBox1.Canvas.FillRect(PaintBox1.ClientRect);

  // Calculas cuantas veces debes repetir la espiral
  N := PaintBox1.Height div Espiral.Height;

  for Y := 0 to N - 1 do
  begin
    PaintBox1.Canvas.Draw(0, Y*Espiral.Height, Espiral);
  end;
end;

Espiral es un TBitmap que creas al principio:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  Espiral := TBitmap.Create;
  Espiral.LoadFromFile('asterisk_orange.bmp');
end;

y destruyes al final:

Código Delphi [-]
procedure TForm1.FormDestroy(Sender: TObject);
begin
  Espiral.Free;
end;

// Saludos

[Neftali [Germán.Estévez]]

A parte de hacerlo manualmente, si deseas utilizar esta imagen como fondo de un form (eso no me ha quedado claro), puedes utilizar un componente llamado TUpTiler (en torry está); Funciona muy bien, es sencillo, free, con fuentes, y además permite muchas opciones para colocar una imagen de fondo (strech, centrado, mosaico,...); Además permite rellenar con un color fijo o con degradados.

[Deiv]

Gracias Roman, una vez mas demostrado que en Delphi todo se puede.

Empezado por Roman

Posiblemente se te borra porque dibujas en él y te olvidas

Bueno esa parte no me daba cuenta, y casi en muchas de mis aplicaciones que iba trabajando fui cambiando a TImage, dejando de lado TPaintBox, ¿Cual la diferencia de tu código en una TIMage?.... o... es más presentable en un TPaintBox?

Neftali, probaré tu sugerencia del Componente TUpTiler, nunca lo he manejado, pues en realidad el objetivo era para colocar en alguna parte del Form (no en todo) y que sirviera a manera de Tutorial (cual si leer un texto de un cuaderno espiral), he ahí la insistencia del mismo espiral.

[Deiv]

He probado efectivamente esta vez el código de Román como el Componente de TUpTiler (muy sencillo de manejar) que recomendó Neftali y ambos se parecen, muy buenos. Thanks!