##99839# german comments translated

4 files changed, 4 insertions, 19 deletions

diff --git a/wizards/source/formwizard/DBMeta.xba b/wizards/source/formwizard/DBMeta.xba
index 8f8859942aa3..71195992b811 100644
--- a/wizards/source/formwizard/DBMeta.xba
+++ b/wizards/source/formwizard/DBMeta.xba
@@ -70,7 +70,7 @@ Dim Nulllist()
 				End If
 			End If
 			If Not bGetConnection Then
-				iMsg = Msgbox (sMsgNoConnection,32 + 2, sMsgWizardName)	' '?' & ' Repeat and Cancel'
+				iMsg = Msgbox (sMsgNoConnection,32 + 2, sMsgWizardName)
 				bExitLoop = iMsg = SBCANCEL
 				Resume CLERROR
 				CLERROR:
@@ -130,17 +130,11 @@ Dim oField as Object
 		sFieldname = FieldNames(n)
 		oField = oColumns.GetByName(sFieldName)
 		iType = oField.Type
-'		Msgbox IsEmpty(oField.HelpText)
-'		Msgbox oField.HelpText
-'		Msgbox oField.ControlDefault
-'		Msgbox sFieldName & ":" & chr(13) & oField.dbg_Properties
 		FieldMetaValues(n,0) = oField.Type
 		FieldMetaValues(n,1) = oField.Precision
 		FieldMetaValues(n,2) = GetValueoutofList(iType, WidthList(),1, WidthIndex)
 		FieldMetaValues(n,3) = WidthList(WidthIndex,3)
 		FieldMetaValues(n,4) = oField.FormatKey
-' Todo: Check why the following lines do not work
-'		Msgbox oField.ControlDefault
 		FieldMetaValues(n,5) = oField.DefaultValue
 		FieldMetaValues(n,6) = oField.IsCurrency
 		FieldMetaValues(n,7) = oField.Scale
diff --git a/wizards/source/formwizard/Language.xba b/wizards/source/formwizard/Language.xba
index 853e35541eec..2169c5b22b02 100644
--- a/wizards/source/formwizard/Language.xba
+++ b/wizards/source/formwizard/Language.xba
@@ -130,11 +130,6 @@ End Sub
 
 Sub InitializeWidthList()
 
-' Todo: 'Currency' ist ein Flag, dass grundsätzlich an jedes Feld angehängt sein kann.
-' An der Connection kann man irgendwie abfragen, ob ein bestimmter Datentyp als Währung 
-' interpretiert wird. Darstellung über Numberformatter. Ist nicht konsistent über Datenbanken.
-' außerdem dürften hier einige Treiber auch buggy sein.
-
 	If Ubound(WidthList(),1) > 15 Then
 		ReDim WidthList(15,4)
 	End If
diff --git a/wizards/source/formwizard/Layouter.xba b/wizards/source/formwizard/Layouter.xba
index 502e88d97d56..d9268c3b26cc 100644
--- a/wizards/source/formwizard/Layouter.xba
+++ b/wizards/source/formwizard/Layouter.xba
@@ -115,8 +115,6 @@ Dim i as Integer
 	oProgressbar.Start("", MaxIndex)
 	If oDBForm.HasbyName("Grid1") Then
 		RemoveShapes()
-'		PrintdbgInfo oDBForm.GetByName("Grid1")
-'		oDBForm.GetByName("Grid1").Dispose
 	End If
 	ToggleLayoutPage(False)
 	Select Case CurArrangement
@@ -141,7 +139,6 @@ Dim oViewSettings as Object
 	oViewSettings = oDocument.CurrentController.ViewSettings
 	oViewSettings.ShowTableBoundaries = False
 	oViewSettings.ShowOnlineLayout = True
-'	oViewSettings.ShowHoriRuler = True
 	oDrawPage = oDocument.DrawPage
 	oPageStyle = oDocument.StyleFamilies.GetByName("PageStyles").GetByName("Standard")
 End Sub
diff --git a/wizards/source/formwizard/tools.xba b/wizards/source/formwizard/tools.xba
index f17afe61f49f..7a945593c42a 100644
--- a/wizards/source/formwizard/tools.xba
+++ b/wizards/source/formwizard/tools.xba
@@ -99,7 +99,7 @@ Function TwipTo100telMM(BYVAL nValue as long) as long
 End function
 
 
-Function TwipToPixel(BYVAL nValue as long) as long ' nur ungefaehre Berechnung
+Function TwipToPixel(BYVAL nValue as long) as long ' not an exact calculation
 	TwipToPixel = nValue / 15
 End function
 
@@ -108,7 +108,7 @@ Function PixelTo100thMMX(oControl as Object) as long
 	oPeer = oControl.GetPeer()
 	PixelTo100mmX = Clng(Peer.GetInfo.PixelPerMeterX/100000)
 
-'	 PixelTo100thMM = nValue * 28					' nur ungefähre Berechnung 
+'	 PixelTo100thMM = nValue * 28					' not an exact calculation
 End function
 
 
@@ -116,7 +116,7 @@ Function PixelTo100thMMY(oControl as Object) as long
 	oPeer = oControl.GetPeer()
 	PixelTo100mmX = Clng(Peer.GetInfo.PixelPerMeterY/100000)
 
-'	 PixelTo100thMM = nValue * 28					' nur ungefähre Berechnung 
+'	 PixelTo100thMM = nValue * 28					' not an exact calculation 
 End function
 
 
@@ -162,7 +162,6 @@ End Sub
 
 
 Function SetNumerics(ByVal oLocObject as Object, iLocFieldType as Integer) as Object	
-'	Msgbox CurFieldName & ":" & chr(13) & oLocObject.dbg_Properties
 	If CurControlType = cNumericBox Then
 		oLocObject.TreatAsNumber = True
 		Select Case iLocFieldType