Новый компонент - TRxDBGridExportSpreadSheet

[alexs]

Реализовал новый компонент - TRxDBGridExportSpreadSheet.
Пример по работе с ним в папке Demos/RxDBGrid_ExportSpreadsheet.

Преданазначен для экспорта текущего содержимого RxDBGrid, к которому он подключен, в электронную таблицу.
Для экспорта использую пакет fpspreadsheet из LazarusCCR.
Поддерживаются форматы ODS, XLS, XLSX.

Не работает на данный момент правильно слитие заголовков, отображение итоговой строки. Также из опций работает только ressExportTitle.

В планах - реализация окна параметров экспорта, полноценные формулы в итоговой строке.

Также при подключении комопонента экспорта к гриду, он регистрирует себя в контекстном меню инструментов грида.
Как всегда - замечания и пожелания приветсвуются.


Попутно начал реализацию абстрактного класса инструментов.

[hovadur]

Я давно использую TRxDBGrid и сказать хочу - хорошая работа. Это не только по поводу TRxDBGridExportSpreadSheet, а вообще в целом.

[alexs]

Спасибо.
Я и сам его использую...

Добавлено спустя 21 час 56 минут 21 секунду:
Добавил окно параметров экспорта - включается через свойство ShowSetupForm

[Little_Roo]

Добавил окно параметров экспорта - включается через свойство ShowSetupForm

Окно руссифицируется ?

[alexs]

Русские ресурсы в rxdconst.ru.po - просто подключить его.

[Little_Roo]

Русские ресурсы в rxdconst.ru.po - просто подключить его.

Жарко Туплю КАК ???

[alexs]

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

uses Translations;

procedure TranslateLCL;
var
  UserLang, lngFolder, poFileName:string;
begin
  lngFolder:=ExtractFileDir(ParamStr(0))+DirectorySeparator + 'languages'+DirectorySeparator;
  UserLang:='ru';
  poFileName:= lngFolder + Format('lclstrconsts.%s.po', [UserLang]);
  if FileExists(poFileName) then
    Translations.TranslateUnitResourceStrings('LCLStrConsts', poFileName);

    poFileName:= lngFolder + Format('lr_const.%s.po', [UserLang]);
    if FileExists(poFileName) then
        Translations.TranslateUnitResourceStrings('LR_Const', poFileName);

    poFileName:= lngFolder +DirectorySeparator + Format('rxconst.%s.po', [UserLang]);
    if FileExists(poFileName) then
        Translations.TranslateUnitResourceStrings('rxconst', poFileName);

    poFileName:= lngFolder +DirectorySeparator + Format('rxdconst.%s.po', [UserLang]);
    if FileExists(poFileName) then
        Translations.TranslateUnitResourceStrings('rxdconst', poFileName);
end;

[Little_Roo]

А ширину выводимых колонок можно как-то привязать к ширине их в гриде?

[alexs]

Она привязана.

[Little_Roo]

Она привязана.

Не-а...Все колонки одинаковой ширины (вроде по первой колонке)

[alexs]

Там минимальная ширина 20 символов
Поэтому такое поведение

[Xenar]

При установке компонента ошибки

Компиляция пакета rxdbgrid_export_spreadsheet 0.9.0.2: Код завершения 256, ошибок: 3
rxdbgridexportspreadsheet.pas(97,36) Error: Identifier not found "TsHorAlignment"
rxdbgridexportspreadsheet.pas(97,51) Error: Error in type definition
rxdbgridexportspreadsheet.pas(97,80) Fatal: Syntax error, "," expected but ";" found


все транковое

[alexs]

Проверю. Могли что либо сломать.

[alexs]

Lazarus 1.3 r46440M FPC 2.7.1 x86_64-linux-gtk 2

fpspreadsheet - rev. 3630
rxfpc - rev. 3622

Всё собралось без ошибок.