|
|
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#15
20.09.2011, 22:33
|
||||
|
||||
У тебя неверно отрабатывает эта часть:
Код:
begin
if (TColorQuad(AColor).Red > $c0) or
(TColorQuad(AColor).Green > $c0) or
(TColorQuad(AColor).Blue > $c0) then
Result := clBlack
else
Result := clWhite;
end; |
Древовидный вид