paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-09 05:16:18 +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 CheckForNumber(s,p) then exit;
if not CheckForChar(s,p,' ') then exit; if not CheckForChar(s,p,' ') then exit;
Result:=true; Result:=true;
if CompilerOptions.ShowAll or CompilerOptions.ShowSummary then; if (CompilerOptions<>nil)
and (CompilerOptions.ShowAll or CompilerOptions.ShowSummary) then
DoAddFilteredLine(s); DoAddFilteredLine(s);
end; end;

9
lcl/include/promptdialog.inc
View File

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