Class TfrmColorSelector (unit ssimgfrm)

Inherits from

TForm

Constructors



Functions

procedure btnResetClick(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure FormCreate(Sender: TObject);

Reset image to the original

procedure imgShowDblClick(Sender: TObject);


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


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


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


function max(a, b: longint): longint;


function min(a, b: longint): longint;


procedure ReDrawPicture;

Adjust visible image to be consist with the scrollbars

procedure sbHorChange(Sender: TObject);


procedure sbVerChange(Sender: TObject);

Adjust visible image to be consist with the scrollbars

Properties

Events

Variables

btnCancel : TBitBtn;


btnOk : TBitBtn;


btnReset : TBitBtn;


imgShow : TImage;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


lblBlue : TLabel;


lblCopyright : TLabel;


lblGreen : TLabel;


lblRed : TLabel;


panButtons : TPanel;


panImage : TPanel;


sbHor : TScrollBar;


sbVer : TScrollBar;


shpColor : TShape;


shpToStore : TShape;


ex : longint;


ey : longint;


HorS : longint;


OrigPict : TBitmap;

Public declarations

Select : boolean;


sx : longint;


sy : longint;


VertS : longint;


WorkPict : TBitmap;



Constructors


Functions


procedure btnResetClick(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure FormCreate(Sender: TObject);

Reset image to the original


procedure imgShowDblClick(Sender: TObject);


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


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


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


function max(a, b: longint): longint;


function min(a, b: longint): longint;


procedure ReDrawPicture;

Adjust visible image to be consist with the scrollbars


procedure sbHorChange(Sender: TObject);


procedure sbVerChange(Sender: TObject);

Adjust visible image to be consist with the scrollbars


Properties


Events


Variables


btnCancel : TBitBtn;


btnOk : TBitBtn;


btnReset : TBitBtn;


imgShow : TImage;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


lblBlue : TLabel;


lblCopyright : TLabel;


lblGreen : TLabel;


lblRed : TLabel;


panButtons : TPanel;


panImage : TPanel;


sbHor : TScrollBar;


sbVer : TScrollBar;


shpColor : TShape;


shpToStore : TShape;


ex : longint;


ey : longint;


HorS : longint;


OrigPict : TBitmap;

Public declarations


Select : boolean;


sx : longint;


sy : longint;


VertS : longint;


WorkPict : TBitmap;