Страница 9 из 13
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 писал(а):Не понял предложения
Это я по невнимательности
.
Когда то давно переделал этот код для поиска одного значения по нескольким полям, и если находилось совпадение, то выходил из цикла. А тут попалось на глаза, и почему-то подумал, что исправил баг.
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