Карта сайтаСсылкиКонтакты

Создание цветов пользователя

PDF Печать
Статьи

При установке свойства Color для управлений, мы ограничены предопределенными значениями (clWhite, clRed, clGreen и т.д.

Но можно назначить константам новые значения для TColor. Все, что Вы должны сделать:


const
  clKhaki = TColor($ADAE80);

{ Далее...}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Self.Color := clKhaki; //теперь Вы имеете форму цвета хаки!
end;

По материалам http://delphi3000.com


 

Добавить комментарий


Защитный код
Обновить