| Class TImgEditor (unit ImgEdt) |
TGraphicControl
| Constructors |
Constructor Create (AOwner : TComponent);| Functions |
Destructor Destroy;
Procedure Paint;
Procedure RecalcSize;
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
procedure MouseMove(Shift: TShiftState; X, Y: Integer);
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Procedure SetBitmap (Value : TBitmap);
Procedure SetGridColor (Value : TColor);
Procedure SetPixelSize (Value : Word);
Procedure SetShowGrid (Value : Boolean);| Properties |
property Bitmap : TBitmap
property GridColor : TColor
property PixelSize : Word
property ShowGrid : Boolean| Events |
event OnMouseDown :
event OnMouseMove :
event OnMouseUp : | Variables |
fBitmap : TBitmap;
fGridColor : TColor;
fPixelSize : Word;
fShowGrid : Boolean;| Constructors |
Constructor Create (AOwner : TComponent);Public declarations
| Functions |
Destructor Destroy;
Procedure Paint;Should be protected... see demo-app to find out why it's here
Procedure RecalcSize;
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);Protected declarations } {Override mouse events to convert coordinates to bimap coordinates
procedure MouseMove(Shift: TShiftState; X, Y: Integer);
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Procedure SetBitmap (Value : TBitmap);
Procedure SetGridColor (Value : TColor);
Procedure SetPixelSize (Value : Word);
Procedure SetShowGrid (Value : Boolean);| Properties |
property Bitmap : TBitmapPublished declarations
property GridColor : TColor
property PixelSize : Word
property ShowGrid : Boolean| Events |
event OnMouseDown :
event OnMouseMove :
event OnMouseUp : | Variables |
fBitmap : TBitmap;Private declarations
fGridColor : TColor;
fPixelSize : Word;
fShowGrid : Boolean;