by russimicro » Mon Nov 11, 2024 3:10 pm
Buen dia...
Asi pude usar fwh 24-09
Este código afecta a Tgroup
bloquear asi
/*
if !lPixel
if nTop >= 1.0; nTop *= GRP_CHARPIX_H; endif
if nLeft >= 1.0; nLeft *= GRP_CHARPIX_W; endif
if nBottom >= 1.0; nBottom *= GRP_CHARPIX_H; endif
if nRight >= 1.0; nRight *= GRP_CHARPIX_W; endif
endif
::CalcSize( @nTop, @nLeft, @nWidth, @nHeight, lRelPix, oWnd, @nBottom, @nRight )
*/
::nTop = nTop * If( lPixel, 1, GRP_CHARPIX_H ) // 14
::nLeft = nLeft * If( lPixel, 1, GRP_CHARPIX_W ) // 7
if nWidth != nil
::nRight = ::nLeft + nWidth
else
::nRight = nRight * If( lPixel, 1, GRP_CHARPIX_W ) // 7
endif
y este a Tpanel
dejar asi
METHOD New( nTop, nLeft, nBottom, nRight, oWnd, lDesign, cVarName, lBorder ) CLASS TPanel
DEFAULT nTop := 0, nLeft := 0, nBottom := 100, nRight := 100,;
oWnd := GetWndDefault(), lDesign := .F., lBorder := .F.
::lUnicode = FW_SetUnicode()
::nTop = nTop
::nLeft = nLeft
::nBottom = nBottom
::nRight = nRight
russimicro
Posts: 248
Joined: Sun Jan 31, 2010 3:30 pm
Location: Bucaramanga - Colombia