FiveTech Software tech support forums

Antonio
Es estraño, pero si ejecuto el codigo adjutno la Statusbar que deberia mostrar 2 particiones con 2 textos diferentes, solamente muestra la primera.

Saludos

// Testing GETs

#include "FiveWin.ch"

function Main()
LOCAL oDlg, oGet
LOCAL cCad := "Testing " // pad("Testing Gets",40)
LOCAL nNum := 0
LOCAL dDat := Date()

Set century On
Set Date Ansi
Set Date format "mm/dd/yyyy"

SET _3DLOOK ON

DEFINE DIALOG oDlg TITLE "TGet from " + FWDESCRIPTION
@ 1, 2 SAY "Text..:" OF oDlg
@ 1, 6 GET oGet VAR cCad OF oDlg SIZE 60, 10 COLOR "W/G" PICTURE "@K"
@ 1.8, 2 SAY "Number:" OF oDlg
@ 2, 6 GET oGet VAR nNum OF oDlg SIZE 60, 10 PICTURE "9999999.99"
@ 2.6, 2 SAY "Date:" OF oDlg
@ 3, 6 GET oGet VAR dDat PICTURE "@E" OF oDlg SIZE 60, 10 WHEN .f. // "@D"
oGet:lDisColors = .f. // don't use standard disabled colors
@ 3, 7 BUTTON "&Ok" OF oDlg SIZE 30, 12 ACTION oDlg:End()
@ 3, 16 BUTTON "&Cancel" SIZE 30, 12 OF oDlg ACTION oDlg:End() CANCEL
ACTIVATE DIALOG oDlg CENTERED ;
ON INIT TStatusBar():New(oDlg," Win32 StatusBar",{200,150},{" Win32 StatusBar","Two"},)

return nil

Toni,

las distancias de los items no son acumulativas, por lo que prueba a usar:

{200,350} en vez de {200,150}

ó la segunda parte se situará "debajo" de la primera.

Antonio Linares wrote:Toni,

las distancias de los items no son acumulativas, por lo que prueba a usar:

{200,350} en vez de {200,150}

ó la segunda parte se situará "debajo" de la primera.

Antonio
Era ese el problema.
Gracias