[密技]：DCL Image_button

mmmm

可以直接用 (set_tile "Image_Button" "Any content")在图片内写字，中英文均可。
限制：字体均为黑色加粗的，左对齐（前加适量空格可解决），仅支持一行文字

yjtdkj

不错不错，又学到一招！！！

ashan

好技巧！非常实用！

benbenzhuzhu

直接
好用

xyz518mm

请问是写在LSP 还是 DCL 呢?
是否有范例可以看看

yuer0103

楼主，请发个具体实例上来让大家见识一下，好不好？

zxq0220

最初由 yuer0103 发布
[B]楼主，请发个具体实例上来让大家见识一下，好不好？ [/B]

实例：
LISP
[php]
(DEFUN C:test ()
(IF (> (SETQ DCL_ID (LOAD_DIALOG "test")) 0) (PROGN
  (IF (NEW_DIALOG "test" DCL_ID "") (PROGN
   (SET_TILE "img" "中文 English 123")
   (action_tile "accept" "(DONE_DIALOG 1)")
   (action_tile "cancel" "(DONE_DIALOG 0)")
   (SETQ RE (START_DIALOG))
  )
   (ALERT "Unable to display dialog box!")
  )
  (UNLOAD_DIALOG DCL_ID)
)
  (ALERT "Unable to load dialog box!")
)
(PRINC)
)
[/php]
DCL
[php]
dcl_settings : default_dcl_settings { audit_level = 3; }
test : dialog {
label="TEST 测试";
:image_button { key="img"; width=20; height=8; color=-15; allow_accept = true;}
spacer;
ok_cancel;
}
[/php]