Показать сообщение отдельно
  #10  
Старый 25.09.2023, 22:56
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,018
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Ну ты же перерисовываешь ячейку самостоятельно.
Соответсвенно, если ты хочешь видеить и цифры тоже (т.е. что то типа "3***", то надо сначала вывести саму цифру с помощью TextOut, а потом уже отрисовать иконки с соотв. смещением.

ЗЫ. Да, и твой код можно оптимизировать.
Код:
var
  StarsCount : Integer;
  I : Integer;
begin
  ...
  StarsCount := AViewInfo.GridRecord.Values[cxGrid1DBTableView1reviews.Index];
  For I := 0 To StarsCount-1 Do
    ACanvas.DrawImage(cxImageList1, AImageRect.Left+(I*16), AImageRect.Top, 0);
  ...
Т.е. какая цифра стоит в ячейке, столько звездочек и нарисует. Т не нужна эта пачка if'ов.
Ответить с цитированием