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

draw button background, so that the difference between pushed and non-pushed buttons is clearer.

Browse Source 
git-svn-id: trunk@7083 -
This commit is contained in:
vincents 2005-04-18 13:15:21 +00:00
parent 896b40d330
commit 3aec082914
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/buildlazdialog.pas
View File

@ -740,6 +740,7 @@ var
ButtonWidth: Integer;
ButtonHeight: Integer;
ButtonRect: TRect;
InnerButtonRect: TRect;
CurItem: TBuildLazarusItem;
CurStr: String;
TxtH: Integer;
@ -770,8 +771,17 @@ begin
ButtonRect.Right:=x+ButtonWidth;
ButtonRect.Bottom:=ButtonRect.Top+ButtonHeight;
ButtonState:=DFCS_BUTTONPUSH;
if CurItem.MakeMode=mm then
if CurItem.MakeMode=mm then begin
inc(ButtonState,DFCS_PUSHED);
ItemsListBox.Canvas.Brush.Color := clBtnHiLight;
end
else
ItemsListBox.Canvas.Brush.Color := clBtnFace;
// draw button background
InnerButtonRect := ButtonRect;
inc(InnerButtonRect.Top); inc(InnerButtonRect.Left);
dec(InnerButtonRect.Bottom); dec(InnerButtonRect.Right);
ItemsListBox.Canvas.FillRect(InnerButtonRect);
DrawFrameControl(
ItemsListBox.Canvas.GetUpdatedHandle([csBrushValid,csPenValid]),
ButtonRect, DFC_BUTTON, ButtonState);