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

synedit: syncompletion: fix AVs when shown with different screen DPI.

Browse Source 
git-svn-id: trunk@54221 -
This commit is contained in:
ondrej 2017-02-21 12:22:59 +00:00
parent 00e450bfa7
commit ea51db1a39
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/synedit/syncompletion.pas
View File

@ -575,8 +575,6 @@ begin
// we have no resource => must be constructed using CreateNew
inherited CreateNew(AOwner, 1);
FItemList := TStringList.Create;
BorderStyle := bsNone;
FormStyle := fsSystemStayOnTop;
Scroll := TScrollBar.Create(self);
Scroll.Kind := sbVertical;
Scroll.OnChange := @ScrollChange;
@ -642,6 +640,9 @@ begin
ShowHint := False;
EndFormUpdate;
FResizeLock := 0;
BorderStyle := bsNone;
FormStyle := fsSystemStayOnTop;
end;
procedure TSynBaseCompletionForm.Deactivate;
@ -1148,7 +1149,8 @@ begin
GetTextMetrics(Canvas.Handle, TextMetric);
FFontHeight := TextMetric.tmHeight+2;
SetNblinesInWindow(FNbLinesInWindow);
SizeDrag.Height := Max(7, FFontHeight * 2 div 3);
if SizeDrag<>nil then
SizeDrag.Height := Max(7, FFontHeight * 2 div 3);
finally
dec(FResizeLock);
end;