Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2013.03.22;
Скачать: 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 вся ветка

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

Наверх




Память: 0.48 MB
Время: 0.442 c
2-1336423671
efgen
2012-05-08 00:47
2013.03.22
Решение нелинейных уравнений в Delphi


9-1181473912
@!!ex_
2007-06-10 15:11
2013.03.22
Проблема со стенсилем.


2-1334555099
Мишан
2012-04-16 09:44
2013.03.22
Вот так бывает


15-1351715402
Юрий
2012-11-01 00:30
2013.03.22
С днем рождения ! 1 ноября 2012 четверг


15-1353443403
Юрий
2012-11-21 00:30
2013.03.22
С днем рождения ! 21 ноября 2012 среда