paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-31 14:32:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL, added dbgrid SelectedFieldRect property

Browse Source 
git-svn-id: trunk@24073 -
This commit is contained in:
jesus 2010-03-17 20:49:57 +00:00
parent 27045012a8
commit 6ea54da93e
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/dbgrids.pas
View File

@ -303,6 +303,7 @@ type
function GetCurrentField: TField;
function GetDataSource: TDataSource;
function GetRecordCount: Integer;
function GetSelectedFieldRect: TRect;
function GetSelectedIndex: Integer;
function GetThumbTracking: boolean;
procedure OnRecordChanged(Field:TField);
@ -458,6 +459,7 @@ type
property SelectedField: TField read GetCurrentField write SetCurrentField;
property SelectedIndex: Integer read GetSelectedIndex write SetSelectedIndex;
property SelectedColumn: TColumn read GetCurrentColumn;
property SelectedFieldRect: TRect read GetSelectedFieldRect;
property ThumbTracking: boolean read GetThumbTracking write SetThumbTracking;
end;
@ -709,6 +711,11 @@ begin
result := FDataLink.DataSet.RecordCount;
end;
function TCustomDBGrid.GetSelectedFieldRect: TRect;
begin
result := CellRect(Col,Row);
end;
function TCustomDBGrid.GetSelectedIndex: Integer;
begin
if Columns.Enabled then