Bash.org.ru IT Happens Истории ## 3701 – 3800

#3785: Вгоняй в краску

15:00 02.08.2010, IT happens

Когда-то от виндового кошмара «чёрные буквы на чёрном фоне» меня спасла... программа-прикол из журнала «Хакер», переписанная мной во время знакомства с Delphi. Ключевые моменты кода внутри таймера выглядели так:

const

SysClArray: array [0..13] of integer = (Color_Activeborder, Color_Activecaption, [...], Color_Windowtext);

ColorArray: array [0..10] of TColor = (clAqua, clBlack, [...], clSkyBlue);

begin

SetSysColors (1, SysClArray[random(13)], ColorArray[random(10)]);

end;

Цвет случайного элемента цветовой схемы менялся на случайный. Схема, конечно, получилась пунцовой на оранжевом, но добраться при этом до настроек проблем уже не составляло. Сложнее было найти эту программу в папке со всяким старым компилятом — в процессе я нарвался на парочку других приколов.