|
|
|
|
Заполнение изображением MDI-формы I
Привет всем!
Кто-нибудь знает как поместить в MDI-форму изображение и заполнить им всю форму (tile)?
(Tile - "секция, плитка" - непрерывное заполнение определенной области немасштабируемым изображением слева-направо сверху вниз - В.О.)
Да. Это легкий вопрос..
|
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;
|
[000166]
|
|
|
|
|