Глюки rxDBGrid

Модераторы: alexs, Модераторы

rellai2
постоялец
Сообщения: 135
Зарегистрирован: 18.09.2008 11:37:45

Сообщение rellai2 »

Еще глюк RXDBGrid нашел.
если RXDBGrid отображает данные из rxMemData то все ок - сортировка по полю работает
если RXDBGrid отображает данные из tzReadOnlyQuery - сортировка не работает вообще, хотя в капшене значек сортировки появляется.
Можно ли как то исправить?
Аватара пользователя
alexs
долгожитель
Сообщения: 4066
Зарегистрирован: 15.05.2005 23:17:07
Откуда: г.Ставрополь
Контактная информация:

Сообщение alexs »

а компоненту-сортировщик положил в проект? находится в пакете rx_sort_fbdataset.lpk
rellai2
постоялец
Сообщения: 135
Зарегистрирован: 18.09.2008 11:37:45

Сообщение rellai2 »

Да спасибо! Установил rx_sort_zeos, кинул на форму и все заработало!
Аватара пользователя
alexs
долгожитель
Сообщения: 4066
Зарегистрирован: 15.05.2005 23:17:07
Откуда: г.Ставрополь
Контактная информация:

Сообщение alexs »

Кто бы документацию написал? :D
Naumoff
новенький
Сообщения: 11
Зарегистрирован: 13.08.2016 18:32:20

Сообщение Naumoff »

Обновил RxLib из SVN. В DbGrid перестал рисоваться текст первой колонки. Пару месяцев назад я этот глюк уже встречал, а вот как поборол не помню. Никто не сталкивался?
Вспомнил. В DefaultDrawColumnCell индексация столбцов в те времена с 1 начиналась, теперь как положено.
kit
постоялец
Сообщения: 156
Зарегистрирован: 29.09.2016 08:39:07

Сообщение kit »

Жутко тормозит "Фильтр в таблице" если FooterOption.Active
Может лучше обробативать не все колонки а по востребованию (после нажатия на кнопку активации фильтра колонки)

procedure TRxDBGrid.OnFilter(Sender: TObject);
var
C: TRxColumn;
i: integer;
FBS, FAS:TDataSetNotifyEvent;
FooterActive: Boolean;
begin
BeginUpdate;

FooterActive := FooterOptions.Active; // kit
FooterOptions.Active := False; // kit

OptionsRx := OptionsRx + [rdgFilter];

for i := 0 to Columns.Count - 1 do
begin
C := TRxColumn(Columns[i]);
C.Filter.ValueList.Clear;
C.Filter.Value := '';
C.Filter.ItemIndex := -1;
C.Filter.ValueList.Add(C.Filter.EmptyValue);
C.Filter.ValueList.Add(C.Filter.AllValue);
end;
Аватара пользователя
zoltanleo
постоялец
Сообщения: 459
Зарегистрирован: 17.10.2013 10:55:01

Сообщение zoltanleo »

Решил переустановить текущий транк

Код: Выделить всё

rxversinfo.pas(310,21) Error: Identifier not found "LCLPlatformDisplayNames"

:shock:

Lazarus 1.7(rev. 52463); FPC 3.1.1(rev.33700), Windows 7 x64 Prof; Debian 8,5 i386

Update: на версии 1.6.2 то же самое
Update2: откатился до ревизии 5451
Аватара пользователя
alexs
долгожитель
Сообщения: 4066
Зарегистрирован: 15.05.2005 23:17:07
Откуда: г.Ставрополь
Контактная информация:

Сообщение alexs »

Возьми лазарь текущий
Там изменили константы для определения версии IDE и LCL
Аватара пользователя
zoltanleo
постоялец
Сообщения: 459
Зарегистрирован: 17.10.2013 10:55:01

Сообщение zoltanleo »

alexs писал(а):Возьми лазарь текущий


А сейчас транк какой: 1.7 или 1.8?
Аватара пользователя
Лекс Айрин
долгожитель
Сообщения: 5723
Зарегистрирован: 19.02.2013 16:54:51
Откуда: Волгоград
Контактная информация:

Сообщение Лекс Айрин »

zoltanleo, 1.7. транки только нечетные.
Аватара пользователя
zoltanleo
постоялец
Сообщения: 459
Зарегистрирован: 17.10.2013 10:55:01

Сообщение zoltanleo »

Лекс Айрин писал(а):транки только нечетные.


точно, запамятовал :)

Так у меня в подписи
Lazarus 1.7(rev. 52463); FPC 3.1.1(rev.33700), Windows 7 x64 Prof; Debian 8,5 i386


С какой ревизии?
Аватара пользователя
alexs
долгожитель
Сообщения: 4066
Зарегистрирован: 15.05.2005 23:17:07
Откуда: г.Ставрополь
Контактная информация:

Сообщение alexs »

Да там практически на следующий день была моя правка. Бери текущую (сейчас это 53921)
ra9ftm
незнакомец
Сообщения: 2
Зарегистрирован: 07.08.2017 16:53:59

Сообщение ra9ftm »

Хотелось бы сделать столбец с CheckBox'ами, не связанными с БД.

Работает как описано здесь http://wiki.freepascal.org/Grids_Reference_Page/ru "Selecting Records in a DBGrid using checkboxes"
через RBookmarklist. Но при сортировке сбивается отображение CheckBox'ов.

в этом месте что-то пошло не так
procedure TForm1.DBGrid1UserCheckboxState(sender: TObject; column: TColumn; var AState: TCheckboxState);
begin
if RecList.CurrentRowSelected then
AState := cbChecked
else
AState := cbUnchecked;
end;


Может быть есть другой способ?
Использую с zeos TZQuery, TZConnection, firebird.

Добавлено спустя 4 часа 49 минут 16 секунд:
Переделал как-то так (может есть более изящный способ?):
Добавить RxMemoryData
TZQuery столбец с FieldKind=Calculated
ZQuery событие OnCalcFields:

procedure TForm1.ZQuery1CalcFields(DataSet: TDataSet);
var
id:integer;
begin
id:=dataset.FieldByName('ID').AsInteger;
if RxMemoryData1.Active then
if RxMemoryData1.Locate('ID',id,[])
then dataset.FieldByName('Checked').AsBoolean:= RxMemoryData1.FieldByName('Checked').AsBoolean
else dataset.FieldByName('Checked').AsBoolean:=false;
end;


RXDBgrid событие OnCellClick:

if Column.Title.Caption='Выбор' then begin
with rxdbgrid1.DataSource do begin
if RxMemoryData1.Locate('ID',dataset.FieldByName('ID').AsInteger,[]) then
begin
RxMemoryData1.Edit;
RxMemoryData1.FieldByName('Checked').AsBoolean:=dataset.FieldByName('Checked').AsBoolean;
end else
RxMemoryData1.AppendRecord( [dataset.FieldByName('ID').AsInteger,
dataset.FieldByName('Checked').AsBoolean] );
end;
end;

соответственно в БД и RxMemoryData колонки ID integer, Checked boolean
ra9ftm
незнакомец
Сообщения: 2
Зарегистрирован: 07.08.2017 16:53:59

Сообщение ra9ftm »

при включенной опции rdgfilter вертикальный Scrollbar всегда одной длины, очень неудобно его использовать и конечно перестает работать dgThumbTracking.
Аватара пользователя
alexs
долгожитель
Сообщения: 4066
Зарегистрирован: 15.05.2005 23:17:07
Откуда: г.Ставрополь
Контактная информация:

Сообщение alexs »

ra9ftm писал(а):при включенной опции rdgfilter

Это вопрос к датасету, кототрый подключен к гриду. Он не возвращает в этом случае кол-во записей. ZEOS тут себя кажется ведёт верно. Остальные - как получится.
Ответить