Разноцветные строки в ListBox

← →
zergush (2004-05-31 16:45) [0]

Собс-но сабж. Помогите пожалуйста раскрасить строку в ListBox (подскажите как). А ещё лучше раскрасить одно слово в строке. Это возможно?

← →
Clickmaker © (2004-05-31 16:46) [1]

Style = lbOwnerDraw
OnDrawItem

← →
zergush (2004-05-31 16:58) [2]

2 Clickmaker
"OnDrawItem"
Это понятно.. а вот что за Style = lbOwnerDraw? Как он влияет на цвет? Подскажите чайнику поподробнее.

Да, это скорее всего раскрасит целую строчку (Item), а слово можно?

← →
Sandman25 © (2004-05-31 17:01) [3]

>Это понятно..

Без нужного Style OnDrawItem не вызовется. Вы пример в Delphi help смотрели?

← →
zergush (2004-05-31 17:07) [4]

на самом деле оказывается, что пока ничего не понятно :( Чуть подробнее и больше кода пожалуйста.

Хелп не помог особо. Наверное, не умею пользоваться.

← →
Gero © (2004-05-31 17:09) [5]

> Наверное, не умею пользоваться

Чтобы вызвать хелп, нужно нажать F1.
И говорите сразу - не "не умею", а "не хочу".

← →
zergush (2004-05-31 17:12) [6]

не умею... ибо нажимал на кнопочку F1 - там про цвет ничего полезного(понятного) не заметил. Но если долго объяснять - полезу в справочники или в дельфикингдом.. спросил ведь, чтобы сэкономить время и силы.

← →
Serge © (2004-05-31 17:15) [7]

Прочитайте еще про Canvas.Font.Color, Canvas.Brush.Color, Canvas.Brush.Style + сказанное выше + поэкспериментировать и обязательно получится

← →
Gero © (2004-05-31 17:16) [8]

Style := lbOwnerDrawFixed;
OnDrawItem, обратите внимание на параметр Rect
Canvas + F1

← →
zergush (2004-05-31 17:18) [9]

"Canvas + F1"
вопросов больше не имею :)
Честно говоря, хотелось без канвы обойтись.. пугает она меня. Ладно, буду чего-нибудь думать.

спасибо

← →
Piter © (2004-05-31 17:47) [10]

zergush (31.05.04 17:18) [9]
Честно говоря, хотелось без канвы обойтись

гы, ага. А еще вообще без всякого набирания текста... думаю, хотелось бы просто взять и скопировать готовый код в свою программу...
интересно, а кому вы будете нужны такой красивый?

http://e-dok.narod.ru/delphi/question1/comp/comp-617.html

← →
zergush (2004-05-31 18:08) [12]

сделал
TListBox1.Style := lbOwnerDrawFixed;
и текст исчез) Вообще ничего не видно.. как будто белыми чернилами по белой бумаге.. а цвет делал голубой

← →
zergush (2004-05-31 18:10) [13]

А если не делаю TListBox1.Style := lbOwnerDrawFixed;, то

procedure TCoefrezult.ListBox1DrawItem(Control: TWinControl;
Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
Canvas.Font.Color:=clBlue;
end;

ничего не закрашивает.. или я что-то не так делаю?

> zergush (31.05.04 18:08)

Блин, тебе же сыылку дали!
Ты сам его рисовать должен.

← →
zergush (2004-05-31 18:14) [15]

оп.. ссылку тока сейчас заметил:) Сори.. пошёл читать

Разноцветные строки в ListBox Найти похожие ветки