| Class TRasterFontEditor (unit RasterFontEditor) |
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);
procedure SetHeight;
procedure SetWidth;
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
property TextArrayHeight : Word
property TextArrayWidth : Word| Events |
| Variables |
bmPicture : TBitMap;
ArrayHeight : Word;
ArrayWidth : Word;
bFixHeight : boolean;
bFixHorPos : boolean;
bFixVerPos : boolean;
bFixWidth : boolean;
bmfBitMapFont : TBitMapFont;
bmFont : TBitMap;
bmTemp : TBitMap;
bMultiSelect : boolean;
bSelected : boolean;
bSpaceSelect : Boolean;
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 : BooleanPublished 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;