Gilson,
Eu baixei e compilei, não ví nada de extraordinário, ao ponto de me convencer que utilizando tela geradas por aplicativo, sejam melhor que as próprias telas que seriam feitas pelo teu próprio aplicativo. Claro que você teria um trabalhinho extra a principio. Aconselho você lagar esse telas geradas, faça suas próprias telas isso dará mais entusiasmo de ver a sua própria obra ainda melhorada. E você não terá mais problemas com memória.
Faça um comparativo, eu refiz o seu exemplo INDEX.PRG no mesmo conteúdo do TELA.OBJ e veja a diferença em tamanho do executável, apenas um simples exemplo:
154.624 - INDEX.EXE original, utilizando TELA.OBJ
153.600 - INDEX.EXE modificado, elaborando a propria tela. Veja abaixo o tão simples que é fazer no Clipper:
Código: Selecionar todos
CLEAR SCREEN
@ 00,00 say "ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿" COLOR "N/W"
@ 01,00 say "³ PROGRAMA DE INDEXACAO ³" COLOR "N/W"
@ 02,00 say "ÃÄÄÄÄÄÄÄÄÂÄÄÂÄÄÄÄÄÄÄÂÄÄÂÄÄÄÄÄÄÄÂÄÄÂÄÄÄÄÄÄÄÄÂÄÄÂÄÄÄÄÄÄÄÂÄÄÂÄÄÄÄÄÄÄÄÂÄÄÂÄÄÄÄÄÄÄÄÄ´" COLOR "N/W"
@ 03,00 say "³Bordero ³ ³Sbgnov ³ ³Cadcasa³ ³Cadpedv ³ ³Cadfam3³ ³Tempche ³ ³ ³" COLOR "N/W"
@ 04,00 say "ÃÄÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÄÄ´" COLOR "N/W"
@ 05,00 say "³Tpag1 ³ ³Cadmer ³ ³Movven ³ ³Cadnot ³ ³Mega ³ ³Cadche1 ³ ³ ³" COLOR "N/W"
@ 06,00 say "ÃÄÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÄÄ´" COLOR "N/W"
@ 07,00 say "³Tpag2 ³ ³Cadcom ³ ³Cadavi ³ ³Cadnotv ³ ³Famache³ ³Tabche ³ ³ ³" COLOR "N/W"
@ 08,00 say "ÃÄÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÄÄ´" COLOR "N/W"
@ 09,00 say "³Salvar ³ ³Cadfun ³ ³Ctapag ³ ³Cademp ³ ³Famach3³ ³Mesesto ³ ³ ³" COLOR "N/W"
@ 10,00 say "ÃÄÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÄÄ´" COLOR "N/W"
@ 11,00 say "³Cadcli ³ ³Vencli ³ ³Tempag1³ ³Cadeve ³ ³Cadpag ³ ³Movliv ³ ³ ³" COLOR "N/W"
@ 12,00 say "ÃÄÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÄÄ´" COLOR "N/W"
@ 13,00 say "³Cliche ³ ³Cadcre ³ ³Tempag2³ ³Cadpor ³ ³Venpre ³ ³ ³ ³ ³" COLOR "N/W"
@ 14,00 say "ÃÄÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÄÄ´" COLOR "N/W"
@ 15,00 say "³Avicli ³ ³Cadent ³ ³Tempag3³ ³Cadcob ³ ³Orcamen³ ³ ³ ³ ³" COLOR "N/W"
@ 16,00 say "ÃÄÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÄÄ´" COLOR "N/W"
@ 17,00 say "³Atacli ³ ³Cadopm ³ ³Tempag4³ ³Movpor ³ ³Orcaixa³ ³ ³ ³ ³" COLOR "N/W"
@ 18,00 say "ÃÄÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÄÄ´" COLOR "N/W"
@ 19,00 say "³Cadgru ³ ³Cadentm³ ³tempag5³ ³Caddia ³ ³Caixa ³ ³ ³ ³ ³" COLOR "N/W"
@ 20,00 say "ÃÄÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÄÄ´" COLOR "N/W"
@ 21,00 say "³Grunov ³ ³Fornec ³ ³Cadven ³ ³Cadter ³ ³Cadrec ³ ³ ³ ³ ³" COLOR "N/W"
@ 22,00 say "ÃÄÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÄÄ´" COLOR "N/W"
@ 23,00 say "³Cadsbg ³ ³Cadapli³ ³Cadped ³ ³Cadfama ³ ³Cadrota³ ³ ³ ³ ³" COLOR "N/W"
@ 24,00 say "ÀÄÄÄÄÄÄÄÄÁÄÄÁÄÄÄÄÄÄÄÁÄÄÁÄÄÄÄÄÄÄÁÄÄÁÄÄÄÄÄÄÄÄÁÄÄÁÄÄÄÄÄÄÄÁÄÄÁÄÄÄÄÄÄÄÄÁÄÄÁÄÄÄÄÄÄÄÄÄÙ" COLOR "N/W"
INKEY(0)
Acho ainda que você irá se sentir mais motivado em realizar telas mais bonitas, utilizando TBROWSEs, rolagem de tela, exibição de telas com TABSTRIP (com abas), enfim, vai de você a sua imaginação e criação.
