Help,How to get the type of form ? · OpenDCL Forums Archive

XDCAD 2012-08-13 05:54 UTC

HI,ALL.

(setq _forms (vl-remove-if-not 'dcl_form_isactive (apply
'append
(mapcar
'dcl_project_getforms
(dcl_getprojects)
)
)
)
)

Through the above code get form variables, how to further the type of form?
exp: Modeless ? Control Bar? .....

Thanks...

roy_043 2012-08-13 06:53 UTC

Perhaps this is what you are looking for?:
(dcl_Control_Dump {Deep [as Boolean]})

XDCAD 2012-08-13 10:03 UTC

Thanks roy_043.

命令: (setq d (dcl_Control_Dump (cadar a) t))
CDclControlobject [_CtlForm: XDOB_LayerAssistant_图层上停靠Bar (DlgControl:
XDOB_LayerAssistant_图层上停靠Bar)]
# 0: Property [ (Name)] = "图层上停靠Bar"
# 1: Property [ Close] (hidden) =
c:LayerTopBar_OnClose
# 2: Property [ DocActivated] (hidden) =
c:LayerTopBar_OnDocActivated
# 3: Property [ EnteringNoDocState] (hidden) =
c:LayerTopBar_OnEnteringNoDocState
# 4: Property [ Help] (hidden) =
# 5: Property [ Initialize] (hidden) =
c:LayerTopBar_OnInitialize
# 6: Property [ MouseEntered] (hidden) =
# 7: Property [ MouseMovedOff] (hidden) =
# 8: Property [ Move] (hidden) =
# 9: Property [ Size] (hidden) =
# 10: Property [ (ControlBrowser)] = [PropActiveXMethods/0/""] {Prop:
, PropGet: , PropPut: , PropPutRef: , Event: ,
Methods: {}}
# 11: Property [ AllowResizing] = False
# 12: Property [ BackColor] = -24
# 13: Property [ DockableSides] = 1
# 14: Property [ EventInvoke] = 1
# 15: Property [ Height] = 32
# 16: Property [ KeepFocus] = False
# 17: Property [ MaxHeight] = 30
# 18: Property [ MaxWidth] = 0
# 19: Property [ MinHeight] = 30
# 20: Property [ MinWidth] = 0
# 21: Property [ TitleBarText] = "图层助手TopBar"
# 22: Property [ VarName] = "LayerTopBar"
# 23: Property [ Width] = 1080
T

The return value is T, how to identify which types of form?

Thanks again...

fred_tomke 2012-08-14 13:01 UTC

Hi, there's no direct way but you can compare the returning values of (dcl_Control_GetProperties form) of each form type. There are some special properties and events of each form type. You only have to search for the relevant ones...

Regards, Fred