Xailer & OZ Software

xhermita

Yo no quiero meter cizalla, pero esto es windows 11

: Treeview W11.png (24.4 KiB) Visto 11180 veces

xhermita

Estoy probando con el Samples Cards1;

Asigno a la propiedad oCursor de un TCardItem el valor IDC_HAND y en tiempo de ejecución no cambia el cursor al pasar por encima del item.

He comprobado si el asistente del IDE lo estaba creando bien y parece que sí.

WITH OBJECT TCardItem():New( ::oCardBox1 ...

xhermita

Estimados usuarios,

El día 18 de noviembre en Tres Cantos (Madrid) se va a realizar una presentación de Néfele (https://nefele.dev) por su grupo de desarrollo; algunos usuarios nos contarán como están aprovechando las posibilidades de Néfele para complementar sus aplicaciones de escritorio, el ...

xhermita

Hora Rene;

En este hilo publico Bingen los que hemos estado usando desde hace unos años, incluso la hemos utilizado con cámaras IP con una utilidad que las instalaba como webcam.

https://forum.xailer.com/viewtopic.php?p=54768&hilit=webcam#p54768

Se que con algunas cámaras, sobre todo las ...

xhermita

Código probado ...

No funciona.

xhermita

Pues algo pasa, porque en las pruebas que hicimos Israel y yo lo que nos llegaba era el cText.

Volveremos a revisar las pruebas.

xhermita

No he conseguido información sobre la clase THtmlDocument, por las pruebas que hice con tu código parece que no funciona del todo bien. Así que lo he preparado con un poco de código.
Se que el uso que hago del TAsyncDownload no es muy ortodoxo, pero funciona. :D

Function ...

xhermita

El valor de xValue que nos llega a SetValue es el cText del DTDBComboBoxMod por lo que no podemos buscarlo en ::aItemsbound.

ELSEIF ValType( xValue ) == "C"
nAt := Ascan( ::aItems, Trim( xValue ) )
ELSE

Pero al llamar a Super:SetValue si le tenemos que dar el valor en ::aItemsbound ...

xhermita

He estado comprobando lo que comenta Bingen y el problema que he visto es que los controles Modernos (he probado con el tButtonMod, tCheckBoxMod y tRadioMod) al hacer click sobre ellos no reciben el foco, por lo que el control que tiene el foco en ese momento no lo pierde y lógicamente no se ejecuta ...

xhermita

Yo utilizo esta funcíón para construir la cadena de conexión con TAdoDataSource

FUNCTION ConnectStr(cHost, cUser, cPass, cDataBase)
LOCAL cConnect := ""
DEFAULT cHost TO ""
DEFAULT cUser TO ""
DEFAULT cPass TO ""
DEFAULT cDataBase TO ""

IF !Empty(cHost) .AND. !Empty(cUser) .AND. !Empty ...

xhermita

Sigo adaptándome al TBrowseMod y me he dado cuenta de un curioso efecto que me ocurre algunas veces si hacemos doble clic en una celda editable ...

https://sincarta.es/XailerForo/browsemod003.png

.. aparece el control de edición en la última fila que estuviera seleccionada, pero se selecciona la ...

xhermita

Lo he probado con el samples ArrayBrowse de la carpeta Modern\Browses, le adjunto el zip.

Si habilitamos la propiedad lShowCellSelected a .T. al salir de la edición de la celda se produce el error, en caso de que este a .F. no pasa

xhermita

Sigo "peleandome" con TBrowseMod :D

No conseguía que al ponerse en edición una celda el contenido apareciera seleccionado.
https://sincarta.es/XailerForo/browsemod001.png

Me repase los samples y si lo hacía, así que me puse a ver qué diferencia tenía entre mi browse y el del sample y encontré ...

xhermita

Perfecto, ya tengo SupraHeader.
Imagen

xhermita

Estoy intentado utilizar las SupraHeader en un browser tBrowseMod;

Segun la ayuda he de utilizar :AddSupraCol y tener en cuenta de cumplir la condición indicada en la ayuda.
Es importante llamar a este método antes de que se muestre el Browse

El tema es que no acabo de entender en evento he de ...

xhermita

Me he fijado que ambos controles no tienen la propiedad nOpacity, no aparece en el inspector de objetos ni se pueden asignar por código.
He sobrecargado ambas clases para que tengan dicha propiedad, ahora ya se pude asignar nOpacity por código y presenta el fondo con transparencia correctamente.

xhermita

Era un comportamiento erroneo de la clase TAppData, que permitia duplicidad de propiedades, se corrigio en la version 6.1.0

Yo utilizo una sobrecarga de la clase TAppData que me paso Bingen para evitarme ese error y en vez de utilizar AddData, utilizo PutData.

//Nuevos métodos de la clase AppData ...

xhermita

Si te fijas en el samples del TTreeViewMod antes de empezar a añadir items llaman al metodo :BeginPaint() del TTreeViewMod y al finalizar al metodo :EndPaint() que es justo lo que dice el mensaje.

Supongo que es para evitar el repintado del control mientras lo alimentas de items, una vez terminano ...

xhermita

Por más que busco no veo propiedades para indicar el color del Pane y de Text de elemento seleccionado, siempre sale en azul y el texto en negro.

Para el Hot tenemos

nClrDropHotPane

nClrDropHotText

y para el fondo

nClrDropPane

nClrDropText

xhermita

Compruebo que está documentado el método GetItemAtPos().

Efectivamente esta documentado y funciona muy bien, me habia liado con GetItemByID().

xhermita

Estoy trasteando con TCardBoxItem con ntype a ctPICTURE y veo que siempre pinta la imagen con transparencia, habria posibilidad de tener una propiedad para seleccionar si tiene transparencia o no la imagen, por ahora lo he solventado haciendo yo el pintado en OnCardPaint.

Aquí se ve como quedan con ...

xhermita

Estoy empezando a probar el nuevo control TTreeViewMod y me encuentro con un par de detalles.

1º Al hacer el primer AddItem me aparece este mensaje en la consola del debug
Due performance issues is highly recommended to encapsulate the creation of items on a BeginPaint() & EndPaint() structure ...

xhermita

Yo uso mucho la exportacion BIFFEXPORT y he localizado estas propiedades mediante prueba y error

// Parametros para las propiedades del documento
Title
Company
Author
FileName
DefaultPath

// Paginado
SingleSheet (.T./.F.)
// Si es .T. crea una sola página de excel con todo el informe
// Si es .F ...

xhermita

Hola,

Se han modificado los eventos OnClick y OnDblClick para que reciban los siguientes parámetros:

EVENT OnClick( oSender, nKeys, nRow, nCol )
EVENT OnDblClick( oSender, nKeys, nRow, nCol )

nRow se corresponde con el número de fila seleccionada
nCol se corresponde con el número de columna ...

xhermita

Buenas tardes;

Estoy probando los TEditMod para reemplazar los TEditBtn que utilizo actualmente y me he encontrado con un par de detalles.

1º - Me obliga a utilizar imagenes de 16 pixel por lo que quedan poco vistosos

2º - En el IDE se ve hasta bien.
https://i.postimg.cc/N0DPBdJ6/image.png ...

Se encontraron 177 coincidencias

Re: Probando TTreeViewMod

Propiedad oCursos en TCardItem

Próxima reunión usuarios XBase - Tres Cantos 2023

Re: WebCam con AviCap32.DLL

Re: DBComboboxMod error al usar dtBOUND

Re: DBComboboxMod error al usar dtBOUND

Re: Guardar datos de un documento HTML

Re: DBComboboxMod error al usar dtBOUND

Re: Error en OnExit de TDBDateEditMod

Re: Conectar SQL Server

Re: TBrowseMod lShowCellSelected

Re: TBrowseMod lShowCellSelected

TBrowseMod lShowCellSelected

Re: tBrowseMod con SupraHeader

tBrowseMod con SupraHeader

nOpacity en tCheckboxMod y tRadioMod

Re: Problema con appdata

Re: Mensaje en TreeViewMod

Re: TComboBoxMod

Re: Probando TTreeViewMod

Propuesta para TCardBoxItem

Probando TTreeViewMod

Re: Propiedades para el objeto BIFFEXPORT

Re: Avanzando con TBrowseMod

TEditMod con nStyle a esUSER