FiveTech Software tech support forums

... display and changed from : //REDEFINE IMAGE oImage1 ID 110 OF oDlg RESOURCE "Light" //oImage1:lTransparent := .T. To : REDEFINE BTNBMP oBtn1 OF oDlg ; ID 110 PIXEL ; NOBORDER ; RESOURCE "Light" ; CENTER oBtn1:lTransparent := .t. oBtn1:cToolTip = { "Resource" + CRLF ...

Hola, gracias.

No funcionó de esa forma, pero lo hace asi oBtn1:bClrText:= {|| CLR_WHITE }

Muchas gracias.

Saludos.

... cResName1, cResName2, cBmpFile1, cBmpFile2,; cResName3, cBmpFile3, cResName4, cBmpFile4 ) Loads Exit1.png as visible from file ( 3. position ) oBtn1:LoadBitmaps( , , ".\bitmaps\Exit1.png" ) @ 100, 100 BTNBMP oBtn1 OF oFld:aDialogs[ 1 ] ;SIZE 100, 50 PIXEL 2007 ;ROUND NOBORDER ...

... *! *! *!***************************************************************************** FUNCTION main() *---------------------- LOCAL odbf,oget,odlg,obtn1,obtn2,obtn3,obtn4,; obrw,midos,; ret_val := .F.,; oget1,oget2 LOCAL oClient1 LOCAL oMenu23, oBrushM1 LOCAL company:="MAKRIS" HB_LangSelect( ...

... ; ALIAS "Empresa" ; ITEMFIELD "Codigo_Fem" ; LISTFIELD "Nombre_Fem" ; ON CHANGE Select_Emp(cDesc_Emp, oDesc_Emp, oBtn1); VALID Get_Emp(cDesc_Emp, oDesc_Emp)

Adolfo, the sample : oBtn1:SetFile( ..\bitmaps\Info.Bmp", ..\bitmaps\Info.Bmp" ) // can be different oBtn2:SetFile( ..\bitmaps\Info.Bmp", ..\bitmaps\Info.Bmp" ) Original Bmp's changed to Info.bmp Button 1 changes ...

Marco,

do You mean a GRADIENT painted horizontal or vertical ?

oBtn1:bClrGrad = { | lMouseOver | If( ! lMouseOver,;
{ { 0.50, 11513775, 16777215 }, ;
{ 0.50, 16777215, 11513775 } }, ;
{ { 0.50, 16761992, 16777215 }, ;
{ 0.50, 16777215, 16761992 } } ) }

best regards
Uwe

... #include "ribbon.ch" static ownd, owndlayout /***************************************/ function Main() /* */ local oGrupo, oBtn1, oRibbon local oBtn2, oBtn3, oBtn4 SetBalloon( .T. ) DEFINE WINDOW oWnd FROM 1, 1 To 22, 75 ; TITLE "This is a MDI enviroment" MDI DEFINE ...

... en una ventana minimizada de DOS Este codigo abre putty.exe pero despues necesito que se miniminize la ventana DOS en la que se abre. @ 0,7 BUTTON oBtn1 PROMPT "CONECTAR" OF oDlg SIZE 50, 12 ACTION winexec("putty misitio.com -load ramsesiden -l root -pw mipsww -ssh",1) Saludos ...

... valid {||validaDatos(cDato2)} @ 3,2 say 'Dato 3' of oDlg @ 3,20 get cDato3 picture '@!' valid {||validaDatos(cDato3)} @ nAncho,nCentro-nJ BUTTON oBtn1 PROMPT ' &Aceptar' OF oDlg SIZE 38, 14 ; ACTION AfectaDbf(.t.) @ nAncho,nCentro+8 BUTTON oBtn2 PROMPT ' &Cancelar' OF oDlg SIZE 38, 14 ...

... valid {||validaDatos(cDato2)} @ 3,2 say 'Dato 3' of oDlg @ 3,20 get cDato3 picture '@!' valid {||validaDatos(cDato3)} @ nAncho,nCentro-nJ BUTTON oBtn1 PROMPT ' &Aceptar' OF oDlg SIZE 38, 14 ; ACTION AfectaDbf(.t.) @ nAncho,nCentro+8 BUTTON oBtn2 PROMPT ' &Cancelar' OF oDlg SIZE 38, 14 ...

... @ 66, 315 GET oGetName VAR cUserName SIZE 300, 40 OF oDlg @ 124, 315 GET oGetPass VAR cPassword SIZE 300, 40 OF oDlg PASSWORD @ 265, 189 BUTTON oBtn1 PROMPT "Ok" SIZE 110, 40 OF oDlg ; ACTION document.location = "login.exe?MYFUNC:" + ; document.getElementById( "oGetName" ...

Antonio

El comando BUTTON Requiere esta definición

@ 265, 189 BUTTON oBtn1 PROMPT "Ok"

... el comando button requiere @ x,y BUTTON oBtn PROMPT "Texto" #include "FiveWeb.ch" function Main() local oDlg, oImg, oBtn1,oBtn2 local oGetName, cUserName := Space( 30 ) local oGetPass, cPassword := "" DEFINE DIALOG oDlg TITLE "FiveWeb Login" SIZE ...

... GET_KEYS(ALLTRIM(cGet1)), oSay[4]:Refresh() ), NIL ) } oGet1:bGotFocus := {|| cGet1 := SPACE(10), aTable := {}, oGet1:Refresh() } @ 30, 300 BTNBMP oBtn1 OF oFld:aDialogs[ 2 ] ; SIZE 28, 40 PIXEL; NOBORDER ; PROMPT "&Show" ; ACTION ( nKey1 := GET_KEYS(ALLTRIM(cGet1)), oSay[4]:Refresh() ...