首先是编写qrc文件,比如src.qrc。这个可以用Qtcreator生成,然后将qrc文件编译成rcc文件:
rcc -binary src.qrc -o src.rcc
这样就生成了一个叫src.rcc的文件。
注册资源用:(#_registerResource "QResource" "src.rcc")
然后就可以直接用前缀引用了。
对于qss文件,也可以加入到rcc文件里,引用方法可以是这样:
(defun load-style-sheet (string)
(with-objects ((file (#_new QFile string)))
(#_open file (#_ReadOnly "QFile"))
(with-objects ((stream (#_new QTextStream file)))
(#_setStyleSheet *qapplication* (#_readAll stream)))
(#_close file)))
直接用(load-style-sheet ":/style.qss")调用。
如果希望不放在rcc文件里,而是直接调用qss文件,那么可以这样:
(defun load-style-sheet (string)
(let ((style nil))
(with-open-file (file string)
(setf style (make-sequence 'string (file-length file)))
(read-sequence style file))
(#_setStyleSheet *qapplication* style)))
rcc -binary src.qrc -o src.rcc
这样就生成了一个叫src.rcc的文件。
注册资源用:(#_registerResource "QResource" "src.rcc")
然后就可以直接用前缀引用了。
对于qss文件,也可以加入到rcc文件里,引用方法可以是这样:
(defun load-style-sheet (string)
(with-objects ((file (#_new QFile string)))
(#_open file (#_ReadOnly "QFile"))
(with-objects ((stream (#_new QTextStream file)))
(#_setStyleSheet *qapplication* (#_readAll stream)))
(#_close file)))
直接用(load-style-sheet ":/style.qss")调用。
如果希望不放在rcc文件里,而是直接调用qss文件,那么可以这样:
(defun load-style-sheet (string)
(let ((style nil))
(with-open-file (file string)
(setf style (make-sequence 'string (file-length file)))
(read-sequence style file))
(#_setStyleSheet *qapplication* style)))