[求助]：有关图象组件的问题

lei_na521

我想用图象组件,作完幻灯片后,程序运行时,幻灯片的图形只占了下面一小部分,而没有在图象区域完全显示,这是什么原因呀?
部分lisp代码
(setq dcl_id (load_dialog "g:/我的程序/泵a.dcl"))
  (if (not (new_dialog "泵a" dcl_id))
    (exit)
  )
  (image1 "ed6" "泵a")
  (action_tile "accept" "(bacanshu)")
  (start_dialog)
  (unload_dialog dcl_id)
  (princ)
(defun image1 (key image_name / x y)
  (start_image key)
  (setq        x (dimx_tile key)
        y (dimy_tile key)
  )
  (fill_image 1 1 x y 0)
  (slide_image 1 1 x y image_name)
  (end_image)
)
dcl代码
泵a:dialog{
label="泵";
:boxed_row{
:boxed_column{
label="所需参数";
:edit_box{
label="L1";
key="ed1";
edit_limit=30;
edit_width=10;
value="";
}
:edit_box{
label="L2";
key="ed2";
edit_limit=30;
edit_width=10;
value="";
}
:edit_box{
label="L3";
key="ed3";
edit_limit=30;
edit_width=10;
value="";
}
:edit_box{
label="L4";
key="ed4";
edit_limit=30;
edit_width=10;
value="";
}
:edit_box{
label="L5";
key="ed5";
edit_limit=30;
edit_width=10;
value="";
}
}
:boxed_column{
label="所绘图形";
:icon_image{
key="ed6";
width=25;
height=15;
}
}
}
ok_only;
}