FiveTech Software tech support forums

oi karinha boa tarde tudo bem // \SAMPLES\BARBRUSH.PRG #include "Fivewin.ch" STATIC oWnd FUNCTION Main() LOCAL oBar, oBtn1, oBrush DEFINE BRUSH oBrush COLOR CLR_HBLUE <---- ACA CON FILE "IMAGEN.JPG" DEFINE BRUSH oBrush FILE "IMAGEN.JPG" DEFINE WINDOW oWnd ...

... Object and MYDBF.DBF file opened. DIALOG starts with oRs Adodb Object DEFINE DIALOG oDlg..@63, 10 XBROWSE oBrw RECORDSET oRs    @ 320,190 BTNBMP oBtn1 SIZE 50,20 OF oDlg ;    ACTION ( here I have to change oBrw)      Inside Action oBtn1 I have to switch oBrw from oRs to MYDBF.DBF file ...

... static oDlg, oDbf //----------------------------------------------------------------------------// function MiPrueba() local oFont local oBtn1, oBtn2 SET _3DLOOK ON USE C:\xPruebas\Dbf\personas ALIAS xPersonas SELECT xPersonas DATABASE oDbf oDbf:GoTop() DEFINE DIALOG oDlg RESOURCE "PROBAR" ...

Using this code : @ 880,400 BTNBMP oBtn1 OF oDlg SIZE 200, 30 NOBORDER PROMPT "Prijswijzigingen naar Exel" 2007 TOOLTIP "Tool1" ACTION exportdata(obrw4) function exportdata(oBrw)  select nofoto  set filter to nofoto->selected  ...

Ramón,

Prueba a quitar estas líneas y vuelve a probarla:

oBtn1:end()
oBtn2:end()
sysrefresh()

Prueba tambien a quitar esta línea:
SkinButtons()

... VAR nTipoData ITEMS aDataPrint SIZE 50,90 PIXEL OF oDlg; ON CHANGE ( IIF( nTipoData=2,; (aGet[3]:hide(),aGet[4]:show(), ; aGet[4]:setFocus(),; oBtn1:Hide(),oBtn2:Hide(),oBtn3:Hide()),; (aGet[4]:hide(),aGet[3]:show(), ; aGet[3]:setFocus(),; oBtn1:Show(),oBtn2:Show(),oBtn3:Show() ) ) ) as you ...

... nData_To_Print ITEMS aDataPrint SIZE 50,90 PIXEL OF oDlg STYLE CBS_DROPDOWNLIST; ON CHANGE (IIF(nData_To_Print=2,; (aGet[3]:hide(),aGet[4]:show(), oBtn1:Hide(),oBtn2:Hide(),oBtn3:Hide()),; (aGet[4]:hide(),aGet[3]:show(), oBtn1:Show(),oBtn2:Show(),oBtn3:Show())) ) @ 24, 130 GET aGet[3] VAR cData_To_Print ...

It is a duplicate ( copy without the text ) to show the difference F5 Añadir is missing. is added as PROMPT :!: REDEFINE BTNBMP oBtn1 ID 500 OF oDlg ; RESOURCE " TI_ANADIR " ACTION oDlg:End() REDEFINE BTNBMP oBtn2 ID 501 OF oDlg ; RESOURCE " TI_ANAD1 " ; LEFT ; ACTION ...

I think the problem belongs to the resource // bad REDEFINE BTNBMP oBtn1 ID 500 OF oDlg ; RESOURCE "TI_ANADIR" ACTION oDlg:End() // OK REDEFINE BTNBMP oBtn2 ID 501 OF oDlg ; FILE ".\bitmaps\TI_ANADIR.png"; LEFT ; ACTION oDlg:End() ; PROMPT ...

Switch from TOP to NORMAL @ 20, 80 BTNBMP oBtn1 2007 ; SIZE 30, 30 OF oDlg NOBORDER ; PROMPT "Top" ; ACTION ( SetWindowPos( oDlg:hWnd, -1, 0, 0, 0, 0, 3 ),; WinExec( "Notepad.exe" ) ) close Notepad and reopen with button 2 ...

Very interesting. Even more interesting is this. Change the prompt of oBtn1 as "&OK" or "&Choose" or any other text. Then ALT-F4 does not close the dialog. Further, even much more interesting is that if you remove "&" ...

... ) // -------------- ... ... DEFINE DIALOG oDlg1 FROM 0, 0 TO 180, 200 OF oDlg PIXEL TRUEPIXEL FONT oFont ; STYLE WS_POPUP ... @ 20, 30 BTNBMP oBtn1 2007 ; SIZE 30, 30 OF oDlg NOBORDER ; ACTION MYDLG( oDlg, oBtn1, oFont ) ... ACTIVATE DIALOG oDlg CENTERED RETURN NIL // -------------- FUNCTION ...

Frances, Here is my exact code: @ 2,5 ADD BUTTON oBtn1 GROUP oGr1 PROMPT "New" BITMAP ".\bitmaps\document_color_blue.BMP" ; NORMAL ROUND SIZE 50,65 ACTION msgInfo("New Work Entry Here") tooltip "New Work Log Entry" ...

Frances, Here is my exact code: @ 2,5 ADD BUTTON oBtn1 GROUP oGr1 PROMPT "New" BITMAP ".\bitmaps\document_color_blue.BMP" ; NORMAL ROUND SIZE 50,65 ACTION msgInfo("New Work Entry Here") tooltip "New Work Log Entry" ...

... there are no color variables, I copied the whole line of code and used it after the button definition in my code for testing. @ 2,5 ADD BUTTON oBtn1 GROUP oGr1 PROMPT "New" BITMAP ".\bitmaps\document_color_blue.BMP" ; NORMAL ROUND SIZE 50,65 ACTION msgInfo("New Work ...