PC Toledo

Quando preciso de guardar um box, por exemplo, inicializo a posição da janela criada e guardo o box como um code block

nWin2 := AbreJanela("Confirmação de Sangria dos Caixas", 06, 01, 30, 96)
LimpaObjetos(nWin2)
AddObjetos( nWin2, {|_win| wvw_drawroundrect( _win, 04,01,21,94, {-6,-2,+4,+2}, 10, 10 ) } )

wvw_loadpicture(1,'fundo.jpg')
wvw_drawimage(0,0,0,wvw_maxmaxrow()-1,wvw_maxmaxcol()-1,1)

Desculpem estar meio que desviando o assunto, mas é difícil ver alguém se debatendo com um problema (gtwvt/gtwvw) sendo que não existirá solução tão cedo.
É pecar por omissão.

dê uma estudada nos exemplos da HwGui

Eu também ainda estou usando a GtWvt que padece com mesmo problema

a WVG que é melhor com suporte

graças a IDE xDesigner do Basso que permite construir as janelas com seus objetos todos

..difícil ver alguém se debatendo com um problema (gtwvt/gtwvw) sendo que não existirá solução tão cedo.

o pessoal agora já vai direto para HBQT

Mário Isa escreveu:Mas isso eu ainda não comecei.

Mário Isa escreveu:Alamino, essa IDE seria uma IDE a parte ou é a mesma do Visual xHarbour ?
Tem que pagar por ela? Pode fazer down? onde?

Mário Isa escreveu:Daí achei melhor ficar com WVW e ir migrando prá hwgui.

alaminojunior escreveu: Entendo. Melhor ainda seria já iniciar com HwGui. Mas tá valendo.

anacatacombs escreveu:Ala, meu querido.. infelizmente terei que discordar .

Uso a gtwvw, e estou finalizando a conversão do sistema.
Se eu te falar que é a melhor biblioteca gráfica,e não tem erros, seria uma grande burrice da minha parte. No entanto, muitos erros são contornáveis.

Eu mesma sugeri ao colega utilizar a gtwvw e migrar aos poucos para HWGUI por diversos motivos: um deles é o tempo

Outra coisa.. ficar dependendo de um designer para migrar o sistema, particularmente, não é uma idéia que me agrada.

ficar dependendo de um designer para migrar o sistema, particularmente, não é uma idéia que me agrada.

 @ say get read.

Init Dialog oDlg...
@ say
@ get oGet Var vGet Valid {||MinhaFuncaoValid(vGet)} picture 'aqui todas pictures do clipper e mais outras passwd por exemplo' 
@ button 
etc...
oDlg:Activate()

Function MinhaFuncaoValid(vGet)
vGet++
if  dbseek(vget)
    msginfo('achou')
endif
etc...

AnaCataCombs disse:
Se eu te falar que é a melhor biblioteca gráfica,e não tem erros, seria uma grande burrice da minha parte. No entanto, muitos erros são contornáveis.

AnaCataCombs disse:
Eu mesma sugeri ao colega utilizar a gtwvw e migrar aos poucos para HWGUI por diversos motivos: um deles é o tempo

AnaCataCombs disse:
Estou bem satisfeita com o resultado final do programa..

AnaCataCombs disse:
Outra coisa.. ficar dependendo de um designer para migrar o sistema, particularmente, não é uma idéia que me agrada.

AnaCataCombs disse:
No entanto, devemos analisar todos os fatores antes de decidir uma biblioteca gráfica..

Itamar disse:
No clipper nós trabalhamos:
@ say get read. (antigo formato)

Na Hwgui/Delphi/VB,
@ say
@ get oGet Var vGet Valid {||MinhaFuncaoValid(vGet)} picture 'aqui todas pictures do clipper e mais outras passwd por exemplo'
(novo formato)

Jânio disse:
Meu sistema 'texto' vai muito bem, obrigado.

Itamar, então devo admitir que, uma vez que eu
#include hwgui.ch
Não posso mais utilizar o antigo formato do Get?

Clipper ou HWGUI
@ 10,10 say "Nome:" get oNome picture "@!"

@ 010,010 say "Nome:" size 50,20
//ou assim também:
@ 010,010 say oSayNome Caption "Nome:" size 50,20
...
@ 070,010 Get oNome Var vNome Valid {||FUNCAO()} picture "@!" 
//O Valid muda um besteira que é colocar a função dentro do CODE BLOCK {||FUNCAO()}
//Veja que eu não adotei a ideia do Dbase->Clipper de amarrar o get ao say.
//No Harbour + HWGUI assim como em qualquer linguagem que é OOP, quase tudo tem o OBJETO.
//Por exemplo Podemos mudar o campo "SAY" se for preciso.
oSayNome:SetText("NOME")
//Isso irá mudar o @ say "Nome" para @ say "NOME"

No clipper:
ocol01 :=tbcolumnnew("Refer"      ,{||transf(eq->cod_mercad,"@s08!")})
Na HWGUI:
     Add column FieldBlock("cod_mercad") to oBrPd ;
     Header 'Código' ;
     type 'c' dec 0 ;
     Editable ;
     length 13 ;
     picture "XXXXXXXXXXXXX" ;
     VALID { |vGet,oGet| PesquisaItem(vGet,oGet)}

Ou da forma do similar ao clipper:
oBrw:AddColumn( HColumn():New( oHead , FieldWBlock( oCol, nArea ), oType, oLen, oDec, .F. ) )