<html><head><style>p{margin-top:0px;margin-bottom:0px;}</style></head><body><div style="font-size:10pt; font-family:Gulim;"><p>hello everyone. </p><p>I Loaded successfully after saving that i drawn.</p><p>But i load fail after saving that i copied. (please see below code)</p><p>This <span style="font-family: Arial; font-size: 13px; line-height: 17px;">situation occurs in accordance with copy size.</span></p><p><span style="font-family: Arial; font-size: 13px; line-height: 17px;">Below it is my code and i written some comments.</span></p><p><span style="font-family: Arial; font-size: 13px; line-height: 17px;"> </span></p><p><span style="font-family: Arial; font-size: 13px; line-height: 17px;">[My code]</span></p><p><font face="Arial"><span style="font-size: 13px; line-height: 17px;">procedure TForm1.Button2Click(Sender: TObject);</span></font></p><p><font face="Arial"><span style="font-size: 13px; line-height: 17px;">begin</span></font></p><p><font face="Arial"><span style="font-size: 13px; line-height: 17px;"> //Drawing</span></font></p><p><font face="Arial"><span style="font-size: 13px; line-height: 17px;"> Image1.Picture.bitmap.PixelFormat := pf32bit; //Valuable!</span></font></p><p><font face="Arial"><span style="font-size: 13px; line-height: 17px;"> Image1.Picture.bitmap.SetSize(Image1.Width,Image1.Height);</span></font></p><p><font face="Arial"><span style="font-size: 13px; line-height: 17px;"> Image1.Picture.Bitmap.Canvas.TextOut(0,0,'test');</span></font></p><p><font face="Arial"><span style="font-size: 13px; line-height: 17px;"> Image1.Invalidate; </span></font><span style="font-size: 13px; line-height: 17px; font-family: Arial;">//</span></p><p><font face="Arial"><span style="font-size: 13px; line-height: 17px;"> Image1.Picture.Bitmap.SaveToFile('/home/user/Image/drawing.bmp');</span></font></p><p><font face="Arial"><span style="font-size: 13px; line-height: 17px;"> FileListBox1.UpdateFileList;</span></font></p><p><font face="Arial"><span style="font-size: 13px; line-height: 17px;">end;</span></font></p><p> </p><p><span style="font-size: 13px; line-height: 17px; font-family: Arial;">procedure TForm1.Button3Click(Sender: TObject);</span></p><p><font face="Arial"><span style="font-size: 13px; line-height: 17px;">var</span></font></p><p><font face="Arial"><span style="font-size: 13px; line-height: 17px;"> ImagetoSave : TImage;</span></font></p><p><font face="Arial"><span style="font-size: 13px; line-height: 17px;">begin</span></font></p><p><font face="Arial"><span style="font-size: 13px; line-height: 17px;"> ImagetoSave := TImage.Create(Self);</span></font></p><p><font face="Arial"><span style="font-size: 13px; line-height: 17px;"> with ImagetoSave.Picture.Bitmap do</span></font></p><p><font face="Arial"><span style="font-size: 13px; line-height: 17px;"> begin</span></font></p><p><font face="Arial"><span style="font-size: 13px; line-height: 17px;"> PixelFormat := pf32bit;</span></font></p><p><span style="font-size: 13px; line-height: 17px; font-family: Arial;"> 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.</span></p><p><font face="Arial"><span style="font-size: 13px; line-height: 17px;"> ImagetoSave.Width := Width;</span></font></p><p><font face="Arial"><span style="font-size: 13px; line-height: 17px;"> ImagetoSave.Height:= Height;</span></font></p><p><font face="Arial"><span style="font-size: 13px; line-height: 17px;"> Canvas.CopyRect(Rect(0,0,Image1.Width,Image1.Height),</span></font></p><p><font face="Arial"><span style="font-size: 13px; line-height: 17px;"> Image1.Picture.Bitmap.Canvas,</span></font></p><p><font face="Arial"><span style="font-size: 13px; line-height: 17px;"> Rect(0,0,Image1.Width,Image1.Height));</span></font></p><p><font face="Arial"><span style="font-size: 13px; line-height: 17px;"> SetSize(Image1.Width,Image1.Height);</span></font></p><p><font face="Arial"><span style="font-size: 13px; line-height: 17px;"> ImagetoSave.Width := Width;</span></font></p><p><font face="Arial"><span style="font-size: 13px; line-height: 17px;"> ImagetoSave.Height:= Height;</span></font></p><p><font face="Arial"><span style="font-size: 13px; line-height: 17px;"> end;</span></font></p><p><font face="Arial"><span style="font-size: 13px; line-height: 17px;"> ImagetoSave.Picture.Bitmap.SaveToFile('/home/user/Image/copycreate.bmp');</span></font></p><p><font face="Arial"><span style="font-size: 13px; line-height: 17px;"> FileListBox1.UpdateFileList;</span></font></p><p><font face="Arial"><span style="font-size: 13px; line-height: 17px;">end;</span></font></p><p><font face="Arial"><span style="font-size: 13px; line-height: 17px;"><br></span></font></p><p><font face="Arial"><span style="font-size: 13px; line-height: 17px;"><br></span></font></p><p><font face="Arial"><span style="font-size: 13px; line-height: 17px;">procedure TForm1.FileListBox1Change(Sender: TObject);</span></font></p><p><font face="Arial"><span style="font-size: 13px; line-height: 17px;">begin</span></font></p><p><font face="Arial"><span style="font-size: 13px; line-height: 17px;"> if FileListBox1.ItemIndex <> -1 then</span></font></p><p><font face="Arial"><span style="font-size: 13px; line-height: 17px;"> begin</span></font></p><p><font face="Arial"><span style="font-size: 13px; line-height: 17px;"> //Loading</span></font></p><p><font face="Arial"><span style="font-size: 13px; line-height: 17px;"> Image3.Picture.bitmap.TransParentColor := clGreen; //Valuable!</span></font></p><p><font face="Arial"><span style="font-size: 13px; line-height: 17px;"> Image3.Picture.bitmap.LoadFromFile(FileListBox1.FileName);</span></font></p><p><font face="Arial"><span style="font-size: 13px; line-height: 17px;"> Image3.Width := Image3.Picture.bitmap.Width;</span></font></p><p><font face="Arial"><span style="font-size: 13px; line-height: 17px;"> Image3.Height := Image3.Picture.bitmap.Height;</span></font></p><p><font face="Arial"><span style="font-size: 13px; line-height: 17px;"> end;</span></font></p><p><font face="Arial"><span style="font-size: 13px; line-height: 17px;"><br></span></font></p><p> </p><p><font face="Arial"><span style="font-size: 13px; line-height: 17px;">end;</span></font></p></div></body></html>
<table style="display:none"><tr><td><img src="http://mail.naver.com/readReceipt/notify/?img=SQnwFqEqp69oaxvYaqv9K6J0FxMZM4MdKqvmaA3SpxvqF6JCK6tZKzigMX%2B0Mogq74lR74lcWNFlbX30WLloWrdQarwCD4JZ%2BBFgWz0q%2BHK5WzJPMBi9bZl4b4k0bzJqMrJn74eZpm%3D%3D.gif" border="0"></td></tr></table>