I use :<div>  <span class="Apple-tab-span" style="white-space:pre">     </span>tbrbtns:array[0..5] of TBBUTTON =(<div><span class="Apple-tab-span" style="white-space:pre">       </span>   (iBitmap:7;idCommand:10000;fsState:TBSTATE_ENABLED;fsStyle:TBSTYLE_BUTTON;dwData:0;iString:0),</div>
<div><span class="Apple-tab-span" style="white-space:pre">      </span>   (iBitmap:8;idCommand:10001;fsState:TBSTATE_ENABLED;fsStyle:TBSTYLE_BUTTON;dwData:0;iString:0),</div><div><span class="Apple-tab-span" style="white-space:pre">    </span>   (iBitmap:0;idCommand:0;fsState:TBSTATE_ENABLED;fsStyle:TBSTYLE_SEP;dwData:0;iString:0),</div>
<div><span class="Apple-tab-span" style="white-space:pre">      </span>   (iBitmap:0;idCommand:10002;fsState:TBSTATE_ENABLED;fsStyle:TBSTYLE_BUTTON;dwData:0;iString:0),</div><div><span class="Apple-tab-span" style="white-space:pre">    </span>   (iBitmap:1;idCommand:10003;fsState:TBSTATE_ENABLED;fsStyle:TBSTYLE_BUTTON;dwData:0;iString:0),</div>
<div><span class="Apple-tab-span" style="white-space:pre">      </span>   (iBitmap:2;idCommand:10004;fsState:TBSTATE_ENABLED;fsStyle:TBSTYLE_BUTTON;dwData:0;iString:0)</div><div><span class="Apple-tab-span" style="white-space:pre">     </span>);</div>
 compile success,I don't know why</div><div>The org defination is:</div><div><div>         _TBBUTTON            = Record</div><div>                                 iBitmap      : cint;</div><div>                                 idCommand    : cint;</div>
<div>                                 fsState      : BYTE;</div><div>                                 fsStyle      : BYTE;</div><div>{$IFDEF _WIN64}</div><div>                                 bReserved    : ARRAY[0..5] OF BYTE;          // padding for alignment</div>
<div>{$ELSE}</div><div>{$IFDEF _WIN32}</div><div>                                 bReserved    : ARRAY[0..1] OF BYTE;          // padding for alignment</div><div>{$ENDIF}</div><div>{$ENDIF}</div><div>                                 dwData       : DWORD_PTR;</div>
<div>                                 iString      : INT_PTR;</div><div>                                 END;</div><div>         TBBUTTON             = _TBBUTTON;</div><div><br></div></div><div><br><div class="gmail_quote">
2010/2/5 Anthony Walter <span dir="ltr"><<a href="mailto:sysrpl@gmail.com">sysrpl@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">Like so:<br>

<br>
(iBitmap:0; idCommand: 0; fsState:0; fsStyle:0; bReserved: (0,0);<br>
dwData: nil; iString: nil)<br>
_______________________________________________<br>
fpc-pascal maillist  -  <a href="mailto:fpc-pascal@lists.freepascal.org">fpc-pascal@lists.freepascal.org</a><br>
<a href="http://lists.freepascal.org/mailman/listinfo/fpc-pascal" target="_blank">http://lists.freepascal.org/mailman/listinfo/fpc-pascal</a><br>
</blockquote></div><br><br clear="all"><br>-- <br><a href="http://pingyu.wordpress.com.cn">http://pingyu.wordpress.com.cn</a><br><a href="http://step7.blog.163.com/">http://step7.blog.163.com/</a>   <br>
</div>