FiveTech Software tech support forums

... pString )

return pString

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

static function SetNodeText( pNodeList, nItem, cText, pXml )

local pXmlNode, pXmlText, pXmlNodeChild
local pString

WinRTMethod( pNodeList, Item, nItem, @pXmlNode )
pString = WinRTString ...

... aBitmaps`**:
- **Type**: Array
- **Description**: Stores bitmaps associated with the combo box items (used for owner-drawn combo boxes).

3. **`nItemHt`**:
- **Type**: Numeric
- **Description**: Height of the items in the combo box.

4. **`lOwnerDraw`**:
- **Type**: Logical
- **Description ...

... The function called to edit column is HEditCol()


Example of Input/editing of Column 3
xDesc is the Input Variable / Size of xDesc is Space(55)
nItem is the Row number


HEditCol(3,@xDesc,"@!",,0,16776960,,,{W_21EC(nItem,2),oBrowse,355,.F.,0,aAcc_Desc ...

function DeleteControl( oPanel, nItem )

local nTop, nLeft

for n := Len( oPanel:aControls ) to nItem + 1 STEP -1
oPanel:aControls[ n ]:nTop := oPanel:aControls[ n - 1 ]:nTop
oPanel:aControls[ n ]:nLeft:= oPanel:aControls[ n - 1 ]:nLeft
next
oPanel:aControls[ nItem ]:End()
HB_ADel( oPanel ...

Nages

oPanel:aControls[ nItem ]:End()
HB_ADel( oPanel:aControls[ nItem ], nItem, .t. )
ASize( oPanel:aControls, Len( oPanel:aControls ) )
oPanel:SetRange()
oPanel:refresh()


I saw on oPanel:aControls there are also the records

https://i.postimg.cc/QNKWmS1C/mm.png

also if I make ASize ...

... 1 TO LEN(oBrw:aCols)
oCol := oBrw:aCols[ i ]
oCol:bLDClickData := { || Erase_Items(oBrw,oPanel) }
NEXT

Function Erase_Items(oBrw,oPanel)
local nItem:= oBrw:aArrayData[ oBrw:nArrayAt ][2]
aDel(oBrw:aArraydata,nItem-1)
// xbrowser oBrw:aArraydata
oPanel:aControls[nItem]:destroy()
oBrw:refresh ...

The class used in the RES dialog file is TWBrowse...

Source...
REDEFINE LISTBOX oBrw ;
FIELDS aAcc_No[ nItem ] ,;
P6_Mast->(DbSeek(Trim(PadCode1(aAcc_No[ nItem ]))),P6_Mast->Acc_Name) ,;
aAcc_Desc[ nItem ] ,;
If(!Empty(aTrn_AmtD[ nItem ]),TransForm(aTrn_AmtD[ nItem ],'99,999,999,999.99 ...

DEFINE BRUSH oBr color rgb( 204, 255, 153 )
...
UTILPRN ::oUtil Self:nLinea, 1.3 SAY " " + DToC( aDatos[ nItem ][ 1 ] ) FONT ::oFnt2 BRUSH oBr WIDTH 18.2 shadow .T.

... por favor ejecute go.bat o goh32.bat desde samples\EasyReport

* function MsgList( aData, cTitle, nTop, nLeft, nBottom, nRight, cBtnTitle, nItem, lCancel, cCapCan, oFont )
--> SelectedItemNumber

- Corrección: salir del cuadro de diálogo presionando la tecla Esc no devolvía 0. Corregido ...

... examples, please run go.bat or goh32.bat from samples\EasyReport

* function MsgList( aData, cTitle, nTop, nLeft, nBottom, nRight, cBtnTitle,
nItem, lCancel, cCapCan, oFont )
--> SelectedItemNumber
- Fix: Exiting the dialog by pressing Esc key was not returning 0. Fixed
- Last parameter ...

... examples, please run go.bat or goh32.bat from samples\EasyReport

* function MsgList( aData, cTitle, nTop, nLeft, nBottom, nRight, cBtnTitle,
nItem, lCancel, cCapCan, oFont )
--> SelectedItemNumber
- Fix: Exiting the dialog by pressing Esc key was not returning 0. Fixed
- Last parameter ...

Carlos,

Prueba a proporcionar .T. en el parámetro lCancel:

function MsgList( aData, cTitle, nTop, nLeft, nBottom, nRight, cBtnTitle, nItem, lCancel, cCapCan )

En ese caso, MsgList() devuelve cero al salir cancelando

Gracias Antonio.

Si se pulsa 'Cancelar' sí que devuelve '0', pero si se cierra ...

Carlos,

Prueba a proporcionar .T. en el parámetro lCancel:

function MsgList( aData, cTitle, nTop, nLeft, nBottom, nRight, cBtnTitle, nItem, lCancel, cCapCan )

En ese caso, MsgList() devuelve cero al salir cancelando

... MESSAGE "Etnia del sujeto"

the startposition oD02:ETNIAS cannot be 0

in case You have a startposition of 0 and values like

0, 1, 2, 3, 4

nItem := oD02:ETNIAS + 1
REDEFINE RADIO aGets01[011] VAR nItem ID 115,116,117,118,119 OF oFld:aDialogs[01] UPDATE;
MESSAGE "Etnia del sujeto ;
ON CHANGE ...

... oPanel1:AddLink("Config Impresion",bclick, )

activate.... oExBar:CloseAll(0)

method:
METHOD CloseAll( nOpen ) CLASS TExplorerBar

local nPanel, nItem

*DEFAULT nOpen := 1

for nPanel := nOpen + 1 to Len( ::aPanels )
with object ::aPanels[ nPanel ]
:lCollapsed = .T.
:nTopMargin = 1
:nLeftMargin ...