Скачать: CL | DM;

Сохранить картинку   Найти похожие ветки 

← →
alexdn ©   (2012-09-09 06:24) [0]

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

---

← →
Anatoly Podgoretsky ©   (2012-09-09 08:06) [1]

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

---

← →
alexdn ©   (2012-09-09 11:15) [2]

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

---

← →
alexdn ©   (2012-09-09 11:18) [3]

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

---

← →
bems ©   (2012-09-09 11:26) [4]

Image1.Picture.Bitmap.SaveToFile

---

← →
alexdn ©   (2012-09-09 11:33) [5]

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

---

← →
alexdn ©   (2012-09-09 12:10) [6]

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

---

← →
QAZ   (2012-09-09 12:56) [7]

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

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

---

← →
Юрий Зотов ©   (2012-09-09 13:05) [8]

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

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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.047 c