GROUP doesn't seem to work properly with the PIXEL option, I believe that FiveLinux.ch is not correctly translating the @ <row>, <col> GROUP command because it is not including a [ <lUpdate: UPDATE> ] to pass as <.lUpdate.> into TGroup():New() so the <.lPixel.> value is passed in the wrong position.
This seems to work:
- Code: Select all Expand view
#xcommand @ <nRow>, <nCol> GROUP [ <oGroup> ] ;
[ <label: LABEL, PROMPT> <cText> ] ;
[ <of: OF, WINDOW, DIALOG> <oWnd> ] ;
[ SIZE <nWidth>, <nHeight> ] ;
[ <lPixel: PIXEL> ] ;
[ <lUpdate: UPDATE> ] ;
=> ;
[ <oGroup> := ] TGroup():New( <nRow>, <nCol>,;
[<oWnd>], <cText>, <nWidth>, <nHeight>, <.lUpdate.>, <.lPixel.> )
TRadMenu supports the PIXEL clause in the placement of the TRadio representing the first element of the array passed in to TRadMenu and correctly passes the lPixel setting to its child TRadios but the incrementation of nRow needs to be adjusted. I am using:
- Code: Select all Expand view
IF lPixel
nRow += 30
ELSE
nRow += 2.5
ENDIF
I am using 30 because it matches my spacing elsewhere. Maybe the vertical spacing should be a settable property of TRadMenu? Without this change the options pretty much block each other out when using the PIXEL clause.
As always these could be problems of my making, or have subsequently been fixed, but they certainly were issues with FiveLinux as it was here.
Regards
Doug
(xProgrammer)
