<HTML><HEAD></HEAD>
<BODY dir=ltr>
<DIV dir=ltr>
<DIV style="FONT-SIZE: 12pt; FONT-FAMILY: 'Calibri'; COLOR: #000000">
<DIV>In this project, speedbuttons and bitbuttons work fine, but TDBGrid does
not show.</DIV>
<DIV>If it is visible in your computer, maybe there is something that can go
wrong with display drivers?</DIV>
<DIV> </DIV>
<DIV>Press the right button to create the form and left (button1) to refresh the
Preview </DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV
style="BORDER-TOP-COLOR: #000000; BORDER-BOTTOM-COLOR: #000000; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 4px solid; BORDER-RIGHT-COLOR: #000000">
<DIV
style='FONT-SIZE: small; TEXT-DECORATION: none; FONT-FAMILY: "Calibri"; FONT-WEIGHT: normal; COLOR: #000000; FONT-STYLE: normal; DISPLAY: inline'>
<DIV style="FONT: 10pt tahoma">
<DIV style="font-color: black"><B>From:</B> <A title=hdpc@talktalk.net
href="mailto:hdpc@talktalk.net">Howard Page-Clark</A> </DIV>
<DIV><B>Sent:</B> Tuesday, May 13, 2014 7:44 PM</DIV>
<DIV><B>To:</B> <A title=lazarus@lists.lazarus.freepascal.org
href="mailto:lazarus@lists.lazarus.freepascal.org">lazarus@lists.lazarus.freepascal.org</A>
</DIV>
<DIV><B>Subject:</B> Re: [Lazarus] GetFormImage bug</DIV></DIV></DIV></DIV>
<DIV
style="BORDER-TOP-COLOR: #000000; BORDER-BOTTOM-COLOR: #000000; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 4px solid; BORDER-RIGHT-COLOR: #000000">
<DIV
style='FONT-SIZE: small; TEXT-DECORATION: none; FONT-FAMILY: "Calibri"; FONT-WEIGHT: normal; COLOR: #000000; FONT-STYLE: normal; DISPLAY: inline'>On
13/05/2014 16:49, Chris Crori wrote:<BR>> I have a thumbnail section in my
main program form. In the forms, I use<BR>> GetFormImage to make an image and
send it to the mainform.<BR>> The bug is that some components are not visible
in this image.<BR>> TDBGrid is one and a custom component derived from
TBitBtn is another.<BR>> I use the latest stable Lazarus 1.2.2 with FPC 2.6.4
on windows7, both<BR>> 32 and 64 bit<BR><BR>This
method<BR>//---------<BR>procedure TForm1.Button1Click(Sender:
TObject);<BR>var<BR> bmp: TBitmap;<BR>begin<BR>
form2.Show;<BR> bmp:=form2.GetFormImage;<BR>
try<BR> Image1.Canvas.StretchDraw(Image1.ClientRect,
bmp);<BR> finally<BR>
bmp.Free;<BR> end;<BR>end;<BR>//---------<BR>shows a DBGrid (and
everything else I dropped on form2) nicely on my <BR>Win7 32bit
setup.<BR>Perhaps you need to share the code that drops parts of the bitmap (and
<BR>perhaps the lfm of the imaged form as
well).<BR><BR><BR>--<BR>_______________________________________________<BR>Lazarus
mailing
list<BR>Lazarus@lists.lazarus.freepascal.org<BR>http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus<BR></DIV></DIV></DIV></DIV></BODY></HTML>