paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-02 03:03:38 +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.AnchorSideRight.Control := Self;
SizeDrag.AnchorSideBottom.Side := asrBottom; SizeDrag.AnchorSideBottom.Side := asrBottom;
SizeDrag.AnchorSideBottom.Control := Self; 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.Cursor := crSizeNWSE;
SizeDrag.OnKeyPress:=@SDKeyPress; SizeDrag.OnKeyPress:=@SDKeyPress;
@ -978,7 +978,7 @@ begin
GetTextMetrics(Canvas.Handle, TextMetric); GetTextMetrics(Canvas.Handle, TextMetric);
FFontHeight := TextMetric.tmHeight+2; FFontHeight := TextMetric.tmHeight+2;
SetNblinesInWindow(FNbLinesInWindow); SetNblinesInWindow(FNbLinesInWindow);
SizeDrag.Height := Max(5, Font.Height); SizeDrag.Height := Max(7, FFontHeight * 2 div 3);
finally finally
dec(FResizeLock); dec(FResizeLock);
end; end;