Пример.
в строке несколько ячеек имеют ComboBox, кадый ComboBox заполняется в зависимости от того, что юзер выбрал в ComboBox`е предыдущей ячейки. Но если все ComboBox`ы заполнены, а юзер опять начал выбирать данные в той же строке, то после выбора значения первого ComboBox`а остальные нужно очистить. Но очисть в том случае, если юзер выбрал новое значение в ComboBox`е.
Есть 2 события ComboCloseUp и ComboOnChange. К сожалению ComboOnChange наступает позже, т.е. после закрытия ComboBox`а. Нам нужно до закрытия, т.к. после закрытия мы уже дожны знать, изменилось значание в ComboBox`е или нет.

Как отследить?

Вводим глобальную переменную

Код

AOldTex:string;

В событии OnClockCell пишем (запоминаем старый текст)

Код

AOldText := asg2.Cells[ACol,ARow];

В событии OnComboCloseUp

Код

asg2 - сетка   bComboCh := asg2.Combobox.Text <> AOldText;   if bComboCh then begin     if (ACol = 0) then begin       asg2.Cells[ACol+1,ARow]:='';       asg2.Cells[ACol+2,ARow]:='';     end;//if (ACol = 0) then begin     if (ACol = 1) then begin       asg2.Cells[ACol+1,ARow]:='';     end;//if (ACol = 0) then begin     if (ACol = 2) then begin       asg2.Cells[ACol+1,ARow]:='';     end;//if (ACol = 0) then begin   end;//if bComboCh then begin

Глюк:

Код

код в исходниках (файл BaseGrid) procedure TBaseGrid.RepaintCell(c, r: integer); var   ARect: TRect; begin   ARect := CellRect(c,r); ->  InvalidateRect(Handle,@arect,true); <- здесь ошибка end;

Почему? А может и я не прав. Итак загружаем в сетку данные, затем удаляем одну строку загружаем новые данные, получается последние строки не отрисовывает, мало того вылетает исключение.

Как решить проблему?

Код

код удаления одной строки asgMain - TTMSGrid procedure TfmMain.actDelRowExecute(Sender: TObject); var   _i,_j,_k: Integer;   _s:string; begin   if (ActRow2 = 0){ or (not asgMain.Focused)}then begin     ShowMessage('Не выбрана строка ('+IntToStr(ActRow2)+')');     EXIT;   end;   for _k:=0 to asgMain.ColCount-1 do     _s:=_s+asgMain.Cells[_k,ActRow2];   if _s <> '' then begin     if application.MessageBox(PAnsiChar('УДАЛЕНИЕ объявления '+     'в газету: '+asgMain.cells[ColByName.Gaz,ActRow2]+#13+     'Рубрика: '+asgMain.cells[ColByName.Rub,ActRow2]+' '+asgMain.cells[ColByName.Obj,ActRow2]+#13+     'Удалить объявление?'),'ВНИМАНИЕ!',MB_YESNO) = IDYES then     begin       _j:=asgMain.Row; // строка с выделением       asgMain.Rows[_j].Clear;       for _i:=_j to asgMain.RowCount-2 do         asgMain.Rows[_i].Assign(asgMain.Rows[_i+1]);       asgMain.RowCount:=asgMain.RowCount-1;     end;   end else begin     _j:=asgMain.Row; // строка с выделением     asgMain.Rows[_j].Clear;     for _i:=_j to asgMain.RowCount-2 do       asgMain.Rows[_i].Assign(asgMain.Rows[_i+1]);       asgMain.RowCount:=asgMain.RowCount-1;   end;//else   sb1.Panels[1].Text:='строк: '+IntToStr(asgMain.RowCount-1);   bGridCh:=True; end;

Код

загрузка некоторые строки лишние (для отладки) Procedure TfmMain.LoadFiles; begin try   if not assigned(lvFiles.Selected) then exit;   asgMain.BeginUpdate;   asgMain.Clear;   if bUseTlfFull then begin     sb1.Panels[2].Text:='Загрузка '+lvFiles.Selected.Caption;     asgMain.LoadFromFile(lvFiles.Selected.Caption);   end else begin     sb1.Panels[2].Text:='Загрузка '+sTlfPath+lvFiles.Selected.Caption+'.ob';     asgMain.LoadFromFile(sTlfPath+lvFiles.Selected.Caption+'.ob');   end;   lbTlf.Text:=lvFiles.Selected.Caption;   application.ProcessMessages;   sb1.Panels[2].Text:='Ставим галки';   application.ProcessMessages;   if asgMain.ColCount <=0 then begin     ShowMessage('Ошибка загрузки колонок: '+IntToStr(asgMain.ColCount));     exit;   end;   if asgMain.RowCount <=0 then begin     ShowMessage('Ошибка загрузки строк: '+IntToStr(asgMain.RowCount));     exit;   end;   CheckBoxes;//ставим галки   sb1.Panels[2].Text:='Проверка дат и пустых №№ рубрик';   application.ProcessMessages;   OutOfDate;//прверка дат   sb1.Panels[2].Text:='Включаем кнопки';   application.ProcessMessages;   actAddRow.Enabled:=True;   actDelRow.Enabled:=True;   actQSave.Enabled:=true;   actClearGrid.Enabled:=true;   sb1.Panels[1].Text:='строк '+IntToStr(asgMain.RowCount-1);   asgMain.SelectRange(0,0,1,1);   sb1.Panels[2].Text:='Готово'; finally   asgMain.EndUpdate;   if ActRow2=0 then ActRow2:=1; end; end;

Это сообщение отредактировал(а) dsergey - 2.6.2005, 11:17

ОШИБКА ИМЕННО В ЭТОЙ ПРОСЕДУРЕ

Код

Procedure TfmMain.CheckBoxes; Var  iRow,iCol,ieRow,ieCol:integer;  bCellCecked:bool;  setDays:Set of 0..255; begin //ShowMessage(IntToStr(asgMain.RowCount-1));   try     setDays:=[ColByName.Pn,ColByName.Vt,ColByName.Sr,ColByName.Ch,ColByName.Pt,ColByName.Sb,ColByName.Eks,ColByName.Plat];     For iRow:=0 to asgMain.RowCount-1 do begin       ieRow:=iRow;//см.ниже для ShowMessage('Ошибка установки "галки".'+#13+       if iRow >0 then begin         For iCol:=0 to asgMain.ColCount-1 do begin           ieCol:=iCol;//см.ниже для ShowMessage('Ошибка установки "галки".'+#13+             if iCol in setDays then begin               bCellCecked := AnsiUpperCase(asgMain.Cells[iCol,iRow])='Y';               asgMain.AddCheckBox(iCol,iRow,bCellCecked,False);             end;//if (iCol = ColByName.Pn) or...         end;//For iCol:=0 to asgMain.ColCount-1 do begin       end;//if iRow >0 then begin     end;//for iRow   except     ShowMessage('Ошибка установки "галки".'+#13+     'Строка '+IntToStr(ieRow)+' (включая заголовок)'+#13+     'Колонка '+IntToStr(ieCol));   end;//except end;

Решил проблему следующим кодом

Код

procedure TfmMain.actDelRowExecute(Sender: TObject); begin   if (ActRow2 = 0)then begin     ShowMessage('Не выбрана строка ('+IntToStr(ActRow2)+')');     EXIT;   end;   asgMain.RemoveRows(ActRow2,1);<- стандартный медот удаления строк   sb1.Panels[1].Text:='строк: '+IntToStr(asgMain.RowCount-1);   bGridCh:=True; end;

неужели никто не на работал с эти пакетом?

Привет!

несколько примеров для advStringGrid


Замечание при работе с Nodes - пред закрытием программы, для исключения Invalid Pointer Operation / AViolation их необходимо удалить, например в событии OnClose формы - 

 

Я тоже работал вплотную с этими компонентами.. Очень понравились, приятный вид и большой функционал.. Что же касается триальности, то пишите в личку ;) 

kostas, лучше примеры выкладывай, куски кода, что можно, что нельзя... 

работал... но такого компанента я у себя в пакете не нашёл... у тебя он на какой закладке?

как-то задавал вопрос по VrScope... никто ничего по нему не сказал... пришлось самому разбираться... 

я работал, но нормальных примеров у меня к сожалению нету, я пробовал разобраться в демках, кое что получилось, кое что нет, но от противной надписи о том что она триальная мне пришлось пострадать... (отказаться, дальенейшее изучение я посчитал бессмысленным... ибо небыло средств оплатить компанент...) 

если нужен конкретный пример то могу дать, а так... что выкладывать то даже и не знаю ) могу отрисовку выложить, делал чтоб строки разными цветами были 

ну так выкладывай 

Ниже процедурки, которые когда-то писал сам... есть еще много примеров по работе в общем с гридами, однако они есть в том же drkb и смысла здесь их приводить я не вижу..

Вот пример экспорта грида в html:


сортировка по любой колонке:


раскраска последней ячейки последнего столбца в красный цвет и выравнивание во всех других ячейках по правому краю:


и еще в аттаче небольшой примерчик по работе с TStringGrid, для кого то делал когда то 

Присоединённый файл ( Кол-во скачиваний: 24 )
 StringGrid_work.zip 29,74 Kb

на сайте разработчиков пакета FIBPlus (http://www.devrace.com/) выложен пример

см. новости за 25.07.2006

Добавлено @ 11:52 
http://www.devrace.com/files/tmsadvgrid_2....ibplus_6.45.exe 

примеры

Присоединённый файл ( Кол-во скачиваний: 41 )
 tms_DASGDEMOS.ZIP 540,71 Kb