Estou compilando o sistema em harbour 3.0 com gtwvw, me deparei que as grid somem, não aparece linha e colunas, alguem sabe porque?
-:]

Moderador: Moderadores
..//..Veja se adaptando, ao menos utilizando a função SendMessage que é em C possa ser adapatado, veja se resolve. Anexei o executável e fontes para sua apreciação.
MenuItem "Toggle Grid Lines" action setgridlines('oGrid','oWindow',!isgridlines('oGrid','oWindow'))
..//..
function isgridlines(control,form)
local i:=getcontrolindex(control,form)
return _HMG_aControlMiscData1 [i][7]
#define LVM_FIRST 0x1000 // ListView messages
#define LVM_SETEXTENDEDLISTVIEWSTYLE (LVM_FIRST + 54) // optional wParam == mask
#define LVS_EX_FULLROWSELECT 0x00000020 // applies to report mode only
function setgridlines(control,form,nogrid)
local i:=getcontrolindex(control,form)
local ControlHandle:=getcontrolhandle(control,form)
SendMessage( ControlHandle, LVM_SETEXTENDEDLISTVIEWSTYLE, 0, iif( nogrid, 0, 1 )+ LVS_EX_FULLROWSELECT )
_HMG_aControlMiscData1 [i][7] := nogrid
return nil
-w1 -inc -lgtwin -lhbcomm -lhbwin -lhbct -lhbtip -lsqlite3 -lhbsqlit3 -lbemafi32 -LF:\HB31\LIB
Retornar para Outras Bibliotecas Visuais e IDEs
Usuários vendo este fórum: Nenhum usuário registrado online e 5 visitantes