Post Reply 
 
Thread Rating:
  • 17 Votes - 1.94 Average
  • 1
  • 2
  • 3
  • 4
  • 5
RichTextAreaについて
10-12-2018, 07:06 PM (This post was last modified: 10-12-2018 07:14 PM by heavybugtracker.)
Post: #4
RE: RichTextAreaについて
長い間見れてなく、ご回答が遅くなって失礼しました。

romさんのやりたいことはRichTextAreaのソースコードをCurlの開発環境の
インストールフォルダにあるOPEN-CONTROLSから取得し、改造する方が無難です。
(OPEN-CONTROLSのソースコードは通常次の場所にあります:
C:\Program Files (x86)\Curl Corporation\Surge\9\ide\gui\controls)


それが嫌でしたら、ハック的なやり方もあります。
Curlのグラフィック階層の考え方を利用して、対象のグラフィックを探すことです。

次のコードをご参考になれれば幸いです。
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:anyeof?:bool) = {gc.read-one}}
            {
output "Child TYPE:" & {type-of child}}
            {
output "child style-class:" child.style-class}
            {
output "sclass:" sclass}
            
            {if {
type-of child} == and child.style-class == sclass then
                
{return child asa Box}
            }
            {if 
not (child isa Boxthen {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 rtaDropdownListlayer=6sclass="rta-font-family-control"0}
            }
            {
def font-size-ddl =
                {
find-target-in rtaDropdownListlayer=6sclass="rta-font-size-control"0}
            }
            {
output font-family-ddl}
            {
output font-size-ddl}
        }
    }


上記Font-familyおよびFont-sizeのドロップダウンリストのインスタンスを取得出来たら、中の値(リスト)が変更可能になりますので、ご期待の動きにはできるかと思います。
Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
RichTextAreaについて - rom - 08-07-2018, 10:42 AM
RE: RichTextAreaについて - rom - 08-28-2018, 01:28 PM
RE: RichTextAreaについて - heavybugtracker - 10-12-2018 07:06 PM
Forum Jump:


User(s) browsing this thread:
1 Guest(s)

MyBB SQL Error

MyBB has experienced an internal SQL error and cannot continue.

SQL Error:
1017 - Can't find file: 'mybb_threadviews' (errno: 2)
Query:
INSERT INTO mybb_threadviews (tid) VALUES('1476')