Search found 91 matches

by FranciscoA
Mon Nov 25, 2024 8:06 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Felicidades a Antonio Linares.
Replies: 25
Views: 3427

Re: Felicidades a Antonio Linares.

Que cumplas muchos mas. Felicidades.
by FranciscoA
Sat Sep 21, 2024 6:16 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Xbrowse con BACKGROUND y Color de Celdas
Replies: 0
Views: 440

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 ...
by FranciscoA
Sat Aug 31, 2024 5:22 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Ejecutar Funcion Combinando tres Teclas
Replies: 3
Views: 769

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(),)
by FranciscoA
Wed Aug 14, 2024 3:47 pm
Forum: FiveWin for Harbour/xHarbour
Topic: DBF format still in use???
Replies: 23
Views: 5381

Re: DBF format still in use???

+1
by FranciscoA
Wed Aug 14, 2024 3:45 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Ribbon Bar y WHEN
Replies: 11
Views: 2035

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 ...
by FranciscoA
Tue Aug 13, 2024 6:06 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Ribbon Bar y WHEN
Replies: 11
Views: 2035

Re: Ribbon Bar y WHEN

Gracias, Joao.
by FranciscoA
Tue Aug 13, 2024 5:13 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Ribbon Bar y WHEN
Replies: 11
Views: 2035

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 ...
by FranciscoA
Tue Aug 13, 2024 4:07 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Ribbon Bar y WHEN
Replies: 11
Views: 2035

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.
by FranciscoA
Tue Aug 13, 2024 4:05 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Ribbon Bar y WHEN
Replies: 11
Views: 2035

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 ...
by FranciscoA
Tue Aug 13, 2024 1:48 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Ribbon Bar y WHEN
Replies: 11
Views: 2035

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.
by FranciscoA
Mon Aug 12, 2024 11:48 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Ribbon Bar y WHEN
Replies: 11
Views: 2035

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é ...
by FranciscoA
Thu Aug 01, 2024 6:27 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Otra pregunta sobre TREPORT (SOLUCIONADO) gracias equipo
Replies: 14
Views: 2787

Re: Otra pregunta sobre TREPORT

Por esto se hace imprescindible saber de qué grupo es el ENGROUP.
Como dice Antonio Linares, para conocer el numero de grupo:

Code: Select all | Expand

Function MyFunction(oReport,oGpo)
 oGpo:nOrder ?
by FranciscoA
Wed Jul 31, 2024 9:28 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Otra pregunta sobre TREPORT (SOLUCIONADO) gracias equipo
Replies: 14
Views: 2787

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 ...
by FranciscoA
Wed Jul 31, 2024 7:14 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Otra pregunta sobre TREPORT (SOLUCIONADO) gracias equipo
Replies: 14
Views: 2787

Re: Otra pregunta sobre TREPORT

Armando, lo solucionaste?