| Class TfrmColorSelector (unit ssimgfrm) |
TForm
| Constructors |
| Functions |
procedure btnResetClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
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;
procedure sbHorChange(Sender: TObject);
procedure sbVerChange(Sender: TObject);| 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;
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;