|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
09.12.2011, 07:56 | #1 |
Пользователь
Регистрация: 06.12.2011
Сообщений: 19
|
Изменение цвета текста в Panel1
Вот простенький тест:
Код:
Последний раз редактировалось Stilet; 09.12.2011 в 09:13. |
09.12.2011, 08:07 | #2 |
Участник клуба
Регистрация: 07.12.2011
Сообщений: 1,025
|
procedure TForm1.RadioGroup5Click(Sender: TObject);
const SumText:array[2..5] of string =('Плохо, 2','Удовлетворительн о, 3','Хорошо, 4','Отлично, 5'); SumColor:array[2..5] of TColor =(clWhite,clGreen,clBlue,clRed); begin If RadioGroup5.ItemIndex=1 then sum:=sum+1; sum:=min(5,max(sum,2)); Panel1.Caption:=SumText[sum]; Panel1.Font.Color:=SumColor[sum]; end;
Не стесняемся, плюсуем!
|
12.12.2011, 14:16 | #3 |
Пользователь
Регистрация: 06.12.2011
Сообщений: 19
|
Здесь какая та ошибка вылазиет:
sum:=min(5,max(sum,2)); |
12.12.2011, 17:17 | #4 |
personality
Старожил
Регистрация: 28.04.2009
Сообщений: 2,886
|
кошмар... справка находится от Вас на расстоянии 1 размаха пяди руки (F1 если что, раздел min function или max function, курсор на слово min/max в редакторе кода и F1) и там написано Unit math , это значит надо добавить в uses вашего Unit'a этот модуль math, получится примерно так:
Код:
Последний раз редактировалось phomm; 12.12.2011 в 17:19. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Изменение цвета текста ячеек | Aleksey1989 | БД в Delphi | 1 | 23.02.2011 18:34 |
Изменение цвета текста у TRadioButton и TCheckBox | Devostator | Общие вопросы Delphi | 7 | 30.11.2010 17:37 |
Изменение цвета | XFR | Microsoft Office Excel | 6 | 28.11.2010 13:32 |
изменение цвета выведенного текста в консоли с++ | BleStaR | Общие вопросы C/C++ | 1 | 27.10.2010 08:57 |
Изменение цвета текста при наведении курсора | gred | HTML и CSS | 1 | 22.09.2010 10:48 |