Доработки Rx

[alexs]

Небольшой обзор изменений.
1. В TRxCloseFormValidator добавил функцию нахождения эелемента проверки по проверяемому контролу:

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

    function ByControl(AControl: TWinControl):TValidateItem;


2. В dbutils добавил процедуру CloneRecord - создаёт дубликат текущей записи - для любого наследника TDataSet.

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

procedure CloneRecord(DataSet: TDataSet; IgnoreFields: array of const);


Функциональность польностью аналогична одноименной функции из FBDataSet.

[svk12]

Недавно пришлось сделать украинский перевод Rx.
Если кому-то нужно, выкладываю:http://rusfolder.com/35022838

[alexs]

Спасибо!

[alexs]

Небольшая реорганизация пакета.
Начал выделение не визуальных модулей и процедур в отдельный пакет RxTools.lpk. Назначение этого пакета - использование функций в программах без GUI - например в консольных.

Он добавлен в зависимости RxNew.lpk - так что проблем с совместимостью быть не должно.

[Little_Roo]

Версия svn 4640
Файл RxFileutils.pas

Ругается на строку 158

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

procedure GetFileOwnerData(const SearchDomain, FileName: String; out UserName,
  DomainName: string);
//var
//  SR: stat; // -> пришлось комментарить :(


Не понимает stat

WinXP sp3 32bit
Lazarus 1.7 rFRET_UNKNOWN_REVISION FPC 3.1.1 i386-win32-win32/win64

Лазарь транковый, но поскольку качаю fpcup-ом, версию свн не пишет

[zi000000]

alexs, а по какой причине Вы не наделили TRxVersionInfo возможностью определения версии определённого (указанного) файла?

Для себя я решил это так (правда надо доработать):

Добавил переменную ниже { TRxVersionInfo }

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

var
  FVER: string;

Так выглядит процедура SetFileName (изначально она была пуста)

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

procedure TRxVersionInfo.SetFileName(const AValue: string);
begin
  FVER := AValue;
  FValues:=TStringList.Create;
  if not FileExists(FVER) then Exit;
  LoadFromFile(FVER);
end;

Так выглядит конструктор

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

constructor TRxVersionInfo.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
//  FValues:=TStringList.Create;
//  LoadFromFile(ParamStr(0));
end;

и ещё

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

procedure TRxVersionInfo.LoadFromFile(const AFileName: string);
...
// zi  Res.LoadFromFile(ParamStr(0), Reader);
  Res.LoadFromFile(FVER, Reader);
...

Добавлено спустя 2 часа 8 минут 30 секунд:

if not FileExists(FVER) then Exit;

Exit можно заменить на FVER := ParamStr(0) тогда сохранится поведение по умолчанию

[alexs]

Не понимает stat

Исправил

Добавлено спустя 42 минуты 3 секунды:

alexs, а по какой причине Вы не наделили TRxVersionInfo возможностью определения версии определённого (указанного) файла?

Не было необходимости для меня.
Сейчас реализовал.

[alexs]

Не хочу новую тему начинать.
В RxDBGrid.Footer добавил свойство Color
Если значение отлично от clNone, то заливка ячейки итогов идёт этим цветом. Иначе - как раньше - FooterOptions.Color

Добавлено спустя 39 секунд:
Пример смотреть в демке RxDBGrid

[svk12]

У меня такой вопрос - можно ли узнать сколько записей осталось в RxDBGrid после
применения фильтра? Хотелось бы иметь такую возможность.

[alexs]

Фильтрация идёт на уровне датасета
Так что там элементарный цикл подсчёта
ZEOS, кстати, сразу возвращает кол-во записей уже с учётом фильтра.

А вообще - делюсь лайфхаком
Я эти значения читаю напрямую из футера грида и использую их.

[kit]

Реально переделать фильтр в таблице с TComboBox на TCheckComboBox для вибора нескольких значений в одной колонке?

[alexs]

Я даже начал этим заниматься. Но не хватает времени довести до ума. А так - вдохновленный внешним видом из LO Calc - стараюсь повторить.
Но вот сроки завершения работы...
Сейчас с 54ФЗ разберусь - продолжу.

[kit]

Напишите когда будет готово.. очень надо!

[alexs]

Всем кому интересно - поправил компиляцию в 1.6.4. Проверяйте.

[tema]

Урааааа!!!!