...ein TImage kacheln?

Autor: Simon Grossenbacher
Homepage: http://www.swissdelphicenter.ch

Kategorie: Grafik

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;

 

printed from
www.swissdelphicenter.ch
developers knowledge base