replaced several BoolToStr calls with dbgs

git-svn-id: trunk@12914 -

designer/jitforms.pp

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

ide/customformeditor.pp

@@ -1190,8 +1190,7 @@ var
   ANonControlForm: TNonControlDesignerForm;
 begin
   ANonControlForm:=FindNonControlForm(AComponent);
-  DebugLn('TCustomFormEditor.UpdateDesignerFormName ',
+  //DebugLn(['TCustomFormEditor.UpdateDesignerFormName ',ANonControlForm<>nil, ' ',AComponent.Name]);
-    BoolToStr(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

ide/debugmanager.pas

@@ -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;
 

ide/main.pp

@@ -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;

lcl/dbgrids.pas

@@ -783,8 +783,8 @@ begin
   {$ifdef dbgDBGrid}
   DebugLn('(',name,') ','TCustomDBGrid.OnEditingChanged');
   if aDataSet<>nil then begin
-    DebugLn('Editing=', BoolToStr(dsEdit = aDataSet.State));
+    DebugLn(['Editing=', dsEdit = aDataSet.State]);
-    DebugLn('Inserting=',BoolToStr(dsInsert = 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;

lcl/graphtype.pp

@@ -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)
+    +' HasPalette->'+dbgs(PaletteColorCount <> 0)
-    +' HasMask->'+BoolToStr(PaletteColorCount <> 0, True)
+    +' HasMask->'+dbgs(PaletteColorCount <> 0)
     +' Depth='+IntToStr(Depth)
     +' Width='+IntToStr(Width)
     +' Height='+IntToStr(Height)

lcl/grids.pas

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

lcl/include/application.inc

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

lcl/include/toolbutton.inc

@@ -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=',
+    IsImageIndexLinked,' Old=',
-    IntToStr(TToolButton(FClient).ImageIndex),' New=',IntToStr(Value));
+    TToolButton(FClient).ImageIndex,' New=',Value]);
   if IsImageIndexLinked then TToolButton(FClient).ImageIndex := Value;
 end;
 

lcl/include/treeview.inc

@@ -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);

lcl/interfaces/gtk2/gtk2wscustomlistview.inc

@@ -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;