| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

pound ©   (2007-01-16 19:17:00) 

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

---

easy   (2007-01-17 11:31:00) [1]

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;

---

clickmaker   (2007-01-17 11:18:00) [2]

в OnCreate

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

в OnPaint

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

в OnDestroy

p.Free;

---

Amoeba   (2007-01-17 11:13:00) [3]

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

Что либо туда загрузитьнельзя. А вот в 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;
>
> так можно.

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

---

Pasha L   (2007-01-16 19:38:00) [4]

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

так можно.

---

Наверх