|
مرحبا عبد :
لقيت هذا الكود على النت بس ما ظبط معي جربوا أنت وردلي خبر
unit Crt;
{$D-,I-,S-} { <= hier staan wat speciale compiler-instructies }
INTERFACE
CONST
. . .
{ Foreground and background color constants }
Black = 0; Blue = 1; Green = 2;
Cyan = 3; Red = 4; Magenta = 5;
Brown = 6; LightGray = 7;
{ Foreground color constants }
DarkGray = 8 ; LightBlue = 9; LightGreen = 10;
LightCyan = 11; LightRed = 12; LightMagenta = 13;
Yellow = 14; White = 15;
{ Add-in for blinking }
Blink = 128;
VAR
{ Interface variables }
CheckBreak: Boolean; { Enable Ctrl-Break }
CheckEOF : Boolean; { Enable Ctrl-Z }
. . .
{ Interface procedures }
procedure AssignCrt(var F: Text); function KeyPressed: Boolean;
function ReadKey: Char; procedure TextMode(Mode: Integer);
procedure Window(X1,Y1,X2,Y2: Byte); procedure GotoXY(X,Y: Byte);
function WhereX: Byte; function WhereY: Byte;
procedure ClrScr; procedure ClrEol;
procedure InsLine; procedure DelLine;
procedure TextColor(Color: Byte); procedure NoSound;
procedure TextBackground(Color: Byte); procedure LowVideo;
procedure HighVideo; procedure NormVideo;
procedure Delay(MS: Word); procedure Sound(Hz: Word);
|
أرسل من قبل 
