Главная страница
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.071 c
15-1334834070
tesseract
2012-04-19 15:14
2013.03.22
IDE мечты на kickstarter


15-1341139478
Дмитрий С
2012-07-01 14:44
2013.03.22
999 рублей это для программистов :)


2-1330341115
agent17
2012-02-27 15:11
2013.03.22
TDateTime


2-1345561687
toropoff
2012-08-21 19:08
2013.03.22
как понять case в описании записи?


15-1329597005
Юрий
2012-02-19 00:30
2013.03.22
С днем рождения ! 19 февраля 2012 воскресенье