paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-20 03:08:16 +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; ButtonWidth: Integer;
ButtonHeight: Integer; ButtonHeight: Integer;
ButtonRect: TRect; ButtonRect: TRect;
InnerButtonRect: TRect;
CurItem: TBuildLazarusItem; CurItem: TBuildLazarusItem;
CurStr: String; CurStr: String;
TxtH: Integer; TxtH: Integer;
@ -770,8 +771,17 @@ begin
ButtonRect.Right:=x+ButtonWidth; ButtonRect.Right:=x+ButtonWidth;
ButtonRect.Bottom:=ButtonRect.Top+ButtonHeight; ButtonRect.Bottom:=ButtonRect.Top+ButtonHeight;
ButtonState:=DFCS_BUTTONPUSH; ButtonState:=DFCS_BUTTONPUSH;
if CurItem.MakeMode=mm then if CurItem.MakeMode=mm then begin
inc(ButtonState,DFCS_PUSHED); 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( DrawFrameControl(
ItemsListBox.Canvas.GetUpdatedHandle([csBrushValid,csPenValid]), ItemsListBox.Canvas.GetUpdatedHandle([csBrushValid,csPenValid]),
ButtonRect, DFC_BUTTON, ButtonState); ButtonRect, DFC_BUTTON, ButtonState);