um dia vou realizar um sonho

[Antonio]

Amigos,

- to adotando sempre telas no tamanho 800x600, isso so nao vai rodar em micro q tiver uma resolucao menor, certo ?

valeu

Use as funções GetDesktopWidth() e GetDesktopHeight().

Código: Selecionar todos

#Include "minigui.ch"
Func MainMenu() 
        Local oLargura := GetDesktopWidth(), oAltura:= GetDesktopHeight()
        Local oFont    := "Arial"          , oSize:= 9  
        Local nPixelin := nPixeCol := 00
       
        DEFINE WINDOW oForMenu AT nPixelin , nPixecol WIDTH  oLargura  HEIGHT oAltura;
       TITLE "Texte da Disposicao da Janela" MAIN FONT oFont SIZE oSize 
        End Window
        oForMenu.Activate()
Return nil

[]s

[Trazom]

caro colega antonio,

quero lhe informar que ja compilei, tudo modifiquei, e ja to alterando meus sistemas, ja entendi, que nao adianta tentar manter exatamente os mesmo fontes em clipper e minigui, ou qualquer outra forma grafica, pois é fundamental que se entenda tb os conceitos utilizados

obrigado

[Trazom]

qual a melhor forma de editar registros ?

posso utilizar text box field dbf->campo ? ou é melhor salvar o registro em variaveis e depois dar replace ?

[Antonio]

Ola Trazom!

Realmente manter extamente os mesmos fontes em clipper em conjunto com uma biblioteca grafica, diga-se for windows, seja ela qual for, sera impossivel, ja que os conceitos mudam de forma relevante. Fico feliz por voce.

Quanto aos textbox, acredito de isso ira variar de acordo com a tecnica adotada pelo programador......

Não acredito que exista o melhor modo ou o pior e sim diferentes formas de se atingir os mesmos resultados......

Eu por exemplo uso da seguinte forma:

@ 18, 190 TextBox txtnomedocliente Value "" Width 358 Height 20 Of TelaCliente Font oFont Size oSize MaxLength 40 UpperCase

O meu valor inicial no textbox é seu tamanho Width vazio, e limito o seu preenchimento com o MaxLength, neste caso o campo em meu DBF é caracter tamanho 40

Os botões reservam as subfunções de consulta, gravação, exclusão, etc ..... e na respectiva função de gravação é que dou os replaces....

Replace Clientes->C_inscri With TelaCliente.txtcodigocliente.Value
Replace Clientes->C_nomecl With AllTrim(Padl(TelaCliente.txtnomedocliente.Value,40))
Replace Clientes->C_nascim With TelaCliente.DtpNascimcliente.Value
Replace Clientes->C_cpfcli With TelaCliente.txtcpffdocliente.Value
Replace Clientes->C_rgclie With TelaCliente.txtrgggdocliente.Value

Espere ter ajudado a esclarecer sua duvida.

[]s

[Trazom]

valeu

[Trazom]

no comando:

use clientes alias acl
endcl:=spac(50)
@100,100 textbox endcl WIDTH len(endcl)*8 field acl->end_cl


as alteracoes feitas nesse textbox estarao automaticamente no campo acl->end_cl ? pra que serve realmente a clausula field ?

como mudar de campo usando enter, adiciono on enter tela.proxcampo.setfocus ?

[Antonio]

Ola Trazom!

A Clausula FIELD tem o mesmo efeito que _variavel := _campoDBF

O conteudo é recurapado pela propriedade VALUE, sendo necessário APPEND e REPLACEs

Para movimentar-se pelos TEXTBOXs "Gets" , através da tecla ENTER use no inicio do seu FORM:

Set Navigation Extended
Define Window Teste At 109,80 .....


Espero ter ajudado a esclarecer sua duvida.

[rvinfo]

eita que agora bateu a filosofia

uma coisa me atormenta desde que comeci a trabalhar na area ha 17 anos:

- ja conheci muita gente que foi da area, programadores, analistas, gerentes, executivos, consultores e os autodidatas como eu

- porem nunca conheci alguem que se aposentou fazendo isso

- sempre a galera abre, muda de ramo, vira comerciante, empresario e em qualquer caso nunca mais quer nem ouvir, prefere pagar pra fazer

- meu melhor usuario tem mestrado em desenvolvimento de sistemas pra internet, e o cara fazio mesmo, software de provedor, definir spam, banner e o resumo de tudo do provedor, e olha que o cara nao tem nem 30 anos, agora toma conta do armazem do pai dele

considero um desafio, nao me imagino fazendo outra coisa, é o que mais gosto, nao tenho conflito nem com cliente nem com familia, vivo em paz so pra fazer isso da melhor forma possivel

e hoje com 31 anos, pretendo viver ate no minimo 100 pra fazer isso !

Eu ja faço isso há 35 anos. Já programei em RPG, RPGII, Fortran, BASIC, Assembler/360, PL/I, COBOL IBM, COBOL SID, DBASEII, DBASE III, CICS VSE, CLIPPER (SUMMER 87, 5.1, 5.2,5.3), FOXPRO, FOXPRO FOR WINDOWS. Já fui analista de Suporte para IBM, nos sistemas DOS, DOS VSE, OS-VS1) Já usei PANVALET, EASYTREAVE, WORDSTAR, VISICALC, LOTUS 123, EXCEL, WORD, POWERPOINT, COREL DRAW, PRINT ART, WINAMP, MEDIA PLAYER, REALPLAYER, VNC, EUDORA, OUTLOOK, MOSAIC, NETSCAPE, DREAMWEAVER, CUTEFTP, WS-FTP, ETC. ETC. ETC.
Agora to aprendendo PHP, Java, PERL e a usar o FIREBIRD e MYSQL.
Já trabalhei com computadores das linhas IBM/360, IBM/3, IBM/370, IBM/4341, CONTROL DATA, APPLE, DIGITUS, COBRA, SID 5600, LABO, ITAUTEC, PC JR, PC XT, PC 286, 386, 486, Pentium I, II, III, IV, AMD K6, DURON, ATLHON, ATLHON XP, ...

Resultado: Sou careca desde os 30 anos. Hihihihi

Solução? Gritar socorro não adianta. TO DOIDO PARA PARAR, SÓ QUE NÃO CONSIGO. FIQUEI TOTALMENTE VICIADO.


Ronaldo Nunes

[Trazom]

estou me sentindo protegido, como um discipulo na presença do mestre !

isso mesmo, (esta é a verbalizacao do que realmente estou sentindo agora)

Muito bem Sr. Ronaldo, se me permite adicionei teu hotmail na minha lista

so tenho a dizer,

feliz Ano Novo,

Que sejam incontaveis o numero de vezes que possamos dizer isto !

valeu

[rvinfo]

Cara eu só consigo ser mestre de mim mesmo. Aprendo todo dia com meus erros e procuro a cada dia ser melhor em tudo que faço.

Tenho muito a aprender com voces. Experiencia é um farol que ilumina prá traz. Eu consigo ver no passado o que eu nao devo fazer no presente e futuro. Voces, mais novos, não tem os grilhoes do enraizamento das tecnicas do passado, que, nessa nossa área, se tornam obsoletas com uma rapidez enorme. Voces é que são meus mestres. Tenho tres filhos. O mais velho se formou em Sistemas de Informação no ano passado e fez toda a certificação da ORACLE. Tebho muito a aprender com ele. Meu filho mais novo, que tem 18 anos, passou no vestibular de Engenharia de Software. Daqui a pouco esta me ensinando. Meu filho do meio, de 19 anos, passou em Administração de empresas, é chefe de uma equipe de 21 estagiarios na Agencia Nacional de Transportes Terrestres. São meus mestres.


Por isto que eu adoro este texto do Carlos Drumond de Andrade que transcrevo aqui baixo:

FELIZ OLHAR NOVO!!!
(Carlos D. de Andrade)

O grande barato da vida é olhar para trás e sentir orgulho da sua história.
O grande lance é viver cada momento como se a receita da felicidade fosse o AQUI e o AGORA.
Claro que a vida prega peças. É lógico que, por vezes, o pneu fura, chove
demais... mas, pensa só: tem graça viver sem rir de gargalhar pelo menos uma vez ao dia?
Tem sentido ficar chateado durante o dia todo por causa de uma discussão na ida pro trabalho? Quero viver bem.
2004 foi um ano cheio.
Foi cheio de coisas boas e realizações, mas também cheio de problemas e
desilusões.
Normal.
Às vezes se espera demais das pessoas.
Normal.
A grana que não veio, o amigo que decepcionou, o amor que acabou.
Normal.
2005 não vai ser diferente.
Muda o século, o milênio muda, mas o homem é cheio de imperfeições, a
natureza tem sua personalidade que nem sempre é a que a gente deseja, mas e aí? Fazer o quê? Acabar com seu dia? Com seu bom humor? Com sua esperança?
O que eu desejo para todos nós é sabedoria!
E que todos saibamos transformar tudo em uma boa experiência!
Que todos consigamos perdoar o desconhecido, o mal educado. Ele passou na sua vida. Não pode ser responsável por um dia ruim...
Entender o amigo que não merece nossa melhor parte. Se ele decepcionou, passe-o para a categoria 3, a dos amigos. Ou mude de classe, transforme-o em colega. Além do mais, a gente, provavelmente, também já decepcionou alguém.
O nosso desejo não se realizou? Beleza, não tava na hora, não deveria ser a melhor coisa pra esse momento (me lembro sempre de um lance que eu adoro:
CUIDADO COM SEUS DESEJOS, ELES PODEM SE TORNAR REALIDADE).
Chorar de dor, de solidão, de tristeza, faz parte do ser humano. Não
adianta lutar contra isso. Mas se a gente se entende e permite olhar o
outro e o mundo com generosidade, as coisas ficam diferentes.
Desejo para todo mundo esse olhar especial.
2005 pode ser um ano especial, muito legal, se entendermos nossas
fragilidades e egoísmos e dermos a volta nisso. Somos fracos, mas podemos melhorar. Somos egoístas, mas podemos entender o outro.
2005 pode ser o bicho, o máximo, maravilhoso, lindo, espetacular...
ou...
Pode ser puro orgulho!
Depende de mim, de você!
Pode ser.
E que seja!!!
Feliz olhar novo!!!