БОЛЬШОЙ FAQ ПО DELPHI



Заполнение изображением MDI-формы



 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;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Видеокурс ВЗЛОМ