FiveTech Software tech support forums

mira se ayuda:

https://forums.fivetechsupport.com/view ... 21&start=0

Regards, saludos.

Hola,

Ni DBLCLICK ni ACTION funcionan en FWH-24.09 ni FWH-23.10. Cómo puedo hacerlo funcionar ?

#include "FiveWin.ch"
#include "calendar.ch"

FUNCTION Main()
LOCAL oWnd, oCal
LOCAL dDate1

SET DATE TO BRITISH
SET EPOCH TO 1980
dDate1 = Date()

DEFINE WINDOW oWnd TITLE "Test Calendar" FROM 0 ...

... COLUMNS 'First', 'City', 'Age', 'Salary' ;
PICTURES NIL, NIL, '999', '99,999,999.99' ;
OBJECT uData ;
AUTOSORT CELL LINES NOBORDER ;
ON DBLCLICK StampaFattura()

WITH OBJECT oBrw
:nStretchCol := STRETCHCOL_WIDEST
:CreateFromCode()
END

@ 210, 270 BUTTON 'Close' SIZE 40, 14 PIXEL OF ...

... COLUMNS 'First', 'City', 'Age', 'Salary' ;
PICTURES nil, nil, '999', '99,999,999.99' ;
OBJECT uData ;
AUTOSORT CELL LINES NOBORDER ;
ON DBLCLICK StampaFattura()

WITH OBJECT oBrw
:nStretchCol := STRETCHCOL_WIDEST
:CreateFromCode()
END

@ 210,270 BUTTON 'Close' SIZE 40,14 PIXEL OF oDlgMain ...

... COLUMNS 'First', 'City', 'Age', 'Salary' ;
PICTURES nil, nil, '999', '99,999,999.99' ;
OBJECT uData ;
AUTOSORT CELL LINES NOBORDER ;
ON DBLCLICK StampaFattura()

WITH OBJECT oBrw
:nStretchCol := STRETCHCOL_WIDEST
:CreateFromCode()
END

@ 210,270 BUTTON 'Close' SIZE 40,14 PIXEL OF ...

... viewtopic.php?f=6&t=37846
seem me the Solution which use a "Trick" (blue Color) to show URL
https://hymplus.com/forofw/xbrowse_url_3.png
when DblClick on Cell you can open a "extra" Dialog using TURLLink()

---

as i know it is not possible to use a "external" Object as Column for XBROWSE
Default ...

... viewtopic.php?f=6&t=37846
seem me the Solution which use a "Trick" (blue Color) to show URL
https://hymplus.com/forofw/xbrowse_url_3.png
when DblClick on Cell you can open a "extra" Dialog using TURLLink()

---

as i know it is not possible to use a "external" Object as Column for XBROWSE
Default ...

hi,
when DblClick in Explorer on a *.BMP it will open *.BMP with associate App like Paint
Winexec() "just" call "special" EXE while ShellExecute() is use with associate File

... Discont", "Código", "Cód.Barra" , ;
oemtoansi( "Descripci¢n" ), "Ult. Proveedor", ;
"costo" , ;
"UM", , "Ult.Modif" ;
LINES CELL font ofont ON dblCLICK ( lsavek := .t., oDlgSTK:End() )

obrw:bKeyDown = { | nKey, nCol, nFlags | iif( nKey = K_ENTER, ( lsavek := .t., oDlgSTK:End() ), ) }
oBrw ...

... Fields( "rubro" ):Value, 3 ), ;
oemtoansi( oRSRub:Fields( "descri" ):Value ) ;
HEADERS oemtoansi( "N£mero" ), oemtoansi( "Descripci¢n" ) ; // ON dblCLICK (editrubro(olbx,.F.), olbx:Refresh());
ID 181 OF oDlg ;
font ofont1


oLbx:nClrBackHead:=nRgb(0,130,250)
oLbx:nClrForeHead:=nRgb(0,0,0)
oLbx ...

... saw it before, GREAT :)

---

:nEditTypes := EDIT_GET
have no Effect in Sample (can edit but does not save)

Question : how can i redirect Dblclick to "edit" :?:

have try
:bLDblClick := :EditSource()
but it gave me Error

----

when press Button "add new" it crash
Error description: Error ...

hi,

how can i use Keyboard ENTER instead of "DblClick"

hi,
After this fix, running fwh\samples\pgre01.prg:
i have "import" Customer.DBF into PostgreSQL and can XBROWSER it
when "dblclick" to "edit" and want "save" it i got this Error Message
https://i.postimg.cc/mg9JB3wh/Edit-Customer.jpg
but it is "wrong" :
... SET married = `Homer 2` WHERE id ...

... decir el equivalente a un RecordSet de la clase TDolphin.
Gracias a tu ayuda y algo de sudor ahora el browse funciona perfectamente.
En el método dblclick de este browse he llamado la función FW_Record, con el fin de poder editar el registro en el que me encuentro por ese medio.
Pero me despliega la ...

Many thanks, Silvio.