Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 01.07.2013, 18:05
Аватар для AlexandrV
AlexandrV AlexandrV вне форума
Начинающий
 
Регистрация: 10.02.2013
Сообщения: 197
Версия Delphi: XE3
Репутация: -624
По умолчанию Работа с цветом

Вгугле не нашел такого легкого вопроса на как проверить является ли строка цветом.
Есть Edit. В него будет выводится цвет или писаться цвет. Надо при писании цвета проверить является ли строка цветом если является то применяем цет к кнопке или правильней сказать панели подделанной под кнопку. Еслиже нет то ничего не выполняем.
Ответить с цитированием
  #2  
Старый 01.07.2013, 18:26
Аватар для Mrak
Mrak Mrak вне форума
Местный
 
Регистрация: 26.01.2013
Адрес: МО
Сообщения: 438
Версия Delphi: XE2
Репутация: 17
По умолчанию

является ли строка цветом - из разряда по реке плывет кирпич, деревянный как стекло

если в едите формат текста соответствует формату цвета (например, rgb(143, 188, 143)), то бери его...
или бэкграунд едита залей и бери
__________________
Я за здоровый экстрим!
Спасибо за "спасибо")
Ответить с цитированием
  #3  
Старый 01.07.2013, 18:29
Аватар для AlexandrV
AlexandrV AlexandrV вне форума
Начинающий
 
Регистрация: 10.02.2013
Сообщения: 197
Версия Delphi: XE3
Репутация: -624
По умолчанию

Не понял мне не RGB а цвет кода делфи точнее цвет кода ColorDialog1.Color тоесть цвет типа TColor
Ответить с цитированием
  #4  
Старый 01.07.2013, 18:48
Аватар для AlexandrV
AlexandrV AlexandrV вне форума
Начинающий
 
Регистрация: 10.02.2013
Сообщения: 197
Версия Delphi: XE3
Репутация: -624
По умолчанию

Забыл добавить цвет неизвестен. Нодо проверить является ли строка цветом если цвет при этом который вводится неизвестен

пробывал так

Код:
if StringToColor(Form1.Edit1.Text) <> nil then begin

  end;

но системная ошибка

Цвет в эдит будет вводится в таком формате например для красного так
ClRed
Ответить с цитированием
  #5  
Старый 01.07.2013, 19:05
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

Код:
var
  c: Integer; 
begin
  if IdentToColor('clLime', c) then Color:=c;
end;
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #6  
Старый 01.07.2013, 19:23
Аватар для AlexandrV
AlexandrV AlexandrV вне форума
Начинающий
 
Регистрация: 10.02.2013
Сообщения: 197
Версия Delphi: XE3
Репутация: -624
По умолчанию

У меня String а не Integer а хотя не понл скажи подробннее как пользоваться.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра
Комбинированный вид Комбинированный вид

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 17:26.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025