FiveTech Software tech support forums

... { || nItem := 1 } oBrw:bGoBottom := { || nItem := Len(aAcc_No) } oBrw:SetArray( aAcc_No, aAcc_Desc, aTrn_AmtD, aTrn_AmtC ) oBrw:bSkip := { |nWant, nOld| nOld:=nItem, nItem+=nWant, ; nItem := max( 1, min( nItem, eval( oBrw:bLogicLen ))), nItem - nOld } oBrw:bLDblClick:= {|| W_21AEU(oBrw,nItem,mMode,oDlg)} ...

... ::dDateStart, ::dDateStart:= u ) }, nil,oPanel, 200, 160,,,,, .F.,, .T.,, .F., .F.,,,,,, .F., .T., .T., .F. ) ::oDtPick:bViewChanged := {|Self,nOld,nNew| iif(nNew<MCMV_YEAR,::SetCurrentView(MCMV_YEAR),) } ::oDtPick:bChange = { | o | ::ChangeDate( o ) } oPanel:bResized := <|| local oRect ...

... ::dDateStart, ::dDateStart:= u ) }, nil,oPanel, 700, 520,,,,, .F.,, .T.,, .F., .F.,,,,,, .F., .T., .T., .F. ) ::oDtPick:bViewChanged := {|Self,nOld,nNew| iif(nNew<MCMV_YEAR,::SetCurrentView(MCMV_YEAR),) } ::oDtPick:bChange = { | o | ::ChangeDate( o ) } but I have this result https://i.postimg.cc/yxLtCgfd/vvv.png ...

... RESOURCE "RIGHT" OF oBar GROUP ACTION ( oCF:GoRight() ) oWnd:Center() oCF = TCoverFlow():New( 30, 30 ) oCF:bAction = { | o, nCover, nOld | msginfo( "Seleted: " + str( nCover, 2 ) + CRLF + "From: " + str( nold ) ) } oCF:nMaxCover = 5 oCF:lAnimated= .T. oCF:SetColor( ...

... //----------------------------------- FUNCTION BUILDMETRO(oWnd, nDStyle) LOCAL oMetro, oHScroll, oBtn[30], oBrush, oVSlider LOCAL oSelf, nOld := 0, oLizenz, cText, pBrush, aPalBmp DEFINE METROPANEL oMetro OF oWnd TITLE "" ; // must be a EMPTY string otherwise START is displayed ...

... ; TEXTFONT oTileFont ; ACTION LOGIN1() oSBtn[71]:nClrCaption := aVal[77] oSBtn[71]:bMMoved = { | nRow, nCol, nFlags | SHOW_FRAME( oSBtn, 71, nOld ), nOld := 71 } IF aVal[131] = .F. oSBtn[71]:Disable() oSBtn[71]:SetColor(12632256, 12632256) ENDIF http://www.pflegeplus.com/IMAGES/Mdisabl1.jpg ...

... := aVal[74] oSBtn[60]:oFont := oFontTiny oSBtn[60]:oTextFont := oFontTiny oSBtn[60]:bMMoved = { | nRow, nCol, nFlags | SHOW_FRAME( oSBtn, 60, nOld ), nOld := 60 } http://www.pflegeplus.com/IMAGES/MButton1.jpg oSBtn[1]:bMMoved   = { | nRow, nCol, nFlags | SHOW_FRAME( ...

... := aVal[74] oSBtn[60]:oFont := oFontTiny oSBtn[60]:oTextFont := oFontTiny oSBtn[60]:bMMoved = { | nRow, nCol, nFlags | SHOW_FRAME( oSBtn, 60, nOld ), nOld := 60 } http://www.pflegeplus.com/IMAGES/MButton1.jpg oSBtn[1]:bMMoved   = { | nRow, nCol, nFlags | SHOW_FRAME( ...

Uwe,

Please try this to check if the codeblock is evaluated:

oMBtn[1]:bGotFocus := {|| MsgInfo( "yes" ), SHOW_FRAME(oMBtn, 1, nOld), nOld := 1 }

... ; ACTION MsgInfo( oMBtn[1]:Cargo , ValType( oMBtn[1]:Cargo) ) // Files(c_Path1) // oMBtn[1]:bLClicked := {|| SHOW_FRAME(oMBtn, 1, nOld), nOld := 1 } oMBtn[1]:bGotFocus := {|| SHOW_FRAME(oMBtn, 1, nOld), nOld := 1 } oMBtn[1]:oFont := oFontSmall but NO response with the other solution ...

... oCol TO oBrw DATA ARRAY ELEMENT 3 ; HEADER "Column 2" ; SIZE 120 ; PICTURE "99999" ; EDITABLE ; TOTAL 0 ; FOOTER { |oCol,nNew,nOld| "Test: " + CRLF + TRANSFORM( oCol:nTotal += ( IfNil( nNew, 0 ) - IfNil( nOld, 0 ) ), "99999999" ) } oBrw:nFooterLines := 2 ...

... { |n| If( n > "99999", "9999999999", "99999" } ; Produce Syntax error sugested option FOOTER { |o,nNew,nOld| TRANSFORM( oCol:nTotal += ( IfNil( nNew, 0 ) - IfNil( nOld, 0 ) ), "999999" ) Make wrong totals Test ...

... ) ), Eval( ::bOnSkip, Self ) }, ; ::bGoBottom := { || ::nArrayAt := Eval( ::bKeyCount ), Eval( ::bOnSkip, Self ) }, ; ::bSkip := { | nSkip, nOld | ; If( nSkip == nil, nSkip := 1, ), ; nOld := ::nArrayAt, ; ::nArrayAt += nSkip, ; ::nArrayAt := Min( Max( ::nArrayAt, 1 ), Eval( ::bKeyCount ...

Hi Luacs : SQLRDD ver. xHarbour Builder SQLRDD for BCC-December-2012-Build1214 FWH: After ver.1208 xHarbour: 1.23.9894 SQLRDD Not support ordkeyno() , So I do a Stupid way to save Value of field->Sr_recno to Aarray. #DUMP my SOLUTION FOR SQLRDD ordkeyno() #define ORDKEYNO() MY_KEYNO(RECNO()) Priv...

... oBrw:SetArray ( oDlg:aControls ) oBrw:bGotop := { | | n := 1 } oBrw:bGoBottom := { | | n := EVAL ( oBrw:bLogicLen ) } oBrw:bSkip := { | nwant, nold | nold := n , n += nwant ,; n := MAX ( 1, MIN ( n, EVAL ( oBrw:bLogicLen ) ) ), n - nOld } oBrw:bLogicLen := { | | LEN ( oDlg:aControls ) } oBrw:nClrBackFocus ...