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;