Канвас+форма
Всем привет!
Есть задача-заполнять канву формы картинками. Делаю так:
-----------------------------------
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;
-----------------------------------------------
Но появилась поблема: на форме болтаются две панели с меню, которые обрезают верхушки картинок.Как бороться?
Есть задача-заполнять канву формы картинками. Делаю так:
-----------------------------------
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;
-----------------------------------------------
Но появилась поблема: на форме болтаются две панели с меню, которые обрезают верхушки картинок.Как бороться?
А почему необходимо выводить рисунки на Канву, а нельзя на TImage, при этом TImage.Aligne:=alClient?