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

replaced several BoolToStr calls with dbgs

Browse Source 
git-svn-id: trunk@12914 -
This commit is contained in:
mattias 2007-11-18 13:06:38 +00:00
parent ec8cae645e
commit e8f4f6e240
11 changed files with 22 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
designer/jitforms.pp
View File

@ -1494,7 +1494,7 @@ begin
FCurUnknownProperty:='';
DebugLn('>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>');
DebugLn('[TJITComponentList.ReaderError] "'+ErrorMsg+'" ignoring=',BoolToStr(Handled));
DebugLn(['[TJITComponentList.ReaderError] "'+ErrorMsg+'" ignoring=',Handled]);
DebugLn('<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<');
end;

7
ide/customformeditor.pp
View File

@ -1190,8 +1190,7 @@ var
ANonControlForm: TNonControlDesignerForm;
begin
ANonControlForm:=FindNonControlForm(AComponent);
DebugLn('TCustomFormEditor.UpdateDesignerFormName ',
BoolToStr(ANonControlForm<>nil), ' ',AComponent.Name);
//DebugLn(['TCustomFormEditor.UpdateDesignerFormName ',ANonControlForm<>nil, ' ',AComponent.Name]);
if ANonControlForm<>nil then
ANonControlForm.Caption:=AComponent.Name;
end;
@ -1982,9 +1981,9 @@ procedure TCustomFormEditor.JITListPropertyNotFound(Sender: TObject;
Reader: TReader; Instance: TPersistent; var PropName: string;
IsPath: boolean; var Handled, Skip: Boolean);
begin
DebugLn('TCustomFormEditor.JITListPropertyNotFound ',Sender.ClassName,
DebugLn(['TCustomFormEditor.JITListPropertyNotFound ',Sender.ClassName,
' Instance=',Instance.ClassName,' PropName="',PropName,
'" IsPath=',BoolToStr(IsPath));
'" IsPath=',IsPath]);
end;
function TCustomFormEditor.GetDesignerBaseClasses(Index: integer

2
ide/debugmanager.pas
View File

@ -686,7 +686,7 @@ end;
procedure TManagedBreakPoints.NotifyRemove(const ABreakPoint: TIDEBreakPoint);
begin
debugln('TManagedBreakPoints.NotifyRemove A ',ABreakpoint.Source,' ',IntToStr(ABreakpoint.Line),' ',BoolToStr(TManagedBreakPoint(ABreakpoint).SourceMark <> nil));
debugln(['TManagedBreakPoints.NotifyRemove A ',ABreakpoint.Source,' ',ABreakpoint.Line,' ',TManagedBreakPoint(ABreakpoint).SourceMark <> nil]);
inherited;

2
ide/main.pp
View File

@ -6928,7 +6928,7 @@ function TMainIDE.DoOpenMainUnit(Flags: TOpenFlags): TModalResult;
var MainUnitInfo: TUnitInfo;
begin
{$IFDEF IDE_VERBOSE}
debugln('[TMainIDE.DoOpenMainUnit] A ProjectLoading=',BoolToStr((ofProjectLoading in Flags)),' MainUnitID=',IntToStr(Project1.MainUnitID));
debugln(['[TMainIDE.DoOpenMainUnit] A ProjectLoading=',ofProjectLoading in Flags,' MainUnitID=',Project1.MainUnitID]);
{$ENDIF}
Result:=mrCancel;
if Project1.MainUnitID<0 then exit;

6
lcl/dbgrids.pas
View File

@ -783,8 +783,8 @@ begin
{$ifdef dbgDBGrid}
DebugLn('(',name,') ','TCustomDBGrid.OnEditingChanged');
if aDataSet<>nil then begin
DebugLn('Editing=', BoolToStr(dsEdit = aDataSet.State));
DebugLn('Inserting=',BoolToStr(dsInsert = aDataSet.State));
DebugLn(['Editing=', dsEdit = aDataSet.State]);
DebugLn(['Inserting=',dsInsert = aDataSet.State]);
end else
DebugLn('Dataset=nil');
{$endif}
@ -2061,7 +2061,7 @@ end;
procedure TCustomDBGrid.EditingColumn(aCol: Integer; Ok: Boolean);
begin
{$ifdef dbgDBGrid} DebugLn('DBGrid.EditingColumn INIT aCol=', InttoStr(aCol), ' Ok=', BoolToStr(ok)); {$endif}
{$ifdef dbgDBGrid} DebugLn(['DBGrid.EditingColumn INIT aCol=', aCol, ' Ok=', ok]); {$endif}
if Ok then begin
FEditingColumn := aCol;
FDatalink.Modified := True;

6
lcl/graphtype.pp
View File

@ -29,7 +29,7 @@ unit GraphType;
interface
uses
Classes, SysUtils, LCLType, LCLProc;
FPCAdds, Classes, SysUtils, LCLType, LCLProc;
{$ifdef Trace}
{$ASSERTIONS ON}
@ -857,8 +857,8 @@ function TRawImageDescription.AsString: string;
begin
Result:=
' Format='+RawImageColorFormatNames[Format]
+' HasPalette->'+BoolToStr(PaletteColorCount <> 0, True)
+' HasMask->'+BoolToStr(PaletteColorCount <> 0, True)
+' HasPalette->'+dbgs(PaletteColorCount <> 0)
+' HasMask->'+dbgs(PaletteColorCount <> 0)
+' Depth='+IntToStr(Depth)
+' Width='+IntToStr(Width)
+' Height='+IntToStr(Height)

4
lcl/grids.pas
View File

@ -5608,8 +5608,8 @@ var
R: TRect;
begin
{$IfDef dbgPaint}
DebugLn('InvalidateCell Col=',IntToStr(aCol),
' Row=',IntToStr(aRow),' Redraw=', BoolToStr(Redraw));
DebugLn(['InvalidateCell Col=',aCol,
' Row=',aRow,' Redraw=', Redraw]);
{$Endif}
if not HandleAllocated then Exit;
R:=CellRect(aCol, aRow);

4
lcl/include/application.inc
View File

@ -724,8 +724,8 @@ begin
HideHint;
{$ifdef DebugHintWindow}
DebugLn('TApplication.ShowHintWindow Info.ControlHasHint=',
BoolToStr(Info.ControlHasHint), ' Type=', IntToStr(ord(FHintTimerType)));
DebugLn(['TApplication.ShowHintWindow Info.ControlHasHint=',
Info.ControlHasHint, ' Type=', ord(FHintTimerType)]);
{$endif}
end;

6
lcl/include/toolbutton.inc
View File

@ -44,10 +44,10 @@ end;
procedure TToolButtonActionLink.SetImageIndex(Value: Integer);
begin
DebugLn('TToolButtonActionLink.SetImageIndex A ',ClassName,' Client=',
DebugLn(['TToolButtonActionLink.SetImageIndex A ',ClassName,' Client=',
TToolButton(FClient).Name,' IsImageIndexLinked=',
BoolToStr(IsImageIndexLinked),' Old=',
IntToStr(TToolButton(FClient).ImageIndex),' New=',IntToStr(Value));
IsImageIndexLinked,' Old=',
TToolButton(FClient).ImageIndex,' New=',Value]);
if IsImageIndexLinked then TToolButton(FClient).ImageIndex := Value;
end;

4
lcl/include/treeview.inc
View File

@ -3914,7 +3914,7 @@ begin
inherited DragOver(Source,X,Y,State,Accept);
Node := GetNodeAt(X, Y);
{$IFDEF VerboseDrag}
DebugLn('TCustomTreeView.DragOver ',Name,':',ClassName,' ',BoolToStr(Node<>nil),' ',BoolToStr(Node <> DropTarget),' ',BoolToStr(Node = FLastDropTarget));
DebugLn(['TCustomTreeView.DragOver ',Name,':',ClassName,' ',Node<>nil,' ',Node <> DropTarget,' ',Node = FLastDropTarget]);
{$ENDIF}
if (Node <> nil)
and ((Node <> DropTarget) or (Node = FLastDropTarget)) then
@ -4418,7 +4418,7 @@ begin
// mousedown occured in text or icon
// -> select node and begin drag operation
{$IFDEF VerboseDrag}
DebugLn('TCustomTreeView.MouseDown In Text ',Name,':',ClassName,' MouseCapture=',BoolToStr(MouseCapture));
DebugLn(['TCustomTreeView.MouseDown In Text ',Name,':',ClassName,' MouseCapture=',MouseCapture]);
{$ENDIF}
if MouseCapture then
Include(FStates,tvsMouseCapture);

2
lcl/interfaces/gtk2/gtk2wscustomlistview.inc
View File

@ -606,7 +606,7 @@ begin
gtk_tree_view_column_set_alignment(GtkColumn, AlignToGtkAlign(AAlignment));
end;
//DebugLn('ColSetALignment AIndex=',IntTOStr(AIndex),' (GtkColumn=nil)=', BoolToStr(GtkColumn=nil));
//DebugLn(['ColSetALignment AIndex=',AIndex,' (GtkColumn=nil)=', GtkColumn=nil]);
end;