FiveTech Software tech support forums

... One" ACTION test(oPop,oBtn);
CHECKED

MENUITEM "Two"
ENDMENU

return oPop


Function test(oPop,oBtn)
local n
Msginfo("change")

for n=1 to len(oPop:aItems)
oPop:aItems[n]:SetCheck(.f.)
next n

oBtn:refresh()

return nil







and I wish checked a item of this menu How I must make ?

it ...

... Function Btnbar(nBar,oBar,oDlg) // ,aBtnBar

local aBtnBar
local x

if Valtype( oBar ) = "O"
For x := Len( oBar:aControls ) to 1 step - 1
oBar:Del( x )
Next x
endif

Do case
case nbar = 0
DEFINE BUTTONBAR oBar OF oDlg SIZE 80,70 TOP NOBORDER 2015 ...

... if ! Empty( oFTP:hFTP )

FtpSetCurrentDirectory(oFTP:hFTP, "/usr/cheshire/boh/")

aFiles = oFTP:Directory("rms.dat" )

IF len(aFiles) > 0
AEval( aFiles, { | aFile | FtpGetFile ( oFTP:hFTP, aFile[ 1 ], "c:\remanco\" + aFile[ 1 ] ,.t.,0,0,0 ) } )
ENDIF

else
// MsgAlert ...

... di entrata

// Debug: Mostra l'orario di entrata appena letto
* ? "Orario di Entrata letto: ", tEntrata

// Verifica il formato di tEntrata
If Len(tEntrata) == 5
tEntrata := tEntrata + ":00" // Aggiungi ":00" se non ci sono i secondi
EndIf

// Debug: Mostra l'orario di entrata dopo modifica ...

... AS PTR ) AS LONG PASCAL LIB "combase.dll"

FUNCTION RoActivateInstanceWrapper( cRuntimeClassName )
LOCAL nResult, pHString, pInstance
LOCAL nLength := Len( cRuntimeClassName )
LOCAL IID_IInspectable := "{AF86E2E0-B12D-4C6A-9C5A-D7AA65101E90}" // IID de IInspectable

// Inicializar el ...

... AS PTR ) AS LONG PASCAL LIB "combase.dll"

FUNCTION RoActivateInstanceWrapper( cRuntimeClassName )
LOCAL nResult, pHString, pInstance
LOCAL nLength := Len( cRuntimeClassName )
LOCAL IID_IInspectable := "{AF86E2E0-B12D-4C6A-9C5A-D7AA65101E90}" // IID de IInspectable

// Inicializar el ...

... NIL, "", xContNow )
IF Empty( aStatic[ GRAF_TXT_BAR ] )
aStatic[ GRAF_TXT_BAR ] := Replicate( ".", MaxCol() )
FOR nCont = 1 to 10
nPos := Int( Len( aStatic[ GRAF_TXT_BAR ] ) / 10 * nCont )
cTxt := lTrim( Str( nCont, 3 ) ) + "0%" + Chr(30)
aStatic[ GRAF_TXT_BAR ] := Stuff( aStatic[ GRAF_TXT ...

... oBrw )

LOCAL cFilter := ""
LOCAL n, oCol, uVal, cType, cVal1, cVal2, nGevonden
LOCAL nZoekKnop, cExprt
LOCAL cAlias:= alias()
FOR n := 1 TO Len( oBrw:aCols )
oCol := oBrw:aCols[ n ]
IF ! Empty( uVal := oCol:uBarGetVal )
IF !Empty( cFilter )
cFilter += " .AND. "
ENDIF
cType := ValType ...

... function WinRTString( cText )

local pString

WindowsCreateString( AnsiToWide( cText ), Len( cText ), @pString )

return pString

//---------------------------------------------------------------------------//

static function SetNodeText ...

... unsloth import FastLanguageModel, PatchFastRL
PatchFastRL("GRPO", FastLanguageModel)

from unsloth import is_bfloat16_supported
import torch
max_seq_length = 1024 # Can increase for longer reasoning traces
lora_rank = 64 # Larger rank = smarter, but slower

model, tokenizer = FastLanguageModel.from ...

... answer>([\s\S]*?)<\/answer>$"

match = re.search(regex, completion, re.DOTALL)
# if the format is not correct, reward is 0
if match is None or len(match.groups()) != 2:
rewards.append(0.0)
else:
rewards.append(1.0)
except Exception:
rewards.append(0.0)
return rewards

def equation_reward ...

... LOCAL I:=1
local oMenu
LOCAL nRowMenu:=oButton:nTop+oButton:oWnd:nTop+oButton:nHeight
LOCAL nColMenu:=oButton:nLeft

MENU oMenu POPUP
FOR I=1 TO LEN(aVentanasMdi)
IF aVentanasMdi[i]==Self:cCaption
MENUITEM aVentanasMdi[i] OF oMenu CHECKED
ELSE
MENUITEM aVentanasMdi[i] OF oMenu
ENDIF
NEXT I ...

... LOCAL I:=1
local oMenu
LOCAL nRowMenu:=oButton:nTop+oButton:oWnd:nTop+oButton:nHeight
LOCAL nColMenu:=oButton:nLeft

MENU oMenu POPUP
FOR I=1 TO LEN(aVentanasMdi)
IF aVentanasMdi[i]==Self:cCaption
MENUITEM aVentanasMdi[i] OF oMenu CHECKED
ELSE
MENUITEM aVentanasMdi[i] OF oMenu
ENDIF
NEXT I ...

... Local cHex, cChar

Default nStartEvaluate := 1

cHex := ""
cChar := ""

For Each cChar IN cResposta
if HB_EnumIndex( cChar ) < Len( cResposta )
if HB_EnumIndex( cChar ) == nStartEvaluate
cHex := cChar
endif
cHex := cHex ^^ cResposta[ HB_EnumIndex( cChar ) + 1 ]
endif
next ...

... LOCAL I:=1
local oMenu
LOCAL nRowMenu:=oButton:nTop+oButton:oWnd:nTop+oButton:nHeight
LOCAL nColMenu:=oButton:nLeft

MENU oMenu POPUP
FOR I=1 TO LEN(aVentanasMdi)
IF aVentanasMdi[i]==Self:cCaption
MENUITEM aVentanasMdi[i] OF oMenu CHECKED
ELSE
MENUITEM aVentanasMdi[i] OF oMenu
ENDIF
NEXT I ...