FiveTech Software tech support forums

... 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ó la function ...

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  ...

... + 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() RETURN ...

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

... := {|| ( nTxtTop1 := oSay1:nTop, nTxtLeft1 := oSay1:nLeft ) } oSay2:bMoved := {|| ( nTxtTop2 := oSay2:nTop, nTxtLeft2 := oSay1:nLef2 ) } oSay3:bMoved := {|| ( nTxtTop3 := oSay3:nTop, nTxtLeft3 := oSay1:nLef3 ) } http://www.pflegeplus.com/pictures/OMove1.jpg I only moved ...

... FILENAME cImage1 ; ID 110 PIXEL ADJUST BORDER oIMG1:cTooltip := "Original" oIMG1:bPainted := { |hDC| ( DRAW_IMG(oIMG1, hDC, cImage1 ), oSay3:Refresh() ) } // Needed to calculate Image-size, if original size or adjusted to Resource !!! FUNCTION DRAW_IMG( oImage, hDC, cImage ) LOCAL oImg, ...

... it is the same. The Text inside the Resource needs a ID and could be defined like : Uses the Text defined inside the Resource : REDEFINE SAY oSay3 ID 271 OF oDlg1 oSay3:SetColor( 128, ) oSay3:SetFont( oFootFont ) Overwrites the Text, defined inside the Resource : REDEFINE SAY oSay3 PROMPT ...

... := .T. oFld:nFolderHeight := nTabH oFld:nSeparator := nTabS oFld:bClrText := {| o, n | nTColor3 } oFld:oFont := oTextFont REDEFINE SAY oSay3 ID 110 PROMPT cTEXTFONT1 OF oFld:aDialogs[1] FONT oTextFont PIXEL oSay3:SetColor( nTColor2, ) oSay3:lTransparent := .T. REDEFINE RADIO oRadio3 ...

... SAY oSay1 VAR cSay1 ID 210 OF oDlg1 FONT oFont1 COLOR 128 // Red REDEFINE SAY oSay2 VAR cSay2 ID 220 OF oDlg1 FONT oFont2 // Black REDEFINE SAY oSay3 VAR cSay3 ID 230 OF oDlg1 FONT oFont2 // Black From code it is not possible. 1. a checkbox without prompt shows allways the Text < Checkbox ...

... return nil function FTPSendFiles( cFTPSite, aSource, aTarget ) local oDlg, oSay1, oSay2, oSay3, oBtnCancel local oMeter1, oMeter2 local nAmount1, nAmount2 local lEnd := .f. local nBufSize := 4096 //2000 local oInternet, oFTP MsgRun( "Connecting ...

... el que estaba dando problemas. (siempre utilizo Dtos(), como puedes observar). Al quitarle el Dtos() al codigo IntegIndex( oSay2,oMeter1,oMeter2,oSay3,@nTotReg,; "dtos(WMDATA->fechemis)","WMDFECHA", aAlias [n] ) , el programa me funciona como antes. Lo raro es que mi sistema ...

... Function Indexar(aAlias) IF UPPER( aAlias[n] )="WMDATA" IntegIndex( oSay2,oMeter1,oMeter2,oSay3,@nTotReg,; "WMDATA->numdoc","WMDATDCT", aAlias [n] ) IntegIndex( oSay2,oMeter1,oMeter2,oSay3,@nTotReg,; "WMDATA->cta+WMDATA->scta+WMDATA->sscta+WMDATA->ssscta+WMDATA->sssscta+dtos(WMDATA->fechemis)","WMDATCTA", ...

... function CopyFiles( aSource, aTarget, nBufSize ) local oDlg, oSay1, oSay2, oSay3, oBtnCancel local oMeter1, oMeter2 local nAmount1, nAmount2 local lEnd := .f. DEFAULT nBufSize := 4000 DEFINE DIALOG oDlg RESOURCE "CopyFiles" ...

... = .t. oBtn1:cTooltip := "Button1" Not Transparent on Images. Colors, Gradient, Styles and Image-Brush is OK. REDEFINE SAY oSay3 PROMPT "Alpha-Blended BMP" ID 230 OF oDlg3 FONT oFont2 oSay3:lTransparent = .t. ----------------------------------------------------------- ...

... function CopyFiles( aSource, aTarget, nBufSize ) local oDlg, oSay1, oSay2, oSay3, oBtnCancel local oMeter1, oMeter2 local nAmount1, nAmount2 local lEnd := .f. DEFAULT nBufSize := 4000 DEFINE DIALOG oDlg RESOURCE "CopyFiles" ...