Unnamed

procedure TLibForm.CreateBoxes(cols: Integer);
var
i : Integer;
bmpUnit: TBitmap;
scroll,marginx,marginy: Integer;
size: Integer;
rectt: TRect;
begin
  scroll:=35;
  size:=Screen.Width-scroll;
  size:=Round(size/4);
  ShowMessage('Kniga size'+IntToStr(size));
  libmp:=TBitmap.Create;
  bmpUnit:=TBitmap.Create;
       bmpUnit.Assign(DGSingleImage(DGPressUnit(lib.booksUnits[0]).thumb).normal);
       BMPZoom(bmpUnit,size,Round(size*(bmpUnit.Width/bmpUnit.Height)));
       bmpUnit.Canvas.Brush.Bitmap:=bmpUnit;
       bmpUnit.Canvas.FillRect(Rect(0,0,bmpUnit.Height,bmpUnit.Width));

      rectt := Rect(0,0,bmpUnit.Height,bmpUnit.Width);
      libmp.Height:=CenterImage.Height;
      libmp.Width:=CenterImage.Width;
      bmpUnit.Canvas.Brush.Color:=clRed;
       bmpUnit.Canvas.FillRect(Rect(0,0,bmpUnit.Height,bmpUnit.Width));
      libmp.Canvas.CopyRect(rectt,bmpUnit.Canvas,rectt);
      CenterImage.Picture.Assign(libmp);
end;