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

  • Автор темы 777DEN777
  • Дата начала
7

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;
 
D

Dock1100

Попробуйте снеачала понять как идет у этого канваса х и у
Код:
 ACanvas.brush.color:=clblue;
ACAnvas.brush.style:=bssolid;
ACanvas.FillRect(Bounds(0,0,10,10));
 
7

777DEN777

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

Вложения

  • MySelRec.rar
    9,8 КБ · Просмотры: 157
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!