FiveTech Software tech support forums

... Info : Where I use tget class for each number i insert a valid to verify what the user insert Syntax Verify_all(campo,blocco,linea,colonnna,oControl) for a sample : @ nrow, ncol get aGet[1] var ax1 pict "9" PIXEL SIZE SIZEX,SIZEY OF oDlg NOBORDER CENTER VALID ax1 $ " 123456789" ...

Try adding:

oControl:refresh()

Silvio,

Use oControl:bMMoved

... La función GetWindowTextW() es muy importante pues es la función que se llama cuando hacemos oControl:GetText() si la DATA lUnicode es .T. Una vez solucionemos eso, podremos continuar con el soporte de Unicode. Agradezco tu ayuda y la de cualquier ...

Joaquín,

En vez de usar <oControl>:cTooltip = "texto" puedes hacer:

<oControl>:aTooltip = { cTexto, cTitulo, nClrTexto, nClrFondo }

Otra alternativa es una los SuperTooltips de FWH:

Revisa FWH/samples/c5toolti.prg

Eduardo, Si a cualquier control de FWH le cambias la propiedad lDesign: oControl:lDesign := .T. entonces el usuario puede moverlo y redimensionarlo, etc. Revisa el ejemplo FWH\samples\design.prg Es tan sencillo como que cambies la DATA lDesign de los controles ...

... 3035  3036  3038  3039  3039  3040  3042 OCLASS                  WINDOW.PRG      512   512 OCLIENT                WINDOW.PRG      450  2658  2659 OCONTROL                WINDOW.PRG      495   497  3849  3863  3868  3874  3875  3878  3924  3938                   3943  3949  3950  3953 OCTL     ...

... sino en todos los controles. En todo caso, se podria incorporar la evaluación de todos los bInit, aunque su asignación tuviese que hacerse manual: oControl:bInit = { || ... } Asi solo hay que modificar la clase TDialog. Que te parece ? :-)

Cristobal,

Asi es. Los brushes en FWH tambien usan un contador, por lo que nunca se puede hacer una asignación directa de un brush.

La forma de asignarlos es similar a los fonts:

oControl:SetBrush( oBrush )

... calendar I use this : @ 10,100 GET oGet2 VAR dEnd ... bitmap"d_ca.bmp" action show_cal(dFechapres,oGet2) Function show_cal(dFechapres,oControl) Local oDlg, oCal Local lOk := .f. Local dFecha := Iif(Empty(dFechaPres), Date(), dFechaPres) DEFINE DIALOG oDlg FROM 0, 0 TO 150, 170 PIXEL ...

... identificar el control. Por ejemplo, podrias anotar en su DATA Cargo un valor que te ayude a localizarle: local nAt := AScan( oDlg:aControls, { | oControl | oControl:Cargo == ... } ) otra solución es comprobando su nombre de Clase: local nAt := AScan( oDlg:aControls, { | oControl | oControl:ClassName() ...

... Image ( JPG ) : http://www.pflegeplus.com/pictures/SFBrush2.jpg LOCAL PixelX := MulDiv( oControl:nWidth(), nLoWord( GetDlgBaseUnits() ), 4 ) LOCAL PixelY := MulDiv( oControl:nHeight(), nHiWord( GetDlgBaseUnits() ), 8 ) ... ... DEFINE IMAGE ...

... .and. Client-> (dbSeek(cCodigo)),;    // Valid                  If(l, If(Left(cCodigo, 1) == "1", oControl:SetFocus(), NIL), nil);       // PostValid                  l;                                                             ...

// Area
GradientFill( hDC, 50, 0, 130, 100, aGrad, lDirect )

// complete
// GradientFill( hDC, 0, 0, oControl:nHeight, oControl:nWidth, aGrad, lDirect )

Best Regards
Uwe

Don,

You can also use:

IsWindowEnabled( oControl:hWnd )