FiveTech Software tech support forums

... entiendo que en esta definicion LISTAGEN es el OBJETO. listagen:nLineHeight := 80 && <<---- este es el alto de línea yo lo puse asi oLbx:nLineHeight := 80 y me da error BASE/1005 Message not found: TWBROWSE:_NLINEHEIGHT Antonio: lo tengo definido asi: define font oTipLet NAME "Courier" ...

... entiendo que en esta definicion LISTAGEN es el OBJETO. listagen:nLineHeight := 80 && <<---- este es el alto de línea yo lo puse asi oLbx:nLineHeight := 80 y me da error BASE/1005 Message not found: TWBROWSE:_NLINEHEIGHT Antonio: lo tengo definido asi: define font oTipLet NAME "Courier" ...

... un listbox definido por WorkShop y funciona correctamente. en otra funcion en la cual copie el listbox en el prg . asi lo defini REDEFINE LISTBOX oLbx FIELDS str(_CoLiAux->Locatario,4,0) , ; str(_CoLiAux->Propiedad,4,0) ; ID _CLV_Lbx ; FIELDSIZES {50,50} ; HEADERS "Loc.","Prop" ...

... aBotones)) Valid( Fade( oDlg ), .t. ) ---------- *---------------------------------------------------------------------------// function veo(nApu,oLbx,aAcciones,nKey) nApu:=ascan(aAcciones,{|x|IF(LEN(X)>4,x[5]==nKey,.F.)}) if empty(nApu) return .f. else return .t. endif *------------------------------------------------------------------------------------ ...

Hola gente, tengo definido este listbox REDEFINE LISTBOX oLbx FIELDS ; str( oRSRub:Fields( "rubro" ):Value, 3 ), ; oemtoansi( oRSRub:Fields( "descri" ):Value ) ; HEADERS oemtoansi( "N£mero" ), oemtoansi( "Descripci¢n" ...

... dbo.Marcas ON s.Marca = dbo.Marcas.Numero " Como puedo hacer una edición por celdas de los campos de la base Stock intente con: WITH OBJECT oLbx:Costo :bOnPostEdit := { | o, x, k | oRSSTK:Fields( "costo" ):Value := x } //PostEdit( o, x, k ) } // EditaCelda( oaufactu, 1, x, k, lFirstEdit ...

... cTexLocali :="", oTexLocali, cTexSucur :="", oTexSucur static oPaci, oFlt, oBtn[ 6 ] function Paci_ABM( tUser ) local oDlg, oLbx, oBusco, cBusco := SPACE(20) //, cAlias:=cGetNewAlias('Sample') set deleted on AbrePaci( ) oPaci:SetFocus() oPaci:SetOrder( 2 ) DEFINE DIALOG oDlg ...

... cTexLocali :="", oTexLocali, cTexSucur :="", oTexSucur static oPaci, oFlt, oBtn[ 6 ] function Paci_ABM( tUser ) local oDlg, oLbx, oBusco, cBusco := SPACE(20) //, cAlias:=cGetNewAlias('Sample') set deleted on AbrePaci( ) oPaci:SetFocus() oPaci:SetOrder( 2 ) DEFINE DIALOG oDlg ...

... cTexLocali :="", oTexLocali, cTexSucur :="", oTexSucur static oPaci, oFlt, oBtn[ 6 ] function Paci_ABM( tUser ) local oDlg, oLbx, oBusco, cBusco := SPACE(20) //, cAlias:=cGetNewAlias('Sample') set deleted on AbrePaci( ) oPaci:SetFocus() oPaci:SetOrder( 2 ) DEFINE DIALOG oDlg ...

Hi guys, I'm trying to use ShowMessage, but the text is not shown. I have tried: cMsg := "Hello World" oLbx:ShowMessage(cMsg,,CLR_BLACK,CLR_HRED) and cMsg := "Hello World" oLbx:ShowMessage(cMsg) and cMsg := "Hello World" oLbx:ShowMessage(cMsg,2) and ...

Try this :

oLbx:aCols[2]:lAutoSave := .t.

...  nS1:= IF(nCla=1,125,365) local  nS2:= IF(nCla=1,365,125) local oArticoli local oLbx,aCols local oBar,oWinArticoli,oTabs   local cSeek:=Space(100)   local oGet   local oSay:=array(4)   local cOrder := "" IF ...

https://i.postimg.cc/j5KSsXMV/lk.png to make fast I made oThis:oLbx:report() But if I wish print al so the lines ? (Horizontal e and vertical separators) How I can do ? I notice on Windows 10 the style of Preview bar is not for Windows 10 but it ...

hi, i saw in some Code Syntax like this <||    local oRect := oDlg:  GetCliRect  (  )       oBar:  nWidth := oRect:  nWidth       oLbx:  nWidth := oRect:  nWidth -   210    RETURN   NIL > where can i read "more" about this Syntax in above Sample you need to pass oLbx ...

... 57609 ) + " Agregar " font oSegoe ID 170 OF oDlg ACTION EditClient( oBrow, oCon, oRs1cli, oRS1Cli:AbsolutePosition, .t. ) //editclient( oLbx, .t. ) REDEFINE BTNBMP 2007 prompt HB_UTF8CHR( 57604 ) + " Editar " font oSegoe ID 180 OF oDlg ACTION EditClient( oBrow, oCon, oRs1cli, ...