FiveTech Software tech support forums

... ; APPEARANCE BOLD_OFF+ITALIC_OFF+CAPS_OFF SETDATE oRtf FORMAT LONGFORMAT NEW PARAGRAPH oRTF TEXT "" SETDEFAULT aMarca=ARRAY(9) AFILL(aMarca,0) DEFINE NEWTABLE oRTF ; // Specify the RTF object ALIGN CENTER ; // Center table horizontally on page FONTNUMBER 1 ; // Use font #2 for ...

... ; APPEARANCE BOLD_OFF+ITALIC_OFF+CAPS_OFF SETDATE oRtf FORMAT LONGFORMAT NEW PARAGRAPH oRTF TEXT "" SETDEFAULT aMarca=ARRAY(9) AFILL(aMarca,0) DEFINE NEWTABLE oRTF ; // Specify the RTF object ALIGN CENTER ; // Center table horizontally on page FONTNUMBER 1 ; // Use font #2 for ...

Antonio, AFill( oRb:aClrTabTxt, { | oSelf, nPrompt | If( nPrompt == oSelf:nOption, CLR_WHITE, CLR_HRED ) } ) Unfortunately no. That changes the text color of the selected and unselected tabs. I am looking for a way to change the ...

James,

This line sets the colors of the Tabs texts:

AFill( oRb:aClrTabTxt, { | oSelf, nPrompt | If( nPrompt == oSelf:nOption, CLR_WHITE, CLR_HRED ) } )

Is this what you are looking for ?

Sorry Nages, I change on habour with : for n := 1 to 7 for i := 1 to NUM_TABLES AAdd( aRes[ i ], Array( LastDayOM( dMonth ) + 1 ) ) AFill( aRes[ i ][ n ], .f. ) aRes[ i ][ n ][ 1 ] := cMonth( dMonth ) next i dMonth := AddMonth( dMonth, 1 ) next n and I have the same result https://s17.postimg.cc/5zo4j525b/image.png ...

... AFields([<aFieldsnames>],[<aTypes>],[<aWidths>],[<aDecimals>])->nFields AFill(<aTarget>,<expValue>,[<nStart>],[<nCounts>])->aTarget AfterAtNum(<cSearch>,<cString>,[<nCount>],[<nSkipChars>])->cResult ...

... ADSGetRelKeyPos ADSIsRecordInAOF ADSKeyCount ADSKeyNo ADSLocking ADSRefreshAOF ADSRightsCheck ADSSetAOF ADSStmtSetTableReadOnly AEval AFields AFill AfterAtNum AIns ALenAlloc Alert Alias AllTrim AltD AmPm AnsiToHtml Array Asc AScan ASCIISum AscPos ASin ASize ASizeAlloc ASort At AtAdjust ATail ...

EXPORTS HB_FUN_AADD @1 HB_FUN_ABS @2 HB_FUN_ACCELERATO @3 HB_FUN_ACCELERATOR @4 HB_FUN_ACHOICE @5 HB_FUN_ACLONE @6 HB_FUN_ACOPY @7 HB_FUN_ADEL @8 HB_FUN_ADIR @9 HB_FUN_AEVAL @10 HB_FUN_AFIELDS @11 HB_FUN_AFILL @12 HB_FUN_AINS @13 HB_FUN_ALERT @14 HB_FUN_ALIAS @15 HB_FUN_ALLTRIM @16 HB_FUN_ALTD @17 H...

... [<nCount>]) -> aArray AFields([<aFieldsnames>], [<aTypes>], [<aWidths>], [<aDecimals>]) -> nFields AFill(<aTarget>, <expValue>, [<nStart>], [<nCounts>]) -> aTarget AfterAtNum( <cSearch>,<cString>, [<nCount>], ...

... { 2, 2, 2 } ACOPY(aOne, aTwo, nStart, nCount) // Result: aTwo is now { 1, 1, 2 } Files Library is CLIPPER.LIB. See Also: ACLONE() ADEL() AEVAL() AFILL() AINS() ASORT() This page created by ng2html v1.05, the Norton guide to HTML conversion utility. Written by Dave Pearson Saludos

... Sin embargo, luego aparece en el METHOD CalcPos (linea 976 en mi version FWH 12.03) METHOD CalcPos() CLASS TRibbonBar local n, j ::ASizes := {} AFill( ::aLeft, 0 ) for n = 1 to Len( ::aDialogs ) AAdd( ::aSizes, If( ::aVisible[ n ], GetTextWidth( 0, StrTran( ::aPrompts[ n ], "&", ...

... "return nil" "endclass" /C1 .and. .not. .or. .t. .f. #include #define #ifdef #endif #else aadd abs aclone acopy adel aeval afill ains alert alias alltrim as asc array activate action append asize ascan begin button buttonbar brush break case class classdata close color colors ...

... ;          }    nLen := len( ::aKeyCon )    aSize( ::aKeyCon, nLen + len( xMenu ) )    aEval( xMenu, { | x, y | ::aKeyCon[ nLen + y ] := x } )    aFill( aSize( ::hKeyDown:aAltCtrl  , TOTAL_VKEYS ), .f. )    aFill( aSize( ::hKeyDown:aShiftCtrl, TOTAL_VKEYS ), .f. )    aFill( aSize( ::hKeyDown:aCtrl ...

It is not a bug. It is the expected behavior. AFill( aArray, {} ) results in filling all elements of aArray with reference to the pointer of the same array {} Let us see this example: x := y := {} // both x and y contain the pointer to the same ...

I make a array with arr := array(30) and then aFill(arr,{}).
When I now say aadd(arr[1],{1,2,3,4}]) all arrays in arr become this aadd() not only arr[1]!
Whe i fill the arr with aeval(arr,{|,index|aadd(arr[index],{1,2,3,4}}) then is it ok.
I use xHarbour.