V�rias figuras em um mesmo Image?

Question

Como fazer para conseguir repetir a mesma figura em toda a extens�o do componente image?...

Beppe · Answer

No TImage n�o d�, ent�o coloque um TPaintBox e coloque no OnPaint dele:

with TPaintBox(Sender) do
  TileImage(Canvas, Image1.Picture.Graphic, Width, Height);

A rotina que faz isso:


procedure TileImage(Canvas: TCanvas; Image: TGraphic; Width, Height: Integer);
var
  I, J: Integer;
begin
  for I := 0 to Width div Image.Width do
    for J := 0 to Height div Image.Height do
      Canvas.Draw(Image, I * Image.Width, J * Image.Height);
end;

Ataliba

Raserafim · Answer

Desculpa a grande demora em agradacer. Deu certo, era exatamente o que eu queria. Precisei fazer apenas uma corre��o: na linha Canvas.Draw(........) o par�metro Image tem que ser o �ltimo.

mais uma vez obrigado.

Beppe · Answer

T�o t� feito!  8) � que eu escrevo direto aqui, sem passar no Delphi, por isso o equ�voco.Ataliba...

F�rum V�rias figuras em um mesmo Image? #187918