diff options
| author | Behrend Cornelius <bc@openoffice.org> | 2002-10-16 09:06:22 +0000 |
|---|---|---|
| committer | Behrend Cornelius <bc@openoffice.org> | 2002-10-16 09:06:22 +0000 |
| commit | 005ffe4c18ecbbed8f61f8be5928e7f6145fdf9b (patch) | |
| tree | 5c860bfac8f8ffad0b86a5760648296d1531e532 | |
| parent | 32d656ba0665a3a5b38e784cc8b08422b0a8241a (diff) | |
#104114# creation of new document now changed
| -rw-r--r-- | wizards/source/formwizard/Layouter.xba | 2 | ||||
| -rw-r--r-- | wizards/source/formwizard/tools.xba | 9 |
2 files changed, 8 insertions, 3 deletions
diff --git a/wizards/source/formwizard/Layouter.xba b/wizards/source/formwizard/Layouter.xba index a6d82b8dedd9..47f3ed3cf79e 100644 --- a/wizards/source/formwizard/Layouter.xba +++ b/wizards/source/formwizard/Layouter.xba @@ -131,7 +131,7 @@ End Function Sub OpenFormDocument() Dim NoArgs() as new com.sun.star.beans.PropertyValue Dim oViewSettings as Object - oDocument = StarDesktop.LoadComponentFromURL("private:factory/swriter", "_blank", 0, NoArgs()) + oDocument = CreateNewDocument("swriter") oProgressbar = oDocument.GetCurrentController.GetFrame.CreateStatusIndicator() oProgressbar.Start("", 100) oDocument.ApplyFormDesignMode = False diff --git a/wizards/source/formwizard/tools.xba b/wizards/source/formwizard/tools.xba index 0d5da836c9cd..b9e584d27b1c 100644 --- a/wizards/source/formwizard/tools.xba +++ b/wizards/source/formwizard/tools.xba @@ -179,12 +179,15 @@ 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: How do you set currencies? 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 @@ -195,10 +198,12 @@ Function SetNumerics(ByVal oLocObject as Object, iLocFieldType as Integer) as Ob End If oLocObject.DefaultText = CurDefaultValue ElseIf CurControlType = cDateBox Then - ElseIf CurControlType = cTimeBox Then 'com.sun.star.sdbc.DataType.DATE, com.sun.star.sdbc.DataType.TIME +' 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 +' Todo Why does this not work?: oLocObject.DefautState = CurDefaultValue End If If oLocObject.PropertySetInfo.HasPropertybyName("FormatKey") Then On Local Error Resume Next |