Канва на форме.

← →
komiak © (2003-06-11 13:58) [0]

Всем привет!
Есть задача-заполнять канву формы картинками. Делаю так:
-----------------------------------

begin if str <> "" then begin FCover:=TBitmap.Create; FCover.LoadFromFile(Str); With LogBrush do begin lbStyle:=BS_PATTERN; lbHatch:=FCover.Handle; end; FHBrush:=CreateBrushIndirect(Logbrush); Form1.Canvas.Brush.Handle:=FHBrush; Form1.Canvas.FillRect(Rect(0,0,Width,Height)); end; end;
-----------------------------------------------
Но появилась поблема: на форме болтаются две панели с меню, которые обрезают верхушки картинок.Как бороться?

← →
jel © (2003-06-11 14:01) [1]

Form1.Canvas.FillRect(Rect(0,0, ClientWidth,ClientHeight));

← →
komiak © (2003-06-11 16:09) [2]

Не то обрезается верх, а не низ.:-((

← →
Andrews © (2003-06-11 16:17) [3]

Form1.Canvas.FillRect(Rect(0, 0,Width,Height));

Дык может здесь не ноль должен стоять, а высота этих двух панелей..?

Пробовал даже больше. Не получается. Рисунок все равно начинается с верха формы. Если ставлю
rect(0,<какое-то число>,Width,Height)
то картинка обрезается по этому размеру, а не сдвигается.

Канва на форме. Найти похожие ветки