1. Мегаконкурс в апреле "Приведи друзей на codeby". Дарим деньги, подписку на журнал хакер и выдаем статус "Paid Access". Подробнее ...

    Скрыть объявление

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

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

Наш партнер Genesis Hackspace
  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
    Сообщения:
    665
    Симпатии:
    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 Гость

    тема закрыта, разобрался
     
Загрузка...
Похожие Темы - множественный выбор Cxgrid
  1. ToxaRat
    Ответов:
    2
    Просмотров:
    1.522
  2. a113
    Ответов:
    12
    Просмотров:
    246
  3. Burner
    Ответов:
    4
    Просмотров:
    249
  4. SergaevOleg
    Ответов:
    8
    Просмотров:
    585
  5. Sergei webware
    Ответов:
    4
    Просмотров:
    3.464

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