Category: Graphic
Title: Tile a Timage
Date added: 15.03.2006
Hits: 2036


function TileImage(const FileName: TFileName; Sender: TObject): Boolean;
var
  x, y: Integer;
  Bmp:  TBitmap;
begin
  if FileExists(FileName) then
  begin
    bmp := TBitmap.Create;
    try
      bmp.LoadFromFile(FileName);
      with (Sender as TImage) do
      begin
        for x := 0 to (Width div bmp.Width) do
          for y := 0 to (Height div bmp.Height) do
            Canvas.Draw(x * bmp.Width, y * bmp.Height, bmp);
      end;
    finally
      bmp.Free;
    end;
    Result := True;
  end
  else
    Result := False;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Opendialog1.Execute then
    TileImage(OpenDialog1.FileName, Image1);
end;

1. How to invert a 32 bit Bitmap? (1989 Hits)

2. How to draw directly to the Desktop? (3305 Hits)

3. How to convert WMF to BMP? (1450 Hits)

4. How to get the current screen resolution? (2377 Hits)

5. How to convert a Bitmap to a JPEG and save it? (2758 Hits)

For any problems or recommendations about Delphi Tricks site, please

feel free to contact us on that e-mail: support@delphitricks.com.
If you want to advertise on the site use that e-mail: advertise@delphitricks.com.

You can freely use or modify these Delphi source codes for non-commercial use. We are not responsible of any damages that can be caused by the utilisation of that source codes.