Form'un arka kısmına bir resmi döşemek

Başlatan Safirmedya, 06 Mart , 2011, 22:32:06

« önceki - sonraki »

0 Üyeler ve 1 Ziyaretçi konuyu incelemekte.

Safirmedya

Form'un arka kısmına bir resmi döşemek
Bitmap: TBitmap;
procedure TForm1.FormCreate(Sender: TObject);
begin
  Bitmap := TBitmap.Create;
  Bitmap.LoadFromFile('C:\WINDOWS\cars.BMP');
end;
procedure TForm1.FormPaint(Sender: TObject);
var
  X, Y, W, H: LongInt;
begin
  with Bitmap do begin
    W := Width;
    H := Height;
  end;
  Y := 0;
  while Y < Height do begin
    X := 0;
    while X < Width do begin
      Canvas.Draw(X, Y, Bitmap);
      Inc(X, W);
    end;
    Inc(Y, H);
  end;
end;
Bir insanın gerçek zenginliği, onun bu dünyada yaptığı iyilikleridir.

Hz.Muhammed

Safirmedya

Bir insanın gerçek zenginliği, onun bu dünyada yaptığı iyilikleridir.

Hz.Muhammed