Содержание материала

 

Code:

procedure TForm.OnPaint(Sender: TObject);

 

procedure Tile(c: TCanvas; b: TBitMap);

var

   x, y, h, w, i, j: integer;

begin

   with b do

   begin

     h := b.height;

     w := b.width;

   end;

   y := 0;

   with c.Cliprect do

   begin

     i := bottom - top - 1; //высота

     j := right - left - 1; //ширина

   end;

   while y < i do

   begin

     x := 0;

     while x < j do

     begin

       c.draw(x, y, b);

       inc(x, w);

     end;

     inc(y, h);

   end;

end;

 

begin

if Sender is TForm then

   Tile(TForm(Sender).Canvas, fTileWith);

end;

  

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить