множественный выбор в Cxgrid

[777DEN777]

Ребята помогите разобраться.

Пытаюсь в гриде (cxGrid) сделать множественный выбор

не пойму как вывести отметку.

var
ListSelect : TList;

procedure TFrmMain.FormCreate(Sender: TObject);
begin
ListSelect := TList.Create;
end;

// заполняем список выбранными записями
procedure TFrmMain.MyVwKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_INSERT then
begin
if ListSelect.Count > 0 then
if ListSelect.IndexOf(Pointer(Table1SpeciesNo.AsInteger)) >= 0 then
ListSelect.Delete(ListSelect.IndexOf(Pointer(Table1SpeciesNo.AsInteger)))
else
begin
ListSelect.Add(Pointer(Table1SpeciesNo.AsInteger));
end
else
ListSelect.Add(Pointer(Table1SpeciesNo.AsInteger));
Table1.Next;
Caption := IntToStr(ListSelect.Count);
end;
end;

//по идеи должен рисовать в колонке MyClmCheck
procedure TFrmMain.MyClmCheckCustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
CheckIt:Boolean;
begin
CheckIt := ListSelect.IndexOf(Pointer(Table1SpeciesNo.AsInteger)) >= 0;
if CheckIt Then
begin
ADone := True;
ACanvas.FillRect(AViewInfo.Bounds);
ACanvas.DrawImage(ImageList1, AViewInfo.Bounds.Left, AViewInfo.Bounds.Top, 2, True);
end;
end;

 

[Dock1100]

Попробуйте снеачала понять как идет у этого канваса х и у

 ACanvas.brush.color:=clblue;
ACAnvas.brush.style:=bssolid;
ACanvas.FillRect(Bounds(0,0,10,10));

 

[777DEN777]

исходник программы

 

[777DEN777]

тема закрыта, разобрался