Class Topm_Form_ColorSel

Unit

colorsel

Declaration

type Topm_Form_ColorSel = class(TForm)

Description

Hierarchy

• TForm
• Topm_Form_ColorSel

Overview

Fields

	opm_BitBtn_ColorSelOk: TBitBtn;
	opm_BitBtn_ColorSelCancel: TBitBtn;
	opm_Image_ColorSelTable: TImage;
	opm_Panel_ColorSelSample: TPanel;
	opm_Edit_ColorSelInput: TEdit;
	opmG_ColorChoosed : TColor;
	opmG_ColorChoosedDec : LONGINT;
	opmG_ColorChoosedRGB : STRING;

Methods

	procedure opm_Image_ColorSelTableMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
	procedure opm_Image_ColorSelTableMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
	procedure opm_Image_ColorSelTableMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
	procedure FormShow(Sender: TObject);
	procedure FormCreate(Sender: TObject);
	procedure opm_BitBtn_ColorSelOkClick(Sender: TObject);
	procedure opm_Edit_ColorSelInputExit(Sender: TObject);

Description

Fields

opm_BitBtn_ColorSelOk: TBitBtn;

opm_BitBtn_ColorSelCancel: TBitBtn;

opm_Image_ColorSelTable: TImage;

opm_Panel_ColorSelSample: TPanel;

opm_Edit_ColorSelInput: TEdit;

opmG_ColorChoosed : TColor;

opmG_ColorChoosedDec : LONGINT;

opmG_ColorChoosedRGB : STRING;

Methods

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

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

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

procedure FormShow(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure opm_BitBtn_ColorSelOkClick(Sender: TObject);

procedure opm_Edit_ColorSelInputExit(Sender: TObject);