Xailer & OZ Software

Hola,
Un Edit en una ToolBar... la propiedad nClrPaneFocus no funciona.!!!
WITH OBJECT ::oEditRecerca := TMaskEdit():New( ::oTB1 )
:nClrPaneFocus := clRed
:Create()
END
Un Saludo,
Xevi.

Xevi,
Acabo de poner esa propiedad en el ejemplo datacontrolsDbfData2 y funciona
perfectamente:
WITH OBJECT ::oEdiBusqueda := TEditBtn():New( ::oRebar1 )
:oBitmap := "lupa16"
:OnBtnClick := {|o| ::oBrw:Seek( o:Value ), nil }
:nMaxLength := 100
:nClrPaneFocus := clRed
:Create()
END
¿Podrías probarlo?
Gracias.
"Xevi" <xevicomas@terra.es> escribió en el mensaje
news:[email=42ccdaa8@ozsrvnegro.ozlan.local...]42ccdaa8@ozsrvnegro.ozlan.local...[/email]
> Hola,
>
> Un Edit en una ToolBar... la propiedad nClrPaneFocus no funciona.!!!
>
> WITH OBJECT ::oEditRecerca := TMaskEdit():New( ::oTB1 )
> :nClrPaneFocus := clRed
> :Create()
> END
>
>
>
> Un Saludo,
> Xevi.
>

Ignacio,
Pues si, el sample si funciona... voy a revisar mi código !!!
Gracias.
Un Saludo,
Xevi.
"Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
news:42cd11a0$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Xevi,
>
> Acabo de poner esa propiedad en el ejemplo datacontrolsDbfData2 y
> funciona perfectamente:
>
> WITH OBJECT ::oEdiBusqueda := TEditBtn():New( ::oRebar1 )
> :oBitmap := "lupa16"
> :OnBtnClick := {|o| ::oBrw:Seek( o:Value ), nil }
> :nMaxLength := 100
> :nClrPaneFocus := clRed
> :Create()
> END
>
> ¿Podrías probarlo?
>
> Gracias.
>
> "Xevi" <xevicomas@terra.es> escribió en el mensaje
> news:[email=42ccdaa8@ozsrvnegro.ozlan.local...]42ccdaa8@ozsrvnegro.ozlan.local...[/email]
>> Hola,
>>
>> Un Edit en una ToolBar... la propiedad nClrPaneFocus no funciona.!!!
>>
>> WITH OBJECT ::oEditRecerca := TMaskEdit():New( ::oTB1 )
>> :nClrPaneFocus := clRed
>> :Create()
>> END
>>
>>
>>
>> Un Saludo,
>> Xevi.
>>
>
>