[求助]：关于ODCL ListView控件的图标显示的问题

Qlin · 发表于 2002-10-27 02:06:00

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

关于ODCL ListView控件，我怎样也不能让它显示图标，不知是何原因？
附件是ODCL网站上的例子

其中的Lisp文件：

(Defun objectdcl_loadarx ()
(IF (NOT (MEMBER "objectdcl.arx" (ARX)))
(ARXLOAD "objectdcl.arx" "ObjectDCL.arx not found.")
)
)
(Defun c:ListView ()
(objectdcl_loadarx) ; call the method to ensure the ObjectDCL.arx file is loaded
(Odcl_LoadProject "ListView" T) ; call the method to load the project.
(Odcl_Form_Show "ListView" "ListViewDlg") ; show the form here, and make any calls required to initialize/reinitialize the dialog box controls before Odcl_Form_Show
)
(defun c:ListViewDlg_Close_Clicked ()
; the user has clicked the "Close" button, so lets close the dialog now.
(Odcl_Form_Close "ListView" "ListViewDlg")
)
(defun c:ListViewDlg_OnInitialize ()
; lets get the column widths
(setq Col1Width
(Odcl_ListView_CalcColWidth "ListView" "ListViewDlg" "ListView1" "Column 1")
Col2Width
(Odcl_ListView_CalcColWidth "ListView" "ListViewDlg" "ListView1" "Column 2")
Col3Width
(Odcl_ListView_CalcColWidth "ListView" "ListViewDlg" "ListView1" "Column 3")
)
; lets add the columns now that we have the column widths
(Odcl_ListView_AddColumns "ListView" "ListViewDlg" "ListView1"
(list
(list 0 "Column 1" 0 Col1Width)
(list 1 "Column 2" 0 Col2Width)
(list 2 "Column 3" 0 Col3Width)
)
)
; lets fill the list now. Please note that this call will first clear the list view of any rows below the header.
(Odcl_ListView_FillList "ListView" "ListViewDlg" "ListView1"
(list
; add column 1 items
(list "List 1a" 0 "List 2a" 0 "List 3a" 0 "List 4a" 0)
; add column 2 items
(list "List 1b" 1 "List 2b" 1 "List 3b" 1 "List 4b")
; add column 3 items
(list "List 1c" 2 "List 2c" 2 "List 3c" 2 "List 4c")
)
)
)

(Defun objectdcl_loadarx () 
  (IF (NOT (MEMBER "objectdcl.arx" (ARX))) 
    (ARXLOAD "objectdcl.arx" "ObjectDCL.arx not found.") 
  ) 
) 
 
 
(Defun c:ListView () 
        (objectdcl_loadarx)                                ; call the method to ensure the ObjectDCL.arx file is loaded 
        (Odcl_LoadProject "ListView" T)                 ; call the method to load the project. 
        (Odcl_Form_Show  "ListView" "ListViewDlg")         ; show the form here, and make any calls required to initialize/reinitialize the dialog box controls before Odcl_Form_Show 
) 
 
(defun c:ListViewDlg_Close_Clicked () 
          ; the user has clicked the "Close" button, so lets close the dialog now. 
     (Odcl_Form_Close  "ListView" "ListViewDlg") 
) 
(defun c:ListViewDlg_OnInitialize () 
        ; lets get the column widths 
    (setq Col1Width 
        (Odcl_ListView_CalcColWidth "ListView" "ListViewDlg" "ListView1" "Column 1") 
      Col2Width 
        (Odcl_ListView_CalcColWidth "ListView" "ListViewDlg" "ListView1" "Column 2") 
      Col3Width 
        (Odcl_ListView_CalcColWidth "ListView" "ListViewDlg" "ListView1" "Column 3") 
    ) 
        ; lets add the columns now that we have the column widths 
    (Odcl_ListView_AddColumns "ListView" "ListViewDlg" "ListView1" 
      (list 
        (list 0 "Column 1" 0 Col1Width) 
        (list 1 "Column 2" 0 Col2Width) 
        (list 2 "Column 3" 0 Col3Width) 
      ) 
    ) 
            ; lets fill the list now. Please note that this call will first clear the list view of any rows below the header. 
    (Odcl_ListView_FillList "ListView" "ListViewDlg" "ListView1" 
      (list 
            ; add column 1 items 
            (list "List 1a" 0 "List 2a" 0 "List 3a" 0 "List 4a" 0) 
            ; add column 2 items 
            (list "List 1b" 1 "List 2b" 1 "List 3b" 1 "List 4b") 
            ; add column 3 items 
            (list "List 1c" 2 "List 2c" 2 "List 3c" 2 "List 4c") 
      ) 
    ) 
)

Qlin · 发表于 2002-10-27 02:13:58

晓东要我贴一下正在写的ODCL程序界面，
那就把半成品贴出来献丑了。

Qlin · 发表于 2002-10-27 02:15:12

另一个tab,　我问的listview就是想用在这里

XDSoft · 发表于 2002-10-27 02:56:02

最初由 Qlin 发布
[B]另一个tab,　我问的listview就是想用在这里 [/B]

我记得LISTVIEW 应该是在设计FORM的时候设置的，不用LISP做，只要FORM选REPORT样式，就能显示出图片来。

登录/注册后可看大图

XDSoft · 发表于 2002-10-27 03:05:06

下面是我运行的演示的LISTVIEW.LSP

登录/注册后可看大图

Qlin · 发表于 2002-10-27 03:09:35

对！这就是我想要的效果，不知调整了什么地方？

XDSoft · 发表于 2002-10-27 03:16:32

这个图是我修改了FORM,换了图标的。

登录/注册后可看大图

附件是LISTVIEW的LISP和ODCL文件。

XDSoft · 发表于 2002-10-27 03:18:40

QLIN,你这个是在做什么程序？用ODCL做的一个停靠窗口吗？太漂亮了，以前用LISP想做这样的对话框真不敢想象。

做好后，把这个工程的LISP和ODCL给大家贴到论坛来吧，并给大家讲讲ODCL的技巧吧。

Qlin · 发表于 2002-10-27 03:24:17

好的，大家一起学习

对了，晓东，我这个程序还等你的DWG注释提取功能函数呢

Qlin · 发表于 2002-10-27 03:28:54

跟晓东讨论了半天，终于搞清楚了：
我的ObjectDCL是2.0版本，晓东的是2.01版本！
请下载新版：
http://www.xdcad.net/forum/showthread.php?postid=77683#post77683

Qlin · 发表于 2002-10-27 03:32:22

呵呵，刚发现这个地址下载的版本已经变成2.02版了

newer · 发表于 2002-10-31 15:35:28

这一直是我梦寐以求的想在LISP里面使用的界面。
QLIN，还能给贴贴你用ODCL写的其他界面的截图吗？现在不会，看看也过瘾。

Qlin · 发表于 2002-11-2 00:28:54

Sorry，这些天太忙，没什么时间写程序，
难得有同好，就把另外两个tab界面也贴出来吧。

Qlin · 发表于 2002-11-2 00:29:51

工具栏，还没编程

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：关于ODCL ListView控件的图标显示的问题

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子