FiveTech Software tech support forums

Intenta asi:
local oSay1,oSay2,oSay3,oSay4
REDEFINE FOLDER oFld1 ID 210 OF oDlg ;
PROMPT "Empresa"

REDEFINE SAY oSay1 ID 500 OF oFld1
REDEFINE SAY oSay2 ID 501 OF oFld1
REDEFINE SAY oSay3 ID 502 OF oFld1
REDEFINE SAY oSay4 ID 503 OF oFld1

... NIL ; ID 110 PIXEL BORDER oIMG1:cTooltip := "Image 1l" oIMG1:bPainted := { |hDC| ( cSize1 := DRAW_IMG(oIMG1, hDC, cImage0, ; oSay2, oSay4, cSize1, cSize2 ), oSay1:Refresh(), oSay2:Refresh() ) } FUNCTION DRAW_IMG( oImage, hDC, cImage, oSay2, oSay4, cSize1 ) LOCAL oImg, aRect[4], nFactor1, ...

... 50%" ; FONT oTxtfont ; ACTION ( nCPos := INT(nSGet[3] * 0.5), oBrw2:SelectCol( Min( nCPos, Len( oBrw2:aCols ) ), .t. ), ; oBrw2:Refresh(), oSay4:Refresh(), nObject := 0, oSay6:Refresh() ) oBtn[15]:cTooltip := "Jump to Col ( 50% )" oBtn[15]:SetColor( 128 ) Forward : http://www.pflegeplus.com/pictures/xbrwpos3.jpg ...

... 32, 11 OF oDlg1 PIXEL 2007 ROUND ; PROMPT "C 50%" ; FONT oTxtfont ; ACTION ( nCPos := INT(nSGet[3] * 0.5), oBrw2:SelectCol(nCPos) , ; oSay4:Refresh(), oBrw2:Refresh() ) oBtn[15]:cTooltip := "Jump to Col ( 50% ) oBtn[15]:SetColor( 128 ) Jumping to a defined Row works fine oBrw:nArrayAt ...

y aqui el codigo fuente MEMVAR PATRES Function her020() local oSay, oSay1, oSay2, oSay3, oSay4, oSay5, oSay6, oSay7, oSay8 local oSay9, oSay10, oSay11 local oGet1, oGet2, oGet3, oGet4, oGet5, oGet6, oGet7, oGet8, oGet9, oGet LOCAL oFont9, oBtm, oBtm2, oFont10 LOCAL ...

... aTYPE4[1] := oFont13:cFacename, ; aTYPE4[2] := oFont13:nHeight, ; aTYPE4[3] := oFont13:lBold, ; aTYPE4[4] := oFont13:lItalic, ; oSay4:SetFont( oFont13 ), oSAY4:Refresh() ) REDEFINE SAY oSAY4 VAR e_FTYPE4 ID 830 FONT oFont13 OF oDlg5 the values aTYPE4[1] ..... aTYPE4[4], I write ...

... := TFont():New( aTYPE4[1], , aTYPE4[2], .f., ; aTYPE4[3], , , ,aTYPE4[4] ) // Set the 1 InfoBar Font // ----------------------------- REDEFINE SAY oSAY4 VAR e_FTYP4 ID 800 OF oDlg5 REDEFINE BUTTON oBtn7 ID 805 OF oDlg5 ; ACTION ( oSAY4:GetFont(), oSAY4:SelFont(), ; aTYPE4[1] := oSAY4:oFont:cFaceName, ...

... is saved in a INI-File Normaly i must do : DEFINE FONT oFont NAME "Arial" SIZE 21, 0 BOLD ITALIC The Action creates the Fontstring : ACTION ( oSAY4:GetFont(), oSAY4:SelFont(), ; e_FTYP4 := " NAME " + '"' + oSAY4:oFont:cFaceName + '"'+ ; " SIZE " + ALLTRIM(STR( oSAY4:oFont:nHeight ) ) + ; ", ...

... SE LO AGRADECERIA MUCHO. DE ANTEMANO MIL GRACIAS. AHI LES DEJO EL CODIGO FUENTE: memvar patres Function AVI000() local oSay, oSay1, oSay2, oSay3, oSay4, oSay5, oSay6, oSay7, oSay8 local oSay9, oSay10, oSay11, osay12, oSay13, oSay14, oSay15, oSay16 local oGet1, oGet2, oGet3, oGet4, oGet5, oGet6, ...

... te dejo mi fuente haber se lehayas , me da error de compilacion en el arreglo MEMVAR PATRES Function AVI000() local oSay, oSay1, oSay2, oSay3, oSay4, oSay5, oSay6, oSay7, oSay8 local oSay9, oSay10, oSay11, osay12, oSay13, oSay14, oSay15, oSay16, oSay17 local oGet1, oGet2, oGet3, oGet4, oGet5, ...

... te dejo mi fuente haber se lehayas , me da error de compilacion en el arreglo MEMVAR PATRES Function AVI000() local oSay, oSay1, oSay2, oSay3, oSay4, oSay5, oSay6, oSay7, oSay8 local oSay9, oSay10, oSay11, osay12, oSay13, oSay14, oSay15, oSay16, oSay17 local oGet1, oGet2, oGet3, oGet4, oGet5, ...

... STATIC oWnd //Ventana Principal STATIC oMenu //Menu de oWnd STATIC oDlg //Caja 1 STATIC oBar //Barra STATIC oFont // STATIC oSay1,oSay2,oSay3,oSay4,oSay5,oSay6,oSay7,oSay8,; oSay9,oSay10 FUNCTION MAIN() SET DATE TO BRITISH SET CENTURY ON SET EXCLUSIVE OFF IF !FILE("TARIFA.DBF") CREARDBF() ...

... "Password:" SIZE largo_say, ancho PIXEL OF oWnd @ oSay3:nTop, oSay3:nRight+1 GET pass SIZE largo_get,ancho PIXEL OF oWnd * ARCHIVO LOCAL: #DEFINE oSay4 oWnd:aControls[7] @ oSay3:nTop+separacion_entre_lineas, margen_derecho SAY "Archivo local:" SIZE largo_say, ancho PIXEL OF oWnd @ oSay4:nTop, ...