Salvar a mensagem da StatusBar

[geraldenaw]

Boa noite amigos,

Estou utilizando o xHarbour com WVW. Gostaria de saber se tem como salvar o texto da status bar e depois retornar. Como no clipper, q a gente dava um savescreen na linha 24. Desde já agradeço.

Atenciosamente.

Geraldo Pereira França

[Luciano Bonfim]

Criei 3 rotinas, uma para escrever, outra para salvar e outra para restaurar

Código: Selecionar todos

function preencheSB (textoSB)
textoSB=space(1)+alltrim(textoSB)
WVW_SBsetText(,0, textoSB)
return(NIL)


function salvaSB
local x
vetorSB:={}  // variavel publica definida em main()
for x=0 to WVW_SBgetparts()
   aadd(vetorSB,{WVW_SBgetText(,x)})
next
return(NIL)


function restauraSB
local x
for x=1 to len(vetorSB)
   WVW_SBsetText(,x-1,vetorSB[x,1])
next
return(NIL)