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

RxFPC:change code for export RxDBGrid col width to spreadheet - tnx naum_off

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5186 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2016-09-20 06:38:25 +00:00
parent 27859e0e0e
commit 88b2ee9301
2 changed files with 16 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
components/rx/trunk/Demos/RxDBGrid/RxDBGridDemo.lpi
View File

@ -55,7 +55,7 @@
<MinVersion Major="1" Release="18" Build="56" Valid="True"/>
</Item5>
</RequiredPackages>
<Units Count="3">
<Units Count="4">
<Unit0>
<Filename Value="RxDBGridDemo.lpr"/>
<IsPartOfProject Value="True"/>
@ -70,7 +70,6 @@
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="RxDBGridMainUnit"/>
<IsVisibleTab Value="True"/>
<TopLine Value="152"/>
<CursorPos X="33" Y="171"/>
<UsageCount Value="113"/>
@ -79,12 +78,22 @@
</Unit1>
<Unit2>
<Filename Value="../../rxdbgrid.pas"/>
<EditorIndex Value="1"/>
<EditorIndex Value="2"/>
<TopLine Value="4637"/>
<CursorPos X="31" Y="4633"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit2>
<Unit3>
<Filename Value="../../rxdbgridexportspreadsheet.pas"/>
<UnitName Value="RxDBGridExportSpreadSheet"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="411"/>
<CursorPos X="5" Y="413"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit3>
</Units>
<JumpHistory Count="3" HistoryIndex="2">
<Position1>

7
components/rx/trunk/rxdbgridexportspreadsheet.pas
View File

@ -410,18 +410,19 @@ end;
procedure TRxDBGridExportSpreadSheet.DoExportColWidth;
var
FW:integer;
//FW:integer;
C:TRxColumn;
i: Integer;
begin
FW:=FRxDBGrid.Canvas.TextWidth('W');
//FW:=FRxDBGrid.Canvas.TextWidth('W');
FCurCol:=0;
for i:=0 to FRxDBGrid.Columns.Count - 1 do
begin
C:=FRxDBGrid.Columns[i] as TRxColumn;
if C.Visible then
begin
FWorksheet.WriteColWidth(FCurCol, Max(C.Width div FW, 20));
//FWorksheet.WriteColWidth(FCurCol, Max(C.Width div FW, 20));
FWorksheet.WriteColWidth(FCurCol, C.Width, suPoints);
inc(FCurCol);
end;
end;