acrescentei no fonte
ANNOUNCE HB_GTSYS
REQUEST HB_GT_WVG_DEFAULT
Compilei, testei, Ã primeira vista tudo ok.

Moderador: Moderadores
ANNOUNCE HB_GTSYS
REQUEST HB_GT_WVG_DEFAULT
#include "windows.ch"
#include "guilib.ch"
PROCEDURE pTesHWGUI()
LOCAL oForm, oFont
Local nCombo := 1
Local cCombo := 'Four'
Local xCombo := 'Test'
Local aItems := {'First', 'Second', 'Third', 'Four'}
Local cEdit := Space(50)
Local oCombo1, oCombo2, oCombo3, oCombo4, oCombo5, oCombo6
PREPARE FONT oFont NAME "Courier New" WIDTH 0 HEIGHT -11
INIT DIALOG oForm CLIPPER NOEXIT TITLE "ComboBox Demo";
FONT oFont ;
AT 0, 0 SIZE 700, 425 ;
STYLE DS_CENTER + WS_VISIBLE + WS_POPUP + WS_VISIBLE + WS_CAPTION + WS_SYSMENU
@ 20, 20 GET COMBOBOX oCombo1 VAR nCombo ITEMS aItems SIZE 100, 150
@ 20, 50 GET COMBOBOX oCombo2 VAR cCombo ITEMS aItems SIZE 100, 150 TEXT
@ 20, 80 GET COMBOBOX oCombo3 VAR xCombo ITEMS aItems SIZE 100, 150 EDIT TOOLTIP 'Type any thing here'
@ 20,110 COMBOBOX oCombo4 ITEMS aItems SIZE 100, 150
@ 20,140 COMBOBOX oCombo5 ITEMS aItems SIZE 100, 150 TEXT
@ 20,170 COMBOBOX oCombo6 ITEMS aItems SIZE 100, 150 EDIT
@ 20,200 GET cEdit SIZE 150,23
@ 380, 395 BUTTON 'Test' SIZE 75,25 ON CLICK {|| xCombo := 'Temp', oCombo3:refresh(), nCombo := 2, oCombo1:refresh(), oCombo2:SetItem(3), oCombo4:SetItem(3), oCombo5:value := 'Third', oCombo5:refresh(), oCombo6:SetItem(2) }
@ 460, 395 BUTTON 'Combo 1' SIZE 75,25 ON CLICK {|| hwg_Msginfo(str(nCombo)) }
@ 540, 395 BUTTON 'Combo 2' SIZE 75,25 ON CLICK {|| hwg_Msginfo(cCombo, xCombo) }
@ 620, 395 BUTTON 'Close' SIZE 75,25 ON CLICK {|| oForm:Close() }
ACTIVATE DIALOG oForm
Return
-ojpahwgui
-hblib
hwgui.hbc
*.prg
MenuOption( "Módulo hwgui", "PTESHWGUI", { || pteshwgui() } )
c:/temp/jpa_menu.o:jpa_menu.c:(.data+0x388): undefined reference to `HB_FUN_PTESHWGUI'
File size Ratio Format Name
-------------------- ------ ----------- -----------
21261824 -> 6667264 31.36% win32/pe jpa.exe
FUNCTION DoPrg( cModule, cTitulo, p1, p2, p3 )
LOCAL mHrInic //, oStatusbar
PRIVATE m_Prog
m_Prog := cModule
hb_gtReload( "WVG" )
AppInitSets( ! "HWGUI" $ Upper( cModule ) )
HB_GtInfo( HB_GTI_WINTITLE, cTitulo )
IF ! ( "HWGUI" $ Upper( cModule ) )
SetColor( SetColorNormal() )
CLS
SayTitulo( cTitulo )
@ MaxRow() - 2, 0 TO MaxRow() - 2, MaxCol() COLOR SetColorTraco()
mHrInic := Time()
ENDIF
Do( cModule, p1, p2, p3 )
IF ! ( "HWGUI" $ Upper( cModule ) )
LogDeUso( mHrInic, cModule )
ENDIF
// HB_SYMBOL_UNUSED( oStatusbar )
RETURN NIL
oWnd:Hide()
hb_gtReload( "WVG" )
AppInitSets()
-o${hb_addons}/josequintas/lib/${hb_plat}/${hb_comp}/jpahwgui
-hblib
-hbx=${hb_addons}/josequintas/jpahwgui
hwgui.hbc
-w3 -es2
*.prg
hwgui/jpahwgui.hbp
-ljpahwgui
hwgui.hbc
Itamar M. Lins Jr. escreveu:Lembre-se que a DIALOG pode ser nomodal. Fica solta, sem ter uma janela de origem.
Veja o DESIGNER como ele é feito, as JANELAS ficam SOLTAS. Não obedece essa ordem para fechar.
ACTIVATE DIALOG oForm
ACTIVATE DIALOG oForm NOMODAL
INIT DIALOG ::oParent TITLE cTitle ;
At nLeft, nTop SIZE nWidth, nHeight ;
STYLE WS_POPUP + WS_VISIBLE + WS_CAPTION + WS_SYSMENU + WS_SIZEBOX + iif( nTop == 0, DS_CENTER, 0 ) + DS_SYSMODAL + MB_USERICON
@ ::nLeft, nTop + 5 SAY ::LabelBox CAPTION iif( Empty( lPercent ), "", "%" ) SIZE ::nWidth, 19 ;
STYLE SS_CENTER
IF bExit != Nil
::oParent:bDestroy := bExit
ENDIF
ACTIVATE DIALOG ::oParent NOMODAL
#include "hwgui.ch"
FUNCTION Main()
LOCAL oFont, oForm
Local nCombo := 1
Local cCombo := 'Four'
Local xCombo := 'Test'
Local aItems := {'First', 'Second', 'Third', 'Four'}
Local cEdit := Space(50)
Local oCombo1, oCombo2, oCombo3, oCombo4, oCombo5, oCombo6
PREPARE FONT oFont NAME "Courier New" WIDTH 0 HEIGHT -11
INIT DIALOG oForm CLIPPER NOEXIT TITLE "ComboBox Demo";
FONT oFont ;
AT 0, 0 SIZE 700, 425 ;
STYLE DS_CENTER + WS_VISIBLE + WS_POPUP + WS_VISIBLE + WS_CAPTION + WS_SYSMENU
@ 20, 20 GET COMBOBOX oCombo1 VAR nCombo ITEMS aItems SIZE 100, 150
@ 20, 50 GET COMBOBOX oCombo2 VAR cCombo ITEMS aItems SIZE 100, 150 TEXT
@ 20, 80 GET COMBOBOX oCombo3 VAR xCombo ITEMS aItems SIZE 100, 150 EDIT TOOLTIP 'Type any thing here'
@ 20,110 COMBOBOX oCombo4 ITEMS aItems SIZE 100, 150
@ 20,140 COMBOBOX oCombo5 ITEMS aItems SIZE 100, 150 TEXT
@ 20,170 COMBOBOX oCombo6 ITEMS aItems SIZE 100, 150 EDIT
@ 20,200 GET cEdit SIZE 150,23
@ 380, 395 BUTTON 'Test' SIZE 75,25 ON CLICK {|| xCombo := 'Temp', oCombo3:refresh(), nCombo := 2, oCombo1:refresh(), oCombo2:SetItem(3), oCombo4:SetItem(3), oCombo5:value := 'Third', oCombo5:refresh(), oCombo6:SetItem(2) }
@ 460, 395 BUTTON 'Combo 1' SIZE 75,25 ON CLICK {|| hwg_Msginfo(str(nCombo)) }
@ 540, 395 BUTTON 'Combo 2' SIZE 75,25 ON CLICK {|| hwg_Msginfo(cCombo, xCombo) }
@ 620, 395 BUTTON 'Close' SIZE 75,25 ON CLICK {|| oForm:Close() }
ACTIVATE DIALOG oForm NOMODAL
Return oForm
Usuários vendo este fórum: Nenhum usuário registrado online e 6 visitantes