Несколько вопросов по ListView и Memo

← →
Matroskin66 (2007-07-06 23:21) [0]

Привет. Читал книгу про KOL и искал на форуме, но ответов на свои вопросы так и не нашёл. Помогите пожалуйста, я только начал программировать на KOL.
1) Как поменять цвет шрафта (стиль начертания) определённого пункта в колонке (в уже существующей теме на форуме ответа так и нет, а демку я не нашёл)
2) использую LVSearchFor для поиска по ListView
var r: Integer; begin if SearchEd.Text = "" then exit; r := LV.LVSearchFor(SearchEd.Text, -1, true); if r <> -1 then begin LV.LVItemState[r] := [lvisSelect]+[lvisFocus]; LV.LVCurItem := r; end; end;
У меня большой список в ListView и поэтому, если нужная строка находится вне зоны видимости, то нужно пролистать лист, что бы увидеть найденную(веделенную) строку. Как сделать так, что бы при нахождении нужной строки, лист сам прокручивался?
3) Как ограничить количество вводимых символов в Memo? (например что бы больше 100 символов нельзя было вводи. т.е. наподобии свойства в VCL у Edit"a MaxLength)
4) Как вставить свой текст в Memo. (в то место, где сейчас находится курсор, что бы уже набранный текст не стерался) мучался с Add и Insert так ничего и не получилось.

Извините что столько ламерских вопросов, но я действительно не нашёл в книге описание таких тривиальных вещей. А у самого что то никак не получается. Заранее всем спасибо.

← →
=BuckLr= (2007-07-07 09:57) [1]

> Как ограничить количество вводимых символов в Memo

API Memo1.Perform( EM_LIMITTEXT, 0, MaxTextLen ). Для richedit можно EM_EXLIMITTEXT

> Как вставить свой текст в Memo. (в то место, где сейчас
> находится курсор

.selection

← →
Matrorkin66 (2007-07-07 10:42) [2]

Спасибо, с мемо разобрался (только нужно для ограничения использовать первый параметр а не второй). А как быть с ListView? Если уж никак нельзя изменить цвет или начертание шрифта у некоторых элементов, то как сделать нормальный поиск?

← →
=BuckLr= (2007-07-08 11:53) [3]

> только нужно для ограничения использовать первый параметр
> а не второй

да, забыл. Это у меня с ричэдит код, для него второй параметр, а для мемо - первый, правильно

← →
KOLBoss © (2007-07-09 06:18) [4]

> Как сделать так, что бы при нахождении нужной строки, лист
> сам прокручивался?

LV.LVMakeVisible(LV.Count -1,True);

← →
Matroskin66 (2007-07-09 10:20) [5]

KOLBoss, спасибо за LVMakeVisible :) Сделал вот так:
var r: Integer; begin if SearchEd.Text = "" then exit; r := LV.LVSearchFor(SearchEd.Text, -1, true); if r <> -1 then begin LV.LVCurItem := r; LV.LVMakeVisible(r, true); end; end;

Теперь осталось узнать как поменять цвет шрифта или стиль начертания определённого пункта в колонке и я буду счастлив :)

← →
KOLBoss © (2007-07-09 10:59) [6]

> Теперь осталось узнать как поменять цвет шрифта или стиль
> начертания определённого пункта в колонке и я буду счастлив
> :)

Да вопрос интересный,
надо капать в сторану события
onLVCustomDraw

По поводу ListView была тема на форуме недавно. Сам заводил.
http://delphimaster.net/view/11-1181215785/

> vpbar
спасибо за подсказку но в твоем примере хинты остаются пустыми почемуто.
А примерчик здесь http://kolmck.net/demos/DemoLVCustomDraw.zip
А именно конкретной ичейке цвет нельзя поменять? только целиком со строчкой?

Вот код onLVCustomDraw
result := CDRF_DODEFAULT; if (Stage and CDDS_PREPAINT) <> 0 then begin if SubItemIdx = 1 then begin if ItemIdx mod 2 = 0 then begin TextColor := clYellow; end else begin TextColor := clWhite; end; BackColor := clGreen; end else begin BackColor := clYellow; if ItemIdx mod 2 = 0 then begin TextColor := clRed; end else begin TextColor := clBlue; end; end; Result := Result or CDRF_NEWFONT or CDRF_NOTIFYITEMDRAW; end;

Несколько вопросов по ListView и Memo Найти похожие ветки