Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как в KOL сменить цвет выделенного эл. LIstBox'а?

phant © (2006-03-22 03:07:00)
Необходимо сменить цвет выделенного эл. в LIstBox! Стандартный способ для VCL не работает! Или я, просто, чего-то не понимаю?

phant (2006-03-25 04:15:00) [1]
А примерчик можно??? Заранее спасибо!!!

Vladimir Kladov (2006-03-24 18:31:00) [2]
А, тоде OnDrawItem. А я-то думал... Определить опцию OwnerDraw, назначить обработчик, рисовать все элементы самому - что же туту сложного.

phant (2006-03-24 03:00:00) [3]
Вот пример... Как грамотно его переделать для KOL ???

procedure TListTest.ListBox1DrawItem(Control: TWinControl;
Index: Integer; Rect: TRect; State: TOwnerDrawState);
const
HighLight = 'LINE';
var
TempLine, TempText, TempHigh: string;
TempLeft, TempTop, TempStart: Integer;
OldColor: TColor;
begin
with (Control as TListBox).Canvas do
begin
FillRect(Rect);
TempLeft := Rect.Left + 3;
TempTop := Rect.Top + 1;
TempLine := (Control as TListBox).Items[Index];
while TempLine > '' do
begin
TempStart := Pos(HighLight, AnsiUpperCase(TempLine));
if TempStart > 0 then
begin
TempText := Copy(TempLine, 1, TempStart - 1);
TempHigh := Copy(TempLine, TempStart, Length(HighLight));
Delete(TempLine, 1, TempStart + Length(HighLight) - 1);
end
else
begin
TempText := TempLine;
TempHigh := '';
TempLine := '';
end;
if TempText > '' then
begin
TextOut(TempLeft, TempTop, TempText);
Inc(TempLeft, TextWidth(TempText));
end;
if TempHigh > '' then
begin
OldColor := Font.Color;
if odSelected in State then
Font.Color := clYellow
else
Font.Color := clBlue;
TextOut(TempLeft, TempTop, TempHigh);
Inc(TempLeft, TextWidth(TempHigh));
Font.Color := OldColor;
end;
end;
end;
end;

Vladimir Kladov (2006-03-22 16:44:00) [4]
И какой там стандатный метод?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »