diff options
Diffstat (limited to 'wizards/source/formwizard/tools.xba')
| -rw-r--r-- | wizards/source/formwizard/tools.xba | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/wizards/source/formwizard/tools.xba b/wizards/source/formwizard/tools.xba index 7a945593c42a..0d5da836c9cd 100644 --- a/wizards/source/formwizard/tools.xba +++ b/wizards/source/formwizard/tools.xba @@ -179,15 +179,12 @@ Function SetNumerics(ByVal oLocObject as Object, iLocFieldType as Integer) as Ob oLocObject.EffectiveMax = 127 oLocObject.EffectiveMin = -128 Case com.sun.star.sdbc.DataType.FLOAT, com.sun.star.sdbc.DataType.REAL, com.sun.star.sdbc.DataType.DOUBLE, com.sun.star.sdbc.DataType.DECIMAL, com.sun.star.sdbc.DataType.NUMERIC -'Todo: oLocObject.DecimalAccuracy = ... oLocObject.EffectiveDefault = CurDefaultValue -' Todo: HelpText??? End Select If oLocObject.PropertySetinfo.HasPropertyByName("Width")Then ' Note: an Access AutoincrementField does not provide this property Width oLocObject.Width = CurFieldLength + CurScale + 1 End If If CurIsCurrency Then -'Todo: Wie setzt man Währungen? Msgbox "Währungsfeld: " & oLocObject.dbg_Properties End If ElseIf CurControlType = cTextBox Then 'com.sun.star.sdbc.DataType.CHAR, com.sun.star.sdbc.DataType.VARCHAR, com.sun.star.sdbc.DataType.LONGVARCHAR If oLocObject.MaxTextLen = 0 Or oLocObject.MaxTextLen > 30 Then @@ -198,10 +195,8 @@ Function SetNumerics(ByVal oLocObject as Object, iLocFieldType as Integer) as Ob End If oLocObject.DefaultText = CurDefaultValue ElseIf CurControlType = cDateBox Then -''Todo Why does this not work?: oLocObject.DefaultDate = CurDefaultValue ElseIf CurControlType = cTimeBox Then 'com.sun.star.sdbc.DataType.DATE, com.sun.star.sdbc.DataType.TIME oLocObject.DefaultTime = CurDefaultValue -' Todo: Property TimeFormat? frome where? ElseIf CurControlType = cCheckBox Then 'Todo Why does this not work?: oLocObject.DefautState = CurDefaultValue End If |