Last updated: 17. 2.1998, 20:53
IMPLEMENTATION MODULE Notify;
(*---------------------------------------
NOTIFY.C --- Gadgets for a frame window.
(c) Paul Yao, 1996
Notify.mod --- Translation to XDS Modula-2
(c) Peter Stadler, 1998
---------------------------------------*)
IMPORT Windows;
IMPORT SYSTEM;
IMPORT CommCtrl;
IMPORT comcthlp;
(*-------------------------------------------------------------------*)
(* QueryNotifyText: Convert notification codes into text.*)
(*-------------------------------------------------------------------*)
(*++++*****************************************************************)
PROCEDURE QueryNotifyText (nNotifyCode : CARDINAL; pName : Windows.PSTR) : BOOLEAN;
(**********************************************************************)
VAR
bFound : BOOLEAN;
iNotify : INTEGER;
BEGIN
bFound := FALSE;
FOR iNotify := 0 TO NOTIFY_COUNT-1 DO
IF (cnLookupTable[iNotify].nCode = VAL(INTEGER,nNotifyCode)) THEN;
pName := cnLookupTable[iNotify].pName;
RETURN TRUE;
END;
END;
(* Unknown notification code.*)
pName := SYSTEM.ADR("** Unknown **");
RETURN FALSE;
END QueryNotifyText;
BEGIN
cnLookupTable := cnLookupTableArray
{
{CommCtrl.NM_OUTOFMEMORY, SYSTEM.ADR("NM_OUTOFMEMORY")},
{CommCtrl.NM_CLICK, SYSTEM.ADR("NM_CLICK")},
{CommCtrl.NM_DBLCLK, SYSTEM.ADR("NM_DBLCLK")},
{CommCtrl.NM_RETURN, SYSTEM.ADR("NM_RETURN")},
{CommCtrl.NM_RCLICK, SYSTEM.ADR("NM_RCLICK")},
{CommCtrl.NM_RDBLCLK, SYSTEM.ADR("NM_RDBLCLK")},
{CommCtrl.NM_SETFOCUS, SYSTEM.ADR("NM_SETFOCUS")},
{CommCtrl.NM_KILLFOCUS, SYSTEM.ADR("NM_KILLFOCUS")},
{CommCtrl.LVN_ITEMCHANGING, SYSTEM.ADR("LVN_ITEMCHANGING")},
{CommCtrl.LVN_ITEMCHANGED, SYSTEM.ADR("LVN_ITEMCHANGED")},
{CommCtrl.LVN_INSERTITEM, SYSTEM.ADR("LVN_INSERTITEM")},
{CommCtrl.LVN_DELETEITEM, SYSTEM.ADR("LVN_DELETEITEM")},
{CommCtrl.LVN_DELETEALLITEMS, SYSTEM.ADR("LVN_DELETEALLITEMS")},
{CommCtrl.LVN_BEGINLABELEDITA, SYSTEM.ADR("LVN_BEGINLABELEDITA")},
{CommCtrl.LVN_BEGINLABELEDITW, SYSTEM.ADR("LVN_BEGINLABELEDITW")},
{CommCtrl.LVN_ENDLABELEDITA, SYSTEM.ADR("LVN_ENDLABELEDITA")},
{CommCtrl.LVN_ENDLABELEDITW, SYSTEM.ADR("LVN_ENDLABELEDITW")},
{CommCtrl.LVN_COLUMNCLICK, SYSTEM.ADR("LVN_COLUMNCLICK")},
{CommCtrl.LVN_BEGINDRAG, SYSTEM.ADR("LVN_BEGINDRAG")},
{CommCtrl.LVN_BEGINRDRAG, SYSTEM.ADR("LVN_BEGINRDRAG")},
{CommCtrl.LVN_GETDISPINFOA, SYSTEM.ADR("LVN_GETDISPINFOA")},
{CommCtrl.LVN_GETDISPINFOW, SYSTEM.ADR("LVN_GETDISPINFOW")},
{CommCtrl.LVN_SETDISPINFOA, SYSTEM.ADR("LVN_SETDISPINFOA")},
{CommCtrl.LVN_SETDISPINFOW, SYSTEM.ADR("LVN_SETDISPINFOW")},
{CommCtrl.LVN_KEYDOWN, SYSTEM.ADR("LVN_KEYDOWN")},
{CommCtrl.HDN_ITEMCHANGINGA, SYSTEM.ADR("HDN_ITEMCHANGINGA")},
{CommCtrl.HDN_ITEMCHANGINGW, SYSTEM.ADR("HDN_ITEMCHANGINGW")},
{CommCtrl.HDN_ITEMCHANGEDA, SYSTEM.ADR("HDN_ITEMCHANGEDA")},
{CommCtrl.HDN_ITEMCHANGEDW, SYSTEM.ADR("HDN_ITEMCHANGEDW")},
{CommCtrl.HDN_ITEMCLICKA, SYSTEM.ADR("HDN_ITEMCLICKA")},
{CommCtrl.HDN_ITEMCLICKW, SYSTEM.ADR("HDN_ITEMCLICKW")},
{CommCtrl.HDN_ITEMDBLCLICKA, SYSTEM.ADR("HDN_ITEMDBLCLICKA")},
{CommCtrl.HDN_ITEMDBLCLICKW, SYSTEM.ADR("HDN_ITEMDBLCLICKW")},
{CommCtrl.HDN_DIVIDERDBLCLICKA, SYSTEM.ADR("HDN_DIVIDERDBLCLICKA")},
{CommCtrl.HDN_DIVIDERDBLCLICKW, SYSTEM.ADR("HDN_DIVIDERDBLCLICKW")},
{CommCtrl.HDN_BEGINTRACKA, SYSTEM.ADR("HDN_BEGINTRACKA")},
{CommCtrl.HDN_BEGINTRACKW, SYSTEM.ADR("HDN_BEGINTRACKW")},
{CommCtrl.HDN_ENDTRACKA, SYSTEM.ADR("HDN_ENDTRACKA")},
{CommCtrl.HDN_ENDTRACKW, SYSTEM.ADR("HDN_ENDTRACKW")},
{CommCtrl.HDN_TRACKA, SYSTEM.ADR("HDN_TRACKA")},
{CommCtrl.HDN_TRACKW, SYSTEM.ADR("HDN_TRACKW")},
{CommCtrl.TVN_SELCHANGINGA, SYSTEM.ADR("TVN_SELCHANGINGA")},
{CommCtrl.TVN_SELCHANGINGW, SYSTEM.ADR("TVN_SELCHANGINGW")},
{CommCtrl.TVN_SELCHANGEDA, SYSTEM.ADR("TVN_SELCHANGEDA")},
{CommCtrl.TVN_SELCHANGEDW, SYSTEM.ADR("TVN_SELCHANGEDW")},
{CommCtrl.TVN_GETDISPINFOA, SYSTEM.ADR("TVN_GETDISPINFOA")},
{CommCtrl.TVN_GETDISPINFOW, SYSTEM.ADR("TVN_GETDISPINFOW")},
{CommCtrl.TVN_SETDISPINFOA, SYSTEM.ADR("TVN_SETDISPINFOA")},
{CommCtrl.TVN_SETDISPINFOW, SYSTEM.ADR("TVN_SETDISPINFOW")},
{CommCtrl.TVN_ITEMEXPANDINGA, SYSTEM.ADR("TVN_ITEMEXPANDINGA")},
{CommCtrl.TVN_ITEMEXPANDINGW, SYSTEM.ADR("TVN_ITEMEXPANDINGW")},
{CommCtrl.TVN_ITEMEXPANDEDA, SYSTEM.ADR("TVN_ITEMEXPANDEDA")},
{CommCtrl.TVN_ITEMEXPANDEDW, SYSTEM.ADR("TVN_ITEMEXPANDEDW")},
{CommCtrl.TVN_BEGINDRAGA, SYSTEM.ADR("TVN_BEGINDRAGA")},
{CommCtrl.TVN_BEGINDRAGW, SYSTEM.ADR("TVN_BEGINDRAGW")},
{CommCtrl.TVN_BEGINRDRAGA, SYSTEM.ADR("TVN_BEGINRDRAGA")},
{CommCtrl.TVN_BEGINRDRAGW, SYSTEM.ADR("TVN_BEGINRDRAGW")},
{CommCtrl.TVN_DELETEITEMA, SYSTEM.ADR("TVN_DELETEITEMA")},
{CommCtrl.TVN_DELETEITEMW, SYSTEM.ADR("TVN_DELETEITEMW")},
{CommCtrl.TVN_BEGINLABELEDITA, SYSTEM.ADR("TVN_BEGINLABELEDITA")},
{CommCtrl.TVN_BEGINLABELEDITW, SYSTEM.ADR("TVN_BEGINLABELEDITW")},
{CommCtrl.TVN_ENDLABELEDITA, SYSTEM.ADR("TVN_ENDLABELEDITA")},
{CommCtrl.TVN_ENDLABELEDITW, SYSTEM.ADR("TVN_ENDLABELEDITW")},
{CommCtrl.TVN_KEYDOWN, SYSTEM.ADR("TVN_KEYDOWN")},
{CommCtrl.TTN_NEEDTEXTA, SYSTEM.ADR("TTN_NEEDTEXTA")},
{CommCtrl.TTN_NEEDTEXTW, SYSTEM.ADR("TTN_NEEDTEXTW")},
{CommCtrl.TTN_SHOW, SYSTEM.ADR("TTN_SHOW")},
{CommCtrl.TTN_POP, SYSTEM.ADR("TTN_POP")},
{CommCtrl.TCN_KEYDOWN, SYSTEM.ADR("TCN_KEYDOWN")},
{CommCtrl.TCN_SELCHANGE, SYSTEM.ADR("TCN_SELCHANGE")},
{CommCtrl.TCN_SELCHANGING, SYSTEM.ADR("TCN_SELCHANGING")},
{CommCtrl.TBN_GETBUTTONINFOA, SYSTEM.ADR("TBN_GETBUTTONINFOA")},
{CommCtrl.TBN_GETBUTTONINFOW, SYSTEM.ADR("TBN_GETBUTTONINFOW")},
{CommCtrl.TBN_BEGINDRAG, SYSTEM.ADR("TBN_BEGINDRAG")},
{CommCtrl.TBN_ENDDRAG, SYSTEM.ADR("TBN_ENDDRAG")},
{CommCtrl.TBN_BEGINADJUST, SYSTEM.ADR("TBN_BEGINADJUST")},
{CommCtrl.TBN_ENDADJUST, SYSTEM.ADR("TBN_ENDADJUST")},
{CommCtrl.TBN_RESET, SYSTEM.ADR("TBN_RESET")},
{CommCtrl.TBN_QUERYINSERT, SYSTEM.ADR("TBN_QUERYINSERT")},
{CommCtrl.TBN_QUERYDELETE, SYSTEM.ADR("TBN_QUERYDELETE")},
{CommCtrl.TBN_TOOLBARCHANGE, SYSTEM.ADR("TBN_TOOLBARCHANGE")},
{CommCtrl.TBN_CUSTHELP, SYSTEM.ADR("TBN_CUSTHELP")},
{CommCtrl.UDN_DELTAPOS, SYSTEM.ADR("UDN_DELTAPOS")},
{CommCtrl.PSN_SETACTIVE, SYSTEM.ADR("PSN_SETACTIVE")},
{CommCtrl.PSN_KILLACTIVE, SYSTEM.ADR("PSN_KILLACTIVE")},
{CommCtrl.PSN_APPLY, SYSTEM.ADR("PSN_APPLY")},
{CommCtrl.PSN_RESET, SYSTEM.ADR("PSN_RESET")},
{CommCtrl.PSN_HELP, SYSTEM.ADR("PSN_HELP")},
{CommCtrl.PSN_WIZBACK, SYSTEM.ADR("PSN_WIZBACK")},
{CommCtrl.PSN_WIZNEXT, SYSTEM.ADR("PSN_WIZNEXT")},
{CommCtrl.PSN_WIZFINISH, SYSTEM.ADR("PSN_WIZFINISH")},
{CommCtrl.PSN_QUERYCANCEL, SYSTEM.ADR("PSN_QUERYCANCEL")}
};
NOTIFY_COUNT := SIZE(cnLookupTable) / SIZE(CONTROLNOTIFICATIONS);
END Notify.