Started by amc.dicsac ·
2016-05-12 22:44 UTC ·
5 replies · SMF topic #2370
amc.dicsac
2016-05-12 22:44 UTC
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)
)
)
)
roy_043
2016-05-13 07:32 UTC
Where are you 'taking the original size' in the code? And why are you using dcl-Form-Resize twice?
amc.dicsac
2016-05-13 15:13 UTC
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
amc.dicsac
2016-05-13 17:47 UTC
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))
roy_043
2016-05-13 18:23 UTC
You may have to undock the palette for the resizing to work.
amc.dicsac
2016-05-13 18:37 UTC
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
)