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

RxDBGrid.OptimizeColumnsWidth fired RxDBGrid.OnColumnSized

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2772 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2013-08-14 20:09:46 +00:00
parent 94daafcf93
commit 600931ce0e
3 changed files with 150 additions and 85 deletions
Download Patch File Download Diff File Expand all files Collapse all files

200
components/rx/Demos/RxDBGrid/RxDBGridDemo.lpi
View File

@ -1,4 +1,4 @@
<?xml version="1.0"?>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
@ -54,7 +54,7 @@
<MinVersion Major="1" Release="18" Build="56" Valid="True"/>
</Item4>
</RequiredPackages>
<Units Count="99">
<Units Count="96">
<Unit0>
<Filename Value="RxDBGridDemo.lpr"/>
<IsPartOfProject Value="True"/>
@ -71,10 +71,11 @@
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="RxDBGridMainUnit"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="0"/>
<WindowIndex Value="0"/>
<TopLine Value="248"/>
<CursorPos X="1" Y="268"/>
<TopLine Value="134"/>
<CursorPos X="1" Y="147"/>
<UsageCount Value="95"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
@ -102,14 +103,16 @@
<Unit5>
<Filename Value="../../rxdbgrid.pas"/>
<UnitName Value="rxdbgrid"/>
<EditorIndex Value="1"/>
<WindowIndex Value="0"/>
<TopLine Value="21"/>
<CursorPos X="5" Y="46"/>
<TopLine Value="3958"/>
<CursorPos X="3" Y="3985"/>
<UsageCount Value="16"/>
<Bookmarks Count="2">
<Item0 X="1" Y="4278" ID="1"/>
<Item0 X="1" Y="4281" ID="1"/>
<Item1 X="1" Y="2506" ID="2"/>
</Bookmarks>
<Loaded Value="True"/>
</Unit5>
<Unit6>
<Filename Value="../../../lcl/lresources.pp"/>
@ -497,21 +500,25 @@
<Unit58>
<Filename Value="../../../../lcl/dbgrids.pas"/>
<UnitName Value="DBGrids"/>
<EditorIndex Value="2"/>
<WindowIndex Value="0"/>
<TopLine Value="3118"/>
<CursorPos X="27" Y="3151"/>
<TopLine Value="3021"/>
<CursorPos X="1" Y="3049"/>
<UsageCount Value="18"/>
<Loaded Value="True"/>
</Unit58>
<Unit59>
<Filename Value="../../../../lcl/grids.pas"/>
<UnitName Value="Grids"/>
<EditorIndex Value="3"/>
<WindowIndex Value="0"/>
<TopLine Value="7528"/>
<CursorPos X="35" Y="7562"/>
<TopLine Value="1054"/>
<CursorPos X="14" Y="1068"/>
<UsageCount Value="21"/>
<Bookmarks Count="1">
<Item0 X="23" Y="7562" ID="3"/>
</Bookmarks>
<Loaded Value="True"/>
</Unit59>
<Unit60>
<Filename Value="../../../../../../install/fpcsrc/rtl/objpas/classes/classesh.inc"/>
@ -738,7 +745,7 @@
<UsageCount Value="10"/>
</Unit88>
<Unit89>
<Filename Value="/usr/local/share/lazarus/lcl/lclintf.pas"/>
<Filename Value="../../../../lcl/lclintf.pas"/>
<UnitName Value="LCLIntf"/>
<WindowIndex Value="0"/>
<TopLine Value="63"/>
@ -746,113 +753,168 @@
<UsageCount Value="10"/>
</Unit89>
<Unit90>
<Filename Value="/usr/local/share/lazarus/lcl/include/lclintfh.inc"/>
<Filename Value="../../../../lcl/include/lclintfh.inc"/>
<WindowIndex Value="0"/>
<TopLine Value="130"/>
<CursorPos X="1" Y="130"/>
<UsageCount Value="10"/>
</Unit90>
<Unit91>
<Filename Value="/usr/local/share/lazarus/lcl/lcltype.pp"/>
<UnitName Value="LCLType"/>
<WindowIndex Value="0"/>
<TopLine Value="346"/>
<CursorPos X="33" Y="372"/>
<UsageCount Value="10"/>
</Unit91>
<Unit92>
<Filename Value="/usr/local/share/lazarus/lcl/lmessages.pp"/>
<Filename Value="../../../../lcl/lmessages.pp"/>
<UnitName Value="LMessages"/>
<WindowIndex Value="0"/>
<TopLine Value="241"/>
<CursorPos X="1" Y="256"/>
<UsageCount Value="11"/>
</Unit92>
<Unit93>
<Filename Value="/usr/local/share/lazarus/lcl/forms.pp"/>
</Unit91>
<Unit92>
<Filename Value="../../../../lcl/forms.pp"/>
<UnitName Value="Forms"/>
<WindowIndex Value="0"/>
<TopLine Value="248"/>
<CursorPos X="16" Y="285"/>
<UsageCount Value="11"/>
</Unit93>
<Unit94>
<Filename Value="/usr/local/share/lazarus/lcl/include/customframe.inc"/>
</Unit92>
<Unit93>
<Filename Value="../../../../lcl/include/customframe.inc"/>
<WindowIndex Value="0"/>
<TopLine Value="184"/>
<CursorPos X="3" Y="186"/>
<UsageCount Value="10"/>
</Unit94>
<Unit95>
<Filename Value="/usr/local/share/lazarus/lcl/lclversion.pas"/>
</Unit93>
<Unit94>
<Filename Value="../../../../lcl/lclversion.pas"/>
<UnitName Value="LCLVersion"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="1" Y="1"/>
<UsageCount Value="11"/>
</Unit95>
<Unit96>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/>
<UnitName Value="rxdbgrid"/>
<EditorIndex Value="1"/>
<WindowIndex Value="0"/>
<TopLine Value="28"/>
<CursorPos X="1" Y="33"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit96>
<Unit97>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rx.inc"/>
</Unit94>
<Unit95>
<Filename Value="../../rx.inc"/>
<WindowIndex Value="0"/>
<TopLine Value="42"/>
<CursorPos X="1" Y="63"/>
<UsageCount Value="10"/>
</Unit97>
<Unit98>
<Filename Value="/usr/local/share/lazarus/lcl/dbgrids.pas"/>
<UnitName Value="DBGrids"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="2"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="1" Y="1"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit98>
</Unit95>
</Units>
<JumpHistory Count="8" HistoryIndex="7">
<JumpHistory Count="29" HistoryIndex="28">
<Position1>
<Filename Value="rxdbgridmainunit.pas"/>
<Caret Line="9" Column="12" TopLine="1"/>
<Caret Line="271" Column="1" TopLine="248"/>
</Position1>
<Position2>
<Filename Value="rxdbgridmainunit.pas"/>
<Caret Line="268" Column="15" TopLine="230"/>
<Caret Line="9" Column="7" TopLine="1"/>
</Position2>
<Position3>
<Filename Value="rxdbgridmainunit.pas"/>
<Caret Line="269" Column="11" TopLine="230"/>
<Filename Value="../../rxdbgrid.pas"/>
<Caret Line="46" Column="3" TopLine="25"/>
</Position3>
<Position4>
<Filename Value="rxdbgridmainunit.pas"/>
<Caret Line="268" Column="40" TopLine="247"/>
<Filename Value="../../rxdbgrid.pas"/>
<Caret Line="33" Column="1" TopLine="28"/>
</Position4>
<Position5>
<Filename Value="rxdbgridmainunit.pas"/>
<Caret Line="271" Column="1" TopLine="248"/>
<Caret Line="274" Column="1" TopLine="244"/>
</Position5>
<Position6>
<Filename Value="rxdbgridmainunit.pas"/>
<Caret Line="9" Column="7" TopLine="1"/>
<Caret Line="151" Column="27" TopLine="149"/>
</Position6>
<Position7>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/>
<Caret Line="46" Column="3" TopLine="25"/>
<Filename Value="../../rxdbgrid.pas"/>
<Caret Line="782" Column="14" TopLine="768"/>
</Position7>
<Position8>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/>
<Caret Line="33" Column="1" TopLine="28"/>
<Filename Value="../../../../lcl/dbgrids.pas"/>
<Caret Line="473" Column="82" TopLine="459"/>
</Position8>
<Position9>
<Filename Value="../../../../lcl/dbgrids.pas"/>
<Caret Line="568" Column="27" TopLine="543"/>
</Position9>
<Position10>
<Filename Value="../../../../lcl/dbgrids.pas"/>
<Caret Line="3047" Column="30" TopLine="3020"/>
</Position10>
<Position11>
<Filename Value="../../../../lcl/dbgrids.pas"/>
<Caret Line="3048" Column="20" TopLine="3021"/>
</Position11>
<Position12>
<Filename Value="../../../../lcl/dbgrids.pas"/>
<Caret Line="429" Column="26" TopLine="415"/>
</Position12>
<Position13>
<Filename Value="../../../../lcl/dbgrids.pas"/>
<Caret Line="3036" Column="35" TopLine="3021"/>
</Position13>
<Position14>
<Filename Value="../../../../lcl/dbgrids.pas"/>
<Caret Line="429" Column="26" TopLine="415"/>
</Position14>
<Position15>
<Filename Value="../../../../lcl/dbgrids.pas"/>
<Caret Line="3045" Column="25" TopLine="3018"/>
</Position15>
<Position16>
<Filename Value="../../../../lcl/dbgrids.pas"/>
<Caret Line="429" Column="15" TopLine="415"/>
</Position16>
<Position17>
<Filename Value="../../../../lcl/grids.pas"/>
<Caret Line="984" Column="26" TopLine="971"/>
</Position17>
<Position18>
<Filename Value="../../../../lcl/grids.pas"/>
<Caret Line="1204" Column="35" TopLine="1177"/>
</Position18>
<Position19>
<Filename Value="../../../../lcl/grids.pas"/>
<Caret Line="1228" Column="26" TopLine="1202"/>
</Position19>
<Position20>
<Filename Value="../../../../lcl/grids.pas"/>
<Caret Line="1352" Column="79" TopLine="1327"/>
</Position20>
<Position21>
<Filename Value="../../../../lcl/grids.pas"/>
<Caret Line="1457" Column="27" TopLine="1432"/>
</Position21>
<Position22>
<Filename Value="../../../../lcl/grids.pas"/>
<Caret Line="1673" Column="27" TopLine="1648"/>
</Position22>
<Position23>
<Filename Value="../../../../lcl/grids.pas"/>
<Caret Line="3380" Column="34" TopLine="3353"/>
</Position23>
<Position24>
<Filename Value="../../../../lcl/grids.pas"/>
<Caret Line="6193" Column="20" TopLine="6167"/>
</Position24>
<Position25>
<Filename Value="../../../../lcl/grids.pas"/>
<Caret Line="6205" Column="20" TopLine="6179"/>
</Position25>
<Position26>
<Filename Value="../../../../lcl/dbgrids.pas"/>
<Caret Line="429" Column="26" TopLine="415"/>
</Position26>
<Position27>
<Filename Value="../../../../lcl/dbgrids.pas"/>
<Caret Line="3040" Column="21" TopLine="3021"/>
</Position27>
<Position28>
<Filename Value="../../rxdbgrid.pas"/>
<Caret Line="3977" Column="3" TopLine="3954"/>
</Position28>
<Position29>
<Filename Value="rxdbgridmainunit.pas"/>
<Caret Line="151" Column="27" TopLine="149"/>
</Position29>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>

32
components/rx/Demos/RxDBGrid/rxdbgridmainunit.lfm
View File

@ -280,10 +280,10 @@ object RxDBGridMainForm: TRxDBGridMainForm
AnchorSideLeft.Control = Button2
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
Left = 245
Left = 270
Height = 15
Top = 7
Width = 34
Width = 35
BorderSpacing.Around = 6
Caption = 'Mode'
ParentColor = False
@ -294,7 +294,7 @@ object RxDBGridMainForm: TRxDBGridMainForm
Left = 7
Height = 27
Top = 7
Width = 77
Width = 86
Action = actCalcTotal
AutoSize = True
BorderSpacing.Around = 6
@ -304,10 +304,10 @@ object RxDBGridMainForm: TRxDBGridMainForm
AnchorSideLeft.Control = Button1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
Left = 90
Left = 99
Height = 27
Top = 7
Width = 149
Width = 165
Action = actOptimizeColumnsWidthAll
AutoSize = True
BorderSpacing.Around = 6
@ -318,11 +318,11 @@ object RxDBGridMainForm: TRxDBGridMainForm
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CheckBox2
AnchorSideTop.Side = asrBottom
Left = 474
Left = 499
Height = 22
Hint = 'Use filter line'
Top = 35
Width = 78
Width = 83
BorderSpacing.Left = 6
Caption = 'Use filter'
OnChange = CheckBox1Change
@ -332,7 +332,7 @@ object RxDBGridMainForm: TRxDBGridMainForm
AnchorSideLeft.Control = Label1
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
Left = 251
Left = 276
Height = 25
Top = 28
Width = 217
@ -352,11 +352,11 @@ object RxDBGridMainForm: TRxDBGridMainForm
AnchorSideLeft.Control = ComboBox1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
Left = 474
Left = 499
Height = 22
Hint = 'Auto fill column width'
Top = 7
Width = 122
Width = 133
BorderSpacing.Around = 6
Caption = 'Auto fill columns'
OnChange = CheckBox2Change
@ -366,10 +366,10 @@ object RxDBGridMainForm: TRxDBGridMainForm
AnchorSideLeft.Control = CheckBox2
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
Left = 602
Left = 638
Height = 22
Top = 7
Width = 113
Width = 120
BorderSpacing.Around = 6
Caption = 'Show indicator'
Checked = True
@ -382,10 +382,10 @@ object RxDBGridMainForm: TRxDBGridMainForm
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CheckBox3
AnchorSideTop.Side = asrBottom
Left = 602
Left = 638
Height = 22
Top = 35
Width = 111
Width = 115
BorderSpacing.Around = 6
Caption = 'Show headers'
Checked = True
@ -397,10 +397,10 @@ object RxDBGridMainForm: TRxDBGridMainForm
AnchorSideLeft.Control = CheckBox3
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
Left = 721
Left = 764
Height = 22
Top = 7
Width = 90
Width = 93
BorderSpacing.Around = 6
Caption = 'Word wrap'
OnChange = CheckBox5Change

3
components/rx/rxdbgrid.pas
View File

@ -3980,6 +3980,9 @@ begin
DoFillColList;
InternalOptimizeColumnsWidth(ColList);
ColList.Free;
if Assigned(OnColumnSized) then
OnColumnSized(Self);
end;
procedure TRxDBGrid.OptimizeColumnsWidthAll;