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

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

Сохранить картинку

alexdn ©   (2012-09-09 06:24:00) 

На форме - image1 хочу сделать 'сохранить как..' по клику, правому, мышкой.. какие стандартные компоненты использовать для меню и сохранения?

---

Юрий Зотов   (2012-09-09 13:05:00) [1]

> alexdn ©   (09.09.12 12:10) [6]

procedure TForm4.N1Click(Sender: TObject);
begin
  if SavePictureDialog1.Execute then
   Image1.Picture.Bitmap.SaveToFile(SavePictureDialog1.FileName); // Убрать апострофы
end;

---

QAZ   (2012-09-09 12:56:00) [2]

> что ещё надо?

всетаки прочитать книжку из разряда "Делфи для чайников"

---

alexdn   (2012-09-09 12:10:00) [3]

почему нельзя написать сразу, что ещё надо? -
procedure TForm4.N1Click(Sender: TObject);
begin
SavePictureDialog1.Execute;
Image1.Picture.Bitmap.SaveToFile('SavePictureDialog1.FileName');
end;

---

alexdn   (2012-09-09 11:33:00) [4]

> bems ©   (09.09.12 11:26) [4]
спасибо

---

bems   (2012-09-09 11:26:00) [5]

Image1.Picture.Bitmap.SaveToFile

---

alexdn   (2012-09-09 11:18:00) [6]

т.е. делаю так, но это совсем неправильно -
Bitmap := TBitmap.Create;
Image1.Canvas.CopyRect(Bitmap);
Bitmap.SaveToFile('bm.bmp');

---

alexdn   (2012-09-09 11:15:00) [7]

Нужно сохранить канву в файл, создаю Bitmap
Bitmap := TBitmap.Create;
Bitmap.SaveToFile('bm.bmp');
а как связать bitmap и Image1.Canvas?..

---

Anatoly Podgoretsky   (2012-09-09 08:06:00) [8]

Раз хочещь всплывающее меню, то и используй его

---

Наверх