FiveTech Software tech support forums

i like to request EDIT_LOGIC This is implemented as: oCol:SetCheck( [aBmps], [lEdit], [aPrompts] Parameters: aBmps: Optional. Array or 2 or 3 bitmaps to be displayed when the value is .T., .F., nil. If omitted, xbrowse provides default bitmaps ...

i want to show LOG-File but not sure which Control to use : EDIT or GET :?: --- PROCEDURE TXT_Edit( cFile, lEdit ) some Question : how to "save" File when something have "change" ( VAILD TXTRelease( lEdit, cFile, cMemo, cSave) ) how to use READONLY ...

... 20, 20, 20, ; 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20 ; FASTEDIT WITH OBJECT oBrw :nEditTypes := EDIT_GET :SetChecks( nil, .t. ) :nfreeze := 4 :lEdit:=.t. END WITH ACTIVATE DIALOG oDlg CENTER oRs:Close() RETURN nil I have this code, it allows me to display the information of a query that includes ...

... { "tree1", "tree2", "treevh" } ) // ocol:cFooter := "GRAND TOTAL" ocol:nEditType := {||if(::ledit,1,0)} ocol:bEditValue := {||odb2:cquery:="select * from ac where acid='"+obrow2:oTreeItem:cPrompt+"'",odb2:refresh(),obrow2:oTreeItem:cPrompt} ...

... eng050401(oitem,.f.,"bom1","bom2") else eng050401(oitem,.f.,"engbom1","engbom2") end obl1:ledit:=.f. obl1:odlg:UPDATE() obl1:odlg:obar:AEVALwhen() return FUNCTION eng0504(itemid1,version1,ctable1,ctable2) local oWnd1, oTree, oBmp1, oBmp2, ...

... mode) the data is split into separate pages. So this option is suitable for small tables. - Improved function XbrHexEdit( [@]cData, [cTitle], [lEdit = .f.] ) --> cData a) Dialog can be resized b) Seek fixed - New DATA lFullPaint INIT .f. - Hashes can now be edited. * DATAROW: New DATA: nSaveSecs: ...

... ExtDrawIcon( hDC, ::aCoors[ nAt, 1 ], ::aCoors[ nAt, 2 ], ; ::aIcons[ nAt ], ::aPrompts[ nAt ], hFont, ; ::nClrText, ::nClrPane, lFocused, .t., ::lEdit ) Yo probaría a cambiar el color de ::nClrPane Prueba asi: oIconGroup:bGotFocus := { || ::nClrPane := nColorQueDesees }

... with command syntax from RDD,ADO,MySql/ Dolphin with columns clause. The method does not work with Arrays. (e) New: METHOD SetChecks( aBmp, lEdit, aPrompts ) CLASS TXBrowse. Calling oBrw:SetChecks() calls SetCheck() method for all logical columns in the browse. * TDataRow (a) fix: Now the ...

... well your problem The solution is that the IIF function must be returned to a variable Try also: REDEFINE BUTTON oBtn4 ID 1002 OF oDlg WHEN lEdit  ACTION ;            lEdit := IIF ( lEdit, oSizeDbf:append(), .t.), ;            oSizeDbf:StkSize := STR(oSizeDbf:hsize,6,3)+ ...

obrow := TXBrowse():New( odlg ) obrow:SetMySQL(@odb2) obrow:bKeyDown := {|nKey|sto0120(nkey,odlg,otabs),if(ledit,if(nKey==VK_DELETE .and. LEN(ALLTRIM(odb1:stockid))>0, (if(msgyesno("删除这行吗？","请选择"),(sto0103(odb2:qty,0),odb2:DELETE(),obrow:Refresh()),)),if(nKey==VK_INSERT ...

... los franceses "et voila" el programa funciona correctamente sin problemas y además con el tercer parámetro del setcheck(arraybitmaps, lEdit, ArrayCaracteres). No ha sido necesario tocar las líneas que usted me indica, no obstante haré los cambios oportunos por si de esa manera funcionara ...

... and how SetCheck is used in the program. SetCheck Parameters: 1. [Optional: Array of bitmaps]. If omitted, default bitmaps are used. 2. [Optional: lEdit] If the parameter is .t., the user is allowed to modify the values. 3. [Optional: Array of prompts] If specified, in addition to the checkbox ...

... := obrow1:AddCol() oCol:bStrData := {||odb1:centerid} oCol:cHeader := "编码" oCol:bEditValue := {||odb1:centerid} oCol:nEditType := {||if(ledit,1,0)} oCol:bOnPostEdit := {|o, v, n| if( n != VK_ESCAPE .and. v != odb1:centerid,; (if(odb1:EOF(),; (odb1:centerid:=v,odb1:enddate:=CTOD("2999.12.31"),odb1:APPEND(),obrow1:refresh(),if(!oserver:lerror,obrow1:SEEK(v),msgstop("编码重复！","停止"))),; ...

... for oDlg not for the Folder. REDEFINE LISTBOX ::oLbxNewGroup VAR nNew ID 1 OF oDlg ITEMS ::aNewGroups ; UPDATE ON DBLCLICK EVAL( bRemove ) WHEN ::lEdit REDEFINE LISTBOX ::oLbxActualGroup VAR nAct ID 2 OF oDlg ITEMS ::aActualGroups ; UPDATE ON DBLCLICK EVAL( bAdd ) WHEN ::lEdit it should be something ...

::obrow := TXBrowse():New( odlg ) obrow:=::obrow obrow:SetMySQL(odb2) obrow:bKeyDown := {|nKey|::sto0120(nkey), if(::ledit,if(nKey==VK_DELETE .and. LEN(ALLTRIM(odb1:stockid))>0, (if(msgyesno2("删除这行吗？","请选择"),(::sto0103(odb2:qty,0,,.t.),odb2:DELETE(),obrow:Refresh()),)),if(nKey==VK_INSERT ...