1

Мне надо поменять случайный системный цвет поменять на случайный цвет. Вот что у меня получилось:

alt text

В чём ошибка?

1

2 ответа 2

3

Variable required

Смотрим сигнатуру процедуры

procedure SetSysColors(Changes: Integer; var SysColor: Integer; var ColorValues: Longint);

у SetSysColors второй и третий параметры должны быть именно переменными.

9
  • 1
    Спасибо!!! А почему именно переменными?! 23 апр 2012 в 10:21
  • 1
    Это связано с тем, что соответствующая WinAPI-шная функция требует в качестве параметров указатели. BOOL SetSysColors( int cElements, CONST INT *lpaElements, CONST COLORREF *lpaRgbValues );
    – Nofate
    23 апр 2012 в 10:31
  • Хороший вопрос. На самом деле ругайте Баглад за это, сигнатура неверная.
    – karmadro4
    23 апр 2012 в 10:35
  • @Nofate, как раз наоборот же! У вас же прямо в копипасте __in const написано.
    – karmadro4
    23 апр 2012 в 10:49
  • 2
    И? INT *lpaElements - указатель на инту. Когда ТС вызывает rgb возвращаемый результат кладется куда-нибудь в eax и компилятор никак не преобразует это в адрес. Поэтому и требуется в явном виде переменная. // чую, что вы хотите меня на чем то подловить или уже подловили )) // /* а еще мне кажется, что @karamdro4 - мой личный ангел-тролль ) */
    – Nofate
    23 апр 2012 в 12:14
0

Попробуйте перед api функцией всавить

Randomize;

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.