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

jvcllaz: Increase ItemHeight of TDBLookupList (was truncated in Linux).

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6960 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-05-27 17:27:14 +00:00
parent 1208e21319
commit b211118a1a
4 changed files with 102 additions and 80 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/jvcllaz/run/JvDB/jvdblookup.pas
View File

@ -1068,7 +1068,7 @@ end;
function TJvLookupControl.DefaultTextHeight: Integer;
begin
//Result := Screen.SystemFont.GetTextHeight('Mg'); //Canvas.TextHeight('Mg');
Result := Font.GetTextHeight('Mg');
Result := Font.GetTextHeight('Mg') + 4;
end;
function TJvLookupControl.GetTextHeight: Integer;