Цитата:
Сообщение от lmikle
Тогда играй с кистью.
На том же OnBeforePrint попробуй шейпу указать свою кисть. Может хоть так сработает.
|
Доигрался, но не с кистью, помоему тоже ничего. Может кому понадобиться. Идея не моя, но искал долго
.
var
test: TBitmap;
X, Y, kX, kY: Integer;
test:= TBitmap.Create;
test.LoadFromFile('test.bmp');
test.Transparent:=true;
test.TransparentColor:=test.Canvas.Pixels[0, 3];
kX := Width DIV test.Width;
kY := Height DIV test.Height;
FOR X := 0 TO kX DO
FOR Y := 0 TO kY DO
QRImage1.Canvas.Draw(X*test.Width, Y*test.Height, test);