andreybear
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Добрый день! Подскажите, пожалуйста, как в событии onCustomDrawCell по условию выполнить и закраску ячейки произвольным цветом, и назначить картинку на ячейку так же по условию.
Код:
if AViewInfo.Item.Index > 0 then
begin
// Цвет ячейки
if FColors[recI,itemI] > 0 then
ACanvas.FillRect(AViewInfo.Bounds, GetColorByIndex(FColors[recI,itemI]));
if AViewInfo.Item.Index <> 0 then
if AnsiCompareStr(Trim(FNotes[recI,itemI]),'') <> 0 then
if AnsiCompareStr(Trim(FNotes[recI,itemI]), '-1') <> 0 then
begin
ACanvas.DrawImage(DM.ImgMisc16, AViewInfo.Bounds.Right - 16,
AViewInfo.Bounds.Top, 0, true);
end;
ACanvas.DrawTexT(AViewInfo.Text, AViewInfo.Bounds, cxAlignLeft, true);
ADone := true;
end;
end;
|
Нормально отрисовывает все, однако при манипуляциях с таблицей появляются проблемы - не все корректно перерисовывается(например, если выбрать ячейку, а затем выбрать другую, то у первой становится белый фон, хотя должен быть зеленый, у батон эдита не исчезает батон при потери ячейкой фокуса). Не могу разобраться в чем дело - либо что-то делаю не так, либо недоделал чего-то. |
