Smart Dialog Questions

[Gintaras]

Function CommentPasteCopyCancel

Code:

Copy      Help

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



str controls = "3 4 5"
str c2Can c3Com c4Pas c5Cop b8But

int b=ShowDialog("CommentPasteCopyCancel" &CommentPasteCopyCancel &controls)
out b
ret b

;BEGIN DIALOG
;0 "" 0x800000C0 0x0 0 0 83 15 "CommentPastCopyCancel"
;3 Button 0x54030088 0x0 0 0 20 16 "Comment"
;4 Button 0x54031083 0x0 20 0 20 16 "Paste"
;5 Button 0x54031083 0x0 40 0 22 16 "Copy"
;6 Button 0x54031083 0x0 62 0 22 16 "Cancel"
;END DIALOG
;DIALOG EDITOR: "" 0x2030000 "" "" ""

ret
;messages
sel message
,case WM_INITDIALOG
,int CopyInt=qm.LoadPictureFile("bitmap1.bmp" 0) ;;loads bmp, gif or jpg.
,SendMessage(id(5 hDlg) BM_SETIMAGE IMAGE_BITMAP CopyInt)
,int CommentInt=qm.LoadPictureFile("Comment.bmp" 0) ;;loads bmp, gif or jpg.
,SendMessage(id(3 hDlg) BM_SETIMAGE IMAGE_BITMAP CommentInt)
,int PasteInt=qm.LoadPictureFile("Paste.bmp" 0) ;;loads bmp, gif or jpg.
,SendMessage(id(4 hDlg) BM_SETIMAGE IMAGE_BITMAP PasteInt)
,int CancelInt=qm.LoadPictureFile("Cancel.bmp" 0) ;;loads bmp, gif or jpg.
,SendMessage(id(6 hDlg) BM_SETIMAGE IMAGE_BITMAP CancelInt)
,ret 1
,case WM_DESTROY
,for(_i 3 7) DeleteObject(SendMessage(id(_i hDlg) BM_SETIMAGE IMAGE_BITMAP 0))
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case [3,4,5,6]
,DT_Ok hDlg wParam