oSender:nClrPane

[Xevi]

¿Cual es la función que equivale a oSender:nClrPane ???
oSender:SetCltPane()
oSender:SetColor()
oSender:SetColorPane()
Estas no se reconocen como implementadas...
Un Saludo,
Xevi.

[joseluis]

Xevi,
oSender:nClrPane := valor
Saludos,
José Luis Capel
Xevi escribió:
>
> ¿Cual es la función que equivale a oSender:nClrPane ???
>
> oSender:SetCltPane()
> oSender:SetColor()
> oSender:SetColorPane()
>
> Estas no se reconocen como implementadas...
>
>
> Un Saludo,
> Xevi.
>
>
>

[ignacio]

Xevi,
Ninguna que sea pública. Deberás utilizar la propiedad. ¿Cual es el
problema?
Saludos,
"Xevi" <xevicomas@terra.es> escribió en el mensaje
news:438ad05d$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>
> ¿Cual es la función que equivale a oSender:nClrPane ???
>
> oSender:SetCltPane()
> oSender:SetColor()
> oSender:SetColorPane()
>
> Estas no se reconocen como implementadas...
>
>
> Un Saludo,
> Xevi.
>
>

[jfgimenez]

Xevi,
> ¿Cual es la función que equivale a oSender:nClrPane ???
>
> oSender:SetCltPane()
> oSender:SetColor()
> oSender:SetColorPane()
>
> Estas no se reconocen como implementadas...
No es una función, sino una propiedad. Una propiedad es parecido a una DATA,
pero con la posibilidad de usar cláusulas READ y WRITE. Échale un vistazo a
la ayuda, en el apartado "Jerarquía de clases" > "Programación orientada a
objetos"
¿Qué es lo que necesitas hacer exactamente?
--
Un saludo,
José F. Giménez

[Xevi]

Necesito, además de cambiar de fuente una celda de un Browse, "pintarla" de distinto color de fondo.
METHOD Browse2Column4DrawCell( oSender, cText, nClrText, nClrPane, lHighLite ) CLASS TFrmORAlbarans
If ::oBrowse2:nArrayAt > 0 .and. ::oBrowse2:nArrayAt <= Len( ::oBrowse2:aArrayData )
If Empty( ::oBrowse2:aArrayData[::oBrowse2:nArrayAt,3] )
oSender:oFont := TFont():Create( "MS Sans Serif", 8, 0, 700 )
oSender:nClrPane := clRed
Else
oSender:oFont := TFont():Create( "MS Sans Serif", 8, 0, 400 )
oSender:nClrPane := clWindow
EndIf
EndIf
RETURN Nil
El caso es que... utilizándolo así­, no funciona correctamente...
lo que hace oSender:nClrPane... es establecer el color, PERO en el próximo "repintado" de celda, no en la que está actualmente...
El cambio de fuente SI que funciona.
Gracias.
Un Saludo,
Xevi.
"Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje news:438ad1ac$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>
> Xevi,
>
> Ninguna que sea pública. Deberás utilizar la propiedad. ¿Cual es el
> problema?
>
> Saludos,
>
> "Xevi" <xevicomas@terra.es> escribió en el mensaje
> news:438ad05d$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>>
>> ¿Cual es la función que equivale a oSender:nClrPane ???
>>
>> oSender:SetCltPane()
>> oSender:SetColor()
>> oSender:SetColorPane()
>>
>> Estas no se reconocen como implementadas...
>>
>>
>> Un Saludo,
>> Xevi.
>>
>>
>
>
>
--

[ignacio]

Xevi,
nClrPane se pasa por REFERENCIA. Tan sólo tienes que hacer:
nClrPane := clRed
Saludos,
"Xevi" <xevicomas@terra.es> escribió en el mensaje news:438ad436$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
Necesito, además de cambiar de fuente una celda de un Browse, "pintarla" de distinto color de fondo.
METHOD Browse2Column4DrawCell( oSender, cText, nClrText, nClrPane, lHighLite ) CLASS TFrmORAlbarans
If ::oBrowse2:nArrayAt > 0 .and. ::oBrowse2:nArrayAt <= Len( ::oBrowse2:aArrayData )
If Empty( ::oBrowse2:aArrayData[::oBrowse2:nArrayAt,3] )
oSender:oFont := TFont():Create( "MS Sans Serif", 8, 0, 700 )
oSender:nClrPane := clRed
Else
oSender:oFont := TFont():Create( "MS Sans Serif", 8, 0, 400 )
oSender:nClrPane := clWindow
EndIf
EndIf
RETURN Nil
El caso es que... utilizándolo así­, no funciona correctamente...
lo que hace oSender:nClrPane... es establecer el color, PERO en el próximo "repintado" de celda, no en la que está actualmente...
El cambio de fuente SI que funciona.
Gracias.
Un Saludo,
Xevi.

"Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje news:438ad1ac$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>
> Xevi,
>
> Ninguna que sea pública. Deberás utilizar la propiedad. ¿Cual es el
> problema?
>
> Saludos,
>
> "Xevi" <xevicomas@terra.es> escribió en el mensaje
> news:438ad05d$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>>
>> ¿Cual es la función que equivale a oSender:nClrPane ???
>>
>> oSender:SetCltPane()
>> oSender:SetColor()
>> oSender:SetColorPane()
>>
>> Estas no se reconocen como implementadas...
>>
>>
>> Un Saludo,
>> Xevi.
>>
>>
>
>
>
--

[Xevi]

Ignacio,
No me había mirado los parámetros que se recogían en el método.
Gracias, funciona PERFECTAMENTE !!!
Un Saludo,
Xevi.
"Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
news:438ad8cd$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
Xevi,
nClrPane se pasa por REFERENCIA. Tan sólo tienes que hacer:
nClrPane := clRed
Saludos,
"Xevi" <xevicomas@terra.es> escribió en el mensaje
news:438ad436$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
Necesito, además de cambiar de fuente una celda de un Browse, "pintarla"
de distinto color de fondo
METHOD Browse2Column4DrawCell( oSender, cText, nClrText, nClrPane,
lHighLite

[Xevi]

Ignacio,
Ahora solo un pequeño GRAN detalle...
Cuando navego por el Browse... la celda que tiene el FOCO, coje el color de fondo respondiendo también al mismo evento...
A mi entender... o se está modificando nClrSelPane cuando SOLO le estoy modificando el nClrPane, o este evento no deberí­a de "lanzarse" cuando la celda obtiene el foco... pues en las propiedades del Browse se establecen la propiedad nClrSelPane ¿no es así­???
Un Saludo,
Xevi.
"Xevi" <xevicomas@terra.es> escribió en el mensaje news:438ae9cd$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>
>
> Ignacio,
>
> No me habí­a mirado los parámetros que se recogí­an en el método.
>
> Gracias, funciona PERFECTAMENTE !!!
>
>
> Un Saludo,
> Xevi.
>
>
> "Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
> news:438ad8cd$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Xevi,
>
> nClrPane se pasa por REFERENCIA. Tan sólo tienes que hacer:
>
> nClrPane := clRed
>
> Saludos,
> "Xevi" <xevicomas@terra.es> escribió en el mensaje
> news:438ad436$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Necesito, además de cambiar de fuente una celda de un Browse, "pintarla"
> de distinto color de fondo
> METHOD Browse2Column4DrawCell( oSender, cText, nClrText, nClrPane,
> lHighLite
>
>
>
>
--

[ignacio]

Xevi,
Tienes otro parametro que te dice si la celda está seleccionada: lHighLite, que también puedes usar para bifurcar e indicar distintos colores en el evento OnDrawCell. Consulta de nuevo la documentación.
El evento es OnDrawCell, es decir, 'Cuando se pinta la celda' y como es lógico la celda se pinta cuando tiene el Hilite y cuando no lo tiene, lo que pasa es que se pinta con distintos colores. Cuando este hilite el color que te propondrá es nClrSelPane, cuando no tenga lHilite el color será nClrPane.
Un saludo,
"Xevi" <xevicomas@terra.es> escribió en el mensaje news:[email=438af6c7@ozsrvnegro.ozlan.local...]438af6c7@ozsrvnegro.ozlan.local...[/email]
Ignacio,
Ahora solo un pequeño GRAN detalle...
Cuando navego por el Browse... la celda que tiene el FOCO, coje el color de fondo respondiendo también al mismo evento...
A mi entender... o se está modificando nClrSelPane cuando SOLO le estoy modificando el nClrPane, o este evento no deberí­a de "lanzarse" cuando la celda obtiene el foco... pues en las propiedades del Browse se establecen la propiedad nClrSelPane ¿no es así­???
Un Saludo,
Xevi.
"Xevi" <xevicomas@terra.es> escribió en el mensaje news:438ae9cd$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>
>
> Ignacio,
>
> No me habí­a mirado los parámetros que se recogí­an en el método.
>
> Gracias, funciona PERFECTAMENTE !!!
>
>
> Un Saludo,
> Xevi.
>
>
> "Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
> news:438ad8cd$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Xevi,
>
> nClrPane se pasa por REFERENCIA. Tan sólo tienes que hacer:
>
> nClrPane := clRed
>
> Saludos,
> "Xevi" <xevicomas@terra.es> escribió en el mensaje
> news:438ad436$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Necesito, además de cambiar de fuente una celda de un Browse, "pintarla"
> de distinto color de fondo
> METHOD Browse2Column4DrawCell( oSender, cText, nClrText, nClrPane,
> lHighLite
>
>
>
>
--

[Xevi]

Ignacio...
>Tienes otro parametro que te dice si la celda está seleccionada: lHighLite, que también puedes usar para bifurcar e indicar distintos colores en el evento OnDrawCell. >Consulta de nuevo la documentación.
Perdona por mis preguntas "estupí­das", jejeje... pero a veces corremos a preguntar antes que leer la documentación...
Espero que no te moleste que esté haciendo tantas preguntas, espero que pronto pueda yo mismo contestar algunas dudas de los que vayan uniéndose a este Foro, que cuantos mas seamos los que sepamos, mas podremos entre todos ayudar a los recien llegados. Al fin y al cabo... es lo bonito de una comunidad... hoy por ti, mañana por mi...
Gracias de nuevo!!!
Un Saludo,
Xevi.
"Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje news:438b039f$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
Xevi,
Tienes otro parametro que te dice si la celda está seleccionada: lHighLite, que también puedes usar para bifurcar e indicar distintos colores en el evento OnDrawCell. Consulta de nuevo la documentación.
El evento es OnDrawCell, es decir, 'Cuando se pinta la celda' y como es lógico la celda se pinta cuando tiene el Hilite y cuando no lo tiene, lo que pasa es que se pinta con distintos colores. Cuando este hilite el color que te propondrá es nClrSelPane, cuando no tenga lHilite el color será nClrPane.
Un saludo,
"Xevi" <xevicomas@terra.es> escribió en el mensaje news:[email=438af6c7@ozsrvnegro.ozlan.local...]438af6c7@ozsrvnegro.ozlan.local...[/email]
Ignacio,
Ahora solo un pequeño GRAN detalle...
Cuando navego por el Browse... la celda que tiene el FOCO, coje el color de fondo respondiendo también al mismo evento...
A mi entender... o se está modificando nClrSelPane cuando SOLO le estoy modificando el nClrPane, o este evento no deberí­a de "lanzarse" cuando la celda obtiene el foco... pues en las propiedades del Browse se establecen la propiedad nClrSelPane ¿no es así­???
Un Saludo,
Xevi.
"Xevi" <xevicomas@terra.es> escribió en el mensaje news:438ae9cd$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>
>
> Ignacio,
>
> No me habí­a mirado los parámetros que se recogí­an en el método.
>
> Gracias, funciona PERFECTAMENTE !!!
>
>
> Un Saludo,
> Xevi.
>
>
> "Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
> news:438ad8cd$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Xevi,
>
> nClrPane se pasa por REFERENCIA. Tan sólo tienes que hacer:
>
> nClrPane := clRed
>
> Saludos,
> "Xevi" <xevicomas@terra.es> escribió en el mensaje
> news:438ad436$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Necesito, además de cambiar de fuente una celda de un Browse, "pintarla"
> de distinto color de fondo
> METHOD Browse2Column4DrawCell( oSender, cText, nClrText, nClrPane,
> lHighLite
>
>
>
>
--