Страница 9 из 11

Re: Доработки Rx

СообщениеДобавлено: 17.08.2018 12:55:16
kit
TRxIniPropStorage = class(TIniPropStorage)
...
protected
function DoReadString(const Section, Ident, DefaultValue: string): string; override;

implementation

function TRxIniPropStorage.DoReadString(const Section, Ident, DefaultValue: string): string;
begin
Result := inherited;
if (Pos('Width', Ident) > 0) or (Pos('Height', Ident) > 0) then begin
Result := IntToStr(Application.MainForm.Scale96ToForm(StrToInt(Result)))
end;
end;

Re: Доработки Rx

СообщениеДобавлено: 12.11.2018 13:57:08
alexs
kit
Пошу прощения за задержку. Давайте пробовать.
Немного переработал код. Но в целом идея стоящая.

Re: Доработки Rx

СообщениеДобавлено: 03.12.2018 10:21:36
brick08
Можно ли сделать в RxDBGrid фиксированные колонки, которые бы были как обычные (возможность менять ширину, редактировать и т.д.), но не прокручивались влево (по типу Закрепить области в Excele)? Стандартное FixedCols не дает менять размеры и делать невидимыми.

Добавлено спустя 14 минут 15 секунд:
И еще в rxdbutils в функции DataSetLocateThrough при поиске по нескольким полям не выполнялся код.
Код: Выделить всё
  function CompareRecord: Boolean;
  var
    I: Integer;
  begin
    if FieldCount = 1 then
      Result := CompareField(TField(Fields.First), KeyValues)
    else begin
      Result := True;
      for I := 0 to FieldCount - 1 do
        Result := Result and CompareField(TField(Fields[I]), KeyValues[I]);
    end;
  end; 

Нужно:
Код: Выделить всё
  function CompareRecord: Boolean;
  var
    I: Integer;
  begin
    if FieldCount = 1 then
      Result := CompareField(TField(Fields.First), KeyValues)
    else begin
      Result := False;
      for I := 0 to FieldCount - 1 do
        if not Result then
          Result := CompareField(TField(Fields[I]), KeyValues[I])
        else
          Break;
    end;
  end; 

Re: Доработки Rx

СообщениеДобавлено: 03.12.2018 15:46:09
alexs
По поводу фиксированных - сделать можно. Времени нет пока.
По поиску посмотрю.

Re: Доработки Rx

СообщениеДобавлено: 05.12.2018 14:09:02
alexs
Не понял предложения
Там же получается - что если 1-е поле - истина - то сразу на 2-й итерации выскочет

Текущий код верно работает. В качестве оптимизации просто можно добавить чтобы цикл прерывался - если есть не совпадение.

Re: Доработки Rx

СообщениеДобавлено: 05.12.2018 15:06:08
kit
Можна в TRxDBGridPrint добавить собитие OnAfterPrint из FReport : TfrReport; ?

Re: Доработки Rx

СообщениеДобавлено: 06.12.2018 11:26:45
brick08
alexs писал(а):Не понял предложения

Это я по невнимательности :oops: .
Когда то давно переделал этот код для поиска одного значения по нескольким полям, и если находилось совпадение, то выходил из цикла. А тут попалось на глаза, и почему-то подумал, что исправил баг.

Re: Доработки Rx

СообщениеДобавлено: 06.12.2018 12:37:09
alexs
kit писал(а):Можна в TRxDBGridPrint добавить собитие OnAfterPrint из FReport : TfrReport; ?

А чем не устраивает событие OnAfterExecute?

Re: Доработки Rx

СообщениеДобавлено: 07.12.2018 09:37:40
kit
Надо зафиксировать что таблица распечатана на принтере
Или добавить опцию непосредсвенной печати после формирования:

function TRxDBGridPrint.DoExecTools: boolean;
...
FReport.PrepareReport;
if rxpoPrint in Options then
FReport.PrintPreparedReport
else
FReport.ShowPreparedReport

Re: Доработки Rx

СообщениеДобавлено: 07.12.2018 10:56:03
alexs
Посмотри ревизию 6749.
Добавил новый флаг rxpoShowPreview - оно?
Также новая демка

Re: Доработки Rx

СообщениеДобавлено: 13.12.2018 15:45:21
alexs
Смотрим ревизию 6752.
Переписал RxToolbar
В основном совместимость осталась
Добавил поддержку масштабирования интерфейса на больших мониторах - в том числе и иконок на кнопках.
Переработал код сохранения/восстановления состояния для поддержки в будущем настройки по всему списку акшенов на форме. Сохраняется позиция разделителей.
Теперь нет возможности кнопки располагать в произвольном порядке - всегда прижаты либо к левому краю, либо к правому
Доработал окно настройки тулбара из программы - правильно отображаются разделители. Окно стало модальным - расположение кнопок на панели изменяется напрямую из окна.

Re: Доработки Rx

СообщениеДобавлено: 14.12.2018 16:19:09
alexs
Доработки RxToolbar
Исправлено добавление разедлителя. Улучшен редактор. Добавлен редактор по умолчанию в IDE

Re: Доработки Rx

СообщениеДобавлено: 19.12.2018 08:43:01
kit
alexs писал(а):Посмотри ревизию 6749.
Добавил новый флаг rxpoShowPreview - оно?

Да. Спасибо!

Re: Доработки Rx

СообщениеДобавлено: 19.12.2018 12:04:51
alexs
Вынес функции логирования из модуля rxAppUtils в отдельный модуль rxLogging и включил его в пакет rxTools
Обусловлено желанием использовать данные функции в приложениях без GUI.

Re: Доработки Rx

СообщениеДобавлено: 30.12.2018 22:19:50
S_Gur
Господа, извините, если не в тему, но никак не могу найти, где можно скачать текущую версию Rx под Lazarus