FiveTech Software tech support forums

That was my first guess but this does not seem to work. For dDay := dStart to dEnd nEle++ nId++ lVar := FALSE oChk := nil If dDay >= dFrom .AND. dDay <= dTo Redefine CheckBox oChk Var lVar Id nId of oDlg oChk:SetText( PadL( Day(dDay),2,"0" ) ) oChk:cargo ...

TSwitch class Command: #xcommand @ <nRow>, <nCol> SWITCH [ <oSw> VAR ] <lVar> ; [ PROMPT <cCaption> ] ; [ <of: OF, WINDOW, DIALOG> <oWnd> ] ; [ SIZE <nWidth>, <nHeight> ] ; [ <help:HELPID, HELP ID> <nHelpId> ...

... are "ID","FCODE","FNAME". Also if we use hungarian notation, we can easily identify a field variable. if nVar, cVar, lVar denote numeric, character and logical variables, fName indicates a field variable. Incidentally, this also avoids conflict with "ID".

A small extension : I added predefined logical vars. It belongs to sample 2 and 4 can be replaced with any others lVar := { { .F., .F., .T., .T., .F., .F. } } added a message wait on button-click deleted the alerts creating a PRG and EXE ( only displayed if NOT created ) I will ...

... pero si luego necesitas modificar el dato no podras ya que tiene data a menos que lo inicies vacio antes, sino, usa como dice karina, con una lVar y que puedas jugar con ella con algun boton o bajo alguna otra validacion donde la cambies... es facil.

New build available:

* New: REDEFINE CHECKBOX [ oChk VAR ] lVar ID nId OF oWnd is working!
Please revew samples/TestNib.prg

Nuevo build disponible:

* New: REDEFINE CHECKBOX [ oChk VAR ] lVar ID nId OF oWnd is working!
Please revew samples/TestNib.prg

... GROUP PROMPT "Test" ID 5 OF oFld:aDialogs[ 1 ] COLOR 128 ============================= // REDEFINE CHECKBOX [ <oCbx> VAR ] <lVar> ; // [ ID <nId> ] ; // [ <of:OF, WINDOW, DIALOG> <oWnd> ] ; // [ <help:HELPID, HELP ID> <nHelpId> ] ; // [ <click:ON ...

... I'm use resource define CheckBox, But, I can't change CheckBox caption!! Please, How to change? First you do : DEFINE CHECKBOX oChkBox VAR lVariable ID 101 OF oDlg Later: oChkBox:SetText("New caption") Thank you, already solution!! But, have other question, Hide CheckBox!! I try use oChk:Hide(), ...

... name is required. I just noticed that other xcommands are different: #xcommand @ <nRow>, <nCol> CHECKBOX [ <oCbx> VAR ] <lVar> ; [ PROMPT <cCaption> ] ; In this case it seems that the PROMPT command is always required when a prompt value is specified. So we really ...

... static bAct,fbact,act1 static bTy,fbty,cty,cact static cMonth, nMonth static nFilterType := 0 static bDiff,fbdiff static mbs := 0 static lVar := .f. static cAlias memvar gld, gln function callit() /* commented out invreturn index files carry,carry1 expcf */ public nfp := ...

... el botón por el que he accedido a ese dialogo, permanezca :Disable() mientras esté abierto el dialogo. He intentado controlar el boton con WHEN lVar, cambiando su estado a .T. o .F., pero como es un dialogo NO MODAL, no consigo que permanezca Disable() mientras el dialogo esté abierto para cambiar ...

... IOLIB_VER() =>cString Returns character string of IO version ********************************************************** SETDTR([lVar]) =>log returns .t. if DTR has been set, otherwise false optional lVar will set the DTR . EXAMPLE: LOCAL l_DTR l_DTR:=SETDTR(.T.) ************************************************************************* ...

Olá Wilson,
Crie uma var lógica e coloque no when do get, depois com o botão faça ela ficar verdadeira e mande refrescar os gets, vou dar um pequeno exemplo

lVar := .F.

@ 01,01 Get oGet Var cGet When(lVar) ......

@ 02,01 Button oBut Prompt "Ativa" ... Action (lVar := .T., oGet:Refresh())