{Coloque um TImage no seu formulário, escolha uma Picture e deixe a propriedade Visible = False. Depois, no evento OnPaint do Form, use o seguinte código:}
for i:= 0 to Round(Width/Image1.Width do
for j := 0 to Round(Height/Image1.Height) do
Canvas.Draw(i*Image1.Width,j*Image1.Height,Image1.Picture.Graphic); {Caso utilize um BitMap, pode substituir o Image1.Picture.graphic por Image1.BitMap. }
Assinar:
Postar comentários (Atom)
Nenhum comentário:
Postar um comentário