FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Alguien le ha pasado este Dellate al Pintar
Posts: 1078
Joined: Thu Sep 27, 2007 03:47 PM
Alguien le ha pasado este Dellate al Pintar
Posted: Wed Oct 26, 2011 10:38 PM
Caso en la barra de message no pinta bien. Le muestro en la imagen




http://imageshack.us/photo/my-images/560/errorbe.jpg/
" alt="" loading="lazy">
Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com
Posts: 211
Joined: Wed Jul 16, 2008 12:59 PM
Re: Alguien le ha pasado este Dellate al Pintar
Posted: Wed Oct 26, 2011 11:52 PM
Hola Ruben
a mi me paso,
revisa:

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=22596

Atentamente,

Rolando.
Saludos desde Cochabamba, Bolivia
Posts: 1078
Joined: Thu Sep 27, 2007 03:47 PM
Re: Alguien le ha pasado este Dellate al Pintar
Posted: Thu Oct 27, 2011 04:50 PM

Hice el cambio que indica Lineares.

METHOD SetText( cMsg ) INLINE ::cMsg := cValToChar( cMsg ), If( IsWindowVisible( ::oMsgBar:hWnd ), ::Paint(),)

Pero solamente Pinta el Num los demas como la fecha , Hora , Ins y Caps quedan igual.

Saludos

Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com
Posts: 211
Joined: Wed Jul 16, 2008 12:59 PM
Re: Alguien le ha pasado este Dellate al Pintar
Posted: Thu Oct 27, 2011 09:46 PM
Ruben:

y el cambio en el :refresh().

esta en el mismo post:

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=22596&sid=cd2f650b873ee60270f91ceb11975540#p120858

Saludos desde Cochabamba - Bolivia.

Rolando.
Posts: 1078
Joined: Thu Sep 27, 2007 03:47 PM
Re: Alguien le ha pasado este Dellate al Pintar
Posted: Thu Oct 27, 2011 10:15 PM

El Cambio lo hice tmsgitem.prg , lo otro que tu dices no la he cojido.

Solamente hice este cambio

METHOD SetText( cMsg ) INLINE ::cMsg := cValToChar( cMsg ), If( IsWindowVisible( ::oMsgBar:hWnd ), ::Paint(),)

Me podrias especificar el que linea. me imagino que te refireres al tmsgitem.prg

Saludos
Yo tengo la fwh 11.08

Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com
Posts: 211
Joined: Wed Jul 16, 2008 12:59 PM
Re: Alguien le ha pasado este Dellate al Pintar
Posted: Fri Oct 28, 2011 09:53 PM
Ruben:

En el método ::Refresh() se tiene que reemplazar:
Code (fw): Select all Collapse
METHOD Refresh() CLASS TMsgItem

   local cMsg

   if ::bMsg != nil
      cMsg = cValToChar( Eval( ::bMsg ) )
      if cMsg != ::cMsg .or. ::lActive != ::lWasActive
         ::cMsg = cMsg
         ::Paint()                                       //<----- cambiar esto
         ::lWasActive = ::lActive
      endif
   endif

return nil


por:
Code (fw): Select all Collapse
METHOD Refresh() CLASS TMsgItem

   local cMsg

   if ::bMsg != nil
      cMsg = cValToChar( Eval( ::bMsg ) )
      if cMsg != ::cMsg .or. ::lActive != ::lWasActive
         ::cMsg = cMsg
         If( IsWindowVisible( ::oMsgBar:hWnd ), ::Paint(),)   //<---- cambiar por esto
         ::lWasActive = ::lActive
      endif
   endif

return nil


Aproximadamente en la linea 224

Así lo hice y funciono.

Saludos desde Cochabamba - Bolivia.

Rolando.
Posts: 1078
Joined: Thu Sep 27, 2007 03:47 PM
Re: Alguien le ha pasado este Dellate al Pintar
Posted: Fri Oct 28, 2011 10:25 PM

Gracias, Compañero, Voy Hacerlo y te cuento.

Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com
Posts: 1078
Joined: Thu Sep 27, 2007 03:47 PM
Re: Alguien le ha pasado este Dellate al Pintar
Posted: Sat Oct 29, 2011 05:59 PM

Gracias compañrpo , Funciono

Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com

Continue the discussion