Текущий архив: 2003.06.26;
Скачать: CL | DM;

Вниз

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

← →
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));

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

---

← →
komiak   (2003-06-13 09:31) [4]

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

---

Страницы: 1 вся ветка

Текущий архив: 2003.06.26;
Скачать: CL | DM;

Наверх

Память: 0.44 MB
Время: 0.029 c