Class TRasterFontEditor (unit RasterFontEditor)

Inherits from

TImage

Constructors


constructor Create(AOwner: TComponent);



Functions

procedure Clear;


destructor Destroy;


procedure DrawTextArray;


function GetArrayItem(const Row,Col : integer) : TCharItem;


procedure SetArrayItem( const Row, Col : integer; Value : TCharItem; const ReDraw : boolean);


procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure MouseMove(Shift: TShiftState; X, Y: Integer);


procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

END OF Set the shape of the cursor

procedure SetHeight;


procedure SetWidth;

Protected declarations

procedure DeleteItemsFromList;


procedure DrawBorderBox (XPos, YPos, XWidth, YHeight : integer);


procedure GetOriginalRasterFont(const Row,Col : integer; const C : TCanvas; const Colour : TColor);


function InPosList(const Row,Col : integer) : boolean;


procedure RebuildArea(const bExamine : boolean);


function SelectChar( const X,Y : integer; var XPos, YPos, XWidth, YHeight : integer) : boolean;


function SelectChars( const StartX,StartY,EndX,EndY : integer) : boolean;


procedure SetBitMapFont(Value : TBitMapFont);


procedure SetSelectedColor(Value : TColor);


procedure SetSpaceChars(Value : Integer);


procedure SetSpaceRows(Value : Integer);


procedure SetSpaceSelect(Value : Boolean);


procedure SetTextArrayHeight(Value : Word);


procedure SetTextArrayWidth(Value : Word);


Properties

property BitMapFont : TBitMapFont


property FixHeight : Boolean


property FixHorPos : Boolean


property FixVerPos : Boolean


property FixWidth : Boolean


property SelectedColor : TColor


property SelectHeight : integer


property SelectLeft : integer


property SelectTop : integer


property SelectWidth : integer


property SpaceChars : Integer


property SpaceRows : Integer


property SpaceSelect : Boolean

Published declarations

property TextArrayHeight : Word


property TextArrayWidth : Word


Events

Variables

bmPicture : TBitMap;

Public declarations

ArrayHeight : Word;


ArrayWidth : Word;


bFixHeight : boolean;


bFixHorPos : boolean;


bFixVerPos : boolean;


bFixWidth : boolean;


bmfBitMapFont : TBitMapFont;


bmFont : TBitMap;


bmTemp : TBitMap;


bMultiSelect : boolean;


bSelected : boolean;


bSpaceSelect : Boolean;

Private declarations

bValidValues : boolean;


cSelectedColor : TColor;


iSpaceChars : integer;


iSpaceRows : integer;


lSelChars : TList;


PrevX : integer;


PrevY : integer;


SelecHeight : integer;


SelecLeft : integer;


SelecTop : integer;


SelecWidth : integer;


TextA : TTextArray;



Constructors


constructor Create(AOwner: TComponent);


Functions


procedure Clear;


destructor Destroy;


procedure DrawTextArray;


function GetArrayItem(const Row,Col : integer) : TCharItem;


procedure SetArrayItem( const Row, Col : integer; Value : TCharItem; const ReDraw : boolean);


procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure MouseMove(Shift: TShiftState; X, Y: Integer);


procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

END OF Set the shape of the cursor


procedure SetHeight;


procedure SetWidth;

Protected declarations


procedure DeleteItemsFromList;


procedure DrawBorderBox (XPos, YPos, XWidth, YHeight : integer);


procedure GetOriginalRasterFont(const Row,Col : integer; const C : TCanvas; const Colour : TColor);


function InPosList(const Row,Col : integer) : boolean;


procedure RebuildArea(const bExamine : boolean);


function SelectChar( const X,Y : integer; var XPos, YPos, XWidth, YHeight : integer) : boolean;


function SelectChars( const StartX,StartY,EndX,EndY : integer) : boolean;


procedure SetBitMapFont(Value : TBitMapFont);


procedure SetSelectedColor(Value : TColor);


procedure SetSpaceChars(Value : Integer);


procedure SetSpaceRows(Value : Integer);


procedure SetSpaceSelect(Value : Boolean);


procedure SetTextArrayHeight(Value : Word);


procedure SetTextArrayWidth(Value : Word);


Properties


property BitMapFont : TBitMapFont


property FixHeight : Boolean


property FixHorPos : Boolean


property FixVerPos : Boolean


property FixWidth : Boolean


property SelectedColor : TColor


property SelectHeight : integer


property SelectLeft : integer


property SelectTop : integer


property SelectWidth : integer


property SpaceChars : Integer


property SpaceRows : Integer


property SpaceSelect : Boolean

Published declarations


property TextArrayHeight : Word


property TextArrayWidth : Word


Events


Variables


bmPicture : TBitMap;

Public declarations


ArrayHeight : Word;


ArrayWidth : Word;


bFixHeight : boolean;


bFixHorPos : boolean;


bFixVerPos : boolean;


bFixWidth : boolean;


bmfBitMapFont : TBitMapFont;


bmFont : TBitMap;


bmTemp : TBitMap;


bMultiSelect : boolean;


bSelected : boolean;


bSpaceSelect : Boolean;

Private declarations


bValidValues : boolean;


cSelectedColor : TColor;


iSpaceChars : integer;


iSpaceRows : integer;


lSelChars : TList;


PrevX : integer;


PrevY : integer;


SelecHeight : integer;


SelecLeft : integer;


SelecTop : integer;


SelecWidth : integer;


TextA : TTextArray;