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

IDE: fixed compilation

Browse Source 
git-svn-id: trunk@28035 -
This commit is contained in:
mattias 2010-11-02 08:32:15 +00:00
parent 9bcde488e1
commit 39f58d48bc
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
debugger/gdbmidebugger.pp
View File

@ -37,8 +37,8 @@ unit GDBMIDebugger;
interface
uses
Classes, SysUtils, Variants, LCLProc, Dialogs, LazConf, DebugUtils, Debugger,
FileUtil, CmdLineDebugger, GDBTypeInfo, Maps,
Classes, SysUtils, Math, Variants, LCLProc, Dialogs, LazConf, DebugUtils,
Debugger, FileUtil, CmdLineDebugger, GDBTypeInfo, Maps,
{$IFdef MSWindows}
Windows,
{$ENDIF}

4
lcl/buttonpanel.pas
View File

@ -622,6 +622,8 @@ begin
AControl:=Controls[i];
if (AControl.Align<>alCustom) or (not AControl.IsControlVisible) then continue;
if AControl=FBevel then continue;
CtrlPrefWidth:=0;
CtrlPrefHeight:=0;
AControl.GetPreferredSize(CtrlPrefWidth,CtrlPrefHeight);
if Align in [alLeft,alRight] then
begin
@ -634,7 +636,7 @@ begin
end;
end;
// bevel
if FBevel<>nil then
if (FBevel<>nil) and FBevel.IsControlVisible then
begin
if Align in [alLeft,alRight] then
inc(MinWidth,FBevel.Width+Spacing)