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

RxFPC:Publish OnMouseEnter and OnMouseLeave for TRxDBGrid

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4450 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2016-01-21 13:50:25 +00:00
parent bbe063d794
commit 71a97d460c
4 changed files with 53 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -71,8 +71,8 @@
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="RxDBGridMainUnit"/> <UnitName Value="RxDBGridMainUnit"/>
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<TopLine Value="241"/> <TopLine Value="202"/>
<CursorPos X="29" Y="263"/> <CursorPos Y="225"/>
<UsageCount Value="103"/> <UsageCount Value="103"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
@ -98,12 +98,12 @@
<Unit5> <Unit5>
<Filename Value="../../rxdbgrid.pas"/> <Filename Value="../../rxdbgrid.pas"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<TopLine Value="4051"/> <TopLine Value="867"/>
<CursorPos X="135" Y="4080"/> <CursorPos Y="891"/>
<UsageCount Value="18"/> <UsageCount Value="18"/>
<Bookmarks Count="2"> <Bookmarks Count="2">
<Item0 Y="2573" ID="2"/> <Item0 Y="2575" ID="2"/>
<Item1 Y="3776" ID="1"/> <Item1 Y="3778" ID="1"/>
</Bookmarks> </Bookmarks>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit5> </Unit5>
@ -433,10 +433,11 @@
<Unit58> <Unit58>
<Filename Value="../../../../lcl/dbgrids.pas"/> <Filename Value="../../../../lcl/dbgrids.pas"/>
<UnitName Value="DBGrids"/> <UnitName Value="DBGrids"/>
<EditorIndex Value="-1"/> <EditorIndex Value="2"/>
<TopLine Value="213"/> <TopLine Value="510"/>
<CursorPos X="3" Y="216"/> <CursorPos Y="546"/>
<UsageCount Value="19"/> <UsageCount Value="19"/>
<Loaded Value="True"/>
</Unit58> </Unit58>
<Unit59> <Unit59>
<Filename Value="../../../../lcl/grids.pas"/> <Filename Value="../../../../lcl/grids.pas"/>
@ -806,7 +807,7 @@
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit116> </Unit116>
</Units> </Units>
<JumpHistory Count="3" HistoryIndex="2"> <JumpHistory Count="7" HistoryIndex="6">
<Position1> <Position1>
<Filename Value="../../rxdbgrid.pas"/> <Filename Value="../../rxdbgrid.pas"/>
<Caret Line="518" Column="3" TopLine="441"/> <Caret Line="518" Column="3" TopLine="441"/>
@ -819,6 +820,22 @@
<Filename Value="rxdbgridmainunit.pas"/> <Filename Value="rxdbgridmainunit.pas"/>
<Caret Line="274" Column="3" TopLine="242"/> <Caret Line="274" Column="3" TopLine="242"/>
</Position3> </Position3>
<Position4>
<Filename Value="rxdbgridmainunit.pas"/>
<Caret Line="225" Column="26" TopLine="202"/>
</Position4>
<Position5>
<Filename Value="../../rxdbgrid.pas"/>
<Caret Line="846" Column="14" TopLine="519"/>
</Position5>
<Position6>
<Filename Value="../../../../lcl/dbgrids.pas"/>
<Caret Line="283" Column="3" TopLine="262"/>
</Position6>
<Position7>
<Filename Value="rxdbgridmainunit.pas"/>
<Caret Line="225" Column="26" TopLine="202"/>
</Position7>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>

BIN
components/rx/trunk/Demos/RxDBGrid/RxDBGridDemo.res
View File

Binary file not shown.

47
components/rx/trunk/Demos/RxDBGrid/rxdbgridmainunit.lfm
View File

@ -5,18 +5,19 @@ object RxDBGridMainForm: TRxDBGridMainForm
Width = 1151 Width = 1151
ActiveControl = Panel1 ActiveControl = Panel1
Caption = 'RxDBGrid Demo' Caption = 'RxDBGrid Demo'
ClientHeight = 692 ClientHeight = 693
ClientWidth = 1151 ClientWidth = 1151
Menu = MainMenu1 Menu = MainMenu1
OnCreate = FormCreate OnCreate = FormCreate
SessionProperties = 'RxDBGridExportSpreadSheet1.FileName;RxDBGridExportSpreadSheet1.OpenAfterExport;RxDBGridExportSpreadSheet1.Options;RxDBGridExportSpreadSheet1.PageName;RxDBGridPrint1.Options;RxDBGridPrint1.Orientation;RxDBGridPrint1.PageMargin;RxDBGridPrint1.ReportTitle;RxDBGridPrint1.ShowColumnHeaderOnAllPage' SessionProperties = 'RxDBGridExportSpreadSheet1.FileName;RxDBGridExportSpreadSheet1.OpenAfterExport;RxDBGridExportSpreadSheet1.Options;RxDBGridExportSpreadSheet1.PageName;RxDBGridPrint1.Options;RxDBGridPrint1.Orientation;RxDBGridPrint1.PageMargin;RxDBGridPrint1.ReportTitle;RxDBGridPrint1.ShowColumnHeaderOnAllPage'
ShowHint = True ShowHint = True
LCLVersion = '1.5' LCLVersion = '1.7'
object RxDBGrid1: TRxDBGrid object RxDBGrid1: TRxDBGrid
Left = 0 Left = 0
Height = 620 Height = 623
Top = 72 Top = 70
Width = 1151 Width = 1151
ColumnDefValues.BlobText = '(примечание)'
TitleButtons = True TitleButtons = True
AutoSort = True AutoSort = True
OnGetCellProps = RxDBGrid1GetCellProps OnGetCellProps = RxDBGrid1GetCellProps
@ -324,12 +325,12 @@ object RxDBGridMainForm: TRxDBGridMainForm
end end
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Height = 72 Height = 70
Top = 0 Top = 0
Width = 1151 Width = 1151
Align = alTop Align = alTop
AutoSize = True AutoSize = True
ClientHeight = 72 ClientHeight = 70
ClientWidth = 1151 ClientWidth = 1151
TabOrder = 1 TabOrder = 1
object Label1: TLabel object Label1: TLabel
@ -337,7 +338,7 @@ object RxDBGridMainForm: TRxDBGridMainForm
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1 AnchorSideTop.Control = Panel1
Left = 270 Left = 270
Height = 21 Height = 20
Top = 7 Top = 7
Width = 36 Width = 36
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -348,7 +349,7 @@ object RxDBGridMainForm: TRxDBGridMainForm
AnchorSideLeft.Control = Panel1 AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = Panel1 AnchorSideTop.Control = Panel1
Left = 7 Left = 7
Height = 33 Height = 32
Top = 7 Top = 7
Width = 87 Width = 87
Action = actCalcTotal Action = actCalcTotal
@ -361,7 +362,7 @@ object RxDBGridMainForm: TRxDBGridMainForm
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1 AnchorSideTop.Control = Panel1
Left = 100 Left = 100
Height = 33 Height = 32
Top = 7 Top = 7
Width = 164 Width = 164
Action = actOptimizeColumnsWidthAll Action = actOptimizeColumnsWidthAll
@ -375,10 +376,10 @@ object RxDBGridMainForm: TRxDBGridMainForm
AnchorSideTop.Control = CheckBox2 AnchorSideTop.Control = CheckBox2
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 499 Left = 499
Height = 25 Height = 24
Hint = 'Use filter line' Hint = 'Use filter line'
Top = 38 Top = 37
Width = 83 Width = 84
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'Use filter' Caption = 'Use filter'
OnChange = CheckBox1Change OnChange = CheckBox1Change
@ -389,8 +390,8 @@ object RxDBGridMainForm: TRxDBGridMainForm
AnchorSideTop.Control = Label1 AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 276 Left = 276
Height = 31 Height = 30
Top = 34 Top = 33
Width = 217 Width = 217
BorderSpacing.Around = 6 BorderSpacing.Around = 6
ItemHeight = 0 ItemHeight = 0
@ -409,10 +410,10 @@ object RxDBGridMainForm: TRxDBGridMainForm
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1 AnchorSideTop.Control = Panel1
Left = 499 Left = 499
Height = 25 Height = 24
Hint = 'Auto fill column width' Hint = 'Auto fill column width'
Top = 7 Top = 7
Width = 132 Width = 133
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Auto fill columns' Caption = 'Auto fill columns'
OnChange = CheckBox2Change OnChange = CheckBox2Change
@ -422,8 +423,8 @@ object RxDBGridMainForm: TRxDBGridMainForm
AnchorSideLeft.Control = CheckBox2 AnchorSideLeft.Control = CheckBox2
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1 AnchorSideTop.Control = Panel1
Left = 637 Left = 638
Height = 25 Height = 24
Top = 7 Top = 7
Width = 120 Width = 120
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -438,9 +439,9 @@ object RxDBGridMainForm: TRxDBGridMainForm
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CheckBox3 AnchorSideTop.Control = CheckBox3
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 637 Left = 638
Height = 25 Height = 24
Top = 38 Top = 37
Width = 116 Width = 116
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Show headers' Caption = 'Show headers'
@ -453,8 +454,8 @@ object RxDBGridMainForm: TRxDBGridMainForm
AnchorSideLeft.Control = CheckBox3 AnchorSideLeft.Control = CheckBox3
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1 AnchorSideTop.Control = Panel1
Left = 763 Left = 764
Height = 25 Height = 24
Top = 7 Top = 7
Width = 95 Width = 95
BorderSpacing.Around = 6 BorderSpacing.Around = 6

2
components/rx/trunk/rxdbgrid.pas
View File

@ -886,6 +886,8 @@ type
property OnMouseDown; property OnMouseDown;
property OnMouseMove; property OnMouseMove;
property OnMouseUp; property OnMouseUp;
property OnMouseEnter;
property OnMouseLeave;
property OnMouseWheel; property OnMouseWheel;
property OnMouseWheelDown; property OnMouseWheelDown;
property OnMouseWheelUp; property OnMouseWheelUp;