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

SynEdit: syncompletion: draw size drag background as themed scrollbar background.

Browse Source 
git-svn-id: trunk@57833 -
This commit is contained in:
ondrej 2018-05-07 23:58:31 +00:00
parent d2d80c1b8b
commit fc9c595505
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/synedit/syncompletion.pas
View File

@ -45,7 +45,7 @@ interface
uses
LCLProc, LCLIntf, LCLType, LazUTF8, LMessages, Classes, Graphics, Forms,
Controls, StdCtrls, ExtCtrls, Menus, SysUtils, types,
Controls, StdCtrls, ExtCtrls, Menus, SysUtils, types, Themes,
SynEditMiscProcs, SynEditKeyCmds, SynEdit, SynEditTypes, SynEditPlugins
{$IF FPC_FULLVERSION >= 20701}, character{$ENDIF};
@ -576,12 +576,16 @@ end;
procedure TSynBaseCompletionFormSizeDrag.Paint;
var
I: Integer;
D: TThemedElementDetails;
begin
Canvas.Brush.Color := clBtnFace;
Canvas.Brush.Style := bsSolid;
Canvas.FillRect(ClientRect);
Canvas.Pen.Color := clBtnShadow;
D := ThemeServices.GetElementDetails(tsUpperTrackVertNormal);
ThemeServices.DrawElement(Canvas.Handle, D, ClientRect);
I := 2;
while I < Height do
begin