Xailer & OZ Software

How can I assign a nClrText value depend on the value of a database
field, with a DBNavigator on the form ie different records will be
displayed.
e.g. in DBFData5 sample, how could I change the colour of first name to
clRed if one is married ?
I lost this attribute (ability to change colour) when I focus on this
field ?! In what event(s) should I place
::oDBEdit1:nClrText := if( ::oDbfDataSet1:Married, clRed, clBlue) ??

David,
Use the oDataSet:OnPostChange Event:
IF ::oDbEdit1 != NIL // necessary since the control oDBEdit1 is created
after the Dataset
::oDbEdit1:nClrPane := if( oSender:Married, clRed, clBlue)
::oDbEdit1:nClrPaneFocus := if( oSender:Married, clRed, clBlue)
ENDIF
Regards,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"david fung" <davfung@yahoo.com> escribió en el mensaje
news:[email=451a85dd@news.xailer.com...]451a85dd@news.xailer.com...[/email]
> How can I assign a nClrText value depend on the value of a database field,
> with a DBNavigator on the form ie different records will be displayed.
>
> e.g. in DBFData5 sample, how could I change the colour of first name to
> clRed if one is married ?
>
> I lost this attribute (ability to change colour) when I focus on this
> field ?! In what event(s) should I place
>
> ::oDBEdit1:nClrText := if( ::oDbfDataSet1:Married, clRed, clBlue) ??

David,
Use the oDataSet:OnPostChange Event:
IF ::oDbEdit1 != NIL // necessary since the control oDBEdit1 is created
after the Dataset
::oDbEdit1:nClrPane := if( oSender:Married, clRed, clBlue)
::oDbEdit1:nClrPaneFocus := if( oSender:Married, clRed, clBlue)
ENDIF
Regards,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"david fung" <davfung@yahoo.com> escribió en el mensaje
news:[email=451a85dd@news.xailer.com...]451a85dd@news.xailer.com...[/email]
> How can I assign a nClrText value depend on the value of a database field,
> with a DBNavigator on the form ie different records will be displayed.
>
> e.g. in DBFData5 sample, how could I change the colour of first name to
> clRed if one is married ?
>
> I lost this attribute (ability to change colour) when I focus on this
> field ?! In what event(s) should I place
>
> ::oDBEdit1:nClrText := if( ::oDbfDataSet1:Married, clRed, clBlue) ??

Ignacio Ortiz de Zúñiga wrote:
> David,
>
> Use the oDataSet:OnPostChange Event:
>
> IF ::oDbEdit1 != NIL // necessary since the control oDBEdit1 is created
> after the Dataset
> ::oDbEdit1:nClrPane := if( oSender:Married, clRed, clBlue)
> ::oDbEdit1:nClrPaneFocus := if( oSender:Married, clRed, clBlue)
> ENDIF
>
> Regards,
Great, thank you Ignacio.
But it didn't work for the first record displayed. Anywhere else should
this code be placed ?
David

Ignacio Ortiz de Zúñiga wrote:
> David,
>
> Use the oDataSet:OnPostChange Event:
>
> IF ::oDbEdit1 != NIL // necessary since the control oDBEdit1 is created
> after the Dataset
> ::oDbEdit1:nClrPane := if( oSender:Married, clRed, clBlue)
> ::oDbEdit1:nClrPaneFocus := if( oSender:Married, clRed, clBlue)
> ENDIF
>
> Regards,
Great, thank you Ignacio.
But it didn't work for the first record displayed. Anywhere else should
this code be placed ?
David

david fung wrote:
> Ignacio Ortiz de Zúñiga wrote:
>> David,
>>
>> Use the oDataSet:OnPostChange Event:
>>
>> IF ::oDbEdit1 != NIL // necessary since the control oDBEdit1 is
>> created after the Dataset
>> ::oDbEdit1:nClrPane := if( oSender:Married, clRed, clBlue)
>> ::oDbEdit1:nClrPaneFocus := if( oSender:Married, clRed, clBlue)
>> ENDIF
>>
>> Regards,
>
Great, thank you Ignacio.
But it didn't work for the first record displayed. Anywhere else should
this code be placed ?
Any idea for the first record ?

david fung wrote:
> Ignacio Ortiz de Zúñiga wrote:
>> David,
>>
>> Use the oDataSet:OnPostChange Event:
>>
>> IF ::oDbEdit1 != NIL // necessary since the control oDBEdit1 is
>> created after the Dataset
>> ::oDbEdit1:nClrPane := if( oSender:Married, clRed, clBlue)
>> ::oDbEdit1:nClrPaneFocus := if( oSender:Married, clRed, clBlue)
>> ENDIF
>>
>> Regards,
>
Great, thank you Ignacio.
But it didn't work for the first record displayed. Anywhere else should
this code be placed ?
Any idea for the first record ?

David,
Just call the same code on the OnInitialize form event.
Regards,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"david fung" <davfung@yahoo.com> escribió en el mensaje
news:[email=451b8e7f@news.xailer.com...]451b8e7f@news.xailer.com...[/email]
> david fung wrote:
>> Ignacio Ortiz de Zúñiga wrote:
>>> David,
>>>
>>> Use the oDataSet:OnPostChange Event:
>>>
>>> IF ::oDbEdit1 != NIL // necessary since the control oDBEdit1 is
>>> created after the Dataset
>>> ::oDbEdit1:nClrPane := if( oSender:Married, clRed, clBlue)
>>> ::oDbEdit1:nClrPaneFocus := if( oSender:Married, clRed, clBlue)
>>> ENDIF
>>>
>>> Regards,
>>
>
> Great, thank you Ignacio.
>
> But it didn't work for the first record displayed. Anywhere else should
> this code be placed ?
>
> Any idea for the first record ?
>

David,
Just call the same code on the OnInitialize form event.
Regards,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"david fung" <davfung@yahoo.com> escribió en el mensaje
news:[email=451b8e7f@news.xailer.com...]451b8e7f@news.xailer.com...[/email]
> david fung wrote:
>> Ignacio Ortiz de Zúñiga wrote:
>>> David,
>>>
>>> Use the oDataSet:OnPostChange Event:
>>>
>>> IF ::oDbEdit1 != NIL // necessary since the control oDBEdit1 is
>>> created after the Dataset
>>> ::oDbEdit1:nClrPane := if( oSender:Married, clRed, clBlue)
>>> ::oDbEdit1:nClrPaneFocus := if( oSender:Married, clRed, clBlue)
>>> ENDIF
>>>
>>> Regards,
>>
>
> Great, thank you Ignacio.
>
> But it didn't work for the first record displayed. Anywhere else should
> this code be placed ?
>
> Any idea for the first record ?
>

Ignacio Ortiz de Zúñiga wrote:
> David,
>
> Just call the same code on the OnInitialize form event.
>
> Regards,
>
Thank you for your help, it could be a simple task, but still struggling
with all these OOP !

Ignacio Ortiz de Zúñiga wrote:
> David,
>
> Just call the same code on the OnInitialize form event.
>
> Regards,
>
Thank you for your help, it could be a simple task, but still struggling
with all these OOP !