<div dir="ltr">Hi,<br><br>I've created this component. You can find it at: <a href="http://github.com/ik5/linesip-components/blob/master/buttons/untbuttonlist.pas">http://github.com/ik5/linesip-components/blob/master/buttons/untbuttonlist.pas</a><br>

<br>Ido<br clear="all"><a href="http://ik.homelinux.org/">http://ik.homelinux.org/</a><br>
<br><br><div class="gmail_quote">On Sun, Aug 29, 2010 at 00:31, Peter E Williams <span dir="ltr"><<a href="mailto:foss.game.pascal.developer@iinet.net.au">foss.game.pascal.developer@iinet.net.au</a>></span> wrote:<br>

<blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">Hi,<br>
<br>
This email is related to my previous post.<br>
<br>
I want to create a new component called a TButtonGrid which would be a<br>
descendant of TCustomDrawGrid. Problem is that I don't know how to do<br>
that. Obviously, I would need to make the CustomDraw (???) draw a<br>
TButton.<br>
<br>
Does anyone have some example(s) of how to do this, please???<br>
<br>
<a href="http://wiki.lazarus.freepascal.org/Grids_Reference_Page" target="_blank">http://wiki.lazarus.freepascal.org/Grids_Reference_Page</a><br>
<br>
                       Inheritence Tree<br>
                       ================<br>
<br>
                       [TCustomControl]<br>
                              |<br>
                              |<br>
                         TCustomGrid<br>
                              |<br>
                +-------------+------------+<br>
                |                          |<br>
          TCustomDrawGrid             TCustomDbGrid<br>
                |                          |<br>
       +--------+--------+                 |<br>
       |                 |              TDbGrid<br>
   TDrawGrid      TCustomStringGrid<br>
                         |<br>
                         |<br>
                    TStringGrid<br>
<br>
Best Regards,<br>
                PEW<br>
Hobart, Tasmania, Australia<br>
<br>
--<br>
Proudly developing Quality Cross Platform Open Source Games<br>
Since 1970 with a Commodore PET 4016 with 16 KRAM<br>
<a href="http://pews-freeware-games.org" target="_blank">http://pews-freeware-games.org</a> (<--- brand new)<br>
<font color="#888888"><br>
<br>
--<br>
_______________________________________________<br>
Lazarus mailing list<br>
<a href="mailto:Lazarus@lists.lazarus.freepascal.org">Lazarus@lists.lazarus.freepascal.org</a><br>
<a href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus" target="_blank">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus</a><br>
</font></blockquote></div><br></div>