General information
Category:
Coding, syntax & commands
Title:
Display 'Yes' - 'No' for logical value in grid.
I was hoping that with the following code I could display "Yes" or "No" in place of T or F in a grid.
My textbox is just blank though. Any tips?
define class MyTextYesNo as TextBox
procedure init
if evaluate(this.parent.parent.controlsource)
this.value='Yes'
else
this.value='No'
endif
endproc
enddefine
define class MyGridYesNo as Column
ADD OBJECT Header1 AS Header
Add Object Text1 as MyTextYesNo with Borderstyle=0
readonly=.t.
bound=.f.
procedure init
PARAMETER tcCaption, tcControlSource, tnWidth
this.Header1.Caption = tcCaption
this.resizable=.f.
this.ControlSource = tcControlSource
this.width=tnWidth
enddefine
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only