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

SynCompletion: Improved height of SizeDrag handle

Browse Source 
git-svn-id: trunk@28045 -
This commit is contained in:
martin 2010-11-02 21:57:09 +00:00
parent 59ec780075
commit 7c42bbbec7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/synedit/syncompletion.pas
View File

@ -512,7 +512,7 @@ begin
SizeDrag.AnchorSideRight.Control := Self;
SizeDrag.AnchorSideBottom.Side := asrBottom;
SizeDrag.AnchorSideBottom.Control := Self;
SizeDrag.Height := Max(5, abs(Font.Height) * 2 div 3);
SizeDrag.Height := Max(7, abs(Font.Height) * 2 div 3);
SizeDrag.Cursor := crSizeNWSE;
SizeDrag.OnKeyPress:=@SDKeyPress;
@ -978,7 +978,7 @@ begin
GetTextMetrics(Canvas.Handle, TextMetric);
FFontHeight := TextMetric.tmHeight+2;
SetNblinesInWindow(FNbLinesInWindow);
SizeDrag.Height := Max(5, Font.Height);
SizeDrag.Height := Max(7, FFontHeight * 2 div 3);
finally
dec(FResizeLock);
end;