paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-07 02:18:20 +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 GetCurrentField: TField;
function GetDataSource: TDataSource; function GetDataSource: TDataSource;
function GetRecordCount: Integer; function GetRecordCount: Integer;
function GetSelectedFieldRect: TRect;
function GetSelectedIndex: Integer; function GetSelectedIndex: Integer;
function GetThumbTracking: boolean; function GetThumbTracking: boolean;
procedure OnRecordChanged(Field:TField); procedure OnRecordChanged(Field:TField);
@ -458,6 +459,7 @@ type
property SelectedField: TField read GetCurrentField write SetCurrentField; property SelectedField: TField read GetCurrentField write SetCurrentField;
property SelectedIndex: Integer read GetSelectedIndex write SetSelectedIndex; property SelectedIndex: Integer read GetSelectedIndex write SetSelectedIndex;
property SelectedColumn: TColumn read GetCurrentColumn; property SelectedColumn: TColumn read GetCurrentColumn;
property SelectedFieldRect: TRect read GetSelectedFieldRect;
property ThumbTracking: boolean read GetThumbTracking write SetThumbTracking; property ThumbTracking: boolean read GetThumbTracking write SetThumbTracking;
end; end;
@ -709,6 +711,11 @@ begin
result := FDataLink.DataSet.RecordCount; result := FDataLink.DataSet.RecordCount;
end; end;
function TCustomDBGrid.GetSelectedFieldRect: TRect;
begin
result := CellRect(Col,Row);
end;
function TCustomDBGrid.GetSelectedIndex: Integer; function TCustomDBGrid.GetSelectedIndex: Integer;
begin begin
if Columns.Enabled then if Columns.Enabled then