Class TImgEditor (unit ImgEdt)

Inherits from

TGraphicControl

Constructors


Constructor Create (AOwner : TComponent);

Public declarations


Functions

Destructor Destroy;


Procedure Paint;

Should be protected.

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 : TBitmap

Published 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;



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 : TBitmap

Published 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;