Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.04.2018, 20:04   #1
v258
Пользователь
 
Регистрация: 29.10.2008
Сообщений: 25
По умолчанию Непонятки с TBrush

Код:
t := TBrush.Create;
t.Color := StringToColor('clBtnHighlight');
t.Style := TBrushStyle(StrToIntDef(1, Ord(bsSolid)));
При выполнении кода после выполнения второй строки t.Color заменяется на цвет по-умолчанию, т.е. clWhite
Причем, если во второй строке единицу заменить на 2
Код:
t.Style := TBrushStyle(StrToIntDef(2, Ord(bsSolid)));
то цвет не сбрасывается. Что я делаю не так?

Delphi 2010
v258 вне форума Ответить с цитированием
Старый 28.04.2018, 20:13   #2
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,695
По умолчанию

Код:
TBrushStyle = (bsSolid, bsClear, bsHorizontal, bsVertical,
bsFDiagonal, bsBDiagonal, bsCross, bsDiagCross);
Закиньте Clear в переводчик, может и поведение вдруг окажется стандартным.
p51x вне форума Ответить с цитированием
Старый 28.04.2018, 20:35   #3
v258
Пользователь
 
Регистрация: 29.10.2008
Сообщений: 25
По умолчанию

Цитата:
Сообщение от p51x Посмотреть сообщение
Закиньте Clear в переводчик, может и поведение вдруг окажется стандартным.
Да и без переводчика знаю. Разобрался уже - действительно так было задумано. Раньше с кистями дела не имел, вот и не въехал сразу
v258 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

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

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
непонятки с Си Aleksey_voyaka Помощь студентам 4 20.10.2012 14:16
Непонятки с FPS k3rn3l Gamedev - cоздание игр: Unity, OpenGL, DirectX 36 14.02.2011 11:23
непонятки gling Microsoft Office Excel 8 05.01.2011 21:25
непонятки с if mrgrudge PHP 2 05.10.2010 12:01
Помогите Delphi TBrush в DLL Владимиp Помощь студентам 8 31.01.2009 09:28