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

fixed compilation

Browse Source 
git-svn-id: trunk@6705 -
This commit is contained in:
mattias 2005-01-28 10:48:28 +00:00
parent 6d6e590885
commit 2a59522bf1
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/outputfilter.pas
View File

@ -405,7 +405,8 @@ var i, j, FilenameEndPos: integer;
if not CheckForNumber(s,p) then exit;
if not CheckForChar(s,p,' ') then exit;
Result:=true;
if CompilerOptions.ShowAll or CompilerOptions.ShowSummary then;
if (CompilerOptions<>nil)
and (CompilerOptions.ShowAll or CompilerOptions.ShowSummary) then
DoAddFilteredLine(s);
end;

9
lcl/include/promptdialog.inc
View File

@ -533,10 +533,14 @@ begin
end;
procedure TQuestionDlg.CalcButtonSize(AButton: TBitBtn; var w, h: Integer);
var
TxtSize: TSize;
begin
w:=length(AButton.Caption)*10;
h:=25;
Canvas.GetTextSize(AButton.Caption,w,h);
TxtSize:=Canvas.TextExtent(AButton.Caption);
w:=TxtSize.cx;
h:=TxtSize.cy;
if AButton.Kind<>bkCustom then begin
inc(w,22); // icon
end;
@ -741,6 +745,9 @@ end;
{
$Log$
Revision 1.19 2005/01/28 10:48:28 mattias
fixed compilation
Revision 1.18 2005/01/27 19:03:51 mattias
added QuestionDlg - a MessageDlg with custom buttons