Class TGammaPanel (unit GammaPanel)

Inherits from

TCustomPanel

Constructors


constructor Create(AOwner: TComponent);



Functions

destructor Destroy;


procedure AllMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);


procedure Change;


procedure CMColorChanged (var Message: TMessage);


procedure CMFontChanged (var Message: TMessage);


procedure DoSwap(Sender: TObject);


procedure FirstMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure FirstMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);


procedure GammaClick(Sender: TObject);


procedure ImgMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);


procedure Loaded;


procedure SecondMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure SecondMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);


procedure WMSize(var Message: TWMSize);


procedure SetFirstColor(Value : TColor);


procedure SetSecondColor(Value : TColor);


Properties

property BevelInner :


property BevelOuter :


property BevelWidth :


property Color :


property Enabled :


property FirstColor : TColor


property Font :


property ParentColor :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property SecondColor : TColor


property ShowHint :


property Visible :


Events

event OnChange : TNotifyEvent


event OnClick :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables

BLabel : TLabel;


FColDlg : TColorDialog;


FControlPanel : TPanel;


FFirst : TShape;


FFirstColor : TColor;


FGamma : TImage;


FImagePanel : TPanel;


FOnChange : TNotifyEvent;


FSecond : TShape;


FSecondColor : TColor;


FStatePanel : TPanel;


FSwapLabel : TLabel;


FViewWindow : TPanel;


GLabel : TLabel;


PipCursor : TCursor;


RLabel : TLabel;


Swap : Boolean;



Constructors


constructor Create(AOwner: TComponent);


Functions


destructor Destroy;


procedure AllMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);


procedure Change;


procedure CMColorChanged (var Message: TMessage);


procedure CMFontChanged (var Message: TMessage);


procedure DoSwap(Sender: TObject);


procedure FirstMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure FirstMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);


procedure GammaClick(Sender: TObject);


procedure ImgMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);


procedure Loaded;


procedure SecondMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure SecondMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);


procedure WMSize(var Message: TWMSize);


procedure SetFirstColor(Value : TColor);


procedure SetSecondColor(Value : TColor);


Properties


property BevelInner :


property BevelOuter :


property BevelWidth :


property Color :


property Enabled :


property FirstColor : TColor


property Font :


property ParentColor :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property SecondColor : TColor


property ShowHint :


property Visible :


Events


event OnChange : TNotifyEvent


event OnClick :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables


BLabel : TLabel;


FColDlg : TColorDialog;


FControlPanel : TPanel;


FFirst : TShape;


FFirstColor : TColor;


FGamma : TImage;


FImagePanel : TPanel;


FOnChange : TNotifyEvent;


FSecond : TShape;


FSecondColor : TColor;


FStatePanel : TPanel;


FSwapLabel : TLabel;


FViewWindow : TPanel;


GLabel : TLabel;


PipCursor : TCursor;


RLabel : TLabel;


Swap : Boolean;