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

SynEdit: syncompletion: improve size grabber paint. Issue #33694

Browse Source 
git-svn-id: trunk@57825 -
This commit is contained in:
ondrej 2018-05-07 21:14:16 +00:00
parent 0e45cd43ff
commit 51ef1a6866
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/synedit/syncompletion.pas
View File

@ -549,17 +549,21 @@ begin
end; end;
procedure TSynBaseCompletionFormSizeDrag.Paint; procedure TSynBaseCompletionFormSizeDrag.Paint;
var
I: Integer;
begin begin
Canvas.Brush.Color := clBtnFace; Canvas.Brush.Color := clBtnFace;
Canvas.Brush.Style := bsSolid; Canvas.Brush.Style := bsSolid;
Canvas.FillRect(ClientRect); Canvas.FillRect(ClientRect);
Canvas.Pen.Color := clBtnShadow; Canvas.Pen.Color := clBtnShadow;
Canvas.MoveTo(ClientRect.Right-2, ClientRect.Bottom-1);
Canvas.LineTo(ClientRect.Right-1, ClientRect.Bottom-2); I := 2;
Canvas.MoveTo(ClientRect.Right-5, ClientRect.Bottom-1); while I < Height do
Canvas.LineTo(ClientRect.Right-1, ClientRect.Bottom-5); begin
Canvas.MoveTo(ClientRect.Right-8, ClientRect.Bottom-1); Canvas.MoveTo(ClientRect.Right-I, ClientRect.Bottom-1-1);
Canvas.LineTo(ClientRect.Right-1, ClientRect.Bottom-8); Canvas.LineTo(ClientRect.Right-1, ClientRect.Bottom-I-1);
Inc(I, 3);
end;
end; end;
{ TSynBaseCompletionForm } { TSynBaseCompletionForm }