duvidas com gets

[carlosmsi]

sou programador em clipper a muitos anos e agora estou começando a programar em fivewin

se alguem puder me ajudar

estou fazendo uns teste iniciais com gets

fiz o programa abaixo mas o programa so executa se eu desabilito o RESOURCE e ao executar nao aparece as caixas de edicao de cada campo o ponteiro do mouse fica parado no canto esquerdo da tela.

para que server O RESOURCE e como faço para aparecer os campos de cada get na tela. se eu usar o

@ 01,05 GET cliente PICTURE "999999" funciona

mas nao precisaria mais né

Meu exemplo:

#INCLUDE "FIVEWIN.CH"

FUNCTION MAIN()

LOCAL OD,OGet

LOCAL Cliente,nome,cidade,estado,telefone

cliente:= 0

nome:= SPACE(40)

cidade:= SPACE(30)

estado:= SPACE(02)

telefone:= space(14)

// DIALOGO COM GETS

DEFINE DIALOG OD //RESOURCE "mirecurso"

DEFINE FONT OF NAME "times new roman" size 10,20

REDEFINE GET oGet var Cliente ID 101 of OD color (rgb(255,255,000),rgb(128,128,000))

REDEFINE GET oGet var nome ID 102 of OD font of

REDEFINE GET oGet var cidade ID 103 of OD on change tone(1000,1)

REDEFINE GET oGet var estado ID 104 of OD valid(tone(1000,1),.t.)

REDEFINE GET oGet var telefone ID 105 of OD

ACTIVATE DIALOG OD centered

RETURN(NIL)

programas usados

CLIPPER 5.3,BLINKER 7, FIVEWIN 7

[carlosmsi]

sou programador em clipper a muitos anos e agora estou começando a programar em fivewin

se alguem puder me ajudar

estou fazendo uns teste iniciais com gets

fiz o programa abaixo mas o programa so executa se eu desabilito o RESOURCE e ao executar nao aparece as caixas de edicao de cada campo o ponteiro do mouse fica parado no canto esquerdo da tela.

para que server O RESOURCE e como faço para aparecer os campos de cada get na tela. se eu usar o

@ 01,05 GET cliente PICTURE "999999" funciona

mas nao precisaria mais né

Meu exemplo:

#INCLUDE "FIVEWIN.CH"

FUNCTION MAIN()

LOCAL OD,OGet

LOCAL Cliente,nome,cidade,estado,telefone

cliente:= 0

nome:= SPACE(40)

cidade:= SPACE(30)

estado:= SPACE(02)

telefone:= space(14)

// DIALOGO COM GETS

DEFINE DIALOG OD //RESOURCE "mirecurso"

DEFINE FONT OF NAME "times new roman" size 10,20

REDEFINE GET oGet var Cliente ID 101 of OD color (rgb(255,255,000),rgb(128,128,000))

REDEFINE GET oGet var nome ID 102 of OD font of

REDEFINE GET oGet var cidade ID 103 of OD on change tone(1000,1)

REDEFINE GET oGet var estado ID 104 of OD valid(tone(1000,1),.t.)

REDEFINE GET oGet var telefone ID 105 of OD

ACTIVATE DIALOG OD centered

RETURN(NIL)

programas usados

CLIPPER 5.3,BLINKER 7, FIVEWIN 7

[carlosmsi]

Eu posso estar falando asneira mas parece que entendi que O COMANDO RESOURCE COM o nome que esta em "" seria o nome da tela feito no WORKSHOP entao eu por enquanto nao utilizo ele por enquanto, seria isto agora a respeito do REDEFINE GET OS campos nao ficam aparecendo para que possa ser digitado estou so usando desta forna

@ 01,01 GET Cliente PICTURE "999999"

@ 02,01 GET Nome PICTURE "@!"

@ 03,01 GET cidade PICTURE "@!"

@ 04,01 GET ESTADO PICTURE "@!"

@ 05,01 GET Telefone PICTURE "@!"

quem pode me dar umas instrucões

fico grato

[personal]

_Codigo:=0

_Nome:=Space(40)

DEFINE DIALOG oDlg From 0,0 To 200,200 OF oWnd Pixel TITLE "Minha Dialog"

@ 010,010 Say "Código" OF oDlg Pixel Size 040,010

@ 010,060 Say "Nome" OF oDlg Pixel Size 150,010

@ 020,010 Get oCodigo VAR _Codigo Picture "999" OF oDlg Pixel Size 040,010

@ 020,060 Get oNome VAR _nome Picture "@!K" OF oDlg Pixel Size 150,010

ACTIVATE DIALOG oDlg

id=code>id=code>

Oliveira, Sérgio A.

PERSONAL Comp. e Sitemas.id=green>

Lins - SP ** sergio@personal.com.br

FWH 2.5, xharbour 0.99.4, SqlLib, MySql, xMate.

TWBrowse(),C5Menu,vPrinter.

Windows XP, Vista Ultimate.

[zekasan]

Olá Carlos, o redefine é usado para atribuir "novos comandos" aos controles que estão dentro do arquivo de resources(*.RES), igual a tela principal que você deduziu, por isso que eles não aparecem no seu executável, eles também foram construídos pelo Workshop ou o Pelles C

[carlosmsi]

obrigado pelas dicas e pelo exemplo

ate breve