[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Hilight color
- To: "Rodney Daughtrey" <rodney%proact@uunet.UU.NET>, "MCL list" <firstname.lastname@example.org>
- Subject: Re: Hilight color
- From: email@example.com (Bill St. Clair)
- Date: Wed, 4 May 1994 08:48:22 -0400
At 12:10 AM 5/4/94 -0600, Rodney Daughtrey wrote:
>I'm trying to find a way to retrieve the current highlight color (in whatever
>form -- RGB record, fixnum, etc) from the system "Color" control panel dialog.
>How can I do this? The closest thing I can find is the following from
>(defconstant $HiliteRGB #xda0) ; [GLOBAL VAR] 6 bytes: rgb of hilite color
>This doesn't seem like what I want, though, since it is a constant, and the
>highlight color may be changed by the user...
It's a constant address of a six byte RGB record. Evaluating the
following form will bring up a color picker with the hilight color:
(user-pick-color :color (rgb-to-color (%int-to-ptr #$hilitergb)))