<html><head><style>p{margin-top:0px;margin-bottom:0px;}</style></head><body><div style="font-size:10pt; font-family:Gulim;"> <p> </p><p style="font-size:10pt;FONT-FAMILY: Gulim,AppleGothic,sans-serif;padding:0 0 0 10pt"><span>-----Original Message-----</span><br><b>From:</b> "Mattias Gaertner"<nc-gaertnma@netcologne.de> <br><b>To:</b> <lazarus@lists.lazarus.freepascal.org>; <br><b>Cc:</b> <br><b>Sent:</b> 2016-02-25 (목) 19:57:19<br><b>Subject:</b> Re: [Lazarus] Image Copy and Load Fail.<br> </p><p>On Thu, 25 Feb 2016 19:28:57 +0900 (KST)<br>최경식 <me357159@naver.com> wrote:<br><br>>[...]<br>> procedure TForm1.Button3Click(Sender: TObject);<br>> var<br>> ImagetoSave : TImage;<br>> begin<br>> ImagetoSave := TImage.Create(Self);<br><br>A TImage is a visual control that uses a graphic (e.g. a TBitmap) to<br>paint.<br>If you only need a memory image use TBitmap directly instead.<br><br>This copies pixels (not attributes):<br><br>var<br> ImagetoSave : TBitmap;<br>begin<br> ImagetoSave := TBitmap.Create(Self);<br> with ImagetoSave do<br> begin<br> PixelFormat := pf32bit;<br> SetSize(Image1.Width,Image1.Height);<br> Canvas.CopyRect(Rect(0,0,Image1.Width,Image1.Height),<br> Image1.Picture.Bitmap.Canvas,<br> Rect(0,0,Image1.Width,Image1.Height));<br> end;<br> ImagetoSave.SaveToFile('/home/user/Image/copycreate.bmp');<br> FileListBox1.UpdateFileList;<br>end;<br><br><br>> procedure TForm1.FileListBox1Change(Sender: TObject);<br>> begin<br>> if FileListBox1.ItemIndex <> -1 then<br>> begin<br>> //Loading<br>> Image3.Picture.bitmap.TransParentColor := clGreen; //Valuable!<br><br>Hint:<br>If you also want to copy attributes like TransparentColor, use<br><br>ImagetoSave.Assign(Image1.Picture.Bitmap);<br><br>Mattias<br><br>--</p><p> </p><p>Thank you.</p><p> </p><p>But the problem still occurs.</p><p> </p><p>I set the size to 4200 * 900 -> copy -> re-set the size.</p><p> </p><p>My platform is ARM-linux and OS is Lubuntu, Lazarus 1.0.10+dpkg (I tested newest version with same problem..)</p><p>_______________________________________________<br>Lazarus mailing list<br>Lazarus@lists.lazarus.freepascal.org<br><a href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus</a></p></div></body></html>
<table style="display:none"><tr><td><img src="http://mail.naver.com/readReceipt/notify/?img=SlbwFqEqp6dXazuYaqv9MovqMxgrpzM9px3oFzK9FAC4KogrKrpvFAElpEIo%2BrkSKoU5W4d5W4C5bX0q%2BzkR74FTWx%2FsWzJPMBi9bdIn1BFdbZlnMBGCbNkq74pZp6kmMBFoM6m5WXiN.gif" border="0"></td></tr></table>