Page 1 of 1

Mejorar la Biblia

Posted: Thu Aug 05, 2010 12:53 pm
by Jairo Barbosa
Con los Buenos días para todos
Antonio con el ánimo de hacerle mejoras a la aplicación de la Biblia
Alojo la información de texto de _ en un arreglo richedit, como coloreo o le doy negrilla al texto de un solo campo? En este caso Versiculo->concor.
Cada que presento un libro, por ejemplo ese campo debería salir en negrilla.

Gracias

*-----------------------------------------------------------------------------------
DEFINE Window oWnd1 child from lPos1,lPos2 to lPos3,lPos4;
title "Libro :"+space(2)+(cTitulo) pixel Icon oIco1

go top
cTotal:= space(10)+alltrim(Versiculo->Concor)+renglon+ ;
Rtrim(Versiculo->Verso)+space(2)+ alltrim(Versiculo->Contenido)+ renglon
aadd(aSubtit,versiculo->concor) // aadd(aSub,versiculo->Verso)
skip

while .not.eof()
cTotal:=cTotal +space(10)+alltrim(Versiculo->concor)+renglon+;
rTrim(Versiculo->Verso)+ space(2)+ rtrim(Versiculo->Contenido)+ renglon
aadd(aSubtit,versiculo->concor)
// aadd(aSub,versiculo->Verso)
skip
end

@ 1.9,0 RICHEDIT oRich VAR cTotal OF oWnd1 Font oFont


oRich:gotoline(1)

Re: Mejorar la Biblia

Posted: Fri Aug 06, 2010 6:23 pm
by Jairo Barbosa
Image

Uploaded with ImageShack.us

Buscando entre los colegas que dominen la clase, esta enseñanza

Gracias por su ayuda

Re: Mejorar la Biblia

Posted: Mon Aug 09, 2010 6:08 am
by AIDA
espero que pronto te ayuden seguramente al terminar las vacaciones
si supiera mas del tema con gusto...

Saluditos :wink: