Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.05.2010, 13:44   #1
~=DEN=~
 
Регистрация: 15.05.2010
Сообщений: 6
Вопрос множественный выбор в cxGrid

Ребята помогите разобраться.
Пытаюсь в гриде (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;

//6) по идеи должен рисовать в колонке 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;
Вложения
Тип файла: rar MySelRec.rar (9.8 Кб, 9 просмотров)

Последний раз редактировалось ~=DEN=~; 15.05.2010 в 14:05.
~=DEN=~ вне форума Ответить с цитированием
Старый 20.05.2010, 10:17   #2
~=DEN=~
 
Регистрация: 15.05.2010
Сообщений: 6
По умолчанию

тема закрыта, разобрался
~=DEN=~ вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
TcxLookupComboBox в cxGrid Net09 Компоненты Delphi 0 15.03.2010 00:21
cxGrid and cxGridCheckBox MAcK Компоненты Delphi 2 19.11.2008 13:32
Удаление в cxGrid Arteom Компоненты Delphi 2 27.03.2008 09:44
cxGrid KAMENYKA Компоненты Delphi 0 08.02.2008 13:08