-
Здравствуйте уважаемые программисты!может ли кто подсказать как сохранить рисунок на главной форме Form1.Canvas в файл bitmap или jpeg.
-
из справки: 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;
переделывай)
-
т.е. как сделать Bitmap.Pixels[] := Form1.Canvas.Pixels[];?? т.е. уже на канве формы имеется рисунок. его записать в битмап и сохранить в Bitmap.SaveToFile('c:\windows\tartan.bmp')??
-
> [2] rassl (11.03.09 11:41)
Bitmap.Canvas.CopyRect(MyOther, Form1.Canvas, MyRect);
-
в этих 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;
-
> [4] rassl (11.03.09 11:46)
К чему ты их сюда выложил? Сендер лишний в них)
-
1. у битмапа есть канвас 2. по примеру, совсем трудно?
-
> [6] brother © (11.03.09 11:52)
Он как увидел что в примере: > Bitmap.LoadFromFile('c:\windows\tartan.bmp');
а ему нужно: > Bitmap.SaveToFile('c:\windows\tartan.bmp')
поэтому дальше пример смотреть не стал :)
-
мдя, хотя... на ошибках учатся...
-
копирует, вот спасибо, надо ж :)) а я писал раньше Bitmap.Canvas.CopyRect(MyOther, Bitmap.Canvas, MyRect); и не получалось, ну конечно :))
|