Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.017 c
14-84695
kostas
2003-06-04 13:36
2003.06.26
Пдскажите где можно почитать об програмировании COM, DCOM,OLE


1-84344
Hog
2003-06-16 14:05
2003.06.26
Побитовые операции


1-84095
megadeth
2003-06-10 10:42
2003.06.26
TMainMenu -> SaveToFile(...) ?


14-84758
Дмитрий К.К.
2003-06-03 06:22
2003.06.26
Whois


14-84678
k@rt
2003-06-08 23:11
2003.06.26
98 + Mouse