Подскажите, пожалуйста, как загрузить в канву формы рисунок *.bmp

← →
pound © (2007-01-16 19:17) [0]

← →
Pasha L © (2007-01-16 19:38) [1]

var
p:tpicture;
begin
p:=tpicture.Create;
p.LoadFromFile(Path);
canvas.Draw(0,0,p.Graphic);
p.Free;
end;

так можно.

← →
Amoeba © (2007-01-17 11:13) [2]

> как загрузить в канву формы

Что либо туда загрузить нельзя. А вот в TImage, положенный на форму, можно.

> Pasha L © (16.01.07 19:38) [1]
>
> var
> p:tpicture;
> begin
> p:=tpicture.Create;
> p.LoadFromFile(Path);
> canvas.Draw(0,0,p.Graphic);
> p.Free;
> end;
>
> так можно.

Можно то можно. Только вот при первой же перерисовке окна рисунок сотрется. Прежде чем давать такие советы, хотя бы проверил опытным путем.

← →
clickmaker © (2007-01-17 11:18) [3]

в OnCreate

p:=tpicture.Create; p.LoadFromFile(Path);

в OnPaint

canvas.Draw(0,0,p.Graphic);

в OnDestroy

p.Free;

procedure TForm1.FormCreate(Sender: TObject); begin canvas.Brush.Bitmap:=TBitmap.Create; canvas.Brush.Bitmap.LoadFromFile("C:\windows\Голубые кружева 16.bmp"); end; procedure TForm1.FormPaint(Sender: TObject); begin canvas.FillRect(ClientRect); end; procedure TForm1.FormDestroy(Sender: TObject); begin canvas.Brush.Bitmap.Free; end;

Подскажите, пожалуйста, как загрузить в канву формы рисунок *.bmp Найти похожие ветки