RSS

Como colocar um bmp de fundo em um form

28 nov

procedure TForm1.FormPaint(Sender: TObject);
var
bitmap : Tbitmap;
i,j : integer;
linhas,colunas : integer;
begin
Bitmap := Tbitmap.create;
try
Bitmap.loadFromFile (‘c:fundo.bmp’);{caminho do arquivo}
linhas := height div bitmap.height;
if height mod bitmap.height <>0 then
inc (linhas);
colunas := width div bitmap.width;
if width mod bitmap.width <>0 then
inc (colunas);
for i := 0 to linhas-1 do
for j:=0 to colunas-1do
canvas.draw(j*bitmap.width, i * bitmap.height, bitmap);
finally
bitmap.free;
end;
end;

Anúncios
 
Deixe um comentário

Publicado por em 28/11/2009 em Estudos Delphi

 

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

 
%d blogueiros gostam disto: