I use :
tbrbtns:array[0..5] of TBBUTTON =(
(iBitmap:7;idCommand:10000;fsState:TBSTATE_ENABLED;fsStyle:TBSTYLE_BUTTON;dwData:0;iString:0),
(iBitmap:8;idCommand:10001;fsState:TBSTATE_ENABLED;fsStyle:TBSTYLE_BUTTON;dwData:0;iString:0),
(iBitmap:0;idCommand:0;fsState:TBSTATE_ENABLED;fsStyle:TBSTYLE_SEP;dwData:0;iString:0),
(iBitmap:0;idCommand:10002;fsState:TBSTATE_ENABLED;fsStyle:TBSTYLE_BUTTON;dwData:0;iString:0),
(iBitmap:1;idCommand:10003;fsState:TBSTATE_ENABLED;fsStyle:TBSTYLE_BUTTON;dwData:0;iString:0),
(iBitmap:2;idCommand:10004;fsState:TBSTATE_ENABLED;fsStyle:TBSTYLE_BUTTON;dwData:0;iString:0)
);
compile success,I don't know why
The org defination is:
_TBBUTTON = Record
iBitmap : cint;
idCommand : cint;
fsState : BYTE;
fsStyle : BYTE;
{$IFDEF _WIN64}
bReserved : ARRAY[0..5] OF BYTE;
// padding for alignment
{$ELSE}
{$IFDEF _WIN32}
bReserved : ARRAY[0..1] OF BYTE;
// padding for alignment
{$ENDIF}
{$ENDIF}
dwData : DWORD_PTR;
iString : INT_PTR;
END;
TBBUTTON = _TBBUTTON;
2010/2/5 Anthony Walter <sys...@gmail.com>
> Like so:
>
> (iBitmap:0; idCommand: 0; fsState:0; fsStyle:0; bReserved: (0,0);
> dwData: nil; iString: nil)
> _______________________________________________
> fpc-pascal maillist - fpc-pascal@lists.freepascal.org
> http://lists.freepascal.org/mailman/listinfo/fpc-pascal
>
--
http://pingyu.wordpress.com.cn
http://step7.blog.163.com/
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
