SkinButtons() y COMBOBOX se odian
usando la funcion SkinButtons() desaparecen los botones
solo se muestran cuando pasamos el raton por encima
les comparto un ejemplo para reproducir la cucaracha,
compilado con FWH24.07/HARBOUR
Code: Select all | Expand
#include <fivewin.ch>
//15-02-2025
//testcbx.prg
// EJEMPLO QUE REPRODUCE UN BUG FWH24.07+HARBOUR
// COMPILAR EN SAMPLES CON: BUILDH testcbx
FUNCTION Main()
LOCAL cUser := space(10)
LOCAL cName := space(50)
LOCAL cEmpresa := "SysCtrl"
LOCAL oDlg,oGet1,oGet2, oCbx, oBtn1, oBtn2
LOCAL oBrush
LOCAL lVal := .f.
LOCAL oFont
DEFINE BRUSH oBrush COLOR nRGB( 255, 255, 255 )
DEFINE FONT oFont NAME "Tahoma" SIZE 0, -12 BOLD
DEFINE DIALOG oDlg SIZE 610, 330 brush oBrush
oDlg:lTransparent := .t.
oDlg:cTitle := "FiveWin Harbour 24.07"
@ 10, 10 SAY "* Code user: " OF oDlg pixel
@ 10, 90 GET oGet1 VAR cUser OF oDlg SIZE 60, 12 PICTURE "@!k" PIXEL
@ 25, 10 SAY "* Name user: " OF oDlg pixel
@ 25, 90 GET oGet2 VAR cName OF oDlg SIZE 60, 12 PICTURE "@!k" PIXEL
@ 60, 10 SAY "* SELECCIONE UNA EMBRESA :" OF oDlg ;
SIZE 100, 12 PIXEL FONT oFont COLOR CLR_BLUE
@ 60, 120 COMBOBOX oCbx VAR cEmpresa SIZE 180,150 PIXEL OF oDlg UPDATE ;
ITEMS {"Fivetech", "SysCtrl", "Otro"} ;
COLOR "W+/BG" ;
ON CHANGE MsgBeep() ;
MESSAGE "Selecciona una empresa"
@ 130, 70 BUTTON oBtn1 PROMPT "Aceptar" SIZE 40, 12 OF oDlg ;
ACTION ( lVal := .t. , oDlg:end() ) PIXEL
@ 130, 120 BUTTON oBtn2 PROMPT "Cancelar" SIZE 40, 12 OF oDlg ;
ACTION ( lVal := .f. , oDlg:end() ) CANCEL PIXEL
oDlg:lhelpicon := .F.
ACTIVATE DIALOG oDlg CENTERED
RETURN (.T.)
INIT PROCEDURE Setup()
SkinButtons()
RETURN NIL
