ctAPIColor.clw
MEMBER
! http://www.odata.de/Clarion/colored_background_for_appframe
! the above from Wolfgang Orth says this code was from Jim Gambon on the newsgroups
! that sounds right, but somehow I forgot to give credit in the class. (blush)
MAP
MODULE('Win32API')
GetClassLong (LONG _hWnd,LONG _Index ),LONG, PASCAL,NAME('GetClassLongA')
SetClassLong (LONG _hWnd,LONG _Index,LONG NewValue),LONG,PROC,PASCAL,NAME('SetClassLongA')
This file has been truncated. show original
ctAPIColor.inc
ctAPIColor CLASS,TYPE,MODULE('ctAPIColor.CLW'),LINK('ctAPIColor.CLW') !,_ctAPIColorLinkMode_),DLL(_ctAPIColorDLLMode_)
ClientHWND LONG !HWND
NewBrush LONG
OldBrush LONG
SetFrameBackground_OnOpen PROCEDURE(WINDOW xWindow, LONG xColor)
SetFrameBackground_OnClose PROCEDURE
END