add an icon in the upper right corner of the window title bar

[Gintaras]

Macro Macro338

Code:

Copy      Help

str md=
;BEGIN MENU
;>&File
;,&Open :501 0x0 0x0 Co
;,&Save :502 0x0 0x0 Cs
;,>Submenu
;,,Item1 :551
;,,Item2 :552
;,,<
;,-
;,E&xit :2
;,<
;>&Edit
;,Cu&t :601
;,&Copy :602
;,&Paste :603
;,<
;&Min :901
;&Min to TrayIcon :902
;&Max :903
;END MENU
;;menu bar example:
;;popup menu example:
;int i=ShowMenu(md); out i

str dd=
;BEGIN DIALOG
;0 "" 0x90C80AC8 0x400 0 0 224 136 "Dialog" "4"
;1 Button 0x54030001 0x4 116 116 48 14 "OK"
;2 Button 0x54030000 0x4 168 116 48 14 "Cancel"
;END DIALOG
;DIALOG EDITOR: "" 0x2040801 "*" "" "" ""

Tray tray

;if(!ShowDialog(dd &sub.DlgProc 0)) ret
if(!ShowDialog(dd &sub.DlgProc 0 0 0 0 0 0 0 0 0 md)) ret


#sub DlgProc v
function# hDlg message wParam lParam

sel message
,case WM_INITDIALOG
,case WM_DESTROY
,case WM_COMMAND goto messages2
,case WM_SYSCOMMAND
,sel wParam&0xfff0
,,case SC_CONTEXTHELP
,,int i=ShowMenu(md); out i
,,sel i
,,,case 901
,,,min hDlg
,,,case 902
,,,hid hDlg
,,,tray.AddIcon("" "tooltip" 1 hDlg)
,,,case 903
,,,max hDlg
,,ret 1
,case WM_USER+101 ;;from tray icon
,sel lParam
,,case WM_LBUTTONUP
,,tray.Delete
,,act hDlg
ret
;messages2
sel wParam
,case IDOK
,case IDCANCEL
ret 1