Interface TextControl::getDisabledTextColor

Description

In BBj 15.0 and higher, this method returns the text color of a text control when it is disabled

Syntax

Return Value

Method

BBjColor

getDisabledTextColor()

Parameters

None.

Return Value

Returns the text color of this control when it is disabled.

Remarks

The default disabled text color is determined by the look and feel, but is typically gray (128,128,128).

Example

rem ' TextControl::getDisabledTextColor

begin
sysgui = unt
open (sysgui)"X0"
sysgui! = bbjapi().getSysGui()
window! = sysgui!.addWindow(100,100,300,500,"getDisabledTextColor",$00090003$,$ffffffff$)
data "Item 0","Item 1","Item 2","Item 3","Item 4"
list! = bbjapi().makeVector()
list$ = ""
while 1
    dread item$,end=*break
    list!.add(item$)
    list$ = list$ + item$ + $0a$
wend

rem ' BBjInputE
mask$="XXX-000-AAA-aaa--ZZZ-zzz-UUU"
control! = window!.addInputE(101,10,10,125,25,$0000$,mask$," ",0,"","")
control!.setToolTipText("BBjInputE mask="+mask$)

rem ' BBjInputESpinner
control! = window!.addInputESpinner(102,145,10,145,25,list!)
control!.setToolTipText("BBjInputESpinner")

rem ' BBjInputN
mask$="###,###,###.##CR"
control! = window!.addInputN(103,10,40,125,25,$0000$,mask$,$00$,-123,-123)
control!.setToolTipText("BBjInputN mask="+mask$)

rem ' BBjInputNSpinner
mask$="-###,###,###.##"
control! = window!.addInputNSpinner(104,145,40,145,25,$0000$,mask$,$00$,0,0)
control!.setToolTipText("BBjInputNSpinner mask="+mask$)

rem ' BBjInputD
rem 'locale$ = stbl("!LOCALE","de_DE")
control! = window!.addInputD(105,10,70,125,25,$0000$,"",$00$,0,0)
control!.setToolTipText("BBjInputD locale="+stbl("!LOCALE")+" mask="+control!.getMask())

rem ' BBjInputDSpinner
control! = window!.addInputDSpinner(106,145,70,145,25,$0000$,"",$00$,0,0)
control!.setToolTipText("BBjInputDSpinner locale="+stbl("!LOCALE")+" mask="+control!.getMask())

rem ' BBjEditBox
control! = window!.addEditBox(107,10,100,125,25,"EditBox",$0000$)
control!.setToolTipText("BBjEditBox")

rem ' BBjEditBoxSpinner
control! = window!.addEditBoxSpinner(108,145,100,145,25,list!)
control!.setToolTipText("BBjEditBoxSpinner")

rem ' BBjEditBox (Password)
control! = window!.addEditBox(109,10,130,125,25,"xyzzy",$0400$)
control!.setToolTipText("BBjEditBox (Password)")

rem ' BBjListEdit
control! = window!.addListEdit(110,145,130,145,145,list$)
control!.selectIndex(0)
control!.setFieldHeight(25)
control!.setToolTipText("BBjListEdit")

rem ' BBjCEdit
control! = window!.addCEdit(111,10,160,280,130,list$,$0104$)
control!.setToolTipText("BBjCEdit")

rem ' BBjStaticText
control! = window!.addStaticText(112,10,300,125,25,"BBjStaticText",$$)
control!.setToolTipText("BBjStaticText")

rem ' BBjListButton
control! = window!.addListButton(113,145,300,125,145,list$,$$)
control!.selectIndex(0)
control!.setToolTipText("BBjListButton")

rem ' BBjCheckBox
control! = window!.addCheckBox(114,10,330,125,30,"BBjCheckBox",$$)
control!.setToolTipText("BBjCheckBox")

rem ' BBjRadioButton
control! = window!.addRadioButton(115,145,330,125,25,"BBjRadioButton",$$)
control!.setToolTipText("BBjRadioButton")

rem ' BBjTabCtrl
tabctrl! = window!.addTabCtrl(116,10,360,280,80,$00000008$)
for tab = 1 to 9
    id = 200 + tab
    child! = window!.addChildWindow(id,0,0,275,70,"",$00010010$,id,$$)
    child!.addEditBox(101,tab*10,5,100,25,"BBjEditBox")
    tabctrl!.addTab(str(tab-1),child!)
next tab

rem ' Editable
control! = window!.addCheckBox(117,10,450,125,25,"Editable",$0004$)
control!.setToolTipText("Make all text fields editable")

rem ' Enabled
control! = window!.addCheckBox(118,145,450,125,25,"Enabled",$0004$)
control!.setToolTipText("Enable all text fields")

rem ' Events
dim event$:tmpl(sysgui),generic$:noticetpl(0,0)
e = 0
color! = sysgui!.makeColor(0,0,255)
for id=101 to 116
    control! = window!.getControl(id)
    print control!.getDisabledTextColor(err=*next)," ",
    control!.setDisabledTextColor(color!,err=*next);print control!," ",color!
next id
repeat
    readrecord(sysgui,siz=10)event$
    if event.code$="t" then continue; rem ' *** need to filter this! ***
    e = e + 1, e! = sysgui!.getLastEvent(), e$ = e!.toString(), e$ = e$(1,pos("@"=e$)-1)
    print str(e)," ",e$," code=",event.code$," context=",str(event.context)," id=",str(event.id)," flags=",str(event.flags)," x=",str(event.x)," y=",str(event.y)
    if event.code$="x" then print " Spin text: ",e!.getText()
    if event.code$="N" then gosub notify
    if event.code$="c" and event.id=117 then gosub editable
    if event.code$="c" and event.id=118 then gosub enabled
until event.code$="X"
release

editable:
    for id=101 to 116
        window!.getControl(id).setEditable(event.flags,err=*next)
    next id
return

enabled:
    for id=101 to 116
        window!.getControl(id).setEnabled(event.flags)
    next id
return

notify:
    generic$ = notice(sysgui,event.x)
    dim notice$:noticetpl(generic.objtype,event.flags)
    notice$ = generic$
    fields = pos($0a$=fattr(notice$,""),1,0)
    dim field$:"name["+str(fields)+"]:c(1*)"
    let field$=fattr(notice$,"")
    for field=1 to fields
        name$ = field.name$[field]
        info$ = fattr(notice$,name$,$$)
        print " ",name$,"=",
        if asc(info$)=1 then print field(notice$,name$), else print str(nfield(notice$,name$)),
    next field
    print ""
return

keypress:
    e! = sysgui!.getLastEvent()
    x$ = x$+iff(e!.isAltDown(),"ALT ","")
    x$ = x$+iff(e!.isCmdDown(),"CMD ","")
    x$ = x$+iff(e!.isControlDown(),"CTRL ","")
    x$ = x$+iff(e!.isShiftDown(),"SHIFT ","")
    x$ = x$+" char="+Character.toString(e!.getKeyChar())+" "+str(e!.getKeyChar())+" code="+str(e!.getKeyCode())
    gosub event
return

See Also

BBjAPI

BBjSysGui

BBjControl

Interface TextControl

See the BBj Object Diagram for an illustration of the relationship between BBj Objects.