Форум: "Основная";
Текущий архив: 2003.10.02;
Скачать: [xml.tar.bz2];
Вниз
вопрос о странном глюке стандартных цветовых констант Найти похожие ветки
← →
Starkom (2003-09-19 13:55) [0]Наипростейший текст:
в ТриВью добавьте несколько элементов.
procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
Sender.Canvas.Brush.Color := clWindow;
Sender.Canvas.Font.Color := clWindowText;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
TreeView1.Enabled := not TreeView1.Enabled;
end;
Теперь понажимайте кнопочку. Затем замените clWindowText на clBlack или clRed. Понажимайте кнопочку. Видите разницу?
Для тех, кто не хочет этого делать - есть глюк именно с clWindowText. Хочется, чтобы при задисаблении ТриВью рисовался также, как и при енабленном состоянии. При clBlack или clRed все нормально - фон clWindow, а шрифт - clBlack или clRed. Но не хочется делать, полагаясь на цветовые настройки винды. Но при присвоении фонту цвета clWindowText, почему-то меняется и цвет фона!
Может кто-нибудь объяснить?
← →
MBo (2003-09-19 14:01) [1]Sender.Canvas.Brush.Style := bsClear;
← →
Starkom (2003-09-19 14:04) [2]Спасибо!
Но механизма я все равно не понял. Почему неожиданный эффект возникает только при использовании clWindowText?
← →
MBo (2003-09-19 14:09) [3]Навскидку не ясно. Трассировать надо.
С другими системными тоже неоднозначно.
← →
Starkom (2003-09-19 14:13) [4]TTreeView.HideSelection на системные цвета тоже как-то нехорошо влияет.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.10.02;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.012 c
