Scroll Box()를 사용하지 않고도 텍스트 편집 상자에 스크롤 막대를 직접 설정할 수 있다면 좋을 텐데요.
teb = text edit box("",set width(200),set nlines(15));
teb << Set Scrollers( h, v );15개 이상의 항목을 입력하는 경우 아래로 스크롤할 수 있습니다.
나는 여전히 이것이 구현되어야한다고 생각합니다.
텍스트 편집 상자에서 N 라인을 제한해야 하는 경우가 있으며 스크롤 막대가 없기 때문에 텍스트 편집이 매우 어려워집니다. 선택하면 더욱 어려워집니다). 스크롤 상자를 사용할 수 있습니다. 텍스트를 편집할 때 잘 작동하지 않으며 글꼴(및 글꼴 크기)을 기준으로 높이를 계산해야 합니다.
Names Default To Here(1);
nw = New Window("",
V List Box(
H List Box(
window:teb1 = Text Edit Box("", << Set Width(300), << Set N Lines(5), << Set Wrap(250)),
V Scroll Box(
Size(85), // should be calculated based on font size
window:teb2 = Text Edit Box("", << Set Width(300), << Set Wrap(250)),
)
),
Button Box("Close",
nw << Close Window;
)
)
);
txt = "At vero eos et accusamus et iusto odio dignissimos ducimus qui blanditiis praesentium voluptatum deleniti atque corrupti quos dolores et quas molestias excepturi sint occaecati cupiditate non provident, similique sunt in culpa qui officia deserunt mollitia animi, id est laborum et dolorum fuga. Et harum quidem rerum facilis est et expedita distinctio. Nam libero tempore, cum soluta nobis est eligendi optio cumque nihil impedit quo minus id quod maxime placeat facere possimus, omnis voluptas assumenda est, omnis dolor repellendus. Temporibus autem quibusdam et aut officiis debitis aut rerum necessitatibus saepe eveniet ut et voluptates repudiandae sint et molestiae non recusandae. Itaque earum rerum hic tenetur a sapiente delectus, ut aut reiciendis voluptatibus maiores alias consequatur aut perferendis doloribus asperiores repellat.";
wait(1);
nw:teb1 << Set Text(txt);
wait(1);
nw:teb2 << Set Text(txt);