FiveTech Software tech support forums

que bueno que fue lo que necesitabas,

coloca un oFol:Refresh() al final, eso se me olvidó mencionarlo.

funciona perfecto.

saludos

... puedo hacer que me centralice el texto en un botón.... me deja un espacio en la parte superior... gracias @ 110,320 BTNBMP oRECEP ; SIZE 40,25 Of oFol:aDialogs[2] ; PROMPT 'Control de' + CRLF + 'Recepcion' 2007 ; //TexIdio[19] 2007 ; //'Control de RECEPCION' tooltip 'Control de Recepcion' ; ACTION ...

... 0 #define BOTTOMSCOPE 1 @ 0.875,1 XBROWSE oBrwGRU ; FIELDS (EMPLEGRU)->EM_NOMB , ; HEADERS 'Nombre' ; SIZES 200 ; SIZE 200 ; ALIAS EMPLEGRU OF oFol:aDialogs[3] oBrwGRU:nRowDividerStyle = LINESTYLE_NOLINES oBrwGRU:nColDividerStyle = LINESTYLE_BLACK oBrwGRU:nMarqueeStyle = MARQSTYLE_HIGHLROW ...

Que tal a todos,
Alguien me podria ayudar.
Estoy poniendo los folders del lado izq, pero los textos siguen en horizontal
como ponerlos en vertical.

Saludos.

Al init del dialog oFol:SetLayOut( 2 )

... ACTIVATE DIALOG oDlg CENTER ON INIT (lNew:=.f.,oDlg:aEvalWhen(),oRad:SetOption(2),CliAlta(dCli,lAlt,oBrw), ; IIF((dCli)->(EOF()),EVAL(bCliVer),(oFol:SetOption(1),oFol:aEnable:={.t.,.f.,.f.,.f.,.f.},oBrw:SetFocus()))) ; VALID (NoEscape() .AND. CierraCli(dCli,dAge,dBco,dGpo,dFpg,oBrw)) ; NOWAIT ...

Amigos

Porque puede ser que se me borre el detalle de un CHECKBOX cuando lo selecciono

@ 1, 2 CHECKBOX oChkSTAD var mSTAD OF oFol:aDialogs[6] size 100,10 PROMPT 'Estandar'

Gracias

David

... quero poner dos textos con PIXEL uno debajo del otro y lo hago en la Window tengo que poner @ 10, 80 SAY odlg01 VAR "Tipo Cotización" OF oFol:aDialogs[1] PIXEL COLOR escri10, fondo10 SIZE 120,18 @ 30, 80 SAY odlg02 VAR "Periodo" OF oFol:aDialogs[1] PIXEL COLOR escri10, fondo10 ...

... Como vereis, las pestañas ni cogen el color del folder, ni pintan el bitmap. El codigo es el siguiente: ************************** Redefine Folder oFol Id 47 Of oDlg; Prompts "&General", "&Banco", "&Albaranes", "&Facturas","A&lmacenes"; Dialogs "CLI1", "CLI2", "CLI5", "CLI7", ...

Peter,

ofol:bChange := {|| if(ofol:nOption=2,OpenFol2(oFol,@nVar),)}

Dear all, *-----------------------* function Main() local odlg,ofol,oget,obtn local cVar := space(5),lsave := .f. local nVar := 0 open file xx define dialog... @ 5,5 folder ofol .... ofol:bChange := {|| if(ofol:nOption=2,OpenFol2(oFol, nVar ),)} @ 5,5 Get ...

... con el texto.- He probado el siguiente código en una aplicación y funciona: @ 53, 39 CHECKBOX oChk2 VAR oDbf:PER_FEC ; PROMPT " " SIZE 10,8 ; OF oFol:aDialogs[1] PIXEL @ 53, 50 SAY oSay[3] PROMPT "Concepto en meses"OF oFol:aDialogs[1] PIXEL oChk2:disable() Me imagino que habrá soluciones mejores. ...

... con el texto.- He probado el siguiente código en una aplicación y funciona: @ 53, 39 CHECKBOX oChk2 VAR oDbf:PER_FEC ; PROMPT " " SIZE 10,8 ; OF oFol:aDialogs[1] PIXEL @ 53, 50 SAY oSay[3] PROMPT "Concepto en meses"OF oFol:aDialogs[1] PIXEL oChk2:disable() Me imagino que habrá soluciones mejores.

Manuel,

Desde la claúsula ON INIT de tu diálogo principal haz esto:

FixSays( oFol:aDialogs[1]:hWnd )

En un folder tengo: @ 87,180 SAY oSay18 VAR oDbf:TOTAL OF oFol:aDialogs[1] ; PICTURE (cPic9) UPDATE ; PIXEL SIZE 50,10 COLORS AZUL, AMARILLO RIGHT BORDER En apariencia "Windows clásico" funciona perfectamente. Aparece un cuadro con fondo amarillo y el ...

... o seguinte: local lBotao:=.f. REDEFINE VGET oGetCodCli VAR CLIENCOD2 ID 4003 PICTURE IF(CADPARAM->FLAG_CGC_C,"999999999999","99999") OF oFol:aDialogs[1] VALID ( SitBotao( @lBotao) .and. PESQCLIEN() ) Redefine BUTTONBMP oBtnSai ID 4029 of oDlg; BITMAP "SAIR"; ACTION (lBotao:=.t., lSair:=.t.,ENCERRADLG()) ...