controlling Image in LISP

[nila_joy]

HI,

 

I am using a .sld file as an image , but I failed to control its width and length. whenever I increasing width or length in DCL, the back ground window is increasing, but the actual image is not changing.

 

(defun input_dcl ( /  what_next dcl_id )

    (setq mySlideName "C:\\Documents and Settings\\subhodip.c1145\\Desktop\\image_cut_out1.sld")

(setq myKey "sld")


(defun upDateImage(sldName key)
 
(setq width (dimx_tile key))
(setq height (dimy_tile key))
(start_image key)
(fill_image 0 0 width height 0)
(slide_image 0 0 width height sldName)
(end_image)

) ;;defun



 (defun stool_function (/)
 (setq dcl_id2 (load_dialog "input.dcl"))
 (if (not (new_dialog "stool" dcl_id2))
   (exit)
 ) ; if

   (upDateImage mySlideName myKey)
  
  (action_tile "ok1" "(saveVers_stool)(done_dialog 1)")
  (action_tile "cancel1" "(done_dialog)")
   

(start_dialog)
   (unload_dialog dcl_id2)

   ) ;; defun

 

 

Regards,

 

Subho

KOlkata

[pBe]

try

 

 [color=blue](start_image "LabelName")[/color]
(setq width (dimx_tile [color=blue]myKey[/color]))
(setq height (dimy_tile [color=blue]myKey[/color]))[color=blue](end_image)[/color]
(start_image [color=blue]myKey[/color])
(slide_image [color=blue]1 1[/color] width height [color=blue]myKey[/color])

 

Sample : dialog {
 key = "[color=#0000ff]LabelName[/color]";
 label = "";
 spacer;
 : image_button {
   key = [color=blue]"sld"[/color];
   width = 20;//<-- controls the width
   height = 10;//<--controls the height
   color= -2;
}   
ok_only;
}

 

HTH

Edited March 18, 2012 by pBe