pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RxFPC:start work on export RxDBGrid groups to spreadsheet

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5949 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2017-06-20 12:38:18 +00:00
parent 0f40ba6214
commit 552f841d18
15 changed files with 371 additions and 135 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
components/rx/trunk/demos/rxdbgrid/RxDBGridGroupData/unit1.pas
View File

@ -5,14 +5,15 @@ unit Unit1;
interface
uses
Classes, SysUtils, FileUtil, rxdbgrid, rxmemds, Forms, Controls, Graphics,
Dialogs, StdCtrls, db;
Classes, SysUtils, FileUtil, rxdbgrid, rxmemds, RxDBGridExportSpreadSheet,
Forms, Controls, Graphics, Dialogs, StdCtrls, db;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
@ -24,6 +25,8 @@ type
rxDataTEXT: TStringField;
RxDBGrid1: TRxDBGrid;
rxData: TRxMemoryData;
RxDBGridExportSpreadSheet1: TRxDBGridExportSpreadSheet;
procedure Button1Click(Sender: TObject);
procedure CheckBox1Change(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
@ -75,5 +78,12 @@ begin
RxDBGrid1.ReadOnly:=CheckBox3.Checked;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
RxDBGridExportSpreadSheet1.Options:=RxDBGridExportSpreadSheet1.Options + [ressExportGroupData];
RxDBGridExportSpreadSheet1.Execute;
end;
end.