frame.lib

procedure frame(x,y,xmax,ymax : byte; double : boolean;color : byte);
{***** Encadre la zone délimitée entre (x,y) et (xmax,ymax) *****}
{***** frame(x,y,xmax,ymax,true,15); créera un encadrement double blanc *****}
var tracex, tracey : byte;
const fArray : array[1..12] of char =
    (#201,#187,#200,#188,#186,#205,#218,#191,#192,#217,#179,#196);
    {*** LEGEND :
    ╔ = fArray[1]
    ╗ = fArray[2]
    ╚ = fArray[3]
    ╝ = fArray[4]
    ║ = fArray[5]
    ═ = fArray[6]
    ┌ = fArray[7]
    ┐ = fArray[8]
    └ = fArray[9]
    ┘ = fArray[10]
    │ = fArray[11]
    ─ = fArray[12]
    ***}
begin
        // Top
        textcolor(color);
        gotoxy(x,y);
        if double then
            write(fArray[1])
        else
            write(fArray[7]);
        for tracex := x+1 to xmax-1 do
            begin
                gotoxy(tracex,y);
                if double then
                    write(fArray[6])
                else
                    write(fArray[12]);
            end;
        gotoxy(xmax,y);
        if double then
            write(fArray[2])
        else
            write(fArray[8]);
        // Bottom
        gotoxy(x,ymax);
        if double then
            write(fArray[3])
        else
            write(fArray[9]);
        for tracex := x+1 to xmax-1 do
            begin
                gotoxy(tracex,ymax);
                if double then
                    write(fArray[6])
                else
                    write(fArray[12]);
            end;
        gotoxy(xmax,ymax);
        if double then
            write(fArray[4])
        else
            write(fArray[10]);
        // Left
        for tracey := y+1 to ymax-1 do
            begin
                gotoxy(x,tracey);
                if double then
                    write(fArray[5])
                else
                    write(fArray[11]);
            end;
        // Right
        for tracey := y+1 to ymax-1 do
            begin
                gotoxy(xmax,tracey);
                if double then
                    write(fArray[5])
                else
                    write(fArray[11]);
            end;
        textcolor(15);
end;