Mejorar la Biblia

Mejorar la Biblia

Postby Jairo Barbosa » 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 varios campos 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)
User avatar
Jairo Barbosa
 
Posts: 194
Joined: Fri Jan 23, 2009 2:50 am
Location: Cali Valle Colombia

Re: Mejorar la Biblia

Postby Jairo Barbosa » Fri Aug 06, 2010 6:23 pm

Image

Uploaded with ImageShack.us

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

Gracias por su ayuda
User avatar
Jairo Barbosa
 
Posts: 194
Joined: Fri Jan 23, 2009 2:50 am
Location: Cali Valle Colombia

Re: Mejorar la Biblia

Postby AIDA » Mon Aug 09, 2010 6:08 am

espero que pronto te ayuden seguramente al terminar las vacaciones
si supiera mas del tema con gusto...

Saluditos :wink:
Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
User avatar
AIDA
 
Posts: 877
Joined: Fri Jan 12, 2007 8:35 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 28 guests