Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2015.10.18;
Скачать: CL | DM;

Вниз

Сохранить Form.Canvas в файл .bmp   Найти похожие ветки 

 
rassl   (2009-03-11 11:16) [0]

Здравствуйте уважаемые программисты!может ли кто подсказать как сохранить рисунок на главной форме Form1.Canvas в файл bitmap или jpeg.


 
brother ©   (2009-03-11 11:26) [1]

из справки:
var
 Bitmap: TBitmap;
 MyRect, MyOther: TRect;
begin

 MyRect := Rect(10,10,100,100);

 MyOther := Rect(10,111,100, 201);
 Bitmap := TBitmap.Create;
 Bitmap.LoadFromFile("c:\windows\tartan.bmp");
 Form1.Canvas.BrushCopy(MyRect, Bitmap, MyRect, clBlack);
 Form1.Canvas.CopyRect(MyOther,Bitmap.Canvas,MyRect);
 Bitmap.Free;
end;

переделывай)


 
rassl   (2009-03-11 11:41) [2]

т.е. как сделать Bitmap.Pixels[] := Form1.Canvas.Pixels[];??
т.е. уже на канве формы имеется рисунок. его записать в битмап
и сохранить в Bitmap.SaveToFile("c:\windows\tartan.bmp")??


 
{RASkov} ©   (2009-03-11 11:45) [3]

> [2] rassl   (11.03.09 11:41)

Bitmap.Canvas.CopyRect(MyOther, Form1.Canvas, MyRect);


 
rassl   (2009-03-11 11:46) [4]

в этих 2-х процедурах все понятно сохранение рисунка в файл bmp из Image:

procedure TPodMainAnalogForm.SaveGraphBitmap(Sender: TObject);
var Name:string;
begin
if PathName = DefaultFileName
 then begin SaveAsGraphBitmap(Sender); ; end
 else begin  Name:=SaveFileBitmap.FileName;
 if Name="" then Exit;
 if ExtractFileExt(Name)="" then Name:=Name+".bmp";
 ImageGraph.Picture.SaveToFile(Name);
 end;
end;

procedure TPodMainAnalogForm.SaveAsGraphBitmap(Sender: TObject);
begin
 SaveFileBitmap.FileName := PathName;
 if SaveFileBitmap.Execute then
 begin
   PathName := SaveFileBitmap.FileName;
   SaveGraphBitmap(Sender);
   Caption :="Модель - "+ExtractFileName(PathName);
 end;
end;


 
{RASkov} ©   (2009-03-11 11:48) [5]

> [4] rassl   (11.03.09 11:46)

К чему ты их сюда выложил? Сендер лишний в них)


 
brother ©   (2009-03-11 11:52) [6]

1. у битмапа есть канвас
2. по примеру, совсем трудно?


 
{RASkov} ©   (2009-03-11 11:55) [7]

> [6] brother ©   (11.03.09 11:52)

Он как увидел что в примере:
> Bitmap.LoadFromFile("c:\windows\tartan.bmp");

а ему нужно:
> Bitmap.SaveToFile("c:\windows\tartan.bmp")

поэтому дальше пример смотреть не стал
:)


 
brother ©   (2009-03-11 12:09) [8]

мдя, хотя... на ошибках учатся...


 
rassl   (2009-03-11 12:11) [9]

копирует, вот спасибо, надо ж :))
а я писал раньше Bitmap.Canvas.CopyRect(MyOther, Bitmap.Canvas, MyRect); и не получалось, ну конечно :))



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

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

Наверх




Память: 0.48 MB
Время: 0.005 c
2-1400941622
Y
2014-05-24 18:27
2015.10.18
program can t start because rtl70.bpl is missing from your comput


15-1425072602
Юрий
2015-02-28 00:30
2015.10.18
С днем рождения ! 28 февраля 2015 суббота


1-1333648639
Дмитрий Белькевич
2012-04-05 21:57
2015.10.18
сконвертироать содержимое буфера обмена wmf > bmp


2-1400900914
mfender
2014-05-24 07:08
2015.10.18
Вопрос по теории. Нетипизированные параметры в методах.


11-1249495316
D[u]fa
2009-08-05 22:01
2015.10.18
SVN, BUGS and etc