FiveTech Software tech support forums

... i try to place 2 x Control into Window but they do not "fit" #include "fivewin.ch"PROCEDURE Main()LOCAL oWnd, oSay1, oSay2   DEFINE WINDOW oWnd FROM 0, 0 TO 600, 800 PIXEL TITLE "TVIP"       oSay1 := TSay():new(0,000,{ || "Hello" ...

... A little test #include "Fivewin.ch" FUNCTION MAIN() local oWnd, oDlg, oSay1, oSay2, oFont, oBrush1, oBrush2 DEFINE FONT oFont NAME "Arial" SIZE 0,-18 BOLD DEFINE BRUSH oBrush1 FILE "MARBLE.bmp" DEFINE BRUSH ...

... te ha pasado por alto. A mi me funciona bien (FWH1709) Esta function ha sido cambiada a: NextData(aoSay, alBorder) llamandola asi: NextData({oSay1,oSay2,oSay3},{.T.,.f.,.f.}) // Array con tantos elementos como oSays requeridos. La .t.indica que se usa BORDER, la .f. indica sin borde. Se agregó ...

Hola Antonio, intenta asi: local oSay1,oSay2,oSay3     @ 053,160 SAY oSay1 Profe->Cod_Pro      SIZE 60,22  PIXEL OF oDlg2    COLOR RGB(0,0,128), CLR_YELLOW   FONT oFont6   BORDER  CENTER  ...

... DEFINE xlVAlignTop -4160 # DEFINE xlVAlignCenter -4108 # DEFINE xlVAlignJustify -4130 REQUEST DBFCDX REQUEST DBFFPT function Main() local oSay , ; oSay2 , ; cSay := "" , ; cSay2 := '' , ; oFont , ; oMenu , ; oIcon IF PCOUNT()<1 cDebug := "" ENDIF // Init... lAds := .F. Pbuild ...

... ArrTranspose( aProfe )[ 2 ] ID 102 OF oDlg COLORS nRGB(9, 11, 10), nRGB(73, 250, 202); ON CHANGE (Carga_paci(oCod_pro1,aProfe),oPaci:Refresh(),oSay2:Refresh()) //<--- Cambiar aca Static Function Carga_paci(oCod_pro1,aProfe) // <--- Cambiar aca LOCAL cCod_Pro1 := aProfe [1,oCod_pro1:nAt] ...

Hola Sergio: Se me ocurre que pongas 2 say. Cada uno sobre el get correspondiente y lo ocultas... oSay1:Hide() y oSay2:Hide() Cuando toma el foco el get1, mostrarias el say1. oSay1:Show() y asi, igual con el otro. Solo una idea. Tambien podrías verificar que si esta Empty() el ...

... el texto para al final asignar el texto al say, aunque quizás lo complicado sea el pintar/borrar encima del get, pruébalo ( quizás con el oSay2:Move( ...... ) ) #include "fivewin.ch"function main()   local cVal  := Space(40)   local cPas  := Space(20)  ...

Mr Karinha

In the sample you posted, the font of oSay2 is changed.
So, in the next button action you should write If( oSay2:oFont:lBold but not If( oSay:oFont:lBold

... @ oSay1:nBottom, Saludos Marcelo Pon unas coordenadas de inicio fijas del pintado del xbrowse sustituyendo esa referencia Hay otra referencia a oSay2 que ya aviso que hay que sustituir Cualquier cosa, por aqui estaré

... := { |brw| brw:nLen } :nRecSelWidth := 50 END DBSELECTAREA( "CUST2" ) DBSETORDER("S_CUST") CUST2->(DBGOTOP()) REDEFINE SAY oSay2 ID 115 PROMPT "CUST2.dbf -> set synchron to CUST1.dbf" OF oDlgMain FONT oMedium oSay2:lTransparent := .T. REDEFINE XBROWSE oBrw2 ...

... := "nRGB( " + ALLTRIM(STR(nRed)) + ", " + ; ALLTRIM(STR(nGreen)) + ", " + ; ALLTRIM(STR(nBlue)) + " )", ; oSay2:Refresh(), oSay3:Refresh() ) oTimer:Activate() oWnd:bKeyDown := {|nKey| IF(nKey = nWKey, SAVE_COLOR(), ) } ACTIVATE WINDOW oWnd CENTER oTimer:DeActivate() ...

... => MAIN( 72 ) // Source code... //----------------------------------------------------------------------------// function _SqlScript( oSay, oSay2 ) local lFail := .F. , ; cSkipped := '' , ; oCn , ; cSql , ; cSqlCon := "" , ; aCdmDbf := Directory( "*.DBF" ) , ; nX1 := ...

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

Uwe,

Try to reassign the brush on the second SAY:

oSay2:SetBrush( oNewBrush )