Mejorar la Biblia
Posted: Thu Aug 05, 2010 12:53 pm
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)
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)