Search found 91 matches
- Mon Nov 25, 2024 8:06 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Felicidades a Antonio Linares.
- Replies: 25
- Views: 3396
Re: Felicidades a Antonio Linares.
Que cumplas muchos mas. Felicidades.
- Sat Sep 21, 2024 6:16 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Xbrowse con BACKGROUND y Color de Celdas
- Replies: 0
- Views: 432
Xbrowse con BACKGROUND y Color de Celdas
Se puede?
Tengo el siguiente codigo, que si omito el BACKGROUND del XBrowse funciona OK, de lo contrario no colorea fondo de las Celdas:
#include "fivewin.ch"
#include "xbrowse.ch"
STATIC aMe, aRu
//--------------------------------------------//
FUNCTION Main() //ColorDeCeldas()
local n, oDlg ...
Tengo el siguiente codigo, que si omito el BACKGROUND del XBrowse funciona OK, de lo contrario no colorea fondo de las Celdas:
#include "fivewin.ch"
#include "xbrowse.ch"
STATIC aMe, aRu
//--------------------------------------------//
FUNCTION Main() //ColorDeCeldas()
local n, oDlg ...
- Sat Aug 31, 2024 5:22 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Ejecutar Funcion Combinando tres Teclas
- Replies: 3
- Views: 767
Re: Ejecutar Funcion Combinando tres Teclas
José, mira si te sirve de guía.
Code: Select all | Expand
if(GetKeyState(VK_CONTROL) .AND. GetKeyState(VK_SHIFT) .AND. GetKeyState(VK_TAB), TuFunc(),)
- Wed Aug 14, 2024 3:47 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: DBF format still in use???
- Replies: 23
- Views: 5369
- Wed Aug 14, 2024 3:45 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Ribbon Bar y WHEN
- Replies: 11
- Views: 2033
Re: Ribbon Bar y WHEN
De esta manera me funciona para FWH1709:
#include "fivewin.ch"
#include "ribbon.ch"
static oWnd
static lTodos := .f.
//-----------------------------------------------//
Function Main()
local oRBar, oFont1, oFont2, oSay
local oBt1,oBt2,oBt3,oBt4,oBt5,oBt6,oBt7,oBt8
local oGr1,oGr2,oGr4,oGr5
local ...
#include "fivewin.ch"
#include "ribbon.ch"
static oWnd
static lTodos := .f.
//-----------------------------------------------//
Function Main()
local oRBar, oFont1, oFont2, oSay
local oBt1,oBt2,oBt3,oBt4,oBt5,oBt6,oBt7,oBt8
local oGr1,oGr2,oGr4,oGr5
local ...
- Tue Aug 13, 2024 6:06 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Ribbon Bar y WHEN
- Replies: 11
- Views: 2033
Re: Ribbon Bar y WHEN
Gracias, Joao.
- Tue Aug 13, 2024 5:13 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Ribbon Bar y WHEN
- Replies: 11
- Views: 2033
Re: Ribbon Bar y WHEN
Gracias, Antonio. Aqui está:
#include "fivewin.ch"
#include "ribbon.ch"
static oWnd
static lTodos := .f.
//-----------------------------------------------//
Function Main()
local oRBar, oFont1, oFont2, oSay
local oBt1,oBt2,oBt3,oBt4,oBt5,oBt6,oBt7,oBt8
local oGr1,oGr2,oGr4,oGr5
local cBmps := "c ...
#include "fivewin.ch"
#include "ribbon.ch"
static oWnd
static lTodos := .f.
//-----------------------------------------------//
Function Main()
local oRBar, oFont1, oFont2, oSay
local oBt1,oBt2,oBt3,oBt4,oBt5,oBt6,oBt7,oBt8
local oGr1,oGr2,oGr4,oGr5
local cBmps := "c ...
- Tue Aug 13, 2024 4:07 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Ribbon Bar y WHEN
- Replies: 11
- Views: 2033
Re: Ribbon Bar y WHEN
Joao, efectivamente así lo he dejado. Lástima que queda un pequeño fondo blanco, apenas visible.
@08, 060 ADD BUTTON PROMPT "From" SIZE 40, 18 OF oGroup SAYBUTTON TRANSPARENT
Saludos, y gracias.
@08, 060 ADD BUTTON PROMPT "From" SIZE 40, 18 OF oGroup SAYBUTTON TRANSPARENT
Saludos, y gracias.
- Tue Aug 13, 2024 4:05 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Ribbon Bar y WHEN
- Replies: 11
- Views: 2033
Re: Ribbon Bar y WHEN
Francisco, con la version 24.
Lo voy a probar con una anterior y te comento
Editado
Si, efectivamente con versiones anteriores no funciona poner disable los botones, si la transparencia que te pase
César, gracias por confirmarlo.
Editado:
Con lo de los botones no me ha quedado mas remedio que ...
Lo voy a probar con una anterior y te comento
Editado
Si, efectivamente con versiones anteriores no funciona poner disable los botones, si la transparencia que te pase
César, gracias por confirmarlo.
Editado:
Con lo de los botones no me ha quedado mas remedio que ...
- Tue Aug 13, 2024 1:48 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Ribbon Bar y WHEN
- Replies: 11
- Views: 2033
Re: Ribbon Bar y WHEN
César, gracias por responder.
Continúa igual. Estoy pensando que es cuestión de versiones. ¿Con cual versión lo probaste?
Saludos.
Continúa igual. Estoy pensando que es cuestión de versiones. ¿Con cual versión lo probaste?
Saludos.
- Mon Aug 12, 2024 11:48 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Ribbon Bar y WHEN
- Replies: 11
- Views: 2033
Ribbon Bar y WHEN
Saludos, amigos.
Que hago mal en el siguiente codigo? Me explico:
1- Cómo poner texto transparente en la Ribbon Bar?
2- Cómo deshabilitar los botones del Grupo 2 (oGr2) , con el boton oBt3?. Si nos fijamos, los botones 1 y 2 del oGr1 se deshabilitan-habilitan correctamente, no asi los del oGr2. Qué ...
Que hago mal en el siguiente codigo? Me explico:
1- Cómo poner texto transparente en la Ribbon Bar?
2- Cómo deshabilitar los botones del Grupo 2 (oGr2) , con el boton oBt3?. Si nos fijamos, los botones 1 y 2 del oGr1 se deshabilitan-habilitan correctamente, no asi los del oGr2. Qué ...
- Sat Aug 03, 2024 12:10 am
- Forum: FiveWin para Harbour/xHarbour
- Topic: Otra pregunta sobre TREPORT (SOLUCIONADO) gracias equipo
- Replies: 14
- Views: 2781
- Thu Aug 01, 2024 6:27 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Otra pregunta sobre TREPORT (SOLUCIONADO) gracias equipo
- Replies: 14
- Views: 2781
Re: Otra pregunta sobre TREPORT
Como dice Antonio Linares, para conocer el numero de grupo:Por esto se hace imprescindible saber de qué grupo es el ENGROUP.
Code: Select all | Expand
Function MyFunction(oReport,oGpo)
oGpo:nOrder ?
- Wed Jul 31, 2024 9:28 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Otra pregunta sobre TREPORT (SOLUCIONADO) gracias equipo
- Replies: 14
- Views: 2781
Re: Otra pregunta sobre TREPORT
Armando.
Intenta adaptando el siguiente codigo. Con este puedes poner el footer de grupo en cualquiera de las columnas del oReport.
Es para un grupo nada mas.
GROUP ON FIELD->ESTADO ;
HEADER if(Empty(oReport:aGroups[1]:cValue),"NO CONECTADOS", "CONECTADOS") ;
FOOTER GroupFooter(oReport,2 ...
Intenta adaptando el siguiente codigo. Con este puedes poner el footer de grupo en cualquiera de las columnas del oReport.
Es para un grupo nada mas.
GROUP ON FIELD->ESTADO ;
HEADER if(Empty(oReport:aGroups[1]:cValue),"NO CONECTADOS", "CONECTADOS") ;
FOOTER GroupFooter(oReport,2 ...
- Wed Jul 31, 2024 7:14 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Otra pregunta sobre TREPORT (SOLUCIONADO) gracias equipo
- Replies: 14
- Views: 2781
Re: Otra pregunta sobre TREPORT
Armando, lo solucionaste?