Правила форума
Getpltsz.PASЯзык:
Русский
English
{ Пример программы для GetPaletteSize }
uses Graph;
var
Driver, Mode : Integer;
begin
Driver := Detect;
InitGraph(Driver, Mode, 'X:\BP');
if GraphResult < 0 then
Halt(1);
SetColor(1);
OutText('Color = 1, ');
SetColor(GetPaletteSize - 1);
OutText('Color = Max');
ReadLn;
CloseGraph;
end.
var
Driver, Mode : Integer;
begin
Driver := Detect;
InitGraph(Driver, Mode, 'X:\BP');
if GraphResult < 0 then
Halt(1);
SetColor(1);
OutText('Color = 1, ');
SetColor(GetPaletteSize - 1);
OutText('Color = Max');
ReadLn;
CloseGraph;
end.
::
::
::
