diff options
| author | Behrend Cornelius <bc@openoffice.org> | 2002-09-17 14:10:15 +0000 |
|---|---|---|
| committer | Behrend Cornelius <bc@openoffice.org> | 2002-09-17 14:10:15 +0000 |
| commit | 101f86e7b0ae1c534bdc418ca1b8b702b390c80b (patch) | |
| tree | 88ed7eb0fe953d123743bd1547f6f25a73914d23 | |
| parent | 602c1c48f1e9010c610bcae12690434c3e2d1cd1 (diff) | |
#99839# german Comments translated
| -rw-r--r-- | wizards/source/tools/Listbox.xba | 1 | ||||
| -rw-r--r-- | wizards/source/tools/Misc.xba | 4 | ||||
| -rw-r--r-- | wizards/source/tools/ModuleControls.xba | 1 |
3 files changed, 1 insertions, 5 deletions
diff --git a/wizards/source/tools/Listbox.xba b/wizards/source/tools/Listbox.xba index 8d3eea6a0..2a023c17a 100644 --- a/wizards/source/tools/Listbox.xba +++ b/wizards/source/tools/Listbox.xba @@ -166,7 +166,6 @@ Dim iOldSourceSelect as Integer lstSource.StringItemList() = NewSourceList() lstTarget.StringItemList() = RemoveSelected(lstTarget) End If -' Todo: Hier weitermachen: SetNewSelection(lstSource, iOldSourceSelect) SetNewSelection(lstTarget, iOldTargetSelect) diff --git a/wizards/source/tools/Misc.xba b/wizards/source/tools/Misc.xba index eea586e44..5bca3caa4 100644 --- a/wizards/source/tools/Misc.xba +++ b/wizards/source/tools/Misc.xba @@ -17,7 +17,6 @@ Dim PropList(3,1)' as String PropList(2,1) = "extra" PropList(3,0) = "IsPasswordRequired" PropList(3,1) = True -' RegisterNewDataSource("Doc_Erica_Test_Unicode", PropList()) End Sub @@ -31,7 +30,7 @@ Dim i as Integer For i = 0 To Ubound(PropertyList(), 1) sPropName = PropertyList(i,0) sPropValue = PropertyList(i,1) - oDataSource.SetPropertyValue(sPropName,sPropValue) 'GetByName(sPropName) = sPropValue 'oPropInfo.GetPropertyByName(sPropName)) = sPropValue ' PropertyList(i,0))) = PropertyList(i,1) + oDataSource.SetPropertyValue(sPropName,sPropValue) Next i If Not IsMissing(DriverProperties()) Then oDataSource.Info() = DriverProperties() @@ -270,7 +269,6 @@ End Function Function GetResText( nID as integer ) As string On Error Goto ErrorOcurred If Not IsNull(oResSrv) Then - ' eigentlich sollte hier stehen GetResText = oResSrv.getString( nID ) Else GetResText = "" diff --git a/wizards/source/tools/ModuleControls.xba b/wizards/source/tools/ModuleControls.xba index ce9f5492f..9b3ff5f36 100644 --- a/wizards/source/tools/ModuleControls.xba +++ b/wizards/source/tools/ModuleControls.xba @@ -1,7 +1,6 @@ <?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> <script:module xmlns:script="http://openoffice.org/2000/script" script:name="ModuleControls" script:language="StarBasic">Option Explicit -'bla ' Accepts the name of a control and returns the respective control model as object ' The Container can either be a whole document or a specific sheet of a Calc-Document |