RichTextAreaについて - Printable Version

Code:

{let rta:RichTextArea =

  {RichTextArea value={RichTextString.from-string "Tメイリョウ日本語２２ｐｔest"},

    {on AttachEvent do

      {(rta.data-model asa RichTextStringDataModel).set-attribute "font-family", "メイリオ"}

      {(rta.data-model asa RichTextStringDataModel).set-attribute "font-size", 22pt}



    }

  }

}



{value rta}

PHP Code:

{curl 8.0 applet}
{define-proc public {find-target-in
                        g:Box,
                        t:Type,
                        layer:int = 5,
                        sclass:String = "rta-font-family-control",
                        processed-layer:int}:#Box
    
    set processed-layer = processed-layer + 1
    {if processed-layer > layer then
        {return null}
    }

    {if-non-null gc = g.graphical-children then
        {while true do
            {def (child:any, eof?:bool) = {gc.read-one}}
            {output "Child TYPE:" & {type-of child}}
            {output "child style-class:" & child.style-class}
            {output "sclass:" & sclass}
            
            {if {type-of child} == t and child.style-class == sclass then
                {return child asa Box}
            }
            {if not (child isa Box) then {continue}}
            {return
                {find-target-in
                    child asa Box,
                    t,
                    layer = layer,
                    sclass = sclass,
                    processed-layer
                }
            }
        }
     else
        {return null}
    }
}

{let rta:RichTextArea = {RichTextArea}}

{spaced-vbox
    rta,
    {CommandButton
        {on Action do
            || Get font-size dropdownlist
            {def font-family-ddl =
                {find-target-in rta, DropdownList, layer=6, sclass="rta-font-family-control", 0}
            }
            {def font-size-ddl =
                {find-target-in rta, DropdownList, layer=6, sclass="rta-font-size-control", 0}
            }
            {output font-family-ddl}
            {output font-size-ddl}
        }
    }
}