Алгоритмические языки и программирование. Часть 3. Модули в Турбо Паскале. Игошина Л.В. - 42 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

Составители: 

Рубрика: 

42
42
Для управления соответствием между программными и аппаратными
цветами в модуле Graph предусмотрено несколько процедур, функций, типов и
констант.
Для описания палитры используется константа и тип:
Const
MaxColors = 15; {Максимальный программный номер цвета}
Type
Palettetype = Record
Size : byte; {Количество цветов в палитре}
Colors : Array [0..MaxColors] of ShortInt; {Массив номеров цветов}
End;
Для определения палитры, которая устанавливается по умолчанию (сразу
после инициализации
графического режима) используется процедура:
GetDefaultPalette ( Palette);
Palette - переменная типа Palettetype. В ней содержится информация о
количестве и последовательности цветов начальной палитры.
Для определения текущей палитры используется процедура:
GetPalette ( Palette);
Функция GetPaletteSize возвращает значение типа Word, показывающее
число цветов, входящих в текущую программную палитру.
Следующий фрагмент программы позволяет вывести информацию о
текущей палитре.
Uses grt,graph;
Var s:string[4];
Palette:Palettetype;
K, color:word;
begin
{Инициализация графического режима}
. . .
GetPalette(Palette); {Определение текущей палитры}
Str(Palette.size,s);
outtextxy(130,220,'В палитре ' + s + ' цветов');
outtextxy(130,240,' Вот эти цвета');
For k := 0 to Palette.size - 1 do {Вывод номеров цветов в палитре}
begin
str(Palette.Colors[k],s);
{ Задание цвета пера по номеру цвета из текущей палитры }
setcolor(Palette.Colors[k]);
outtextxy(30+k*25,260, s );
end;
for Color := 0 to Palette.Size-1 do
begin
SetColor(palette.colors[Color]);
{Вывод последовательности прямых линий различными цветами текущей
палитры } 
                                                                              42




      Для управления соответствием между программными и аппаратными
цветами в модуле Graph предусмотрено несколько процедур, функций, типов и
констант.
      Для описания палитры используется константа и тип:
      Const
              MaxColors = 15; {Максимальный программный номер цвета}
      Type
         Palettetype = Record
              Size : byte; {Количество цветов в палитре}
              Colors : Array [0..MaxColors] of ShortInt; {Массив номеров цветов}
                        End;
      Для определения палитры, которая устанавливается по умолчанию (сразу
после инициализации графического режима) используется процедура:
      GetDefaultPalette ( Palette);
      Palette - переменная типа Palettetype. В ней содержится информация о
количестве и последовательности цветов начальной палитры.
      Для определения текущей палитры используется процедура:
      GetPalette ( Palette);
      Функция GetPaletteSize возвращает значение типа Word, показывающее
число цветов, входящих в текущую программную палитру.
      Следующий фрагмент программы позволяет вывести информацию о
текущей палитре.
Uses grt,graph;
Var     s:string[4];
       Palette:Palettetype;
       K, color:word;
      begin
      {Инициализация графического режима}
              ...
       GetPalette(Palette); {Определение текущей палитры}
       Str(Palette.size,s);
       outtextxy(130,220,'В палитре ' + s + ' цветов');
       outtextxy(130,240,' Вот эти цвета');
       For k := 0 to Palette.size - 1 do {Вывод номеров цветов в палитре}
       begin
         str(Palette.Colors[k],s);
             { Задание цвета пера по номеру цвета из текущей палитры }
         setcolor(Palette.Colors[k]);
         outtextxy(30+k*25,260, s );
        end;
      for Color := 0 to Palette.Size-1 do
          begin
      SetColor(palette.colors[Color]);
{Вывод последовательности прямых линий различными цветами текущей
 палитры }
                                                                              42

Страницы