Главная страница
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.224 c
3-83920
DDP1
2003-06-03 11:36
2003.06.26
Перенос данных из DBF в SQL SERVER


1-84196
Димыч
2003-06-11 22:19
2003.06.26
Функции, процедуры...


1-84402
kull
2003-06-09 11:09
2003.06.26
FormatDateTime...


7-84795
Piroman
2003-04-18 12:12
2003.06.26
Как запретить определять звуковую карту приложению??


14-84514
Leonid
2003-06-03 13:19
2003.06.26
Надо решить пару задач на Delphi - 10$