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

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

как сохраить рисунок с канвы? [D7, ME, XP]

Страницы:   < 1 2 >

Locke ©   (2006-04-10 10:48:00) 

Помогите сабж, зарание спасибо.

---

Locke   (2006-04-10 12:58:00) [21]

он ошибку выдает

bitmap:=tbitmap.Create;
bitmap.Width:=w;
bitmap.Height:=h

на вот этом вот

---

Locke   (2006-04-10 12:48:00) [22]

разьясните пожалуйста Bitblt() и что в скобках именно?

---

Gydvin   (2006-04-10 12:45:00) [23]

Тоже самое

procedure TForm1.Button1Click(Sender: TObject);
var
bitmap:tbitmap;
w,h:integer;
begin
w:=paintbox1.Width;
h:=paintbox1.Heigh;

bitmap:=tbitmap.Create;
bitmap.Width:=w;
bitmap.Height:=h;
bitblt (bitmap.Canvas.Handle,0,0,w,h,paintbox1.canvas.Handle,0,0,SRCCOPY);
bitmap.SaveToFile('test.bmp');
bitmap.Free;

end;

---

Locke   (2006-04-10 12:33:00) [24]

я с Пэинт бобка пытаюсь сохранение сделать
это как-нибудь проще можно осуществить?

---

Джо   (2006-04-10 12:13:00) [25]

> [7] balepa ©   (10.04.06 12:09)
> ИзвИняюсь

Прошу прощения ;)

---

balepa   (2006-04-10 12:09:00) [26]

> Der Nechk@ssoff ©   (10.04.06 11:57) [6]
> Тогда извеняюсь

Изв Иняюсь

---

Der Nechk@ssoff   (2006-04-10 11:57:00) [27]

> Gydvin ©   (10.04.06 11:47) [5]

Тогда извеняюсь.

---

Gydvin   (2006-04-10 11:47:00) [28]

Der Nechk@ssoff ©   (10.04.06 11:43) [4]

а если это не Timage, а скажем канва формы

---

Der Nechk@ssoff   (2006-04-10 11:43:00) [29]

if savepicturedialog1.Execute then
Image1.Picture.SaveToFile(SavePictureDialog1.FileName);
Я пользуюсь и реально сейвит.

---

Gydvin   (2006-04-10 11:36:00) [30]

procedure TForm1.Button1Click(Sender: TObject);
var
bitmap:tbitmap;
begin
canvas.Brush.Color:=clred;
canvas.Rectangle(0,0,100,100);
bitmap:=tbitmap.Create;
bitmap.Width:=100;
bitmap.Height:=100;
bitblt (bitmap.Canvas.Handle,0,0,100,100,canvas.Handle,0,0,SRCCOPY);
bitmap.SaveToFile('test.bmp');
bitmap.Free;

end;

---

Poirot   (2006-04-10 11:30:00) [31]

TBitmap и у него есть TCanvas :)
+ GetWindowDC

---

Locke   (2006-04-10 11:24:00) [32]

ап

---

Страницы:   < 1 2 >

Наверх