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

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

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

Функция GetDefaultPalette.

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

    Function GetDefaultPalette(Var Palette : PaletteType);

  • Описание:

    Возвращает палитру, заданную по умолчанию.

  • Замечания:

    Функция GetDefaultPalette возвращает запись типа PaletteType, которая содержит палитру в том виде, в котором она была создана графическим драйвером при инициализации графической системы обращением к процедуре InitGraph.

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

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

  • Пример:

    { Пример программы для функции GetDefaultPalette }
    Uses Crt, Graph;
    Var Driver, Mode, I : Integer;
    MyPal, OldPal : PaletteType;
    Begin
    DirectVideo:=False;
    Randomize;
    Driver:=Detect; { Инициализируем графику }
    InitGraph(Driver, Mode, '');
    If GraphResult < 0 Then Halt(1);
    GetDefaultPalette(OldPal); { Сохраняем старую палитру }
    MyPal:=OldPal; { Копируем палитру }
    { Выводим текст }
    For I:=0 To MyPal.Size-1 Do
    Begin
    SetColor(I);
    OutTextXY(10, I*10, '...Press any key...');
    End;
    Repeat { Меняем палитру }
    With MyPal Do Colors[Random(Size)]:=Random(Size + 1);
    SetAllPalette(MyPal);
    Until KeyPressed;
    SetAllPalette(OldPal); { Восстанавливаем старую палитру }
    ClearDevice;
    OutTextXY(10, 10, 'Press to exit ...');
    ReadLn;
    CloseGraph;
    End.



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