Unit CBtnForm

Standard defines for all Delphi Free Stuff components } {-----------------------------------------------------------------------------} { A Windows 95 and NT 4 style color selection button. It displays a palette } { of 20 color for fast selction and a button to bring up the color dialog. } { Copyright 1998, Brad Stowers. All Rights Reserved. } { This component can be freely used and distributed in commercial and private } { environments, provied this notice is not modified in any way and there is } { no charge for it other than nomial handling fees. Contact me directly for } { modifications to this agreement. } {-----------------------------------------------------------------------------} { Feel free to contact me if you have any questions, comments or suggestions } { at bstowers@pobox.com. } { The lateset version will always be available on the web at: } { http://www.pobox.com/~bstowers/delphi/ } {-----------------------------------------------------------------------------} { Date last modified: May 14, 1998 } {-----------------------------------------------------------------------------} {-----------------------------------------------------------------------------} { TDFSColorButtonPalette } {-----------------------------------------------------------------------------} { Description: } { This is a support unit for the TDFSColorButton component (DFSClrBn.pas). } {-----------------------------------------------------------------------------

Classes

TColorArrayClass -
TDFSColorButtonPalette -

Functions

Types

PColorArray
PColorArrayCallback
TColorArray
TColorArrayCallback
TCustomColors
TPaletteColors
TSetParentColorEvent

Constants

MAX_COLORS

Variables


Functions


Types


PColorArray = ^TColorArray

PColorArrayCallback = ^TColorArrayCallBack

TColorArray = array[1..MAX_COLORS] of TColor;

TColorArrayCallback = Array[0..20] of TColorRef;

TCustomColors = TColorArrayClass

TPaletteColors = TColorArrayClass

TSetParentColorEvent = procedure(Sender: TObject; AColor: TColor) of object

Constants

MAX_COLORS = (MaxInt div SizeOf(TColor))


Variables