更改标签的属性
我可以更改标签或文本的属性吗？：对话框
{
label=“文本1….”；
：行
{
：list_框
{
label=“文本2…..”；
我可以更改此文本1和文本2的颜色、文本样式吗？
当做
...
苏波
印度 不在dcl中
看看opendcl。通用域名格式 你能接受高光吗？
(defun c:test (/ create_dialog fname fn dia)
(defun create_dialog ()
(setq fname (vl-filename-mktemp "tmp.DCL"))
(setq fn (open fname "a"))
(write-line
"Sample
: dialog
{
: image {
key = \"Sample_B\";
width = 24;
height = 1.28;
fixed_width = true;
fixed_height = true;
aspect_ratio = 1;
color = 4;
}
spacer;
ok_only;
}"
fn
)
(close fn)
)
(create_dialog)
(setq Dia (load_dialog fname))
(if (not (new_dialog "Sample" Dia))
(exit)
)
(set_tile "Sample_B" "Background Highlight.")
(start_dialog)
(unload_dialog Dia)
(vl-file-delete fname)
(princ)
)
页:
[1]