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

PopupNotifier: improved close button look.Patch by theo.

Browse Source 
git-svn-id: trunk@25772 -
This commit is contained in:
zeljko 2010-05-30 16:07:25 +00:00
parent 70416c81dc
commit e4b2a905ac
1 changed files with 15 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
lcl/popupnotifier.pas
View File

@ -165,19 +165,25 @@ procedure TNotifierXButton.Paint;
begin
Canvas.Pen.Color := cl3DDKShadow;
Canvas.Pen.Width := 1;
Canvas.Brush.Color := Color;
Canvas.FillRect(0, 0, Width, Height);
if FState = nbsUp then
Canvas.Brush.Color := clBtnFace
else
Canvas.Brush.Color := clHotLight;
Canvas.FillRect(2, 2, Width - 2, Height - 2);
Canvas.RoundRect(0, 0, Width, Height, 4, 4);
Canvas.Pen.Width := 3;
Canvas.Brush.Color := Color;
Canvas.MoveTo(6, 6);
Canvas.LineTo(Width - 6, Height - 6);
Canvas.MoveTo(Width - 6, 6);
Canvas.LineTo(6, Height - 6);
Canvas.RoundRect(0, 0, Width, Height, 4, 4);
Canvas.Pen.EndCap:=pecSquare;
Canvas.Pen.Width := 2;
Canvas.MoveTo(7, 7);
Canvas.LineTo(Width - 7, Height - 7);
Canvas.MoveTo(Width - 7, 7);
Canvas.LineTo(7, Height - 7);
inherited Paint;
end;
@ -225,7 +231,7 @@ begin
BtnX := TNotifierXButton.Create(Self);
BtnX.Parent := Self;
BtnX.Color := $DCFFFF;
BtnX.Color := Color;
btnX.OnClick := HideForm;
HandleResize(Self);