OpenDCL Forums

Hello such'm using this "DCL-Form-Resize" function in the following code, but I can not do that again take the initial size was.

(defun c:PALETA1DEU/Prototipo1/btsize#OnAccionado ()
(if  (= 295 (dcl-Control-SetMinHeight PALETA1DEU/Prototipo1) )
   (progn (dcl-Form-Resize PALETA1DEU/Prototipo1  162 640)
               (dcl-Form-Resize PALETA1DEU/Prototipo1  162 295)
)
)
)


Where are you 'taking the original size' in the code? And why are you using dcl-Form-Resize twice?

Hello such what I try to do is create a button that allows me to resize the high, similar to what is done with the properties palette AutoCAD that allows us to expand and extend the items

where it can be the error  :-\

(defun c:PALETA1DEU/Prototipo1/btsize#OnAccionado ( / )
(if (= (Car (dcl-Form-GetControlArea PALETA1DEU/Prototipo1)) 295)
(progn
(dcl-Form-Resize PALETA1DEU/Prototipo1 162 640)
(dcl-Control-SetPicture PALETA1DEU/Prototipo1/btsize 242)
);_ progn
(progn
(dcl-Form-Resize PALETA1DEU/Prototipo1 162 295)
(dcl-Control-SetPicture PALETA1DEU/Prototipo1/btsize 241)
);_ progn
);_ if
(princ))


You may have to undock the palette for the resizing to work.

Hello thanks, but already I found the error

(defun c:PALETA1DEU/Prototipo1/btsize#OnAccionado ( / )
(if (= (cadr (dcl-Form-GetControlArea PALETA1DEU/Prototipo1)) 295)
(progn
(dcl-Form-Resize PALETA1DEU/Prototipo1 162 640)
(dcl-Control-SetPicture PALETA1DEU/Prototipo1/btsize 242)
);_ progn
(progn
(dcl-Form-Resize PALETA1DEU/Prototipo1 162 295)
(dcl-Control-SetPicture PALETA1DEU/Prototipo1/btsize 241)
);_ progn
);_ if
)