(defun c:Test ()
(Setq temp_folder "c:\\temp")
(Dcl_LoadProject "QLook.odcl" T)
(Dcl_Form_Show QLook_QLook)
)



(defun c:QLook_QLook_OnInitialize (/ dwg_list)
(Dcl_ListView_Clear QLook_QLook_ListView1)
(Dcl_ListView_AddColumns QLook_QLook_ListView1 (list (list "Drawings   " 0 600)))
(setq dwg_list (vl-directory-files temp_folder "*.dwg" 1))
(if (/= dwg_list nil) (foreach N DWg_List 
                      (Dcl_ListView_AddItem QLook_QLook_ListView1 0 (strcat temp_folder "\\" N))
                      )
)
)





(defun c:QLook_QLook_DwgPreview1_OnDblClicked ( / rvalue)
(Setq rValue (Dcl_DwgPreview_GetDwgName QLook_QLook_DwgPreview1))
(Dcl_Form_Close QLook_QLook)
(vla-activate (vla-open (vla-get-documents (vlax-get-acad-object)) rvalue))
)

(defun c:QLook_QLook_TextButton1_OnClicked (/)
(Dcl_Form_Close QLook_QLook)
)



(defun c:QLook_QLook_ListView1_OnClicked (Row Column /)
(Setq sSelText (Dcl_ListView_GetItemText QLook_QLook_ListView1 Row Column))
(Dcl_DwgPreview_LoadDwg QLook_QLook_DwgPreview1 sSelText)
)