Страница 9 из 13
Re: Доработки Rx
Добавлено: 17.08.2018 11: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 12:57:08
alexs
kit
Пошу прощения за задержку. Давайте пробовать.
Немного переработал код. Но в целом идея стоящая.
Re: Доработки Rx
Добавлено: 03.12.2018 09:35:51
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 14:46:09
alexs
По поводу фиксированных - сделать можно. Времени нет пока.
По поиску посмотрю.
Re: Доработки Rx
Добавлено: 05.12.2018 13:09:02
alexs
Не понял предложения
Там же получается - что если 1-е поле - истина - то сразу на 2-й итерации выскочет
Текущий код верно работает. В качестве оптимизации просто можно добавить чтобы цикл прерывался - если есть не совпадение.
Re: Доработки Rx
Добавлено: 05.12.2018 14:06:08
kit
Можна в TRxDBGridPrint добавить собитие OnAfterPrint из FReport : TfrReport; ?
Re: Доработки Rx
Добавлено: 06.12.2018 10:26:45
brick08
alexs писал(а):Не понял предложения
Это я по невнимательности
.
Когда то давно переделал этот код для поиска одного значения по нескольким полям, и если находилось совпадение, то выходил из цикла. А тут попалось на глаза, и почему-то подумал, что исправил баг.
Re: Доработки Rx
Добавлено: 06.12.2018 11:37:09
alexs
kit писал(а):Можна в TRxDBGridPrint добавить собитие OnAfterPrint из FReport : TfrReport; ?
А чем не устраивает событие OnAfterExecute?
Re: Доработки Rx
Добавлено: 07.12.2018 08:37:40
kit
Надо зафиксировать что таблица распечатана на принтере
Или добавить опцию непосредсвенной печати после формирования:
function TRxDBGridPrint.DoExecTools: boolean;
...
FReport.PrepareReport;
if rxpoPrint in Options then
FReport.PrintPreparedReport
else
FReport.ShowPreparedReport
Re: Доработки Rx
Добавлено: 07.12.2018 09:56:03
alexs
Посмотри ревизию 6749.
Добавил новый флаг rxpoShowPreview - оно?
Также новая демка
Re: Доработки Rx
Добавлено: 13.12.2018 14:45:21
alexs
Смотрим ревизию 6752.
Переписал RxToolbar
В основном совместимость осталась
Добавил поддержку масштабирования интерфейса на больших мониторах - в том числе и иконок на кнопках.
Переработал код сохранения/восстановления состояния для поддержки в будущем настройки по всему списку акшенов на форме. Сохраняется позиция разделителей.
Теперь нет возможности кнопки располагать в произвольном порядке - всегда прижаты либо к левому краю, либо к правому
Доработал окно настройки тулбара из программы - правильно отображаются разделители. Окно стало модальным - расположение кнопок на панели изменяется напрямую из окна.
Re: Доработки Rx
Добавлено: 14.12.2018 15:19:09
alexs
Доработки RxToolbar
Исправлено добавление разедлителя. Улучшен редактор. Добавлен редактор по умолчанию в IDE
Re: Доработки Rx
Добавлено: 19.12.2018 07:43:01
kit
alexs писал(а):Посмотри ревизию 6749.
Добавил новый флаг rxpoShowPreview - оно?
Да. Спасибо!
Re: Доработки Rx
Добавлено: 19.12.2018 11:04:51
alexs
Вынес функции логирования из модуля rxAppUtils в отдельный модуль rxLogging и включил его в пакет rxTools
Обусловлено желанием использовать данные функции в приложениях без GUI.
Re: Доработки Rx
Добавлено: 30.12.2018 21:19:50
S_Gur
Господа, извините, если не в тему, но никак не могу найти, где можно скачать текущую версию Rx под Lazarus