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

DBGrids: Improved cell hints.

Browse Source 
git-svn-id: trunk@55207 -
This commit is contained in:
wp 2017-06-04 10:18:34 +00:00
parent b29915c159
commit 11f3b76108
2 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/dbgrids.pas
View File

@ -1517,8 +1517,9 @@ begin
Result := '';
if (ARow < FixedRows) then
exit;
C := ColumnFromGridColumn(ACol) as TColumn;
Result := C.Field.AsString;
if Assigned(FOnGetCellHint) then begin
C := ColumnFromGridColumn(ACol) as TColumn;
FOnGetCellHint(self, C, Result);
end;
@ -1527,16 +1528,24 @@ end;
function TCustomDBGrid.GetTruncCellHintText(aCol, aRow: Integer): string;
var
F: TField;
C: TColumn;
begin
Result := '';
if ARow < FixedRows then
exit;
F := GetFieldFromGridColumn(ACol);
if (F <> nil) then
if (F.DataType = ftMemo) then
Result := F.AsString
else
if (F.DataType <> ftBlob) then
Result := F.DisplayText
else
Result := '(blob)';
if Assigned(FOnGetCellHint) then begin
C := ColumnFromGridColumn(ACol) as TColumn;
FOnGetCellHint(self, C, Result);
end;
end;
// obtain the field either from a Db column or directly from dataset fields

3
lcl/grids.pas
View File

@ -7813,7 +7813,8 @@ end;
procedure TCustomGrid.CMMouseEnter(var Message: TLMessage);
begin
inherited;
FSavedHint := Hint;
if FCellHintPriority = chpAll then
FSavedHint := Hint;
end;
procedure TCustomGrid.CMMouseLeave(var Message: TLMessage);