Várias figuras em um mesmo Image?

Delphi

11/10/2003

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


Raserafim

Raserafim

Curtidas 0

Respostas

Beppe

Beppe

11/10/2003

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


GOSTEI 0
Raserafim

Raserafim

11/10/2003

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.


GOSTEI 0
Beppe

Beppe

11/10/2003

Tão tá feito! 8)

É que eu escrevo direto aqui, sem passar no Delphi, por isso o equívoco.

Ataliba


GOSTEI 0
POSTAR