Текущий архив: 2007.02.04;
Скачать: CL | DM;

Вниз

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

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

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

---

← →
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;

---

← →
easy ©   (2007-01-17 11:31) [4]

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;

---

Страницы: 1 вся ветка

Текущий архив: 2007.02.04;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.038 c