... TTreeView local nItems := 0, bAction := { | oItem | nItems++, .F. } ::Scan( bAction )return nItems Ahora en la Clase TTVItem añadimos estos métodos: METHOD Len() INLINE Len( ::aItems ) y METHOD Count() CLASS TTVItem local oItem, nItems := 1 for each oItem in ::aItems ...
Añadimos algunos botones en la zona inferior del browse: mysql.prg #include "FiveTouch.ch"function Main() local oDlg := QDialog() local oLayout := QVBoxLayout() local oBrw := QTableView( ...
... tan grande, entonces la concatenación empieza a complicar el asunto. Piensa en esta situación: tenemos un cBuffer que tiene 59000 caracteres, y le añadimos una cadena de 10 caracteres ¿Que va a suceder cuando se ejecute ::cBuffer += cText? Harbour calcula el largo de la string resultante (59010), ...
...y si a la idea de Charly le añadimos que el objeto sea persistente la sabiduría del perceptron llegaría a límites insospechados. La persistencia se podrá conseguir con la serialización del objeto o en una simple DBF en la que se guardara ...
... @ 05, 18 GET oGet Var cName1 OF oDlg COLORS "B/BG" oGet:cToolTip := "hola" En definitiva, añadimos un ToolTip a ese objeto. La variable cName1, tiene una longitud de 13 caracteres ("ONE "), por tanto no debería permitir añadir mas ...
... está con el "skinbuttoms()" y trabajando en un dispositivo tactil, en el ejemplo que ha puesto Antonio, si al comienzo añadimos la función skinbuttoms(), pasa a comportarse de forma anómala, siempre que la pulsación del buttom se haga directamente con el dedo, no ocurre ...
... tu no tengas . Bien . Vamos a hacerlo de otra forma . Vamos a copiar el archivo tgdiplus.prg al directorio donde estés trabajando el ejemplo y lo añadimos al bat . Ahora al final del archivo añadimos la clase bitmap . CLASS GDIBmp DATA hBmp DATA aCLSID DATa aExtIni, aExtEnd METHOD ...
Tenemos un par de bugs. 1.- Si añadimos un nuevo elemento al reporte el treeview del panel no se refresca . // edito ---- ya esta solucionado para añadir y borrar falta cambio de nombre . 2.- no consigo cazarlo ... pero me da un error : ...
... interesar mantener ese comportamiento ( hasta ahora y a fecha de hoy muchos usuarios lo usan así ) , mantenemos compatibilidad con lo que existe y añadimos nueva función ... :D
... para mostrar el boton de forma independiente lo invoco desde On Init() . Al hacer click en el boton se activa la ayuda del API, para desactivarlo añadimos la función HelpIndex() retornando "Nil" ya que aqui es donde aparece el aviso de que no se encuentra la ayuda desde SetHelpFile(), ...