PVDynamic_ColorGadget (Dynamic_lParam.l,Dynamic_wParam.l)

Previous  Top  Next

Use this function in a CallBack to Dynamically Color Gadgets.

This is automatically created by PureVision when an Event Loop is exported.


Example:

Procedure.i GadgetCallback(GadgetID,Message,wParam,lParam) Protected ReturnValue   If Message=#WM_CTLCOLORSTATIC Or Message=#WM_CTLCOLOREDIT Or Message=#WM_CTLCOLORLISTBOX   ReturnValue=PVX::PVDynamic_ColorGadget(lParam,wParam)   If ReturnValue=#PB_ProcessPureBasicEvents     ReturnValue=0   EndIf   EndIf     If ReturnValue     ProcedureReturn ReturnValue     Else     ProcedureReturn SubClass::CallGadgetProc(GadgetID,Message,wParam,lParam)   EndIf EndProcedure

Procedure.i WindowCallback(WindowID,Message,wParam,lParam) Protected ReturnValue=#PB_ProcessPureBasicEvents   If Message=#WM_CTLCOLORSTATIC Or Message=#WM_CTLCOLOREDIT Or Message=#WM_CTLCOLORLISTBOX   ReturnValue=PVX::PVDynamic_ColorGadget(lParam,wParam)   EndIf   ProcedureReturn ReturnValue   EndProcedure