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

fix buttonrect to contain bounds

Browse Source 
git-svn-id: trunk@5474 -
This commit is contained in:
micha 2004-05-14 18:00:30 +00:00
parent 5408f03b2a
commit e43e72f41b
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/buildlazdialog.pas
View File

@ -651,8 +651,10 @@ begin
ButtonHeight:=ButtonWidth; ButtonHeight:=ButtonWidth;
for mm:=Low(TMakeMode) to High(TMakeMode) do begin for mm:=Low(TMakeMode) to High(TMakeMode) do begin
// draw button // draw button
ButtonRect:=Rect(x,ARect.Top+((ARect.Bottom-ARect.Top-ButtonWidth) div 2), ButtonRect.Left:=x;
x+ButtonWidth,ButtonHeight); ButtonRect.Top:=ARect.Top+((ARect.Bottom-ARect.Top-ButtonWidth) div 2);
ButtonRect.Right:=x+ButtonWidth;
ButtonRect.Bottom:=ButtonRect.Top+ButtonHeight;
ButtonState:=DFCS_BUTTONPUSH; ButtonState:=DFCS_BUTTONPUSH;
if CurItem.MakeMode=mm then if CurItem.MakeMode=mm then
inc(ButtonState,DFCS_PUSHED); inc(ButtonState,DFCS_PUSHED);