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

grids: Ignore empty grid's Hint in case of CellHintPriority=chpAll.

Browse Source 
git-svn-id: trunk@55637 -
This commit is contained in:
wp 2017-08-06 10:42:17 +00:00
parent 6de4e6bed6
commit 7d9b734b20
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/grids.pas
View File

@ -3962,9 +3962,13 @@ begin
begin
AddToHint(txt, txt1);
AddToHint(txt, txt2);
if txt <> '' then begin
txt := GetShortHint(FSavedHint) + LineEnding + txt;
AppHint := GetLongHint(FSavedHint) + LineEnding + txt;
if (txt <> '') then begin
if FSavedHint = '' then
AppHint := txt
else begin
txt := GetShortHint(FSavedHint) + LineEnding + txt;
AppHint := GetLongHint(FSavedHint) + LineEnding + txt;
end;
end else
begin
txt := GetShortHint(FSavedHint);