Picture ?! (icons in status bar)

[Snikers]

This deals with " msctls_statusbar32 "

My question is:

Is it possible to add icons to the bar!

Like on every windows explorer, on the bottom, there are these ' msctls_statusbar32 '

And some of them, have icons near them!

Is this possible inside of qm ?

If so, may i get an example!

Thanks a much!

[xBoyonmopedx]

You cant always ask for an example bro
Thats not how it is in real life

You need to experiment around and not just keep a archive of others work you barely modify for your needs

Trust me, you will feel alot better when "you" make something :wink:

[Snikers]

Examples co exist for a reason.

No one said i cant ask! So i will ask all i want! Nothin you can do about it :lol:

Coming from someone like you, is a desperado on the run....

I asked for a example IF it is possible!

How am i suppose to know IF i dont ask, if i cant find anything ?

Anyone know what i mean, show me an example!

Thanks 8)

[Gintaras]

Function dlg_statusbar_images

Code:

Copy      Help

\Dialog_Editor
function# hDlg message wParam lParam
if(hDlg) goto messages

if(!ShowDialog("dlg_statusbar_images" &dlg_statusbar_images)) ret

;BEGIN DIALOG
;0 "" 0x90C80AC8 0x0 0 0 223 135 "Dialog"
;1 Button 0x54030001 0x4 120 102 48 14 "OK"
;2 Button 0x54030000 0x4 170 102 48 14 "Cancel"
;3 msctls_statusbar32 0x54030000 0x0 0 121 223 14 ""
;END DIALOG
;DIALOG EDITOR: "" 0x2030109 "*" "" ""

ret
;messages
sel message
,case WM_INITDIALOG
,int hsb=id(3 hDlg)
,int w1(70) w2(140) w3(-1)
,SendMessage hsb SB_SETPARTS 3 &w1
,
,SendMessage hsb SB_SETTEXTA 0 "one"
,SendMessage hsb SB_SETTEXTA 1 "two"
,SendMessage hsb SB_SETTEXTA 2 "three"
,
,ARRAY(__Hicon)- t_ic
,t_ic.redim
,t_ic[]=GetFileIcon("$qm$\cut.ico")
,t_ic[]=GetFileIcon("$qm$\copy.ico")
,t_ic[]=GetFileIcon("$qm$\paste.ico")
,SendMessage hsb SB_SETICON 0 t_ic[0]
,SendMessage hsb SB_SETICON 1 t_ic[1]
,SendMessage hsb SB_SETICON 2 t_ic[2]
,
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case IDOK
,case IDCANCEL
ret 1

Function dlg_statusbar_images_use_imagelist

Code:

Copy      Help

\Dialog_Editor
function# hDlg message wParam lParam
if(hDlg) goto messages

if(!ShowDialog("dlg_statusbar_images_use_imagelist" &dlg_statusbar_images_use_imagelist)) ret

;BEGIN DIALOG
;0 "" 0x90C80AC8 0x0 0 0 223 135 "Dialog"
;1 Button 0x54030001 0x4 120 102 48 14 "OK"
;2 Button 0x54030000 0x4 170 102 48 14 "Cancel"
;3 msctls_statusbar32 0x54030000 0x0 0 121 223 14 ""
;END DIALOG
;DIALOG EDITOR: "" 0x2030109 "*" "" ""

ret
;messages
sel message
,case WM_INITDIALOG
,int hsb=id(3 hDlg)
,int w1(70) w2(140) w3(-1)
,SendMessage hsb SB_SETPARTS 3 &w1
,
,SendMessage hsb SB_SETTEXTA 0 "one"
,SendMessage hsb SB_SETTEXTA 1 "two"
,SendMessage hsb SB_SETTEXTA 2 "three"
,
,__ImageList il.Load("$qm$\il_qm.bmp") ;;change this to a bmp file created with qm imagelist editor
,ARRAY(__Hicon)- t_ic
,t_ic.redim
,t_ic[]=ImageList_GetIcon(il 0 0)
,t_ic[]=ImageList_GetIcon(il 1 0)
,t_ic[]=ImageList_GetIcon(il 2 0)
,SendMessage hsb SB_SETICON 0 t_ic[0]
,SendMessage hsb SB_SETICON 1 t_ic[1]
,SendMessage hsb SB_SETICON 2 t_ic[2]
,
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case IDOK
,case IDCANCEL
ret 1

[Snikers]

Thank you very much Gintaras! Till next time, Just call me, Mr.Examples 8)

[xBoyonmopedx]

Mr. I cant do anything on my own......