Выкладываю свой модуль crt для delphi, недавно написанный для одной программы

что в модуле:

type
_color=0..255;

function _inputhandle:integer;
function _outputhandle:integer;
function GetMaxX:integer;
function GetMaxY:integer;
procedure GotoXY(x,y:integer);
procedure ClrScr;
procedure ClrLine(y:integer);
procedure SetCursorState(visible:Boolean);
function ForeRGB(r,g,b,i:boolean):_color;
function BackRGB(r,g,b,i:boolean):_color;
function MixColors(A,B:_color):_color;
procedure SetTextAttr(attribute:word);
function GetTextAttr:word;
function WhereX:integer;
function WhereY:integer;

GetMaxX, GetMaxY, GotoXY, ClrScr, WheteX, WhereY выполняют то же, что в паскале
ClrLine – заполнить пробелами соответствующую строку
SetTextAttr, GetTextAttr – работа с цветом текста и фона

ForeRGB, BackRGB, MixColors – работа с цветами
четвертый параметр у ForeRGB и BackRGB – насыщенность, тем самым получаются все 16 цветов.
пример
красный текст на желтом фоне:

SetTextAttr(MixColors(ForeRGB(true,false,false,true),BackRGB(true,true,false,true)));

новый модуль: (описан тут)
скачать

И немного философии, ведь использовать паскалевские модули в дельфи – всё равно, что ограждать себя металлической строительной сеткой от удобства и превосходства windows. Но есть и преимущества. Кстати, по поводу металлических сеток – http://oookit.ru – официальный дилер завода.

Похожие записи