listbox

← →
user965 © (2002-08-07 12:49) [0]

есть две кнопки задача что-бы в listbox информация писалась разным цветом, сейчас я использую процедуру но она чередует цвета :-(( подскажите как сделать что-бы те строки которые были введены одной кнопкой были одного цвета , а которые были введены другой кнопкой другово никак не могу допереть ???????? помогите плз

procedure TForm1.vg2ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var
myColor: TColor;
myBrush: TBrush;
begin
myBrush := TBrush.Create;
with (Control as Tvg2ListBox).Canvas do
begin
if not Odd(Index) then
myColor := clRed
else
myColor := clYellow;
myBrush.Style := bsSolid;
myBrush.Color := myColor;
Windows.FillRect(handle, Rect, myBrush.Handle);
Brush.Style := bsClear;
TextOut(Rect.Left, Rect.Top,
(Control as Tvg2ListBox).Items[Index]);
MyBrush.Free;
end;
end;

← →
MBo © (2002-08-07 12:58) [1]

Рассуждаем логически - для решения задачи необходимо хранить информацию о способе добавления строки. Где можно хранить этот признак? Items типа TStrings имеют свойство Objects, представляющее собой указатели, вот в них и можно записывать, например,
Items.AddObject(SomeString, pointer(1))
для первого способа, и Pointer(2) для второго, а в DrawItem проверять Integer(Objects[Index]) и далее понятно...

listbox Найти похожие ветки