hello everyone.
I Loaded successfully after saving that i drawn.
But i load fail after saving that i copied. (please see below code)
This situation occurs in accordance with copy size.
Below it is my code and i written some comments.
[My code]
procedure TForm1.Button2Click(Sender: TObject);
begin
//Drawing
Image1.Picture.bitmap.PixelFormat := pf32bit; //Valuable!
Image1.Picture.bitmap.SetSize(Image1.Width,Image1.Height);
Image1.Picture.Bitmap.Canvas.TextOut(0,0,'test');
Image1.Invalidate; //
Image1.Picture.Bitmap.SaveToFile('/home/user/Image/drawing.bmp');
FileListBox1.UpdateFileList;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
ImagetoSave : TImage;
begin
ImagetoSave := TImage.Create(Self);
with ImagetoSave.Picture.Bitmap do
begin
PixelFormat := pf32bit;
SetSize(500,900); // this is
where a problem is caused. if these size numbers are large, the problem
occurrence, otherwise the problems does not occur.
ImagetoSave.Width := Width;
ImagetoSave.Height:= Height;
Canvas.CopyRect(Rect(0,0,Image1.Width,Image1.Height),
Image1.Picture.Bitmap.Canvas,
Rect(0,0,Image1.Width,Image1.Height));
SetSize(Image1.Width,Image1.Height);
ImagetoSave.Width := Width;
ImagetoSave.Height:= Height;
end;
ImagetoSave.Picture.Bitmap.SaveToFile('/home/user/Image/copycreate.bmp');
FileListBox1.UpdateFileList;
end;
procedure TForm1.FileListBox1Change(Sender: TObject);
begin
if FileListBox1.ItemIndex <> -1 then
begin
//Loading
Image3.Picture.bitmap.TransParentColor := clGreen; //Valuable!
Image3.Picture.bitmap.LoadFromFile(FileListBox1.FileName);
Image3.Width := Image3.Picture.bitmap.Width;
Image3.Height := Image3.Picture.bitmap.Height;
end;
end;
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
