FiveTech Software tech support forums

Sorry, it's hard to choose from the context. here is such window procedure Plg_Dlg local oBrh private oPlg DEFINE BRUSH oBru DEFINE DIALOG oPlg PIXEL STYLE nOR(WS_POPUP) BRUSH oBru TRANSPARENT ACTIVATE DIALOG oPlg return I draw on it oPlg:Line() oPlg:PolyPolygon(GetDc(oPlg:hWnd),..) ...

... anteriores #include "FiveWin.ch" //----------------------------------------------------------------------------// function Main() local oBru, oDlg, oBtn DEFINE BRUSH oBru FILENAME "../bitmaps/Backgrnd/beach.bmp" DEFINE DIALOG oDlg SIZE 400, 200 BRUSH oBru TRANSPARENT @ 2, 2 ...

... SIZE 0,-16 BOLD // Establece los sets de la forma de trabajo. set DATE ITALIAN set EPOCH TO 2000 set SCOREBOARD OFF set WRAP ON DEFINE BRUSH oBru COLOR rgb(0,0,135) //Fondo de color DEFINE WINDOW oWnd TITLE 'Calculadora' BRUSH oBru MENU MenuPpal() //ICON oIco set MESSAGE OF oWnd TO 'Calculadora: ...

... Static MainWnd //----------------------------------------------------------------------------// Function MAIN() Local oBar LOCAL oCursorMano LOCAL oBru SetHandleCount(225) SET DATE TO ITALIAN SET RESOURCES TO 'GeroGest.DLL' REQUEST HB_Lang_ES HB_LANGSELECT ('ES') DEFINE ICON oIco RESOURCE "PEOPLE" ...

... := yLOGIN cSAY2 := "You now have a choice to Add yourself as a" cSAY3 := "Project Manager or enter the program Read Only?" nOK := 0 DEFINE BRUSH oBru FILENAME ( cDEFA+"\PMO.BMP" ) DEFINE DIALOG oDLG1 ; TITLE "WELCOME" ; SIZE 700, 400 BRUSH oBRU TRANSPARENT @ 0, 2 SAY cWELCOME OF oDlg1 COLOR "W+/W" ...

Hi mmercado : I have problem about ver6.2 . if I define some Button Disable , Other Button will ALWAYS FRESH . Is it BUG ? please Try SOURCE , oBtm2 always fresh: LOCAL lWHEN:=.F. REDEFINE SBUTTON oBTM1 ID 32 OF oDlg ; WHEN lWHEN ; BRUSH oBRU_COLOR[T_COLOR_WOOD] ; LOOK W97 ; TEXT POSITION ON_RIGHT ;...

Wilson,

Estás haciendo el degradado usando un brush ? Hazlo con un brush

DEFINE BRUSH oBru FILENAME "degradado.bmp"

DEFINE DIALOG oDlg SIZE 400, 200 BRUSH oBru TRANSPARENT

... te lo comento quizas tenga una solucion... Si se usa asi funcionan muy bien la transparencia:: #include "FiveWin.ch" function Main() local oBru, oDlg, oBtn DEFINE BRUSH oBru FILENAME "Brush\MiBrush2.bmp" DEFINE DIALOG oDlg RESOURCE 2 BRUSH oBru TRANSPARENT @ 70, 80 BTNBMP oBtn FILENAME ...

... hago asi: Static _Amnp,_Asmn *********************************************************** Function Main If Check_clav() Get_opc_men() Define Brush oBru Style Bricks Define Font oFon Name 'Arial' Weight -8 Define Window oWind Title 'Sistema De Planillas' ; Brush oBru Menu Menu1(oWind) Set Message ...

... muchas gracias. Saludos, Miguel El archivo BMP, se llama FONDO.BMP Defino de esta forma: DEFINE WINDOW oWnd TITLE 'Sistema Inmobiliaria' BRUSH oBru Menu Menu() MDI ICON oIco ; COLOR Rgb( 130, 130, 130 ), Rgb( 130, 130, 130 ) :: :: :: oWnd:bResized := {|| Inilogo() } ACTIVATE WINDOW oWnd MAXIMIZED; ...

... * FUNCTION main * ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ * LOCAL obru define brush obru style bricks define window ownd TITLE "tutor01_00" brush obru MENU g_menu() SET MESSAGE of ownd TO "tutorial" clock DATE KEYBOARD ...