FiveTech Software tech support forums

by **sysctrl2** » Fri Sep 19, 2014 9:42 pm

Amigo ayuda por favor

no funciona COMBOBOX con la función Display( display( oDlg, 2, .t. ) )

del AUTOR.....: William de Brito Adami

dejo un test.prg

al darle CLIC en el combobox no despliega la LISTA de ítems,

Code: Select all Expand view: #include "fivewin.ch" STATIC oDlg function test() DEFINE DIALOG oDlg SIZE 600, 450 ; STYLE nOr( DS_MODALFRAME, WS_POPUP, WS_CAPTION, WS_SYSMENU, 4 ) ACTIVATE DIALOG oDlg on init ( MakeComboBox() ,display( oDlg, 2, .t. ) ) CENTERED return nil STATIC function MakeComboBox() local oGet, oCbx local nTotal := 0 local cItem := "UNO" @ 10, 10 SAY "IMPORTE" OF oDlg pixel color CLR_HBLUE TRANSPARENT @ 30, 10 GET oGet VAR nTotal of oDlg ; SIZE 60, 15 PICTURE "999,999.99" PIXEL UPDATE @ 10, 80 SAY "Selecciona un ITEM " OF oDlg ; PIXEL color CLR_HBLUE TRANSPARENT @ 30, 80 COMBOBOX oCbx VAR cItem ; OF oDlg STYLE CBS_DROPDOWNLIST ; PIXEL SIZE 100, 300 UPDATE ; ON CHANGE MsgBeep() ; ITEMS {"UNO","DOS","TRES","CUATRO","CINCO"} RETURN NIL #include "display.prg"

aquí la función display.prg

Code: Select all Expand view: #include "FiveWin.ch" #include "common.ch" #include "xbrowse.ch" ********************************************************************* * NOME......: DISPLAY(oWnd,nResolution) * * VERSAO....: 3.0 - Julho de 2010 * * AUTOR.....: William de Brito Adami e FiveWidi, que iniciou este projeto * no Forum Espanhol de Fivewin . * * DESCRICAO.: Funcao para exibir a tela sempre igual em qualquer * resolucao, independente da fonte ou controle utilizado. * * PARAMETROS: oWnd: Window ou Dialog a ser redimensionado * nResolution: Numero correspondente a resolucao * que se desenhou inicialmente a tela. * ********************************************************************* function display( oWnd, nResolution, lFullres ) local lAutoresize:=.t. , nWhatSize:=0, lRepaint:=.t. * atencao: nResolution identifica em que resolucao foram inicialmente * desenhadas as telas, e DEVE ter um dos seguintes valores: * * 1 = 640 X 480 * 2 = 800 X 600 * 3 = 1024 X 768 * 4 = 1152 X 864 * 5 = 1280 X 800 * 6 = 1280 X 1024 * 7 = 1600 X 1200 * 8 = 768 X 1024 * 9 = 1440 X 900 * 10 = 1280 X 768 * 11 = 1280 X 720 AutResiz( lAutoresize, nWhatSize, oWnd, nResolution, lRepaint, lFullres ) return nil /* (20/08/2009) Inicio do REdesenvolvimento da funcao. Parametros recebidos : lAutoresize: ativa / desativa redimensionamento automatico nWhatSize: permite for‡ar o redimensionamento a valores concretos; permitindo desta maneira que a aplica‡ao possa ter um valor ao qual redimensionar as telas. oWnd: Objeto/janela/dialogo/controle a ser redimensionado. nResolution: Numero que identifica que resolucao tinha a tela na qual se desenhou o objeto. lRepaint: Indicador se deve repintar o objeto uma vez redimensionado. lFullres: Indica se os textos devem ser redimensionados no tamanho maximo do resource desenhado. Esta funcao deve ser utilizada no evento ON INIT do ACTIVATE das WINDOWs e DIALOGs . Exemplo: ACTIVATE DIALOG oDlg ON INIT display(oDlg,2,.t.) //desenhada em 800 X 600 -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* */ FUNCTION AutResiz( lAutoresize, nWhatSize, oWnd, nResolution, lRepaint,lFullres ) // Resolucao da tela no momento de definir os controles. Local nOriWidth, nOriHeight // o normal seria que fosse a resolucao atual da tela (nWhatSize=0). // Se permite forcar esta resolucao mediante o valor de nWhatSize=1,2,3,4,5,6,7,.... Local nWidth, nHeight // Sao as relacoes entre a resolucao de tela e a resolucao de desenho. Local nFactorWitdh, nFactorHeight Local nContador,ofonttmp DEFAULT lRepaint := .T. nOriWidth := 0 nOriHeight := 0 nWidth := 0 nHeight := 0 nContador := 0 If ABS(nResolution) = 1 nOriWidth := 640 nOriHeight := 480 ElseIf ABS(nResolution) = 2 nOriWidth := 800 nOriHeight := 600 ElseIf ABS(nResolution) = 3 nOriWidth := 1024 nOriHeight := 768 ElseIf ABS(nResolution) = 4 nOriWidth := 1152 nOriHeight := 864 ElseIf ABS(nResolution) = 5 nOriWidth := 1280 nOriHeight := 800 ElseIf ABS(nResolution) = 6 nOriWidth := 1280 nOriHeight := 1024 ElseIf ABS(nResolution) = 7 nOriWidth := 1600 nOriHeight := 1200 ElseIf ABS(nResolution) = 8 nOriWidth := 768 nOriHeight := 1024 ElseIf ABS(nResolution) = 9 nOriWidth := 1440 nOriHeight := 900 ElseIf ABS(nResolution) = 10 nOriWidth := 1280 nOriHeight := 768 ElseIf ABS(nResolution) = 11 nOriWidth := 1280 nOriHeight := 720 Else ScrResolution( @nOriWidth, @nOriHeight ) Endif If nWhatSize = 1 nWidth := 640 nHeight := 480 ElseIf nWhatSize = 2 nWidth := 800 nHeight := 600 ElseIf nWhatSize = 3 nWidth := 1024 nHeight := 768 ElseIf nWhatSize = 4 nWidth := 1152 nHeight := 864 ElseIf nWhatSize = 5 nWidth := 1280 nHeight := 800 ElseIf nWhatSize = 6 nWidth := 1280 nHeight := 1024 ElseIf nWhatSize = 7 nWidth := 1600 nHeight := 1200 ElseIf nWhatSize = 8 nWidth := 768 nHeight := 1024 ElseIf nWhatSize = 9 nWidth := 1440 nHeight := 900 ElseIf nWhatSize = 10 nWidth := 1280 nHeight := 768 ElseIf nWhatSize = 11 nWidth := 1280 nHeight := 720 Else ScrResolution( @nWidth, @nHeight ) Endif If lAutoresize .and. nOriHeight != nHeight /* Este sera o caso habitual, ao qual se pretende redimensionar os controles na resolucao da tela na qual estao viendo. */ If nResolution > 0 nFactorWitdh := nWidth / nOriWidth nFactorHeight := nHeight / nOriHeight ElseIf nResolution < 0 nFactorWitdh := nOriWidth / nWidth nFactorHeight := nOriHeight / nHeight EndIf If lRepaint oWnd:Hide() EndIf * se aumentou a altura If nFactorHeight > 1 ***************************** * se tiver barbutton * NOVO * ***************************** if ownd:obar <> NIL ownd:obar:nwidth:=ownd:obar:nwidth* nfactorwitdh ownd:obar:nHeight:=ownd:obar:nHeight*nfactorheight ownd:obar:nbtnwidth:=ownd:obar:nbtnwidth*nfactorwitdh ownd:obar:nbtnHeight:=ownd:obar:nbtnHeight*nfactorheight for i= 1 to len(ownd:obar:acontrols) ownd:obar:acontrols[i]:Move( ownd:obar:acontrols[i]:nTop * nFactorHeight , ; ownd:obar:acontrols[i]:nLeft * nFactorWitdh, ; ownd:obar:acontrols[i]:nWidth * nFactorWitdh, ; ownd:obar:acontrols[i]:nHeight * nFactorHeight , ; .F. ) * redimensiona o BMP da BARBUTTON o:=ownd:obar:acontrols[i]:hbitmap1 if o<>0 hbmp:=ownd:obar:acontrols[i]:hbitmap1 nbmpwidth := nbmpwidth(hbmp) nbmpheight:= nbmpheight(hbmp) larg:=nbmpwidth*nfactorwitdh alt:=nbmpheight*nfactorheight o:=resizebmp(o,larg ,alt ) ownd:obar:acontrols[i]:hbitmap1:=o endif next ownd:obar:refresh() endif If oWnd:ClassName()$"/TIMAGE/" ad:=getcoors(ownd:hWnd) oWnd:Move( oWnd:nTop * nFactorHeight , ; oWnd:nLeft * nFactorWitdh, ; ((ad[4]-ad[2])) * nFactorWitdh, ; ((ad[3]-ad[1])) * nFactorHeight , ; .F. ) Else oWnd:Move( oWnd:nTop * nFactorHeight , ; oWnd:nLeft * nFactorWitdh, ; oWnd:nWidth * nFactorWitdh, ; oWnd:nHeight * nFactorHeight , ; .F. ) EndIf EndIf if oWnd:ClassName()$"/TFOLDER/TPAGES/" If ValType( oWnd:aDialogs ) = "A" For nContador := 1 To Len( oWnd:aDialogs ) AutResiz( lAutoresize, nWhatSize, oWnd:aDialogs[nContador], nResolution, .F.,lFullres ) EndFor EndIf Elseif oWnd:ClassName()$"/TBTNBMP/" ********************************* * redimensiona o BMP do BTNBMP o:=oWnd:hbitmap1 if o<>0 hbmp:=ownd:hbitmap1 nbmpwidth := nbmpwidth(hbmp) nbmpheight:= nbmpheight(hbmp) larg:=nbmpwidth*nfactorwitdh alt:=nbmpheight*nfactorheight o:=resizebmp(o,larg ,alt ) oWnd:hbitmap1:=o endif ********************************* elseif oWnd:ClassName()$"/TCOMBOBOX/TDBCOMBO/" Else If ValType( oWnd:aControls ) = "A" For nContador := 1 To Len( oWnd:aControls ) AutResiz( lAutoresize, nWhatSize, oWnd:aControls[nContador], nResolution, .F.,lFullres ) * ajuste de fontess * controle TSAY if ownd:acontrols[nContador]:classname$"/TSAY/TSAYREF/" ajustaalt(ownd:acontrols[nContador],nfactorheight,lFullres) ajustalarg(ownd:acontrols[nContador],ownd,nfactorwitdh,lFullres) ELSEif ownd:acontrols[nContador]:classname$"/TGET/TSSAY/TDSAY/" ajustaalt(ownd:acontrols[nContador],nfactorheight,lFullres) ajl_FLD(ownd:acontrols[nContador],nFactorWitdh) ELSEif ownd:acontrols[nContador]:classname$"/TFOLDER/TPAGES/TCOMBOBOX/TGROUP/TTREE/TCHECKBOX/TBTNBMP/TTOOLBAR/TRADIO/TDBCOMBO/TTABS/TXBROWSE/TSBROWSE/TWBROWSE/" aja_FLD(ownd:acontrols[nContador],nFactorHeight) ajl_FLD(ownd:acontrols[nContador],nFactorWitdh) endif EndFor EndIf EndIf * se diminuiu a altura If nFactorHeight < 1 ***************************** * se tiver barbutton * NOVO * ***************************** if ownd:obar <> NIL ownd:obar:nwidth:=ownd:obar:nwidth* nfactorwitdh ownd:obar:nHeight:=ownd:obar:nHeight*nfactorheight ownd:obar:nbtnwidth:=ownd:obar:nbtnwidth*nfactorwitdh ownd:obar:nbtnHeight:=ownd:obar:nbtnHeight*nfactorheight for i= 1 to len(ownd:obar:acontrols) ownd:obar:acontrols[i]:Move( ownd:obar:acontrols[i]:nTop * nFactorHeight , ; ownd:obar:acontrols[i]:nLeft * nFactorWitdh, ; ownd:obar:acontrols[i]:nWidth * nFactorWitdh, ; ownd:obar:acontrols[i]:nHeight * nFactorHeight , ; .F. ) * redimensiona o BMP da BARBUTTON o:=ownd:obar:acontrols[i]:hbitmap1 if o<>0 hbmp:=ownd:obar:acontrols[i]:hbitmap1 nbmpwidth := nbmpwidth(hbmp) nbmpheight:= nbmpheight(hbmp) larg:=nbmpwidth*nfactorwitdh alt:=nbmpheight*nfactorheight o:=resizebmp(o,larg ,alt ) ownd:obar:acontrols[i]:hbitmap1:=o endif next ownd:obar:refresh() endif *************************************** if oWnd:ClassName()$"/TIMAGE/" ad:=getcoors(ownd:hWnd) oWnd:Move( oWnd:nTop * nFactorHeight , ; oWnd:nLeft * nFactorWitdh, ; ((ad[4]-ad[2])) * nFactorWitdh, ; ((ad[3]-ad[1])) * nFactorHeight , ; .F. ) Elseif oWnd:ClassName()$"/TBTNBMP/" oWnd:Move( oWnd:nTop * nFactorHeight , ; oWnd:nLeft * nFactorWitdh, ; oWnd:nWidth * nFactorWitdh, ; oWnd:nHeight * nFactorHeight , ; .F. ) ********************************* * redimensiona o BMP do BTNBMP o:=oWnd:hbitmap1 if o<>0 hbmp:=ownd:hbitmap1 nbmpwidth := nbmpwidth(hbmp) nbmpheight:= nbmpheight(hbmp) larg:=nbmpwidth*nfactorwitdh alt:=nbmpheight*nfactorheight o:=resizebmp(o,larg ,alt ) oWnd:hbitmap1:=o endif ********************************* Else oWnd:Move( oWnd:nTop * nFactorHeight , ; oWnd:nLeft * nFactorWitdh, ; oWnd:nWidth * nFactorWitdh, ; oWnd:nHeight * nFactorHeight , ; .F. ) endif If ValType( oWnd:aControls ) <> "A" * ajuste de fontess * controle TSAY if ownd:classname$"/TSAY/TSAYREF/" ajustaalt(ownd,nfactorheight,lFullres) ajustalarg(ownd,ownd,nfactorwitdh,lFullres) ELSEif ownd:classname$"/TGET/TSSAY/TDSAY/" ajustaalt(ownd,nfactorheight,lFullres) ajl_FLD(ownd,nFactorWitdh) ELSEif ownd:classname$"/TFOLDER/TPAGES/TCOMBOBOX/TGROUP/TTREE/TCHECKBOX/TBTNBMP/TTOOLBAR/TRADIO/TDBCOMBO/TTABS/TXBROWSE/TSBROWSE/TWBROWSE/" aja_FLD(ownd,nFactorHeight) ajl_FLD(ownd,nFactorWitdh) endif EndIf EndIf If lRepaint if oWnd:lCentered // *** AAA ***// oWnd:Center() // *** AAA ***// endif // *** AAA ***// oWnd:Show() EndIf *************************************** * se for resolucao igual a que desenhou *************************************** elseif lAutoresize .and. nOriHeight = nHeight if lfullres If nResolution > 0 nFactorWitdh := nWidth / nOriWidth nFactorHeight := nHeight / nOriHeight ElseIf nResolution < 0 nFactorWitdh := nOriWidth / nWidth nFactorHeight := nOriHeight / nHeight EndIf If oWnd:ClassName()$"/TFOLDER/TPAGES/" If ValType( oWnd:aDialogs ) = "A" For nContador := 1 To Len( oWnd:aDialogs ) AutResiz( lAutoresize, nWhatSize, oWnd:aDialogs[nContador], nResolution, .F.,lfullres ) EndFor EndIf elseif oWnd:ClassName()$"/TIMAGE/" //TBITMAP/TLISTBOX/TWBROWSE/TSSAY/TDSAY/TSAYREF/" ad:=getcoors(ownd:hWnd) oWnd:Move( oWnd:nTop * nFactorHeight , ; oWnd:nLeft * nFactorWitdh, ; ((ad[4]-ad[2])) * nFactorWitdh, ; ((ad[3]-ad[1])) * nFactorHeight , ; .F. ) elseif oWnd:ClassName()$"/TCOMBOBOX/TDBCOMBO/" Else If ValType( oWnd:aControls ) = "A" For nContador := 1 To Len( oWnd:aControls ) AutResiz( lAutoresize, nWhatSize, oWnd:aControls[nContador], nResolution, .F.,lfullres ) * ajuste de fontes * controle TSAY if ownd:acontrols[nContador]:classname$"/TSAY/TSAYREF/" ajustaalt(ownd:acontrols[nContador],nfactorheight,lFullres) ajustalarg(ownd:acontrols[nContador],ownd,nfactorwitdh,lFullres) ELSEif ownd:acontrols[nContador]:classname$"/TGET/TSSAY/TDSAY/" ajustaalt(ownd:acontrols[nContador],nfactorheight,lFullres) ajl_FLD(ownd:acontrols[nContador],nFactorWitdh) ELSEif ownd:acontrols[nContador]:classname$"/TFOLDER/TPAGES/TCOMBOBOX/TGROUP/TTREE/TCHECKBOX/TBTNBMP/TTOOLBAR/TRADIO/TDBCOMBO/TTABS/TXBROWSE/TSBROWSE/TWBROWSE/" aja_FLD(ownd:acontrols[nContador],nFactorHeight) ajl_FLD(ownd:acontrols[nContador],nFactorWitdh) endif EndFor EndIf EndIf endif EndIf Return Nil FUNCTION AjustaLarg(oq,ownd,nfact,lfullres) * se nao tiver fonte atribuida, nao faz ! LOCAL cFontName := iif ( oq:oFont=NIL , "NAOFAZ" ,oq:oFont:cFaceName ) LOCAL lFlagReleaseFont := .F.,; nAlturaDaFonte,; nLarguraDaFonte := oq:ofont:nwidth,; nLarguraDoControle ,; nTime := SECONDS()+3,; oFontTmp,ofont if cFontName="NAOFAZ" return nil endif if oq:oFont:nWidth = NIL // *** AAA ***// oq:oFont:nWidth := 0 // *** AAA ***// endif // *** AAA ***// nAlturaDaFonte := oq:oFont:nHeight nlarguradafonte:=nlarguradafonte*nfact nLarguraDoControle := oq:nWidth if lFullres WHILE SECONDS() < nTime // Evita congelamento da aplicação caso não seja possível recalcular a fonte nLarguraDaFonte += 1 // Nao funciona com numeros facionados DEFINE FONT oFontTmp; NAME cFontName; SIZE nLarguraDaFonte,ABS(nAlturaDaFonte) lFlagReleaseFont := .T. IF oWnd:GetWidth(oq:varget(),oFontTmp) >= nLarguraDoControle EXIT ENDIF oq:SetFont(oFontTmp) oFont := oq:ofont //osay:GetFont() RELEASE FONT oFontTmp lFlagReleaseFont := .F. ENDDO IF lFlagReleaseFont RELEASE FONT oFontTmp ENDIF oq:SetFont(oFont) else DEFINE FONT oFontTmp; NAME cFontName; SIZE abs(nLarguraDaFonte),ABS(nAlturaDaFonte) oq:SetFont(oFontTmp) oFont := oq:ofont //osay:GetFont() RELEASE FONT oFontTmp endif * oq:Refresh() RETURN NIL FUNCTION AjustaAlt(oq,fact,lFullres) * se nao tiver fonte , nao faz ! LOCAL cFontName := iif ( oq:oFont=NIL , "NAOFAZ" ,oq:oFont:cFaceName ) LOCAL lFlagReleaseFont := .F., nAlturaDaFonte, nAlturaDoControle LOCAL nLarguraDaFonte, nTime:= SECONDS()+3, oFontTmp,ofont * se nao tiver fonte, volta sem ajustar if cfontname="NAOFAZ" return nil endif if oq:oFont:nWidth = NIL // *** AAA ***// oq:oFont:nWidth := 0 // *** AAA ***// endif // *** AAA ***// nAlturaDaFonte:=oq:ofont:nheight if lFullres * se tiver fonte , ajusta nAlturaDoControle := (oq:nHeight)-6 nLarguraDaFonte := oq:oFont:nWidth nAlturadaFonte:=nalturadafonte*fact WHILE SECONDS() < nTime // Evita congelamento da aplicação caso não seja possível recalcular a fonte nAlturaDaFonte += 0.1 // Na altura o fracionamento funcionou DEFINE FONT oFontTmp; NAME cFontName; SIZE nLarguraDaFonte,nAlturaDaFonte lFlagReleaseFont := .T. IF oFontTmp:nHeight >= nAlturaDoControle EXIT ENDIF oq:SetFont(oFontTmp) oFont := oq:ofont //oSay:GetFont() RELEASE FONT oFontTmp lFlagReleaseFont := .F. ENDDO IF lFlagReleaseFont RELEASE FONT oFontTmp ENDIF oq:SetFont(oFont) else nLarguraDaFonte := oq:oFont:nWidth nAlturadaFonte:=nalturadafonte*fact DEFINE FONT oFontTmp; NAME cFontName; SIZE abs(nLarguraDaFonte),ABS(nAlturaDaFonte) oq:SetFont(oFontTmp) oFont := oq:ofont //osay:GetFont() RELEASE FONT oFontTmp endif * oq:Refresh() RETURN NIL FUNCTION ajl_FLD(oq,nf) * se nao tiver fonte , nao faz LOCAL cFontName := iif ( oq:oFont=NIL , "NAOFAZ" ,oq:oFont:cFaceName ) LOCAL lFlagReleaseFont := .F., nAlturaDaFonte, nLarguraDaFonte := 0,; nLarguraDoControle ,nTime:= SECONDS()+3, oFontTmp,ofont if cfontname="NAOFAZ" return nil endif if oq:oFont:nWidth = NIL // *** AAA ***// oq:oFont:nWidth := 0 // *** AAA ***// endif // *** AAA ***// nLarguraDoControle := oq:nWidth nAlturaDaFonte := oq:oFont:nHeight nLarguraDaFonte = nLarguraDaFonte*nf DEFINE FONT oFontTmp; NAME cFontName; SIZE abs(nLarguraDaFonte),ABS(nAlturaDaFonte) oq:SetFont(oFontTmp) oFont := oq:ofont //osay:GetFont() RELEASE FONT oFontTmp If oq:ClassName()$"/TXBROWSE/" for i=1 to len(oq:acols) * pega tamanho anterior X factor ov:=oq:aCols[i]:nWidth * nf * atualiza o novo tamanho da coluna oq:aCols[i]:nWidth := ov next elseif oq:classname$"/TDSAY/" oq:Refresh() elseif oq:ClassName()$"/TWBROWSE/" * atualiza a largura das colunas for i=1 to len(oq:acolsizes) oq:acolsizes[i]:=oq:acolsizes[i]*nf next endif * oq:Refresh() RETURN NIL FUNCTION aja_FLD(oq,nf) LOCAL cFontName := iif ( oq:oFont=NIL , "NAOFAZ" ,oq:oFont:cFaceName ) LOCAL lFlagReleaseFont := .F., nAlturaDaFonte := 0,; nLarguraDaFonte, oFontTmp,ofont if cfontname="NAOFAZ" return nil endif if oq:oFont:nWidth = NIL // *** AAA ***// oq:oFont:nWidth := 0 // *** AAA ***// endif // *** AAA ***// nLarguraDaFonte := oq:oFont:nWidth nAlturadaFonte:=nalturadafonte*nf DEFINE FONT oFontTmp; NAME cFontName; SIZE abs(nLarguraDaFonte),ABS(nAlturaDaFonte) oq:SetFont(oFontTmp) oFont := oq:ofont //osay:GetFont() RELEASE FONT oFontTmp If oq:ClassName()$"/TXBROWSE/" oq:nRowHeight := oq:nRowHeight* nf oq:nStretchcol:=STRETCHCOL_LAST elseif oq:ClassName()$"/TSBROWSE/" oq:nHeightCell:=oq:nHeightCell * nf * oq:nheightHead:=oq:nheightHead*nf * oq:nheightFoot:=oq:nheightFoot*nf endif * oq:Refresh() RETURN NIL

Pueden probar el TEST.PRG ?

SALUDOS..

by **karinha** » Mon Sep 22, 2014 1:12 pm

al darle CLIC en el combobox no despliega la LISTA de ítems, que usas HARBOUR?

Con FWH13.06 y xHarbour, funciona perfecto!

Saludos.

by **sysctrl2** » Mon Sep 22, 2014 2:10 pm

Holas Gracias por responder,
uso xHarbour y FWH.13.1.

Fuente y .exe aqui https://app.box.com/s/67ii2wad91qlhgnbqkju%20u
saludos ...

gracias..

by **sysctrl2** » Mon Sep 22, 2014 2:14 pm

sorry, descargar aquí: https://app.box.com/s/67ii2wad91qlhgnbqkju
gracias.

by **karinha** » Mon Sep 22, 2014 5:47 pm

Realmente mui estraño, tú ejemplo no funciona.

Compllé com FWH13.06 y xHarbour e funciona perfecto.

Que usas para compilar? Hice con BUILDX.BAT del \samples.

saludos.

by **sysctrl2** » Tue Sep 23, 2014 3:35 am

Hola karinha,

Estoy compilando con xbuild.bat de FWH\SAMPLES

me envias tu archivo .bat con el cual compilas ?

lo raro que sin la función DISPLAY el ejemplo funciona,

bajar ejemplo SIN display aquí. https://app.box.com/s/7a3zy6k7w2dux42lmdt2

gracias.

by **karinha** » Tue Sep 23, 2014 12:07 pm

Code: Select all Expand view: @ECHO OFF CLS ECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ECHO ³ FiveWin for xHarbour 13.06 - Jun. 2013 xHarbour development power ³Ü ECHO ³ (c) FiveTech, 1993-2013 for Microsoft Windows 9X/NT/200X/ME/XP/Vista/7/8 ³Û ECHO ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ ECHO ÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß if A%1 == A GOTO :SINTAX if NOT EXIST %1.prg GOTO :NOEXIST ECHO Compiling... if "%FWDIR%" == "" set FWDIR=.\..\ if "%XHDIR%" == "" set XHDIR=c:\xhb280714 REM if "%XHDIR%" == "" set XHDIR=c:\xhb100713 REM if "%XHDIR%" == "" set XHDIR=c:\XHB rem if "%2" == "/b" set GT=gtwin rem if not "%2" == "/b" set GT=gtgui set GT=gtgui set hdir=%XHDIR% set hdirl=%hdir%\lib set bcdir=c:\bcc582 set fwh=%FWDIR% %hdir%\bin\harbour %1 /m/n /i%fwh%\include;%hdir%\include /w0 /p %2 %3 > comp.log REM %hdir%\bin\harbour %1 /m/n /i..\include;%hdir%\include /w0 /p %2 %3 > clip.log IF ERRORLEVEL 1 GOTO COMPILEERRORS @type comp.log echo -O2 -e%1.exe -I%hdir%\include -I%bcdir%\include %1.c > b32.bc %bcdir%\bin\bcc32 -M -c -v @b32.bc :ENDCOMPILE IF EXIST %1.rc %bcdir%\bin\brc32 -r -I%bcdir%\include %1 echo %bcdir%\lib\c0w32.obj + > b32.bc echo %1.obj, + >> b32.bc echo %1.exe, + >> b32.bc echo %1.map, + >> b32.bc echo %fwh%\lib\Fivehx.lib %fwh%\lib\FiveHC.lib + >> b32.bc echo %hdirl%\rtl.lib + >> b32.bc echo %hdirl%\vm.lib + >> b32.bc echo %hdirl%\%GT%.lib + >> b32.bc echo %hdirl%\lang.lib + >> b32.bc echo %hdirl%\codepage.lib + >> b32.bc echo %hdirl%\macro.lib + >> b32.bc echo %hdirl%\rdd.lib + >> b32.bc echo %hdirl%\dbfntx.lib + >> b32.bc echo %hdirl%\dbfcdx.lib + >> b32.bc echo %hdirl%\dbffpt.lib + >> b32.bc echo %hdirl%\hbsix.lib + >> b32.bc echo %hdirl%\debug.lib + >> b32.bc echo %hdirl%\common.lib + >> b32.bc echo %hdirl%\pp.lib + >> b32.bc echo %hdirl%\pcrepos.lib + >> b32.bc echo %hdirl%\ct.lib + >> b32.bc echo %hdirl%\zlib.lib + >> b32.bc echo %hdirl%\hbzip.lib + >> b32.bc echo %hdirl%\libmisc.lib + >> b32.bc echo %hdirl%\tip.lib + >> b32.bc echo %hdirl%\png.lib + >> b32.bc rem echo %hdirl%\hbhpdf.lib + >> b32.bc rem echo %hdirl%\libharu.lib + >> b32.bc rem Uncomment these two lines to use Advantage RDD rem echo %hdir%\lib\rddads.lib + >> b32.bc rem echo %hdir%\lib\Ace32.lib + >> b32.bc echo %bcdir%\lib\cw32.lib + >> b32.bc echo %bcdir%\lib\import32.lib + >> b32.bc echo %bcdir%\lib\uuid.lib + >> b32.bc echo %bcdir%\lib\ws2_32.lib + >> b32.bc echo %bcdir%\lib\psdk\odbc32.lib + >> b32.bc echo %bcdir%\lib\psdk\rasapi32.lib + >> b32.bc echo %bcdir%\lib\psdk\nddeapi.lib + >> b32.bc echo %bcdir%\lib\psdk\msimg32.lib + >> b32.bc echo %bcdir%\lib\psdk\psapi.lib + >> b32.bc echo %bcdir%\lib\psdk\gdiplus.lib + >> b32.bc echo %bcdir%\lib\psdk\iphlpapi.lib, >> b32.bc IF EXIST %1.res echo %1.res >> b32.bc rem uncomment this line to use the debugger and comment the following one if %GT% == gtwin %bcdir%\bin\ilink32 -Gn -Tpe -s -v @b32.bc IF ERRORLEVEL 1 GOTO LINKERROR if %GT% == gtgui %bcdir%\bin\ilink32 -Gn -aa -Tpe -s -v @b32.bc IF ERRORLEVEL 1 GOTO LINKERROR ECHO * Application successfully built * rem nuevo by Antonio Linares - 16/05/2013 rem mshta vbscript:CreateObject("SAPI.SpVoice").Speak("Application successfully built")(Window.close) mshta vbscript:CreateObject("SAPI.SpVoice").Speak("Programa construido com sucesso")(Window.close) %1 GOTO EXIT ECHO rem delete temporary files @del %1.c :COMPILEERRORS @type comp.log ECHO * Compile errors * GOTO EXIT :LINKERROR ECHO * Linking errors * GOTO EXIT :SINTAX ECHO SYNTAX: Build [Program] {-- No especifiques la extensiÂ¢n PRG ECHO {-- Don't specify .PRG extension GOTO EXIT :NOEXIST ECHO The specified PRG %1 does not exist :EXIT

by **sysctrl2** » Tue Sep 23, 2014 4:09 pm

Hola Karinha,
no se pudo,,,
al compilar con el buildx.bat que me enviaste
se queda colgada la app.exe,
quizas el problema que tengo es por las versiones que son mas atrasadas,

podemos charlar por SKYPE ?

mi correo electronico SysCtrlSoftware@gmail.com

escribeme,

gracias por tu interes

saludos.

by **karinha** » Wed Sep 24, 2014 3:19 pm

César, mira este ejemplo y una ayuda porfa? Necesito saber todas las nResolution..

Code: Select all Expand view: #Include "fivewin.ch" #Include "dbcombo.ch" STATIC oDlg, oWnd FUNCTION Main() LOCAL nResolution // Janela Invisivel - coordenadas DEFINE WINDOW oWnd TITLE "Display" FROM -1, -1 TO -1, -1 nResHoriz := oWnd:nHorzRes() // retorna a resolucao horizontal nResVert := oWnd:nVertRes() // retorna a resolucao vertical nResolution := Resolution( oWnd ) DEFINE DIALOG oDlg SIZE 600, 450 PIXEL ; STYLE nOr( DS_MODALFRAME, WS_POPUP, WS_CAPTION, WS_SYSMENU, 4 ) oDlg:lHelpIcon := .F. ACTIVATE DIALOG oDlg CENTERED ; ON INIT( MakeComboBox( oDlg ), ; DISPLAY( oDlg, nResolution, .T. ) ) oWnd:End() ACTIVATE WINDOW oWnd RETURN NIL FUNCTION MakeComboBox( oDlg ) LOCAL oGet, oCbx LOCAL nTotal := 0 LOCAL cItem := "UNO" @ 10, 10 SAY "IMPORTE" OF oDlg pixel color CLR_HBLUE TRANSPARENT @ 30, 10 GET oGet VAR nTotal of oDlg ; SIZE 60, 15 PICTURE "999,999.99" PIXEL UPDATE @ 10, 80 SAY "Selecciona un ITEM " OF oDlg ; PIXEL color CLR_HBLUE TRANSPARENT @ 30, 80 COMBOBOX oCbx VAR cItem ; OF oDlg STYLE CBS_DROPDOWNLIST ; PIXEL SIZE 100, 300 UPDATE ; ON CHANGE MsgBeep() ; ITEMS {"UNO","DOS","TRES","CUATRO","CINCO"} RETURN NIL //#include "display.prg" FUNCTION Resolution( oWnd ) IF nResHoriz = 2560 .AND. nResVert = 1600 ? [nResolution? ] ELSEIF nResHoriz = 1920 .AND. nResVert = 1080 ? [nResolution? ] ELSEIF nResHoriz = 1680 .AND. nResVert = 1050 ? [nResolution? ] ELSEIF nResHoriz = 1600 .AND. nResVert = 1200 * 7 = 1600 X 1200 nResolution := 7 ELSEIF nResHoriz = 1440 .AND. nResVert = 900 * 9 = 1440 X 900 nResolution := 9 ELSEIF nResHoriz = 1366 .AND. nResVert = 768 ? [nResolution? ] ELSEIF nResHoriz = 1360 .AND. nResVert = 768 ? [nResolution? ] ELSEIF nResHoriz = 1280 .AND. nResVert = 1080 ? [nResolution? ] ELSEIF nResHoriz = 1280 .AND. nResVert = 1024 * 6 = 1280 X 1024 nResolution := 6 ELSEIF nResHoriz = 1280 .AND. nResVert = 960 ? [nResolution? ] ELSEIF nResHoriz = 1280 .AND. nResVert = 800 * 5 = 1280 X 800 nResolution := 5 ELSEIF nResHoriz = 1280 .AND. nResVert = 768 * 10 = 1280 X 768 nResolution := 10 ELSEIF nResHoriz = 1280 .AND. nResVert = 720 * 11 = 1280 X 720 nResolution := 11 ELSEIF nResHoriz = 1280 .AND. nResVert = 600 ? [nResolution? ] ELSEIF nResHoriz = 1152 .AND. nResVert = 864 * 4 = 1152 X 864 nResolution := 4 ELSEIF nResHoriz = 1024 .AND. nResVert = 768 * 3 = 1024 X 768 nResolution := 3 ELSEIF nResHoriz = 800 .AND. nResVert = 600 * 2 = 800 X 600 //? [800 X 600] // funciona nResolution := 2 ELSEIF nResHoriz = 768 .AND. nResVert = 1024 * 8 = 768 X 1024 nResolution := 8 ELSEIF nResHoriz = 720 .AND. nResVert = 480 ? [nResolution? ] ELSEIF nResHoriz = 720 .AND. nResVert = 480 * 1 = 640 X 480 nResolution := 1 ENDIF RETURN( nResolution ) // END OF PROGRAM

Saludos.

by **sysctrl2** » Wed Sep 24, 2014 4:20 pm

en una PC con resolucion 1360 x 768
marca error,

Time from start: 0 hours 0 mins 5 secs
Error occurred at: 09/24/14, 11:09:21
Error description: Error BASE/1003 Variable does not exist: NRESOLUTION

Stack Calls
===========
Called from: scdisp2.prg => RESOLUTION( 167 )
Called from: scdisp2.prg => MAIN( 17 )

Code: Select all Expand view: #Include "fivewin.ch" #Include "dbcombo.ch" STATIC oDlg, oWnd FUNCTION Main() LOCAL nResolution // Janela Invisivel - coordenadas DEFINE WINDOW oWnd TITLE "Display" FROM -1, -1 TO -1, -1 nResHoriz := oWnd:nHorzRes() // retorna a resolucao horizontal nResVert := oWnd:nVertRes() // retorna a resolucao vertical nResolution := Resolution( oWnd ) ? nResolution DEFINE DIALOG oDlg SIZE 600, 450 PIXEL ; STYLE nOr( DS_MODALFRAME, WS_POPUP, WS_CAPTION, WS_SYSMENU, 4 ) oDlg:lHelpIcon := .F. ACTIVATE DIALOG oDlg CENTERED ; ON INIT( MakeComboBox( oDlg ), ; DISPLAY( oDlg, nResolution, .T. ) ) oWnd:End() ACTIVATE WINDOW oWnd RETURN NIL FUNCTION MakeComboBox( oDlg ) LOCAL oGet, oCbx LOCAL nTotal := 0 LOCAL cItem := "UNO" @ 10, 10 SAY "IMPORTE" OF oDlg pixel color CLR_HBLUE TRANSPARENT @ 30, 10 GET oGet VAR nTotal of oDlg ; SIZE 60, 15 PICTURE "999,999.99" PIXEL UPDATE @ 10, 80 SAY "Selecciona un ITEM " OF oDlg ; PIXEL color CLR_HBLUE TRANSPARENT @ 30, 80 COMBOBOX oCbx VAR cItem ; OF oDlg STYLE CBS_DROPDOWNLIST ; PIXEL SIZE 100, 300 UPDATE ; ON CHANGE MsgBeep() ; ITEMS {"UNO","DOS","TRES","CUATRO","CINCO"} RETURN NIL

Cuando nResolution es mayo que cero todo funciona perfecto,
gracias..

by **sysctrl2** » Wed Sep 24, 2014 4:24 pm

Code: Select all Expand view: FUNCTION Resolution( oWnd ) IF nResHoriz = 2560 .AND. nResVert = 1600 ? [nResolution? ] ELSEIF nResHoriz = 1920 .AND. nResVert = 1080 ? [nResolution? ] ELSEIF nResHoriz = 1680 .AND. nResVert = 1050 ? [nResolution? ] ELSEIF nResHoriz = 1600 .AND. nResVert = 1200 * 7 = 1600 X 1200 nResolution := 7 ELSEIF nResHoriz = 1440 .AND. nResVert = 900 * 9 = 1440 X 900 nResolution := 9 ELSEIF nResHoriz = 1366 .AND. nResVert = 768 ? [nResolution? ] ELSEIF nResHoriz = 1360 .AND. nResVert = 768 ? [nResolution? ] ELSEIF nResHoriz = 1280 .AND. nResVert = 1080 ? [nResolution? ] ELSEIF nResHoriz = 1280 .AND. nResVert = 1024 * 6 = 1280 X 1024 nResolution := 6 ELSEIF nResHoriz = 1280 .AND. nResVert = 960 ? [nResolution? ] ELSEIF nResHoriz = 1280 .AND. nResVert = 800 * 5 = 1280 X 800 nResolution := 5 ELSEIF nResHoriz = 1280 .AND. nResVert = 768 * 10 = 1280 X 768 nResolution := 10 ELSEIF nResHoriz = 1280 .AND. nResVert = 720 * 11 = 1280 X 720 nResolution := 11 ELSEIF nResHoriz = 1280 .AND. nResVert = 600 ? [nResolution? ] ELSEIF nResHoriz = 1152 .AND. nResVert = 864 * 4 = 1152 X 864 nResolution := 4 ELSEIF nResHoriz = 1024 .AND. nResVert = 768 * 3 = 1024 X 768 nResolution := 3 ELSEIF nResHoriz = 800 .AND. nResVert = 600 * 2 = 800 X 600 //? [800 X 600] // funciona nResolution := 2 ELSEIF nResHoriz = 768 .AND. nResVert = 1024 * 8 = 768 X 1024 nResolution := 8 ELSEIF nResHoriz = 720 .AND. nResVert = 480 ? [nResolution? ] ELSEIF nResHoriz = 720 .AND. nResVert = 480 * 1 = 640 X 480 nResolution := 1 ENDIF [b]RETURN( nResolution )[/b]

RETURN( nResolution ) EN ESTA LINEA MARCA ERROR CUANDO NO ENCUENTRA LA RESOLUCION
tengo una pc. con resolucion 1360 x 768.

saludos..

by **karinha** » Wed Sep 24, 2014 4:47 pm

Si César, por esto escrebi esto: ? [nResolution? ] - nResolution := ?? no tengo la info. Comprende?

Ponga un numero 7 8 ó 9 e mira se funciona en tu computadora, el ideal és saber todas las nResolution.

Saludos

by **sysctrl2** » Wed Sep 24, 2014 4:57 pm

Amigo
esto puede ayudar ?
http://es.screenresolution.org/

saludos..

by **karinha** » Wed Sep 24, 2014 5:21 pm

Gracias César, mira el Ejemplo: 21 800x600 4:3 SVGA

En el Ejemplo del Autor William Adami: 1 = 800x600 entonces, nResolution para pasar en el parametros no és 21 e si 1.

Comprende?

Mira el que Willian Adami, escrebió:

Code: Select all Expand view: * atencao: nResolution identifica em que resolucao foram inicialmente * desenhadas as telas, e DEVE ter um dos seguintes valores: * * 1 = 640 X 480 * 2 = 800 X 600 * 3 = 1024 X 768 * 4 = 1152 X 864 * 5 = 1280 X 800 * 6 = 1280 X 1024 * 7 = 1600 X 1200 * 8 = 768 X 1024 * 9 = 1440 X 900 * 10 = 1280 X 768 * 11 = 1280 X 720

Falta los demás parametros paras otras tipos de nResolution.

Salu2

by **sysctrl2** » Wed Sep 24, 2014 6:29 pm

Amigo,
LISTO !!!
quedo claro,

gracias,,
abrigado !

FiveTech Software tech support forums

Display.prg y ComboBox ( SOLUCIONADO )

Display.prg y ComboBox ( SOLUCIONADO )

Re: Display.prg y ComboBox ( no funciona )

Re: Display.prg y ComboBox ( no funciona )

Re: Display.prg y ComboBox ( no funciona )

Re: Display.prg y ComboBox ( no funciona )

Re: Display.prg y ComboBox ( no funciona )

Re: Display.prg y ComboBox ( no funciona )

Re: Display.prg y ComboBox ( no funciona )

Re: Display.prg y ComboBox ( no funciona )

Re: Display.prg y ComboBox ( no funciona )

Re: Display.prg y ComboBox ( no funciona )

Re: Display.prg y ComboBox ( no funciona )

Re: Display.prg y ComboBox ( no funciona )

Re: Display.prg y ComboBox ( no funciona )

Re: Display.prg y ComboBox ( SOLOCIONADO )

Who is online