12-23-2018, 11:16 PM (This post was last modified: 12-23-2018, 11:25 PM by r0n.)
In the below code you see a dialog with 2 listboxes (left and right), the right listbox is the problem.
The problem is that the right listbox is not working when the lines are activated with below comment
;; <============= activate this and right listbox does not rendercorrectly
The code in the below state works and displays the listboxes and images.
But as soon as you activate one or both lines of the code with the ;; <====== comment, the right listbox does not render correctly.
This dialog also needs to restarts itself when an item in the left listbox is double clicked (or [ENTER]), that's why I already added that code. I did this just be sure it does not hamper with the code that renders the listboxes.
I added the 3 images I used as attachment.
There might be a very large problem behind this that requires to much to code, I don't know.
But if this would take to long then just skip this. But if there is a workable solution I would really love to know.
sel message ,caseWM_INITDIALOG ,,;; Font style for both listboxes ,,__Font-- t_f1.Create("Tahoma"121) ,,int v ,,for v 03 ,,,t_afont[]=t_f1
,,;; Make sure [ENTER] can be used in listbox ,,SetWindowSubclass(id(6 hDlg)&sub.WndProc_Subclass_lbleft_enter10) ,,;SetWindowSubclass(id(8 hDlg) &sub.WndProc_Subclass_lbright_enter 1 0) ;; <============= activate this and right listbox does not render correctly ,, ,caseWM_DESTROY ,caseWM_COMMANDgoto messages2 ret ;messages2 sel wParam ,caseIDOK ,caseIDCANCEL
,;; In a later (final) version of this dialog needs to restart and reload the right listbox contents ,;; It's done when user double clicks (or [ENTER]) on left listbox. I already implented this so any conflicts ,;; regarding restarting dialog and rendering listboxes could be handled early on. ,caseLBN_DBLCLK<<16|6 ,,_i=LB_SelectedItem(lParam) ,,DT_Ok hDlg 3 , ret1
sel message ,caseWM_GETDLGCODE ,sel(wParam) ,,case [VK_SPACE] ret0 ,,case [VK_RETURN] retDLGC_WANTALLKEYS;;please send me WM_KEYDOWN instead of closing the dialog , ,caseWM_KEYDOWN ,sel(wParam)case [VK_RETURN,VK_SPACE] SendMessageGetParent(hwnd)WM_COMMANDLBN_DBLCLK<<16|GetDlgCtrlID(hwnd) hwnd;ret;;to use the same code as for double-click ,;sel(wParam) case [VK_RETURN,VK_SPACE] SendMessage GetParent(hwnd) WM_COMMAND LBN_SELCHANGE<<16|GetDlgCtrlID(hwnd) hwnd; ret ;;to use the same code as for double-click
sel message ,caseWM_GETDLGCODE ,sel(wParam) ,,case [VK_SPACE] ret0 ,,case [VK_RETURN] retDLGC_WANTALLKEYS;;please send me WM_KEYDOWN instead of closing the dialog , ,caseWM_KEYDOWN ,sel(wParam)case [VK_RETURN,VK_SPACE] SendMessageGetParent(hwnd)WM_COMMANDLBN_DBLCLK<<16|GetDlgCtrlID(hwnd) hwnd;ret;;to use the same code as for double-click ,;sel(wParam) case [VK_RETURN,VK_SPACE] SendMessage GetParent(hwnd) WM_COMMAND LBN_SELCHANGE<<16|GetDlgCtrlID(hwnd) hwnd; ret ;;to use the same code as for double-click
int R=DefSubclassProc(hwnd message wParam lParam)
sel message ,caseWM_NCDESTROY ,RemoveWindowSubclass(hwnd &sub.WndProc_Subclass_lbleft_enter uIdSubclass)
sel message ,caseWM_INITDIALOG ,,;;;Font style for both listboxes ,,__Font-- t_f1.Create("Tahoma"121) ,,t_f1.SetDialogFont(hDlg "6 8") ,,;;;Make sure [ENTER] can be used in listbox ,,SetWindowSubclass(id(6 hDlg)&sub.WndProc_Subclass_lbleft_enter10) ,,;SetWindowSubclass(id(8 hDlg) &sub.WndProc_Subclass_lbright_enter 1 0) ;; <============= activate this and right listbox does not render correctly ,, ,caseWM_DESTROY ,caseWM_COMMANDgoto messages2 ret ;messages2 sel wParam ,caseIDOK ,caseIDCANCEL
,;;;In a later (final) version of this dialog needs to restart and reload the right listbox contents ,;;;It's done when user double clicks (or [ENTER]) on left listbox. I already implented this so any conflicts ,;;;regarding restarting dialog and rendering listboxes could be handled early on. ,caseLBN_DBLCLK<<16|6 ,,_i=LB_SelectedItem(lParam) ,,DT_Ok hDlg 3 , ret1
sel message ,caseWM_GETDLGCODE ,sel(wParam) ,,case [VK_SPACE] ret0 ,,case [VK_RETURN] retDLGC_WANTALLKEYS;;please send me WM_KEYDOWN instead of closing the dialog , ,caseWM_KEYDOWN ,sel(wParam)case [VK_RETURN,VK_SPACE] SendMessageGetParent(hwnd)WM_COMMANDLBN_DBLCLK<<16|GetDlgCtrlID(hwnd) hwnd;ret;;to use the same code as for double-click ,;sel(wParam) case [VK_RETURN,VK_SPACE] SendMessage GetParent(hwnd) WM_COMMAND LBN_SELCHANGE<<16|GetDlgCtrlID(hwnd) hwnd; ret ;;to use the same code as for double-click
sel message ,caseWM_GETDLGCODE ,sel(wParam) ,,case [VK_SPACE] ret0 ,,case [VK_RETURN] retDLGC_WANTALLKEYS;;please send me WM_KEYDOWN instead of closing the dialog , ,caseWM_KEYDOWN ,sel(wParam)case [VK_RETURN,VK_SPACE] SendMessageGetParent(hwnd)WM_COMMANDLBN_DBLCLK<<16|GetDlgCtrlID(hwnd) hwnd;ret;;to use the same code as for double-click ,;sel(wParam) case [VK_RETURN,VK_SPACE] SendMessage GetParent(hwnd) WM_COMMAND LBN_SELCHANGE<<16|GetDlgCtrlID(hwnd) hwnd; ret ;;to use the same code as for double-click
int R=DefSubclassProc(hwnd message wParam lParam)
sel message ,caseWM_NCDESTROY ,RemoveWindowSubclass(hwnd &sub.WndProc_Subclass_lbleft_enter uIdSubclass)
ret R
#sub ColorCallback function#CBITEMCOLOR&c
;This is a sample callback function that can be used with CB_ItemImageAndColor. ;Shows how to set combo/list box item background and text colors depending on item text. ;The function will be called for each item when displaying it. ;c contains various info that can be useful to draw the item. ;To set colors, change c.bkColor and/or c.textColor. ;Also you can change c.dtFlags and c.text.
;c.text - item text. In/out. ;c.bkColor - item background color. In/out. ;c.textColor - item text color. In/out. ;c.hwnd - control handle. ;c.item - item index. ;c.itemData - item data. To set item data, use message CB_SETITEMDATA or LB_SETITEMDATA, documented in MSDN. ;c.selected - 1 if the item is selected, 0 if not. ;c.isLB - 1 if the control is listbox, 0 if combobox. ;c.dtFlags - DrawText flags. Documented in the MSDN Library on the Internet. In/out. ;c.param - an user-defined value, passed to CB_ItemColor.
;/ function# hDlg message wParam lParam ctrlId [$icons] [flags] [imgWidth] [imgHeight] [dtFlags] [callbackFunc] [param] ;;flags: 1 listbox (default combobox), 2 item data is image index, 4 icons is imagelist, 16 not icons (bmp, jpg, gif)
;Adds icons or bmp/jpg/gif images to a combo box or list box. ;Also can draw items with custom background and text colors.
;This is what you have to do to create a combo or list box: ;1. The dialog must be a smart dialog, ie with dialog procedure. ;2. In the dialog editor, add a combo or list box. ;3. In the Styles dialog: ;;;;For combo box, select CBS_OWNERDRAWFIXED and CBS_HASSTRINGS styles. Make sure that CBS_SORT is not selected (sorted combo boxes are not supported). ;;;;For list box, select LBS_OWNERDRAWFIXED and LBS_HASSTRINGS styles. Make sure that LBS_SORT is not selected (sorted list boxes are not supported). ;4. In the dialog procedure, insert CB_ItemImageAndColor before 'sel messages' line, for each such control. If need colors, create a callback function and pass its address.
;hDlg, message, wParam, lParam - hDlg, message, wParam, lParam. ;ctrlId - combo/list box id. ;icons - list of icon files. If flag 16 used, list of image files of type bmp, jpg or gif. If flag 4 used, imagelist file. Can be 0 if don't need images. ;flags: ;;;;1 the control is a listbox. ;;;;2 item image index is stored in item data (default - same as item index). ;;;;4 icons is .bmp file created with QM imagelist editor. ;;;;16 use bitmap (default - use icon). Don't use with flag 4. ;imgWidth, imgHeight - width and height of images. Default: 16 pixels. ;dtFlags - DrawText flags. Documented in the MSDN Library on the Internet. Xored with DT_NOPREFIX. ;callbackFunc - address of a callback function that sets text colors. Optional. See SampleCbItemColorProc. ;param - a user-defined value that will be passed to the callback function.
int hCheck=id(6 hDlg)
if(IsWindowEnabled(hCheck))
_i=LB_SelectedItem(id(8 hDlg))
out _i
ret
So now everything seems to work like it's supposed to with the listboxes having their text content rendered with font styling and showing the thumbnails.
after looking further at the code the second subclass sub function is not needed as it does the same thing if you eliminate one of the subclass functions and call only one sub function for both i think everything renders correctly this renders both list boxes correctly
i think having 2 subfunctions doing the exact same thing was causing the conflict
sel message ,caseWM_INITDIALOG ,,;;;Font style for both listboxes ,,__Font-- t_f1.Create("Tahoma"121) ,,t_f1.SetDialogFont(hDlg "6 8") ,,;;;Make sure [ENTER] can be used in listbox ,,SetWindowSubclass(id(6 hDlg)&sub.WndProc_Subclass_lbleft_enter10) ,,SetWindowSubclass(id(8 hDlg)&sub.WndProc_Subclass_lbleft_enter10);; <============= activate this and right listbox does not render correctly ,, ,caseWM_DESTROY ,caseWM_COMMANDgoto messages2 ret ;messages2 sel wParam ,caseIDOK ,caseIDCANCEL
,;;;In a later (final) version of this dialog needs to restart and reload the right listbox contents ,;;;It's done when user double clicks (or [ENTER]) on left listbox. I already implented this so any conflicts ,;;;regarding restarting dialog and rendering listboxes could be handled early on. ,caseLBN_DBLCLK<<16|6 ,,_i=LB_SelectedItem(lParam) ,,DT_Ok hDlg 3 , ret1
sel message ,caseWM_GETDLGCODE ,sel(wParam) ,,case [VK_SPACE] ret0 ,,case [VK_RETURN] retDLGC_WANTALLKEYS;;please send me WM_KEYDOWN instead of closing the dialog , ,caseWM_KEYDOWN ,sel(wParam)case [VK_RETURN,VK_SPACE] SendMessageGetParent(hwnd)WM_COMMANDLBN_DBLCLK<<16|GetDlgCtrlID(hwnd) hwnd;ret;;to use the same code as for double-click ,;sel(wParam) case [VK_RETURN,VK_SPACE] SendMessage GetParent(hwnd) WM_COMMAND LBN_SELCHANGE<<16|GetDlgCtrlID(hwnd) hwnd; ret ;;to use the same code as for double-click
int R=DefSubclassProc(hwnd message wParam lParam)
sel message ,caseWM_NCDESTROY ,RemoveWindowSubclass(hwnd &sub.WndProc_Subclass_lbleft_enter uIdSubclass)
ret R
#sub ColorCallback function#CBITEMCOLOR&c
;This is a sample callback function that can be used with CB_ItemImageAndColor. ;Shows how to set combo/list box item background and text colors depending on item text. ;The function will be called for each item when displaying it. ;c contains various info that can be useful to draw the item. ;To set colors, change c.bkColor and/or c.textColor. ;Also you can change c.dtFlags and c.text.
;c.text - item text. In/out. ;c.bkColor - item background color. In/out. ;c.textColor - item text color. In/out. ;c.hwnd - control handle. ;c.item - item index. ;c.itemData - item data. To set item data, use message CB_SETITEMDATA or LB_SETITEMDATA, documented in MSDN. ;c.selected - 1 if the item is selected, 0 if not. ;c.isLB - 1 if the control is listbox, 0 if combobox. ;c.dtFlags - DrawText flags. Documented in the MSDN Library on the Internet. In/out. ;c.param - an user-defined value, passed to CB_ItemColor.
