[★★★]DCL对话框图片制作[★★★]

aicr317

各位大哥帮帮我吧

aicr317

ding

jxlsp

好象不能,你引用的字好象不是图片,是画的.

aicr317

是幻灯片，DCG.SLD，

jxlsp

幻灯片是可以有,图片好象也可以,贱人工具箱就用了图片,你去问下他.

aicr317

練習 (Exercises)

建立新的對話框IMG1.DCL,存在於C盤的根目錄中;在對話框中只會顯示兩個影像及一個確定鈕,其定義如下:

IMG:dialog
{	label="Image" ;
	:row			//建立橫列元件
	{	:image		//建立影像元件
		{	key="IMG_L" ;
			width=15;
			height=6;
			color=-2;
		}
		:image		//建立影像元件
		{	key="IMG_R" ;
			width=15;
			height=6;
			color=-2;
		}
	}			//關閉橫列元件
	ok_only;
}

建立新的程式檔IMG1.LSP,主程式用作啟動對話框,輔助程式則處理影像;其程式碼如下:

(DEFUN C:IMG()	(SETQ DCL_ID (LOAD_DIALOG "C:/IMG1.DCL"))
	(NEW_DIALOG &uqotIMG" DCL_ID)
	(S_IMG "IMG_L")
	(S_IMG "IMG_R")
	(START_DIALOG)(UNLOAD_DIALOG DCL_ID)
	(PRINC))

(DEFUN S_IMG(KEY)	(COND ((= KEY "IMG_L") (SETQ SLD "C:/IMG1.SLD"))
		((= KEY "IMG_R") (SETQ SLD "C:/IMG2.SLD")))
	(SETQ TMP_X (DIMX_TILE KEY) TMP_Y (DIMY_TILE KEY))
	(START_IMAGE KEY)
	(FILL_IMAGE 0 0 TMP_X TMP_Y -2)
	(SLIDE_IMAGE 0 0 TMP_X TMP_Y SLD)
	(END_IMAGE))

按照上面的方法，好像不行啊！！！

jxlsp

(SETQ SLD "C:/IMG1.SLD"))

改为:(SETQ SLD "C://IMG1.SLD"))

Andlu-king

楼主的 DCL 代码生成器在哪儿下载到的？！