Element Message LocalConst ;OK,OK_Cancel,Yes_No,Yes_No_Cancel,Retry_Ignore,Abort_Retry_Ignore if Self#.prop.Type eq 0 Tp = MB_OK else if Self#.prop.Type eq 1 Tp = MB_OKCANCEL else if Self#.prop.Type eq 2 Tp = MB_YESNO else if Self#.prop.Type eq 3 Tp = MB_YESNOCANCEL else if Self#.prop.Type eq 4 Tp = MB_RETRYCANCEL else if Self#.prop.Type eq 5 Tp = MB_ABORTRETRYIGNORE else Tp = 0 end if if Self#.prop.Icon eq 1 Self#.Type = Tp or MB_ICONERROR else if Self#.prop.Icon eq 2 Self#.Type = Tp or MB_ICONQUESTION else if Self#.prop.Icon eq 3 Self#.Type = Tp or MB_ICONEXCLAMATION else if Self#.prop.Icon eq 4 Self#.Type = Tp or MB_ICONINFORMATION else if Self#.prop.Icon eq 5 Self#.Type = Tp or MB_ICONWARNING else Self#.Type = Tp end if PointWork doMessage \local title,text pushd Self#.Type sub esp,4 ReadStr text,data,data.type,Self#.Message,Self#.prop.Message pushd text ReadStr title,data,data.type,Self#.Caption,Self#.prop.Caption mov_ex eax,title mov [esp+4],eax invoke MessageBox,[Parent#.hwnd] Self#.onMessage eax,data_int,exit EndPoint EndElement