type DAC_register =array[0..2] of byte;
paltype =array[0..15] of DAC_register;
const newpal :paltype
=(($00, $00, $00),($04, $04, $04),($08, $08, $08),
($0b, $0b, $0b),($10, $10, $10),($14, $14, $14),
($18, $18, $18),($1b, $1b, $1b),($20, $20, $20),
($24, $24, $24),($28, $28, $28),($2b, $2b, $2b),
($30, $30, $30),($34, $34, $34),($38, $38, $38),
($3f, $3f, $3f));
procedure farbe;
var i : integer;
begin
for i:= 0 to 15 do begin
SetPalette(i,i);
SetRGBPalette(i,newpal[i,0],newpal[i,1],newpal[i,2]);
end;
end;
Vorgefundene Kodierung: UTF-8 | 0
|