Форум по 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 а хотя не понл скажи подробннее как пользоваться.
Ответить с цитированием
  #7  
Старый 01.07.2013, 19:27
Аватар для AlexandrV
AlexandrV AlexandrV вне форума
Начинающий
 
Регистрация: 10.02.2013
Сообщения: 197
Версия Delphi: XE3
Репутация: -624
По умолчанию

Вместо Integer нужно использовать Color так как у меня в Ini цвет записывается Colorом тоесть строкой а не Integer и изменить строку на Integer никак не могу. Лишний дыблокод использовать нехачу
Ответить с цитированием
  #8  
Старый 01.07.2013, 19:33
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

какая разница TColor или Integer...
если совсем туго:
Код:
var
  c: Integer;
begin
  if IdentToColor(Edit1.Text, c) then Color:=c;
end;
__________________
Пишу программы за еду.
__________________

Последний раз редактировалось NumLock, 01.07.2013 в 19:35.
Ответить с цитированием
Этот пользователь сказал Спасибо NumLock за это полезное сообщение:
AlexandrV (02.07.2013)
Ответ


Delphi Sources

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

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

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

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


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


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

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