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)
Mejorar la Biblia
- Jairo Barbosa
- Posts: 188
- Joined: Fri Jan 23, 2009 2:50 am
- Location: Cali Valle Colombia
- Contact:
- Jairo Barbosa
- Posts: 188
- Joined: Fri Jan 23, 2009 2:50 am
- Location: Cali Valle Colombia
- Contact:
Re: Mejorar la Biblia
![Image](http://a.imageshack.us/img23/2518/richedit.jpg)
Uploaded with ImageShack.us
Buscando entre los colegas que dominen la clase, esta enseñanza
Gracias por su ayuda
Re: Mejorar la Biblia
espero que pronto te ayuden seguramente al terminar las vacaciones
si supiera mas del tema con gusto...
Saluditos![Wink :wink:](./images/smilies/icon_wink.gif)
si supiera mas del tema con gusto...
Saluditos
![Wink :wink:](./images/smilies/icon_wink.gif)
Que es mejor que programar? creo que nada ![Smile :)](./images/smilies/icon_smile.gif)
Atropellada pero aqui ando![Razz :P](./images/smilies/icon_razz.gif)
I love Fivewin
séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
![Smile :)](./images/smilies/icon_smile.gif)
Atropellada pero aqui ando
![Razz :P](./images/smilies/icon_razz.gif)
I love Fivewin
séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ