Moderador: Moderadores
CREATE CLASS TstListbox INHERIT TstAny
VAR ClassName INIT "LISTBOX"
VAR objType INIT objTypeListBox
VAR Style INIT WIN_WS_CHILD + WIN_WS_VISIBLE + WIN_WS_TABSTOP + WIN_WS_GROUP
METHOD AddItem( cText ) INLINE ::SendMessage( LB_ADDSTRING, 0, cText )
METHOD Clear() INLINE ::SendMessage( LB_RESETCONTENT, 0, 0 )
METHOD ListCount() INLINE ::SendMessage( LB_GETCOUNT, 0, 0 )
METHOD ListItem() INLINE ::SendMessage( LB_GETCURSEL, 0, 0 ) + 1
ENDCLASS
FUNCTION IniciaJanela()
PUBLIC nWIDTH, nHEIGHT
cTituloJanela:="Teste com Arquivos"
HB_gtInfo(HB_GTI_FONTNAME, "Lucida Console")
HB_gtInfo(HB_GTI_ICONRES, "ICON_APP" ) //CLIENTE.RC
HB_gtInfo(HB_GTI_WINTITLE, cTituloJanela)
HB_gtInfo(HB_GTI_CLOSABLE, .F. )
HB_gtInfo(HB_GTI_CLIPBOARDDATA )
HB_gtInfo(HB_GTI_SELECTCOPY, .T. )
HB_gtInfo(HB_GTI_MOUSESTATUS, 1 )
HB_gtInfo(HB_GTI_ISGRAPHIC, .T. )
HB_gtInfo(HB_GTI_STDERRCON, .T. )
HB_gtInfo(HB_GTI_COMPATBUFFER, .T. )
HB_gtInfo(HB_GTI_SPEC, HB_GTS_WNDSTATE, HB_GTS_WS_MAXIMIZED )
HB_gtInfo( HB_GTI_SPEC, HB_GTS_SHOWWINDOW, SW_NORMAL )
HB_GtInfo( HB_GTI_MAXIMIZED, .T. )
nWIDTH :=hb_gtInfo( HB_GTI_SCREENWIDTH )
nHEIGHT:=hb_gtInfo( HB_GTI_SCREENHEIGHT )
nJanelaAsaPrev:=hwg_FindWindow(,cTituloJanela)
RETURN Nil
FUNCTION HB_GTSYS()
REQUEST HB_GT_WVT_DEFAULT
REQUEST HB_GT_WVT
REQUEST HB_GT_WGU
REQUEST HB_GT_WVG
RETURN Nil
asimoes escreveu:Eu trocaria a gtwvt pela gtwvg quando eu consegui dimensionar a tela do jeito que os meus sistema funcionam, ou seja, ocupar toda a área do desktop exceto a barra de tarefas
HB_GtInfo( HB_GTI_RESIZABLE, .F. )
screenWidth := HB_GTINFO( HB_GTI_DESKTOPWIDTH )
screenHeight:= HB_GTINFO( HB_GTI_DESKTOPHEIGHT )
wvt_SetFont( "Lucida Console", Round(( screenHeight / MaxRow() ),0)-0.5, Round(( screenWidth / MaxCol() ),0), 0 )
WVT_MAXIMIZE()
FUNCTION HB_GTSYS()
REQUEST HB_GT_WVG_DEFAULT
REQUEST HB_GT_WVG
REQUEST HB_GT_WGU
REQUEST HB_GT_WVG
RETURN Nil
SetMode( 25, 80 )
CLS
oMargin := hb_gtInfo( HB_GTI_BORDERSIZES )
? "atual"
FOR EACH oElement IN oMargin
? oElement
oElement *= 10
NEXT
? "calculado"
FOR EACH oElement in oMargin
? oElement
NEXT
hb_gtInfo( HB_GTI_BORDERSIZES, oMargin )
oMargin := hb_gtInfo( HB_GTI_BORDERSIZES )
? "resultado"
FOR EACH oElement IN oMargin
? oElement
NEXT
hb_gtInfo(HB_GTI_ICONRES, "ICON_APP" )
hb_gtInfo(HB_GTI_WINTITLE, cTituloJanela)
hb_GtInfo( HB_GTI_RESIZABLE, .F. )
hb_gtInfo(HB_GTI_COMPATBUFFER, .F. )
hb_gtInfo(HB_GTI_CLOSABLE, .T. )
screenWidth := hb_GtInfo( HB_GTI_DESKTOPWIDTH )
screenHeight:= hb_GtInfo( HB_GTI_DESKTOPHEIGHT )
WVT_SetFont( "Lucida Console", Round(( screenHeight / MaxRow() ),0)-4, ( screenWidth / MaxCol() ), 0 )
hb_GtInfo( HB_GTI_MAXIMIZABLE )
#define ListView_InsertItem(hwnd, pitem) \
(int)SNDMSG((hwnd), LVM_INSERTITEM, 0, (LPARAM)(const LV_ITEM *)(pitem))
Usuários vendo este fórum: Nenhum usuário registrado online e 10 visitantes