Class TColorConsole (unit DConsole) |
Inherits from
TConsole
constructor Create(Owner: TComponent);
- ************* TColorConsole ***************
destructor Destroy;
function IndexPtr(X,Y: Integer): PInteger;
procedure Paint;
copy chars to char buf
procedure ResizeBuffer;
ResizeBuffer
- Called by constructor to init buffers, and called by SetCols/SetRows
when Cols or Rows change.
procedure SetMetrics(const Metrics: TTextMetric);
If the character cell is larger, expand settings and redraw
procedure WriteBlock(X,Y: Integer; Buffer: PChar; Count: Cardinal);
procedure WriteFill(X,Y: Integer; Ch: Char; Count: Cardinal);
If font size changed, accept new cell verbatim.
procedure FillAttr(X,Y: Integer; Count: Cardinal);
write ch to the char buffer
FAttrList : TAttrManager;
FCellWidths : PIntArray;
FIndexes : PIntArray;
constructor Create(Owner: TComponent);
************* TColorConsole ***************
destructor Destroy;
function IndexPtr(X,Y: Integer): PInteger;
procedure Paint;
copy chars to char buf
procedure ResizeBuffer;
ResizeBuffer
- Called by constructor to init buffers, and called by SetCols/SetRows
when Cols or Rows change. Cols and Rows will be set to their new
values before ResizeBuffer is called.
- StrAlloc will fail (raise xptn) if Cols * Rows is greater than 32k - 2
- No attempt is made to preserve the contents of the buffers. Resizing
the buffers is equivallent to a ClrScr.
procedure SetMetrics(const Metrics: TTextMetric);
If the character cell is larger, expand settings and redraw
procedure WriteBlock(X,Y: Integer; Buffer: PChar; Count: Cardinal);
procedure WriteFill(X,Y: Integer; Ch: Char; Count: Cardinal);
If font size changed, accept new cell verbatim. } { Update all cached fonts to new size
procedure FillAttr(X,Y: Integer; Count: Cardinal);
write ch to the char buffer
FAttrList : TAttrManager;
FCellWidths : PIntArray;
FIndexes : PIntArray;