Текущий архив: 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.47 MB
Время: 0.018 c
