SmartColorWell 1.2.1

by Harry Hooie
http://www.harryhooie.com/source/

SmartColorWell is a cross-platform open-source ColorWell class for REALbasic 4.5 or greater. The SmartColorWell control stores a color value and displays that color in a simulated BevelButton that when pressed allows the user to change the color using the operation system's standard color picker. SmartColorWell is developed for and tested on Linux, Mac OS 9, Mac OS X, and Windows 98/2000/XP. SmartColorWell isn't really all that smart, but it's pretty smart relative to other REALbasic ColorWell classes.

The SmartColorWell class is provided free for all to use. You are free to redistribute the source code. If you distribute it as a standalone class, please include this documentation with it. If you distribute source code containing SmartColorWell, you do not need to include this documentation. There is no need to credit me in your program for using SmartColorWell unless you just want to.

If you make any code improvements, you are welcome to submit them, and I will try to incorporate them in the next update so that everyone using SmartColorWell can benefit.

First add the SmartColorWell class to your project by dragging the "SmartColorWell.rbo" file into your project window. To add a SmartColorWell to one of your project windows, add a canvas to the window and change the canvas's Super property from "Canvas" to "SmartColorWell". (or simply drag the SmartColorWell class from your Project window and drop it in the window)

The easiest way to save the SmartColorWell's color to restore later, such as with preferences, is to save the SmartColorWell's getColorAsHexString function value:

s = SmartColorWell1.getColorAsHexString ' dim as string

Restore the SmartColorWell's color using setColorFromHexString (see Setting SmartColorWell properties for more details):

SmartColorWell1.setColorFromHexString = s ' as string

--- Using the IDE "Properties" window ---

• ColorSelected: The color.
• Margin: Space from the edge of the button to the center color box. If = 0, it will be auto-set. If < 0, it will be set = 0.
• AlsoDimColor: If checked, the center color box will appear disabled along with the button when disabled.
• EnableColorDrag: If checked, the color (hex value) can be dragged to other SmartColorWells. (Color-drag is always enabled when Command or Option/Alt key is depressed, )

--- Using Code ---

• Function getColor() as color
  Returns the currently selected color as type color.
• Function getColorAsHexString() as string
  Returns the currently selected color as a RGB hexideximal string. (i.e. Red = #FF0000, White = #FFFFFF)
• Sub pickColor()
  Open up the standard color picker and assign the chosen color to SmartColorWell. Same as pressing the button.
• Sub setColor(c as color)
  Sets the currently selected color.
• Sub setColorFromHexString(s as string)
  Sets the currently selected color using a RGB hexideximal string.

Version 1.2.1

• ColorSelected property now shows in property window in RB2005 and later
• Overdraw problem in Mac OS when control is disabled is fixed

Version 1.2

• Control now draws as disabled when it or parent control is disabled or control in not active
  (Might have to manually refresh when window is Activated/Deactivated
  on Mac OS - only seems to work on Composite windows)
• Method setColor and setColorFromHexString do nothing when sent color is same as current

Version 1.1

• Changed getColorAsHexString and setColorFromHexString to expect the format "#RRGGBB"
  (setColorFromHexString will still accept the old format "RRGGBB")
• Fixed color selection to center on the tip of the mouse arrow