jadedctrl/ rolladeck
1
0
Disbranĉigi 0
Fontkodo Issues Tirpetoj Actions Packages Projects Eldonoj Wiki Activity

Display a placeholder icon in profile-picture spot 

Now we can display an icon, since profile pictures
aren’t loaded (yet).
This commit is contained in:
Jaidyn Ann 2024-02-11 11:52:20 -06:00
parent 3cefb2fa75
commit e3209701b5
2 changed files with 11 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
contact.scm
View File

@ -126,6 +126,12 @@
;; Initialize the window.
(define (init-window window)
;; Set the profile-picture label to a default theme icon.
(let [(default-profile-pic (or (qt:theme-icon "person") (qt:theme-icon "contact-new")))]
(if default-profile-pic
(set! (qt:property (qt:find window "avatarLabel") "pixmap")
(qt:icon->pixmap default-profile-pic 100 100))))
;; Now prepare callbacks and show the window.
(window-callbacks window)
(qt:show window))
@ -187,7 +193,6 @@
program-args)))))))))
;; Parse a vCard file and populate the window’s forms with its contents.
(define (open-vcard-file window file)
(if (and (file-exists? file)

28
contact.ui
View File

@ -21,31 +21,13 @@
<enum>QLayout::SetMinimumSize</enum>
</property>
<item>
<widget class="QGraphicsView" name="profilePicture">
<property name="enabled">
<widget class="QLabel" name="avatarLabel">
<property name="text">
<string>Profile picture</string>
</property>
<property name="scaledContents">
<bool>true</bool>
</property>
<property name="sizePolicy">
<sizepolicy hsizetype="Fixed" vsizetype="Expanding">
<horstretch>0</horstretch>
<verstretch>0</verstretch>
</sizepolicy>
</property>
<property name="minimumSize">
<size>
<width>50</width>
<height>50</height>
</size>
</property>
<property name="maximumSize">
<size>
<width>100</width>
<height>100</height>
</size>
</property>
<property name="frameShape">
<enum>QFrame::NoFrame</enum>
</property>
</widget>
</item>
<item>