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

Тема в разделе "Delphi - FAQ", создана пользователем 777DEN777, 14 май 2010.

  1. 777DEN777

    777DEN777 Гость

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

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

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


    Код (Delphi):
    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;
     
  2. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    Попробуйте снеачала понять как идет у этого канваса х и у
    Код (Text):
     ACanvas.brush.color:=clblue;
    ACAnvas.brush.style:=bssolid;
    ACanvas.FillRect(Bounds(0,0,10,10));
     
  3. 777DEN777

    777DEN777 Гость

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

    Вложения:

    • MySelRec.rar
      Размер файла:
      9,8 КБ
      Просмотров:
      7
  4. 777DEN777

    777DEN777 Гость

    тема закрыта, разобрался
     
Загрузка...

Поделиться этой страницей