Курсовые работы, лабораторные и дипломы по информатике.

>> Справочник по функциям Turbo Pascal 7.0.

Наши спонсоры:

Процедура GetPalette.

  • Объявление:

    Procedure GetPalette(Var Palette : PaletteType);

  • Описание:

    Возвращает текущую палитру и ее размер.

  • Замечания:

    Возвращает текущую палитру и ее размер в переменной типа PaletteType.

  • Ограничения:

    Нужно быть в графическом режиме.

  • Пример:

    { Пример программы для процедуры GetPalette }
    Uses Graph;
    Var Gd, Gm : Integer;
    Color : Word;
    Palette : PaletteType;
    Begin
    Gd:=Detect;
    InitGraph(Gd, Gm, '');
    If GraphResult <> grOk Then Halt(1);
    GetPalette(Palette);
    If Palette.Size <> 1 Then
    For Color:=0 To Pred(Palette.Size) Do
    Begin
    SetColor(Color);
    Line(0, Color * 5, 100, Color * 5);
    End
    Else Line(0, 0, 100, 0);
    ReadLn;
    CloseGraph;
    End.



Вернуться к оглавлению справочника