diff options
Diffstat (limited to 'wizards/source/formwizard')
| -rw-r--r-- | wizards/source/formwizard/DBMeta.xba | 330 | ||||
| -rw-r--r-- | wizards/source/formwizard/DlgFormDB.xdl | 102 | ||||
| -rw-r--r-- | wizards/source/formwizard/FormWizard.xba | 427 | ||||
| -rw-r--r-- | wizards/source/formwizard/Language.xba | 285 | ||||
| -rw-r--r-- | wizards/source/formwizard/Layouter.xba | 380 | ||||
| -rw-r--r-- | wizards/source/formwizard/dbwizres.src | 3518 | ||||
| -rw-r--r-- | wizards/source/formwizard/delzip | 0 | ||||
| -rw-r--r-- | wizards/source/formwizard/develop.xba | 533 | ||||
| -rw-r--r-- | wizards/source/formwizard/dialog.xlb | 5 | ||||
| -rw-r--r-- | wizards/source/formwizard/script.xlb | 10 | ||||
| -rw-r--r-- | wizards/source/formwizard/tools.xba | 349 |
11 files changed, 0 insertions, 5939 deletions
diff --git a/wizards/source/formwizard/DBMeta.xba b/wizards/source/formwizard/DBMeta.xba deleted file mode 100644 index 2d8dc2838..000000000 --- a/wizards/source/formwizard/DBMeta.xba +++ /dev/null @@ -1,330 +0,0 @@ -<?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="DBMeta" script:language="StarBasic">REM ***** BASIC ***** -Option Explicit - - -Public iCommandTypes() as Integer -Public CurCommandType as Integer -Public oDataSource as Object -Public bEnableBinaryOptionGroup as Boolean -'Public bSelectContent as Boolean - - -Function GetDatabaseNames(baddFirstListItem as Boolean) -Dim sDatabaseList() - If oDBContext.HasElements Then - Dim LocDBList() as String - Dim MaxIndex as Integer - Dim i as Integer - LocDBList = oDBContext.ElementNames() - MaxIndex = Ubound(LocDBList()) - If baddfirstListItem Then - ReDim Preserve sDatabaseList(MaxIndex + 1) - sDatabaseList(0) = sSelectDatasource - a = 1 - Else - ReDim Preserve sDatabaseList(MaxIndex) - a = 0 - End If - For i = 0 To MaxIndex - sDatabaseList(a) = oDBContext.ElementNames(i) - a = a + 1 - Next i - End If - GetDatabaseNames() = sDatabaseList() -End Function - - -Sub GetSelectedDBMetaData(sDBName as String) -Dim OldsDBname as String -Dim DBIndex as Integer -Dim LocList() as String -' If bStartUp Then -' bStartUp = false -' Exit Sub -' End Sub - ToggleDatabasePage(False) - With DialogModel - If GetConnection(sDBName) Then - If GetDBMetaData() Then - LocList() = AddListToList(Array(sSelectDBTable), TableNames()) - .lstTables.StringItemList() = AddListToList(LocList(), QueryNames()) -' bSelectContent = True - .lstTables.SelectedItems() = Array(0) - iCommandTypes() = CreateCommandTypeList() - EmptyFieldsListboxes() - End If - End If - bEnableBinaryOptionGroup = False - .lstTables.Enabled = True - .lblTables.Enabled = True -' Else -' DialogModel.lstTables.StringItemList = Array(sSelectDBTable) -' EmptyFieldsListboxes() -' End If - ToggleDatabasePage(True) - End With -End Sub - - -Function GetConnection(sDBName as String) -Dim oInteractionHandler as Object -Dim bExitLoop as Boolean -Dim bGetConnection as Boolean -Dim iMsg as Integer -Dim Nulllist() - If Not IsNull(oDBConnection) Then - oDBConnection.Dispose() - End If - oDataSource = oDBContext.GetByName(sDBName) -' If Not oDBContext.hasbyName(sDBName) Then -' GetConnection() = False -' Exit Function -' End If - If Not oDataSource.IsPasswordRequired Then - oDBConnection = oDBContext.GetByName(sDBName).GetConnection("","") - GetConnection() = True - Else - oInteractionHandler = createUnoService("com.sun.star.task.InteractionHandler") - oDataSource = oDBContext.GetByName(sDBName) - On Local Error Goto NOCONNECTION - Do - bExitLoop = True - oDBConnection = oDataSource.ConnectWithCompletion(oInteractionHandler) - NOCONNECTION: - bGetConnection = Err = 0 - If bGetConnection Then - bGetConnection = Not IsNull(oDBConnection) - If Not bGetConnection Then - Exit Do - End If - End If - If Not bGetConnection Then - iMsg = Msgbox (sMsgNoConnection,32 + 2, sMsgWizardName) - bExitLoop = iMsg = SBCANCEL - Resume CLERROR - CLERROR: - End If - Loop Until bExitLoop - On Local Error Goto 0 - If Not bGetConnection Then - DialogModel.lstTables.StringItemList() = Array(sSelectDBTable) - DialogModel.lstFields.StringItemList() = NullList() - DialogModel.lstSelFields.StringItemList() = NullList() - End If - GetConnection() = bGetConnection - End If -End Function - - -Function GetDBMetaData() - If oDBContext.HasElements Then - Tablenames() = oDBConnection.Tables.ElementNames() - Querynames() = oDBConnection.Queries.ElementNames() - GetDBMetaData = True - Else - MsgBox(sMsgErrNoDatabase, 64, sMsgWizardName) - GetDBMetaData = False - End If -End Function - - -Sub GetTableMetaData() -Dim iType as Long -Dim m as Integer -Dim Found as Boolean -Dim i as Integer -Dim sFieldName as String -Dim n as Integer -Dim WidthIndex as Integer -Dim oField as Object - MaxIndex = Ubound(DialogModel.lstSelFields.StringItemList()) - Dim ColumnMap(MaxIndex)as Integer - FieldNames() = DialogModel.lstSelFields.StringItemList() - ' Build a structure which maps the position of a selected field (within the selection) to the the column position within - ' the table. So we ensure that the controls are placed in the same order the according fields are selected. - For i = 0 To Ubound(FieldNames()) - sFieldName = FieldNames(i) - Found = False - n = 0 - While (n< MaxIndex And (Not Found)) - If (FieldNames(n) = sFieldName) Then - Found = True - ColumnMap(n) = i - End If - n = n + 1 - Wend - Next i - For n = 0 to MaxIndex - sFieldname = FieldNames(n) - oField = oColumns.GetByName(sFieldName) - iType = oField.Type - FieldMetaValues(n,0) = oField.Type - FieldMetaValues(n,1) = AssignFieldLength(oField.Precision) - FieldMetaValues(n,2) = GetValueoutofList(iType, WidthList(),1, WidthIndex) - FieldMetaValues(n,3) = WidthList(WidthIndex,3) - FieldMetaValues(n,4) = oField.FormatKey - FieldMetaValues(n,5) = oField.DefaultValue - FieldMetaValues(n,6) = oField.IsCurrency - FieldMetaValues(n,7) = oField.Scale -' If oField.Description <> "" Then -'' Todo: What's wrong with this line? -' Msgbox oField.Helptext -' End If - FieldMetaValues(n,8) = oField.Description - Next - ReDim oDBShapeList(MaxIndex) as Object - ReDim oTCShapeList(MaxIndex) as Object - ReDim oDBModelList(MaxIndex) as Object - ReDim oGroupShapeList(MaxIndex) as Object -End Sub - - -Function GetSpecificFieldNames() as Integer -Dim n as Integer -Dim m as Integer -Dim s as Integer -Dim iType as Integer -Dim oField as Object -Dim MaxIndex as Integer -Dim EmptyList() - If Ubound(DialogModel.lstTables.StringItemList()) > -1 Then - FieldNames() = oColumns.GetElementNames() - MaxIndex = Ubound(FieldNames()) - If MaxIndex <> -1 Then - Dim ResultFieldNames(MaxIndex) - ReDim ImgFieldNames(MaxIndex) - m = 0 - For n = 0 To MaxIndex - oField = oColumns.GetByName(FieldNames(n)) - iType = oField.Type - If GetIndexInMultiArray(WidthList(), iType, 0) <> -1 Then - ResultFieldNames(m) = FieldNames(n) - m = m + 1 - End If - If GetIndexInMultiArray(ImgWidthList(), iType, 0) <> -1 Then - ImgFieldNames(s) = FieldNames(n) - s = s + 1 - End If - Next n - If s <> 0 Then - Redim Preserve ImgFieldNames(s-1) - bEnableBinaryOptionGroup = True - Else - bEnableBinaryOptionGroup = False - End If - If (DialogModel.optBinariesasGraphics.State = 1) And (s <> 0) Then - ResultFieldNames() = AddListToList(ResultFieldNames(), ImgFieldNames()) - Else - Redim Preserve ResultFieldNames(m-1) - End If - FieldNames() = ResultFieldNames() - DialogModel.lstFields.StringItemList = FieldNames() - InitializeListboxProcedures(DialogModel, DialogModel.lstFields, DialogModel.lstSelFields) - End If - GetSpecificFieldNames = MaxIndex - Else - GetSpecificFieldNames = -1 - End If -End Function - - -Sub CreateDBForm() - If oDrawPage.Forms.Count = 0 Then - oDBForm = oDocument.CreateInstance("com.sun.star.form.component.Form") - oDrawpage.Forms.InsertByIndex (0, oDBForm) - Else - oDBForm = oDrawPage.Forms.GetByIndex(0) - End If - oDBForm.Name = "Standard" - oDBForm.DataSourceName = sDBName - oDBForm.Command = TableName - oDBForm.CommandType = CurCommandType -End Sub - - -Sub AddOrRemoveBinaryFieldsToWidthList() -Dim LocWidthList() -Dim MaxIndex as Integer -Dim OldMaxIndex as Integer -Dim s as Integer -Dim n as Integer -Dim m as Integer - If Not bDebug Then - On Local Error GoTo WIZARDERROR - End If - If DialogModel.optBinariesasGraphics.State = 1 Then - OldMaxIndex = Ubound(WidthList(),1) - If OldMaxIndex = 15 Then - MaxIndex = Ubound(WidthList(),1) + Ubound(ImgWidthList(),1) + 1 - ReDim Preserve WidthList(MaxIndex,4) - s = 0 - For n = OldMaxIndex + 1 To MaxIndex - For m = 0 To 3 - WidthList(n,m) = ImgWidthList(s,m) - Next m - s = s + 1 - Next n - MergeList(DialogModel.lstFields, ImgFieldNames()) - End If - Else - ReDim Preserve WidthList(15, 4) - RemoveListItems(DialogModel.lstFields(), DialogModel.lstSelFields(), ImgFieldNames()) - End If - DialogModel.lstSelFields.Tag = True -WIZARDERROR: - If Err <> 0 Then - Msgbox(sMsgErrMsg, 16, GetProductName()) - Resume LOCERROR - LOCERROR: - End If -End Sub - - -Function CreateCommandTypeList() -Dim MaxTableIndex as Integer -Dim MaxQueryIndex as Integer -Dim MaxIndex as Integer -Dim i as Integer -Dim a as Integer - MaxTableIndex = Ubound(TableNames() - MaxQueryIndex = Ubound(QueryNames() - MaxIndex = MaxTableIndex + MaxQueryIndex + 1 - If MaxIndex > -1 Then - Dim LocCommandTypes(MaxIndex) as Integer - For i = 0 To MaxTableIndex - LocCommandTypes(i) = com.sun.star.sdb.CommandType.TABLE - Next i - a = i - For i = 0 To MaxQueryIndex - LocCommandTypes(a) = com.sun.star.sdb.CommandType.QUERY - a = a + 1 - Next i - End If - CreateCommandTypeList() = LocCommandTypes() -End Function - - -Sub GetCurrentMetaValues(Index as Integer) - CurFieldType = FieldMetaValues(Index,0) - CurFieldLength = FieldMetaValues(Index,1) - CurControlType = FieldMetaValues(Index,2) - CurControlName = FieldMetaValues(Index,3) - CurFormatKey = FieldMetaValues(Index,4) - CurDefaultValue = FieldMetaValues(Index,5) - CurIsCurrency = FieldMetaValues(Index,6) - CurScale = FieldMetaValues(Index,7) - CurHelpText = FieldMetaValues(Index,8) - CurFieldName = FieldNames(Index) -End Sub - - -Function AssignFieldLength(FieldLength as Long) as Integer - If FieldLength >= 65535 Then - AssignFieldLength() = -1 - Else - AssignFieldLength() = FieldLength - End If -End Function -</script:module>
\ No newline at end of file diff --git a/wizards/source/formwizard/DlgFormDB.xdl b/wizards/source/formwizard/DlgFormDB.xdl deleted file mode 100644 index 269b7e618..000000000 --- a/wizards/source/formwizard/DlgFormDB.xdl +++ /dev/null @@ -1,102 +0,0 @@ -<?xml version="1.0" encoding="UTF-8"?> -<!DOCTYPE dlg:window PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "dialog.dtd"> -<dlg:window xmlns:dlg="http://openoffice.org/2000/dialog" xmlns:script="http://openoffice.org/2000/script" dlg:id="DlgFormDB" dlg:left="96" dlg:top="28" dlg:width="270" dlg:height="210" dlg:page="1" dlg:help-url="HID:WIZARDS_HID_DLGFORM_DIALOG" dlg:closeable="true" dlg:moveable="true"> - <dlg:bulletinboard> - <dlg:text dlg:id="lblSelFields" dlg:tab-index="10" dlg:left="154" dlg:top="70" dlg:width="110" dlg:height="8" dlg:page="1" dlg:value="lblSelFields"/> - <dlg:menulist dlg:id="lstTables" dlg:tab-index="3" dlg:left="6" dlg:top="51" dlg:width="110" dlg:height="12" dlg:page="1" dlg:help-url="HID:WIZARDS_HID_DLGFORM_MASTER_LBTABLES" dlg:spin="true"> - <script:event script:event-name="on-itemstatechange" script:macro-name="vnd.sun.star.script:FormWizard.FormWizard.FormGetFields?language=Basic&location=application" script:language="Script"/> - <script:event script:event-name="on-mousedown" script:macro-name="vnd.sun.star.script:FormWizard.FormWizard.DeleteFirstTableListBoxEntry?language=Basic&location=application" script:language="Script"/> - </dlg:menulist> - <dlg:img dlg:id="imgTheme" dlg:tab-index="1" dlg:left="6" dlg:top="6" dlg:width="258" dlg:height="26" dlg:scale-image="false"/> - <dlg:button dlg:id="cmdCancel" dlg:tab-index="33" dlg:left="6" dlg:top="190" dlg:width="53" dlg:height="14" dlg:help-url="HID:34401" dlg:value="cmdCancel" dlg:button-type="cancel"/> - <dlg:button dlg:id="cmdHelp" dlg:tab-index="34" dlg:left="63" dlg:top="190" dlg:width="53" dlg:height="14" dlg:tag="34400" dlg:value="cmdHelp" dlg:button-type="help"/> - <dlg:button dlg:id="cmdBack" dlg:tab-index="35" dlg:left="155" dlg:top="190" dlg:width="53" dlg:height="14" dlg:help-url="HID:WIZARDS_HID_DLGFORM_CMDPREV" dlg:value="cmdBack"> - <script:event script:event-name="on-performaction" script:macro-name="vnd.sun.star.script:FormWizard.FormWizard.PreviousStep?language=Basic&location=application" script:language="Script"/> - </dlg:button> - <dlg:button dlg:id="cmdGoOn" dlg:tab-index="36" dlg:left="211" dlg:top="190" dlg:width="53" dlg:height="14" dlg:help-url="HID:WIZARDS_HID_DLGFORM_CMDNEXT" dlg:value="cmdGoOn"> - <script:event script:event-name="on-performaction" script:macro-name="vnd.sun.star.script:FormWizard.FormWizard.NextStep?language=Basic&location=application" script:language="Script"/> - </dlg:button> - <dlg:text dlg:id="lblTables" dlg:tab-index="2" dlg:left="6" dlg:top="40" dlg:width="72" dlg:height="8" dlg:page="1" dlg:value="lblTables"/> - <dlg:text dlg:id="lblFields" dlg:tab-index="4" dlg:left="6" dlg:top="70" dlg:width="109" dlg:height="8" dlg:page="1" dlg:value="lblFields"/> - <dlg:button dlg:id="cmdMoveSelected" dlg:tab-index="6" dlg:left="122" dlg:top="84" dlg:width="25" dlg:height="14" dlg:page="1" dlg:help-url="HID:WIZARDS_HID_DLGFORM_OPTONEXISTINGRELATION" dlg:value="->"> - <script:event script:event-name="on-performaction" script:macro-name="vnd.sun.star.script:Tools.Listbox.FormMoveSelected?language=Basic&location=application" script:language="Script"/> - </dlg:button> - <dlg:button dlg:id="cmdMoveAll" dlg:tab-index="7" dlg:left="122" dlg:top="101" dlg:width="25" dlg:height="14" dlg:page="1" dlg:help-url="HID:WIZARDS_HID_DLGFORM_OPTSELECTMANUALLY" dlg:value="=>>"> - <script:event script:event-name="on-performaction" script:macro-name="vnd.sun.star.script:Tools.Listbox.FormMoveAll?language=Basic&location=application" script:language="Script"/> - </dlg:button> - <dlg:button dlg:id="cmdRemoveSelected" dlg:tab-index="8" dlg:left="122" dlg:top="118" dlg:width="25" dlg:height="14" dlg:page="1" dlg:help-url="HID:WIZARDS_HID_DLGFORM_lstRELATIONS" dlg:value="<-"> - <script:event script:event-name="on-performaction" script:macro-name="vnd.sun.star.script:Tools.Listbox.FormRemoveSelected?language=Basic&location=application" script:language="Script"/> - </dlg:button> - <dlg:button dlg:id="cmdRemoveAll" dlg:tab-index="9" dlg:left="122" dlg:top="135" dlg:width="25" dlg:height="14" dlg:page="1" dlg:help-url="HID:34425" dlg:value="<<="> - <script:event script:event-name="on-performaction" script:macro-name="vnd.sun.star.script:Tools.Listbox.FormRemoveAll?language=Basic&location=application" script:language="Script"/> - </dlg:button> - <dlg:radiogroup> - <dlg:radio dlg:id="optIgnoreBinaries" dlg:tab-index="14" dlg:left="122" dlg:top="169" dlg:width="104" dlg:height="10" dlg:page="1" dlg:help-url="HID:34427" dlg:value="optIgnoreBinaries" dlg:checked="true"> - <script:event script:event-name="on-performaction" script:macro-name="vnd.sun.star.script:FormWizard.DBMeta.AddOrRemoveBinaryFieldsToWidthList?language=Basic&location=application" script:language="Script"/> - </dlg:radio> - <dlg:radio dlg:id="optBinariesasGraphics" dlg:tab-index="13" dlg:left="12" dlg:top="169" dlg:width="104" dlg:height="10" dlg:page="1" dlg:help-url="HID:34426" dlg:value="optBinariesasGraphics"> - <script:event script:event-name="on-performaction" script:macro-name="vnd.sun.star.script:FormWizard.DBMeta.AddOrRemoveBinaryFieldsToWidthList?language=Basic&location=application" script:language="Script"/> - </dlg:radio> - </dlg:radiogroup> - <dlg:menulist dlg:id="lstFields" dlg:tab-index="5" dlg:left="6" dlg:top="81" dlg:width="110" dlg:height="70" dlg:page="1" dlg:help-url="HID:34420" dlg:multiselection="true"> - <script:event script:event-name="on-performaction" script:macro-name="vnd.sun.star.script:Tools.Listbox.FormMoveSelected?language=Basic&location=application" script:language="Script"/> - <script:event script:event-name="on-itemstatechange" script:macro-name="vnd.sun.star.script:Tools.Listbox.FormSetMoveRights?language=Basic&location=application" script:language="Script"/> - </dlg:menulist> - <dlg:menulist dlg:id="lstSelFields" dlg:tab-index="11" dlg:left="154" dlg:top="81" dlg:width="110" dlg:height="70" dlg:page="1" dlg:help-url="HID:WIZARDS_HID_DLGFORM_CHKCREATESUBFORM" dlg:multiselection="true"> - <script:event script:event-name="on-performaction" script:macro-name="vnd.sun.star.script:Tools.Listbox.FormRemoveSelected?language=Basic&location=application" script:language="Script"/> - <script:event script:event-name="on-itemstatechange" script:macro-name="vnd.sun.star.script:Tools.Listbox.FormSetMoveRights?language=Basic&location=application" script:language="Script"/> - </dlg:menulist> - <dlg:text dlg:id="lblStyles" dlg:tab-index="25" dlg:left="150" dlg:top="39" dlg:width="114" dlg:height="8" dlg:page="2" dlg:value="lblStyles"/> - <dlg:button dlg:id="cmdArrange1" dlg:tab-index="16" dlg:left="12" dlg:top="50" dlg:width="23" dlg:height="25" dlg:page="2" dlg:tag="1" dlg:help-url="HID:WIZARDS_HID_DLGFORM_SUB_LBTABLES"> - <script:event script:event-name="on-performaction" script:macro-name="vnd.sun.star.script:FormWizard.Layouter.ChangeArrangemode?language=Basic&location=application" script:language="Script"/> - </dlg:button> - <dlg:button dlg:id="cmdArrange2" dlg:tab-index="17" dlg:left="39" dlg:top="50" dlg:width="23" dlg:height="25" dlg:page="2" dlg:tag="2" dlg:help-url="HID:WIZARDS_HID_DLGFORM_SUB_FIELDSAVAILABLE"> - <script:event script:event-name="on-performaction" script:macro-name="vnd.sun.star.script:FormWizard.Layouter.ChangeArrangemode?language=Basic&location=application" script:language="Script"/> - </dlg:button> - <dlg:button dlg:id="cmdArrange3" dlg:tab-index="18" dlg:left="66" dlg:top="50" dlg:width="23" dlg:height="25" dlg:page="2" dlg:tag="3" dlg:help-url="HID:WIZARDS_HID_DLGFORM_SUB_CMDMOVESELECTED"> - <script:event script:event-name="on-performaction" script:macro-name="vnd.sun.star.script:FormWizard.Layouter.ChangeArrangemode?language=Basic&location=application" script:language="Script"/> - </dlg:button> - <dlg:button dlg:id="cmdArrange4" dlg:tab-index="19" dlg:left="93" dlg:top="50" dlg:width="23" dlg:height="25" dlg:page="2" dlg:tag="4" dlg:help-url="HID:WIZARDS_HID_DLGFORM_SUB_CMDMOVEALL"> - <script:event script:event-name="on-performaction" script:macro-name="vnd.sun.star.script:FormWizard.Layouter.ChangeArrangemode?language=Basic&location=application" script:language="Script"/> - </dlg:button> - <dlg:button dlg:id="cmdArrange5" dlg:tab-index="20" dlg:left="120" dlg:top="50" dlg:width="23" dlg:height="25" dlg:page="2" dlg:tag="5" dlg:help-url="HID:WIZARDS_HID_DLGFORM_SUB_CMDREMOVESELECTED"> - <script:event script:event-name="on-performaction" script:macro-name="vnd.sun.star.script:FormWizard.Layouter.ChangeArrangemode?language=Basic&location=application" script:language="Script"/> - </dlg:button> - <dlg:menulist dlg:id="lstStyles" dlg:tab-index="26" dlg:left="150" dlg:top="50" dlg:width="114" dlg:height="86" dlg:page="2" dlg:help-url="HID:WIZARDS_HID_DLGFORM_LINKER_LSTSLAVELINK2"> - <script:event script:event-name="on-itemstatechange" script:macro-name="vnd.sun.star.script:FormWizard.tools.ImportStyles?language=Basic&location=application" script:language="Script"/> - </dlg:menulist> - <dlg:radiogroup> - <dlg:radio dlg:id="optBorder0" dlg:tab-index="22" dlg:left="12" dlg:top="95" dlg:width="131" dlg:height="10" dlg:page="2" dlg:help-url="HID:WIZARDS_HID_DLGFORM_SUB_CMDMOVEUP" dlg:value="optBorder0"> - <script:event script:event-name="on-performaction" script:macro-name="vnd.sun.star.script:FormWizard.Layouter.ChangeBorderLayouts?language=Basic&location=application" script:language="Script"/> - </dlg:radio> - <dlg:radio dlg:id="optBorder1" dlg:tab-index="23" dlg:left="12" dlg:top="109" dlg:width="131" dlg:height="10" dlg:page="2" dlg:help-url="HID:WIZARDS_HID_DLGFORM_SUB_CMDMOVEDOWN" dlg:value="optBorder1"> - <script:event script:event-name="on-performaction" script:macro-name="vnd.sun.star.script:FormWizard.Layouter.ChangeBorderLayouts?language=Basic&location=application" script:language="Script"/> - </dlg:radio> - <dlg:radio dlg:id="optBorder2" dlg:tab-index="24" dlg:left="12" dlg:top="123" dlg:width="131" dlg:height="10" dlg:page="2" dlg:help-url="HID:34440" dlg:value="optBorder2"> - <script:event script:event-name="on-performaction" script:macro-name="vnd.sun.star.script:FormWizard.Layouter.ChangeBorderLayouts?language=Basic&location=application" script:language="Script"/> - </dlg:radio> - </dlg:radiogroup> - <dlg:fixedline dlg:id="hlnBinaries" dlg:tab-index="12" dlg:left="6" dlg:top="158" dlg:width="258" dlg:height="8" dlg:page="1" dlg:value="hlnBinaries"/> - <dlg:radiogroup> - <dlg:radio dlg:id="optTiled" dlg:tab-index="31" dlg:left="156" dlg:top="154" dlg:width="81" dlg:height="10" dlg:page="2" dlg:tag="11" dlg:help-url="HID:WIZARDS_HID_DLGFORM_LINKER_LSTMASTERLINK2" dlg:value="optTiled" dlg:checked="true"> - <script:event script:event-name="on-mouseup" script:macro-name="vnd.sun.star.script:WebWizard.Common.SetBackGraphicStyle?language=Basic&location=application" script:language="Script"/> - </dlg:radio> - <dlg:radio dlg:id="optArea" dlg:tab-index="32" dlg:left="156" dlg:top="168" dlg:width="81" dlg:height="10" dlg:page="2" dlg:tag="10" dlg:help-url="HID:WIZARDS_HID_DLGFORM_LINKER_LSTSLAVELINK3" dlg:value="optArea"> - <script:event script:event-name="on-mouseup" script:macro-name="vnd.sun.star.script:WebWizard.Common.SetBackGraphicStyle?language=Basic&location=application" script:language="Script"/> - </dlg:radio> - </dlg:radiogroup> - <dlg:fixedline dlg:id="hlnBackground" dlg:tab-index="30" dlg:left="150" dlg:top="143" dlg:width="114" dlg:height="8" dlg:page="2" dlg:value="hlnBackground"/> - <dlg:fixedline dlg:id="hlnAlign" dlg:tab-index="27" dlg:left="6" dlg:top="143" dlg:width="137" dlg:height="8" dlg:page="2" dlg:value="hlnAlign"/> - <dlg:fixedline dlg:id="hlnBorderLayout" dlg:tab-index="21" dlg:left="6" dlg:top="83" dlg:width="137" dlg:height="8" dlg:page="2" dlg:value="hlnBorderLayout"/> - <dlg:fixedline dlg:id="hlnArrangements" dlg:tab-index="15" dlg:left="6" dlg:top="39" dlg:width="137" dlg:height="8" dlg:page="2" dlg:value="hlnArrangements"/> - <dlg:radiogroup> - <dlg:radio dlg:id="optAlign0" dlg:tab-index="28" dlg:left="12" dlg:top="154" dlg:width="131" dlg:height="10" dlg:page="2" dlg:help-url="HID:WIZARDS_HID_DLGFORM_LINKER_LSTSLAVELINK1" dlg:value="optAlign0"> - <script:event script:event-name="on-performaction" script:macro-name="vnd.sun.star.script:FormWizard.Layouter.ChangeLabelAlignments?language=Basic&location=application" script:language="Script"/> - </dlg:radio> - <dlg:radio dlg:id="optAlign2" dlg:tab-index="29" dlg:left="12" dlg:top="168" dlg:width="131" dlg:height="10" dlg:page="2" dlg:help-url="HID:WIZARDS_HID_DLGFORM_LINKER_LSTMASTERLINK1" dlg:value="optAlign2"> - <script:event script:event-name="on-performaction" script:macro-name="vnd.sun.star.script:FormWizard.Layouter.ChangeLabelAlignments?language=Basic&location=application" script:language="Script"/> - </dlg:radio> - </dlg:radiogroup> - <dlg:fixedline dlg:id="FixedLine1" dlg:tab-index="0" dlg:left="6" dlg:top="180" dlg:width="258" dlg:height="6"/> - </dlg:bulletinboard> -</dlg:window>
\ No newline at end of file diff --git a/wizards/source/formwizard/FormWizard.xba b/wizards/source/formwizard/FormWizard.xba deleted file mode 100644 index 99103d933..000000000 --- a/wizards/source/formwizard/FormWizard.xba +++ /dev/null @@ -1,427 +0,0 @@ -<?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="FormWizard" script:language="StarBasic">Option Explicit - -Public DocumentName as String -Public FormPath as String -Public WizardPath as String -Public WebWizardPath as String -Public WorkPath as String -Public TempPath as String -Public TexturePath as String -Public sQueryName as String -Public oDBConnection as Object -Public bWithBackGraphic as Boolean -Public bNeedFieldRefresh as Boolean -Public oDBForm as Object -Public oColumns() as Object -Public sDatabaseList() as String -Public TableNames() as String -Public QueryNames() as String -Public FieldNames() as String -Public ImgFieldNames() as String -Public oDBContext as Object -Public oUcb as Object -Public oDocInfo as Object -Public WidthList(15,3) -Public ImgWidthList(3,3) -Public sDBName as String -Public Tablename as String -Public Const SBSIZETEXT = "The quick brown fox jumps over the lazy dog. The quick brown fox jumps over the lazy dog." -Public bDisposeDoc as Boolean -Public bDebug as Boolean -'Public bStartUp as Boolean -Public bConnectionIsovergiven as Boolean -Public FormName As String -Public sFormUrl as String -Public oFormDocuments - - -' The macro can be called in 4 possible scenarios: -' Scenario 1. No parameters at given -' Scenario 2: Only Datasourcename is given, but no connection and no Content -' Scenario 3: a data source and a connection are given -' Scenario 4: all parameters (data source name, connection, object type and object) are given - -Sub Main() -Dim oLocDBContext as Object -Dim oLocConnection as Object - -' Scenario 1. No parameters at given - MainWithDefault() - -' Scenario 2: Only Datasourcename is given, but no connection and no Content -' MainWithDefault("Bibliography") - -' Scenario 3: a data source and a connection are given -' oLocDBContext = CreateUnoService("com.sun.star.sdb.DatabaseContext") -' oLocConnection = oLocDBContext.GetByName("Bibliography").GetConnection("","") -' MainWithDefault("Bibliography", oLocConnection) - -' Scenario 4: all parameters (data source name, connection, object type and object) are given -' oLocDBContext = CreateUnoService("com.sun.star.sdb.DatabaseContext") -' oLocConnection = oLocDBContext.GetByName("Bibliography").GetConnection("","") -' MainWithDefault("Bibliography", oLocConnection, com.sun.star.sdb.CommandType.TABLE, "biblio") -End Sub - - -Sub MainWithDefault(Optional DatasourceName as String, Optional oConnection as Object, Optional CommandType as Integer, Optional sContent as String) -Dim i as Integer -Dim SelCount as Integer -Dim RetValue as Integer -Dim SelList(0) as Integer -Dim LocList() as String - SelList(0) = 0 - BasicLibraries.LoadLibrary("Tools") - BasicLibraries.LoadLibrary("WebWizard") - bDebug = False - If Not bDebug Then - On Local Error GoTo WIZARDERROR - End If - OpenFormDocument() - CurArrangement = 0 - bControlsareCreated = False - bEnableBinaryOptionGroup = False - bDisposeDoc = True - MaxIndex = -1 - If Not InitResources("Formwizard","dbw") Then - Exit Sub - End If - oDBContext = CreateUnoService("com.sun.star.sdb.DatabaseContext") - oUcb = createUnoService("com.sun.star.ucb.SimpleFileAccess") - If GetFormWizardPaths() = False Then - Exit Sub - End If - oDocument.GetCurrentController().Frame.ComponentWindow.Enable = False - oProgressBar.Value = 10 - LoadLanguage() - oProgressBar.Value = 20 - InitializeWidthList() - oProgressBar.Value = 30 - Styles() = getListBoxArrays(oUcb, "/stl") - CurIndex = GetCurIndex(DialogModel, Styles(), 2) - oProgressBar.Value = 40 - ConfigurePageStyle() - oProgressBar.Value = 50 - InitializeLabelValues() - bNeedFieldRefresh = True - SetDialogLanguage() -' bStartUp = true - With DialogModel - .cmdBack.Enabled = False - .cmdGoOn.Enabled = False - .lblTables.Enabled = False - .lstSelFields.Tag = False - .Step = 1 - End With - oProgressBar.Value = 60 - bConnectionIsovergiven = Not IsMissing(oConnection) - If Not IsMissing(DataSourceName) Then - sDBName = DataSourceName - If Not IsMissing(oConnection) Then - ' Scenario 3: a data source and a connection are given - Set oDBConnection = oConnection - oDataSource = oDBContext.GetByName(DataSourceName) - DialogModel.lstTables.Enabled = True - DialogModel.lblTables.Enabled = True - If GetDBMetaData() Then - LocList() = AddListToList(TableNames(), QueryNames()) - iCommandTypes = CreateCommandTypeList() - If Not IsMissing(sContent) Then - ' Scenario 4: all parameters (data source name, connection, object type and object) are given - DialogModel.lstTables.StringItemList() = LocList() - iCommandTypes() = CreateCommandTypeList() - SelCount = CountItemsInArray(DialogModel.lstTables.StringItemList(), sContent) - If SelCount = 1 Then - DlgFormDB.GetControl("lstTables").SelectItem(sContent, True) - Else - If CommandType = com.sun.star.sdb.CommandType.QUERY Then - SelIndex = IndexInArray(sContent, QueryNames() - DlgFormDB.GetControl("lstTables").SelectItemPos(SelIndex, True) - ElseIf CommandType = com.sun.star.sdb.CommandType.TABLE Then - SelIndex = IndexInArray(sContent, TableNames() - DlgFormDB.GetControl("lstTables").SelectItemPos(Ubound(QueryNames()+1 + SelIndex, True) - End If - End If - CurCommandType = CommandType - FillUpFieldsListbox(False) - Else - LocList() = AddListToList(Array(sSelectDBTable), LocList()) - DialogModel.lstTables.StringItemList() = LocList() -' bSelectContent = True - DialogModel.lstTables.SelectedItems() = Array(0) - - End If - End If - Else - ' Scenario 2: Only Datasourcename is given, but no connection and no Content - GetSelectedDBMetaData(sDBName) - End If - Else - ' Scenario 1: No parameters are given - ToggleListboxControls(DialogModel, False) - End If - oProgressBar.Value = 80 - bWithBackGraphic = LoadNewStyles(oDocument, DialogModel, CurIndex, Styles(CurIndex, 8), Styles(), TexturePath) - DlgFormDB.Title = WizardTitle(1) - DialogModel.lstStyles.StringItemList() = ArrayfromMultiArray(Styles, 1) - DialogModel.lstStyles.SelectedItems() = SelList() - ControlCaptionsToStandardLayout() - oDocument.GetCurrentController().Frame.ComponentWindow.Enable = True - oProgressBar.Value = 90 - DialogModel.imgTheme.ImageURL = FormPath & "FormWizard_1.bmp" - DialogModel.imgTheme.BackGroundColor = RGB(0,60,126) - ToggleDatabasePage(True) - oProgressBar.Value = 100 - DlgFormDB.GetControl("lstTables").SetFocus() - oProgressbar.End - RetValue = DlgFormDB.Execute() - DlgFormDB.Dispose() - If bDisposeDoc Then - Dim aPropertyValues(2) as new com.sun.star.beans.PropertyValue - oFormDocuments = oDataSource.getFormDocuments() - DlgFormDB.Dispose() - oDocument.dispose() - Dim bLinkExists as Boolean - i = 1 - Dim FormBaseName as String - FormBaseName = FormName - Do - bLinkExists = oFormDocuments.HasbyHierarchicalName(FormName) - If bLinkExists Then - i = i + 1 - FormName = FormBaseName & "_" & i - End If - Loop Until Not bLinkExists - aPropertyValues(0).Name = "Name" - aPropertyValues(0).Value = FormName - aPropertyValues(1).Name = "Parent" - aPropertyValues(1).Value = oFormDocuments() - aPropertyValues(2).Name = "URL" - aPropertyValues(2).Value = sFormUrl - Dim oDBDocument - oDBDocument = oFormDocuments.createInstanceWithArguments("com.sun.star.sdb.DocumentDefinition", aPropertyValues()) - oFormDocuments.insertbyName(FormName, oDBDocument) - ElseIf RetValue = 0 Then - RemoveNirwanaShapes() - End If - If ((Not IsNull(oDBConnection)) And (Not bConnectionIsovergiven)) Then - oDBConnection.Dispose() - End If -WIZARDERROR: - If Err <> 0 Then - Msgbox(sMsgErrMsg, 16, GetProductName()) - Resume LOCERROR - LOCERROR: - End If -End Sub - - -Sub FormGetFields() -Dim i as Integer -' If bSelectContent Then -' bSelectContent = False -' Exit Sub -' End If - DeleteFirstListBoxEntry("lstTables", sSelectDBTable) - ToggleDatabasePage(False) - FillUpFieldsListbox(True) - ToggleDatabasePage(True) -End Sub - - -Sub FillUpFieldsListbox(bGetCommandType as Boolean) -Dim SelIndex as Integer -Dim QueryIndex as Integer - If Not bDebug Then - On Local Error GoTo NOFIELDS - End If - SelIndex = DlgFormDB.GetControl("lstTables").getSelectedItemPos() '.SelectedItems()) - If SelIndex > -1 Then - If bGetCommandType Then - CurCommandType = iCommandTypes(SelIndex) - End If - If CurCommandType = com.sun.star.sdb.CommandType.QUERY Then - QueryIndex = SelIndex - Ubound(Tablenames()) - 1 - Tablename = QueryNames(QueryIndex) - oColumns = oDBConnection.Queries.GetByName(TableName).Columns - Else - Tablename = Tablenames(SelIndex) - oColumns = oDBConnection.Tables.GetByName(Tablename).Columns - End If - If GetSpecificFieldNames() <> -1 Then - ToggleListboxControls(DialogModel, True) - Exit Sub - End If - End If - EmptyFieldsListboxes() -NOFIELDS: - If Err <> 0 Then - MsgBox sMsgErrCouldNotOpenObject, 16, sMsgWizardName - End If -End Sub - - -Sub PreviousStep() - If Not bDebug Then - On Local Error GoTo WIZARDERROR - End If - With DialogModel - .Step = 1 - .cmdBack.Enabled = False - .cmdGoOn.Enabled = True - .lstSelFields.Tag = Not bControlsareCreated - .cmdGoOn.Label = sGoOn - .imgTheme.ImageUrl = FormPath & "FormWizard_1.bmp" - End With - FormSetMoveRights() -WIZARDERROR: - If Err <> 0 Then - Msgbox(sMsgErrMsg, 16, GetProductName()) - Resume LOCERROR - LOCERROR: - End If -End Sub - - -Sub NextStep() - If Not bDebug Then - On Local Error GoTo WIZARDERROR - End If - Select Case DialogModel.Step - Case 1 - bControlsAreCreated = Not (cBool(DialogModel.lstSelFields.Tag)) - If Not bControlsAreCreated Then - GetTableMetaData() - CreateDBForm() - RemoveShapes() - InitializeLayoutSettings() - oDBForm.Load - End If - DialogModel.cmdGoOn.Label = sReady - DialogModel.cmdBack.Enabled = True - DialogModel.Step = 2 - bDisposeDoc = False - Case 2 - StoreForm() - DlgFormDB.EndExecute() - exit Sub - End Select - DialogModel.imgTheme.ImageUrl = FormPath & "FormWizard_" & DialogModel.Step & ".bmp" - DlgFormDB.Title = WizardTitle(DialogModel.Step) -WIZARDERROR: - If Err <> 0 Then - Msgbox(sMsgErrMsg, 16, GetProductName()) - Resume LOCERROR - LOCERROR: - End If -End Sub - - -Sub InitializeLayoutSettings() - SwitchArrangementButtons(cTabled) - SwitchAlignMode(SBALIGNLEFT) - SwitchBorderMode(SB3DBORDER) - ToggleBorderGroup(bControlsAreCreated) - ToggleAlignGroup(bControlsAreCreated) - ArrangeControls() - If OldAlignMode <> 0 Then - DlgFormDB.GetControl("optAlign2").Model.State = 0 - End If -End Sub - - -Sub ToggleDatabasePage(bDoEnable as Boolean) - With DialogModel - .cmdBack.Enabled = False - .cmdHelp.Enabled = bDoEnable - .cmdGoOn.Enabled = Ubound(DialogModel.lstSelFields.StringItemList()) <> -1 - .hlnBinaries.Enabled = ((bDoEnable = True) And (bEnableBinaryOptionGroup = True)) - .optIgnoreBinaries.Enabled = ((bDoEnable = True) And (bEnableBinaryOptionGroup = True)) - .optBinariesasGraphics.Enabled = ((bDoEnable = True) And (bEnableBinaryOptionGroup = True)) - End With -End Sub - - -' This Sub is called from the Procedure "StoreDocument" in the "Tools" Library -Sub CommitLastDocumentChanges(sTargetPath as String) -Dim i as Integer -Dim sBookmarkName as String -Dim oDBBookmarks as Object -Dim bLinkExists as Boolean -Dim sBaseBookmarkName as String - sBookmarkName = GetFileNamewithoutExtension(FileNameoutofPath(sTargetPath)) - sBaseBookmarkName = sBookmarkName - oDBBookmarks = oDataSource.GetBookmarks() - i = 1 - Do - bLinkExists = oDBBookmarks.HasbyName(sBookmarkName) - If bLinkExists Then - i = i + 1 - sBookmarkName = sBaseBookmarkName & "_" & i - Else - oDBBookmarks.insertByName(sBookmarkName, sTargetPath) - End If - Loop Until Not bLinkExists - bDisposeDoc = False - GroupShapesTogether() - ToggleDesignMode(oDocument) - oDBForm.Reload() -End Sub - - -Sub StoreFormInDatabase() - Dim NoArgs() as new com.sun.star.beans.PropertyValue - FormName = "Form_" & sDBName & "_" & TableName & ".sxw" - sFormUrl = TempPath & "/" & FormName - oDocument.StoreAsUrl(sFormUrl, NoArgs()) - bdisposeDoc = true - DlgFormDB.Endexecute() -End Sub - - - -Sub StoreForm() -Dim sTargetPath as String -Dim TypeNames(0,2) as String -Dim oMasterKey as Object -Dim oTypes() as Object - oMasterKey = GetRegistryKeyContent("org.openoffice.TypeDetection.Types/") - oTypes() = oMasterKey.Types - TypeNames(0,0) = GetFilterName("StarOffice XML (Writer)") - TypeNames(0,1) = "*.sxw" - TypeNames(0,2) = "" - StoreFormInDatabase() -' sTargetPath = StoreDocument(oDocument, TypeNames(), "Form_" & sDBName & "_" & TableName & ".sxw", WorkPath, 1) -End Sub - - - -Sub EmptyFieldsListboxes() -Dim NullList() as String - ToggleListboxControls(DialogModel, False) - DialogModel.lstFields.StringItemList() = NullList() - DialogModel.lstSelFields.StringItemList() = NullList() - bEnableBinaryOptionGroup = False -End Sub - - -Sub DeleteFirstTableListBoxEntry() - DeleteFirstListBoxEntry("lstTables", sSelectDBTable) -End Sub - -Sub DeleteFirstListboxEntry(ListBoxName as String, DelEntryName as String) -Dim oListbox as Object -Dim sFirstItem as String -dim iSelPos as Integer - oListBox = DlgFormDB.getControl(ListBoxName) - sFirstItem = oListBox.getItem(0) - If sFirstItem = DelEntryName Then - iSelPos = oListBox.getSelectedItemPos() - oListBox.removeItems(0, 1) - If iSelPos > 0 Then - oListBox.selectItemPos(iSelPos-1, True) - End If - End If -End Sub -</script:module>
\ No newline at end of file diff --git a/wizards/source/formwizard/Language.xba b/wizards/source/formwizard/Language.xba deleted file mode 100644 index 2f2b7e3ec..000000000 --- a/wizards/source/formwizard/Language.xba +++ /dev/null @@ -1,285 +0,0 @@ -<?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="Language" script:language="StarBasic">Option Explicit - - -Global Const RID_COMMON = 1000 -Global Const RID_FORM = 2200 - -Public Const SBCANCEL = 2 -Public Const SBREPEAT = 4 -Public LabelDiffHeight as Long -Public BasicLabelDiffHeight as Long - -Public WizardTitle(1 To 3) as String -Public DlgFormDB as Object -Public DialogModel as Object - -Dim sMsgWizardName as String -Dim sMsgErrMsg as String -Dim sMsgErrNoDatabase as String -Dim sMsgErrNoTableInDatabase as String -Dim sMsgErrTitleSuggestedExist as String -Dim sMsgErrTitleSyntaxError as String -Dim sMsgErrTitleAsTableExist as String -Dim sMsgProgressText as String -Dim sMsgCreatedForm as String -Dim sMsgErrCouldNotOpenObject as String -Dim sMsgErrNameToLong as String -Dim sTimeAppendix as String -Dim sDateAppendix as String -Public sGoOn as String -Public sReady as String -Public sMsgNoConnection as String -Public sWriterFilterName as String -Public XPixelFactor as Long -Public YPixelFactor as Long -Public sSelectDatasource as String -Public sSelectDBTable as String - - - -Sub LoadLanguage () - sMsgWizardName = GetResText(RID_FORM + 0) - sMsgErrMsg = GetResText(RID_COMMON + 6) - sMsgErrNoDatabase = GetResText(RID_COMMON + 8) - sMsgErrNoTableInDatabase = GetResText(RID_COMMON + 9) - sMsgErrTitleSuggestedExist = GetResText(RID_COMMON + 10) - sMsgErrTitleAsTableExist = GetResText(RID_COMMON + 10) - sMsgErrTitleSyntaxError = GetResText(RID_COMMON + 11) - sMsgNoConnection = GetResText(RID_COMMON + 14 - sMsgProgressText = GetResText(RID_FORM + 2) - sMsgCreatedForm = GetResText(RID_FORM + 26) - sMsgErrNameToLong = GetResText (RID_FORM + 27) - sMsgErrCouldNotOpenObject = GetResText (RID_COMMON + 13) - - ' Internal Logic - sDateAppendix = GetResText(RID_FORM + 4) - sTimeAppendix = GetResText(RID_FORM + 5) - - sReady = GetResText(RID_COMMON + 0) -End Sub - - -Sub SetDialogLanguage () -Dim i as Integer -Dim ButtonHelpText as String -Dim CmdButton as Object -Dim IDArray as Variant -Dim FNameAddOn as String -Dim slblSelFields as String -Dim slblFields as String - - DlgFormDB = LoadDialog("FormWizard", "DlgFormDB") - DialogModel = DlgFormDB.Model - - With DialogModel - .cmdCancel.Label = GetResText(RID_COMMON + 1) - .cmdBack.Label = GetResText(RID_COMMON + 2) - .cmdHelp.Label = GetResText(RID_COMMON + 20) - sGoOn = GetResText(RID_COMMON + 3) - .cmdGoOn.Label = sGoOn - .lblTables.Label = GetResText(RID_FORM + 6) - - slblFields = GetResText(RID_FORM + 12) - slblSelFields = GetResText(RID_FORM + 13) - .lblFields.Label = slblFields - .lblSelFields.Label = slblSelFields - - .lblStyles.Label = GetResText(RID_FORM + 21) - .hlnBorderLayout.Label = GetResText(RID_FORM + 28) - .hlnAlign.Label = GetResText(RID_FORM + 32) - .hlnArrangements.Label = GetResText(RID_FORM + 35) - - WizardTitle(1) = sMsgWizardName & " - " & GetResText(RID_FORM + 45) - WizardTitle(2) = sMsgWizardName & " - " & GetResText(RID_FORM + 46) - WizardTitle(3) = sMsgWizardName & " - " & GetResText(RID_FORM + 47) - - .hlnBinaries.Label = GetResText(RID_FORM + 50) - .optIgnoreBinaries.Label = GetResText(RID_FORM + 51) - .optBinariesasGraphics.Label = GetResText(RID_FORM + 52) - - .hlnBackground.Label = GetResText(RID_FORM + 55) - .optTiled.Label = GetResText(RID_FORM + 56) - .optArea.Label = GetResText(RID_FORM + 57) - - .optBorder0.Label = GetResText(RID_FORM + 29) - .optBorder1.Label = GetResText(RID_FORM + 30) - .optBorder2.Label = GetResText(RID_FORM + 31) - .optBorder1.State = 1 - - .optAlign0.Label = GetResText(RID_FORM + 33) - .optAlign2.Label = GetResText(RID_FORM + 34) - .optAlign0.State = 1 - - //FIXME: Remove this unused FNameAddOn through the file - FNameAddOn = "" - - IDArray = Array(36, 37, 40, 38, 39) - For i = 1 To 5 - ButtonHelpText = GetResText(RID_FORM + IDArray(i-1) - cmdButton = DlgFormDB.getControl("cmdArrange" & i) - cmdButton.Model.ImageURL = FormPath & "Arrange_" & i & FNameAddOn & ".gif" - cmdButton.Model.HelpText = ButtonHelpText - cmdButton.getPeer().setProperty("AccessibleName", ButtonHelpText) - Next i -' .cmdArrange1.ImageURL = FormPath & "Arrange_1" & FNameAddOn & ".gif" -' .cmdArrange1.HelpText = GetResText(RID_FORM + 36) -' -' .cmdArrange2.ImageURL = FormPath & "Arrange_2" & FNameAddOn & ".gif" -' .cmdArrange2.HelpText = GetResText(RID_FORM + 37) -' -' .cmdArrange3.ImageURL = FormPath & "Arrange_3" & FNameAddOn & ".gif" -' .cmdArrange3.HelpText = GetResText(RID_FORM + 40) -' -' .cmdArrange4.ImageURL = FormPath & "Arrange_4" & FNameAddOn & ".gif" -' .cmdArrange4.HelpText = GetResText(RID_FORM + 38) -' -' .cmdArrange5.ImageURL = FormPath & "Arrange_5" & FNameAddOn & ".gif" -' .cmdArrange5.HelpText = GetResText(RID_FORM + 39) - sWriterFilterName = GetResText(RID_FORM + 70) - End With - DlgFormDB.GetControl("cmdMoveSelected").getPeer().setProperty("AccessibleName", GetResText(RID_COMMON + 39) - DlgFormDB.GetControl("cmdRemoveSelected").getPeer().setProperty("AccessibleName", GetResText(RID_COMMON + 40) - DlgFormDB.GetControl("cmdMoveAll").getPeer().setProperty("AccessibleName", GetResText(RID_COMMON + 41) - DlgFormDB.GetControl("cmdRemoveAll").getPeer().setProperty("AccessibleName", GetResText(RID_COMMON + 42) - DlgFormDB.getControl("lstFields").getPeer().setProperty("AccessibleName", DeleteStr(slblFields, "~")) - DlgFormDB.getControl("lstSelFields").getPeer().setProperty("AccessibleName", DeleteStr(slblSelFields, "~")) - - sSelectDatasource = GetResText(RID_COMMON + 37) - sSelectDBTable = GetResText(RID_COMMON + 38) -End Sub - - - -Sub InitializeWidthList() - - If Ubound(WidthList(),1) > 16 Then - ReDim WidthList(16,4) - End If - - WidthList(0,0) = com.sun.star.sdbc.DataType.BIT ' = -7; - WidthList(0,1) = cCheckbox - WidthList(0,2) = False - WidthList(0,3) = "CheckBox" - - WidthList(1,0) = com.sun.star.sdbc.DataType.TINYINT ' = -6; - WidthList(1,1) = cNumericBox - WidthList(1,2) = False - WidthList(1,3) = "FormattedField" - - WidthList(2,0) = com.sun.star.sdbc.DataType.SMALLINT ' = 5; - WidthList(2,1) = cNumericBox - WidthList(2,2) = False - WidthList(2,3) = "FormattedField" - - WidthList(3,0) = com.sun.star.sdbc.DataType.INTEGER ' = 4; - WidthList(3,1) = cNumericBox - WidthList(3,2) = False - WidthList(3,3) = "FormattedField" - - WidthList(4,0) = com.sun.star.sdbc.DataType.BIGINT ' = -5; - WidthList(4,1) = cNumericBox - WidthList(4,2) = False - WidthList(4,3) = "FormattedField" - - WidthList(5,0) = com.sun.star.sdbc.DataType.FLOAT ' = 6; - WidthList(5,1) = cNumericBox - WidthList(5,2) = False - WidthList(5,3) = "FormattedField" - - WidthList(6,0) = com.sun.star.sdbc.DataType.REAL ' = 7; - WidthList(6,1) = cNumericBox - WidthList(6,2) = False - WidthList(6,3) = "FormattedField" - - WidthList(7,0) = com.sun.star.sdbc.DataType.DOUBLE ' = 8; - WidthList(7,1) = cNumericBox - WidthList(7,2) = False - WidthList(7,3) = "FormattedField" - - WidthList(8,0) = com.sun.star.sdbc.DataType.NUMERIC ' = 2; - WidthList(8,1) = cNumericBox - WidthList(8,2) = False - WidthList(8,3) = "FormattedField" - - WidthList(9,0) = com.sun.star.sdbc.DataType.DECIMAL ' = 3; (including decimal places) - WidthList(9,1) = cNumericBox - WidthList(9,2) = False - WidthList(9,3) = "FormattedField" - - WidthList(10,0) = com.sun.star.sdbc.DataType.CHAR ' = 1; - WidthList(10,1) = cTextBox - WidthList(10,2) = False - WidthList(10,3) = "TextField" - - WidthList(11,0) = com.sun.star.sdbc.DataType.VARCHAR ' = 12; - WidthList(11,1) = cTextBox - WidthList(11,2) = True - WidthList(11,3) = "TextField" - - WidthList(12,0) = com.sun.star.sdbc.DataType.LONGVARCHAR ' = -1; - WidthList(12,1) = cTextBox - WidthList(12,2) = True - WidthList(12,3) = "TextField" - - WidthList(13,0) = com.sun.star.sdbc.DataType.DATE ' = 91; - WidthList(13,1) = cDateBox - WidthList(13,2) = False - WidthList(13,3) = "DateField" - - WidthList(14,0) = com.sun.star.sdbc.DataType.TIME ' = 92; - WidthList(14,1) = cTimeBox - WidthList(14,2) = False - WidthList(14,3) = "TimeField" - - WidthList(15,0) = com.sun.star.sdbc.DataType.TIMESTAMP ' = 93; - WidthList(15,1) = cDateBox - WidthList(15,2) = False - WidthList(15,3) = "DateField" - - WidthList(16,0) = com.sun.star.sdbc.DataType.BOOLEAN ' = 16; - WidthList(16,1) = cCheckbox - WidthList(16,2) = False - WidthList(16,3) = "CheckBox" - - ImgWidthList(0,0) = com.sun.star.sdbc.DataType.BINARY ' = -2; - ImgWidthList(0,1) = cImageControl - ImgWidthList(0,2) = False - ImgWidthList(0,3) = "ImageControl" - - ImgWidthList(1,0) = com.sun.star.sdbc.DataType.VARBINARY ' = -3; - ImgWidthList(1,1) = cImageControl - ImgWidthList(1,2) = False - ImgWidthList(1,3) = "ImageControl" - - ImgWidthList(2,0) = com.sun.star.sdbc.DataType.LONGVARBINARY ' = -4; - ImgWidthList(2,1) = cImageControl - ImgWidthList(2,2) = False - ImgWidthList(2,3) = "ImageControl" - - ImgWidthList(3,0) = com.sun.star.sdbc.DataType.BLOB ' = 2004; - ImgWidthList(3,1) = cImageControl - ImgWidthList(3,2) = False - ImgWidthList(3,3) = "ImageControl" - -' Note: the following Fieldtypes are ignored -'ExcludeList(0) = com.sun.star.sdbc.DataType.SQLNULL -'ExcludeList(1) = com.sun.star.sdbc.DataType.OTHER -'ExcludeList(2) = com.sun.star.sdbc.DataType.OBJECT -'ExcludeList(3) = com.sun.star.sdbc.DataType.DISTINCT -'ExcludeList(4) = com.sun.star.sdbc.DataType.STRUCT -'ExcludeList(5) = com.sun.star.sdbc.DataType.ARRAY -'ExcludeList(6) = com.sun.star.sdbc.DataType.CLOB -'ExcludeList(7) = com.sun.star.sdbc.DataType.REF - - oModelService(cLabel) = "com.sun.star.form.component.FixedText" - oModelService(cTextBox) = "com.sun.star.form.component.TextField" - oModelService(cCheckBox) = "com.sun.star.form.component.CheckBox" - oModelService(cDateBox) = "com.sun.star.form.component.DateField" - oModelService(cTimeBox) = "com.sun.star.form.component.TimeField" - oModelService(cNumericBox) = "com.sun.star.form.component.FormattedField" - oModelService(cGridControl) = "com.sun.star.form.component.GridControl" - oModelService(cImageControl) = "com.sun.star.form.component.DatabaseImageControl" -End Sub -</script:module> diff --git a/wizards/source/formwizard/Layouter.xba b/wizards/source/formwizard/Layouter.xba deleted file mode 100644 index ae10314bb..000000000 --- a/wizards/source/formwizard/Layouter.xba +++ /dev/null @@ -1,380 +0,0 @@ -<?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="Layouter" script:language="StarBasic">Option Explicit - -Public oProgressbar as Object -Public ProgressValue as Integer -Public oDocument as Object -Public oController as Object -Public oForm as Object -Public oDrawPage as Object -Public oPageStyle as Object - -Public nMaxColRightX as Long -Public nMaxTCWidth as Long -Public nMaxRowRightX as Long -Public nMaxRowY as Long -Public nSecMaxRowY as Long -Public MaxIndex as Integer -Public CurIndex as Integer - -Public Const cVertDistance = 200 -Public Const cHoriDistance = 300 - -Public nPageWidth as Long -Public nPageHeight as Long -Public nFormWidth as Long -Public nFormHeight as Long -Public nMaxHoriPos as Long -Public nMaxVertPos as Long - -Public CONST SBALIGNLEFT = 0 -Public CONST SBALIGNRIGHT = 2 - -Public Const SBNOBORDER = 0 -Public Const SB3DBORDER = 1 -Public Const SBSIMPLEBORDER = 2 - -Public CurArrangement as Integer -Public CurBorderType as Integer -Public CurAlignmode as Integer - -Public OldAlignMode as Integer -Public OldBorderType as Integer -Public OldArrangement as Integer - -Public Const cColumnarLeft = 1 -Public Const cColumnarTop = 2 -Public Const cTabled = 3 -Public Const cLeftJustified = 4 -Public Const cTopJustified = 5 - -Public Const cXOffset = 1000 -Public Const cYOffset = 700 -' This is the viewed space that we lose because of the symbol bars -Public Const cSymbolMargin = 2000 -Public Const MaxFieldIndex = 200 - -Public Const cControlCollectionCount = 9 -Public Const cLabel = 1 -Public Const cTextBox = 2 -Public Const cCheckBox = 3 -Public Const cDateBox = 4 -Public Const cTimeBox = 5 -Public Const cNumericBox = 6 -Public Const cCurrencyBox = 7 -Public Const cGridControl = 8 -Public Const cImageControl = 9 - -Public Styles(100, 8) as String - -Public CurControlType as Integer -Public CurFieldlength as Double -Public CurFieldType as Integer -Public CurFieldName as String -Public CurControlName as String -Public CurFormatKey as Long -Public CurDefaultValue -Public CurIsCurrency as Boolean -Public CurScale as Integer -Public CurHelpText as String - -Public FieldMetaValues(MaxFieldIndex, 8) -' Description of this List: -' CurFieldType = FieldMetaValues(Index,0) -' CurFieldLength = FieldMetaValues(Index,1) -' CurControlType = FieldMetaValues(Index,2) (ControlType eg. cLabel, cTextbox usw.) -' CurControlName = FieldMetaValues(Index,3) -' CurFormatKey = FieldMetaValues(Index,4) -' CurDefaultValue = FieldMetaValues(Index,5) -' CurIsCurrency = FieldMetaValues(Index,6) -' CurScale = FieldMetaValues(Index,7) -' CurHelpText = FieldMetaValues(Index,8) - -Public FieldNames(MaxFieldIndex) as string -Public oModelService(cControlCollectionCount) as String -Public oGridModel as Object - - -Function InsertControl(oContainer as Object, oControlObject as object, aPoint as Object, aSize as Object) -Dim oShape as object - oShape = oDocument.CreateInstance ("com.sun.star.drawing.ControlShape") - oShape.Size = aSize - oShape.Position = aPoint - oShape.AnchorType = com.sun.star.text.TextContentAnchorType.AT_PARAGRAPH - oShape.control = oControlObject - oContainer.Add(oShape) - InsertControl() = oShape -End Function - - -Function ArrangeControls() -Dim oShape as Object -Dim i as Integer - oProgressbar = oDocument.GetCurrentController.GetFrame.CreateStatusIndicator - oProgressbar.Start("", MaxIndex) - If oDBForm.HasbyName("Grid1") Then - RemoveShapes() - End If - ToggleLayoutPage(False) - Select Case CurArrangement - Case cTabled - PositionGridControl(MaxIndex) - Case Else - PositionControls(MaxIndex) - End Select - ToggleLayoutPage(True) - oProgressbar.End -End Function - - -Sub OpenFormDocument() -Dim NoArgs() as new com.sun.star.beans.PropertyValue -Dim oViewSettings as Object - oDocument = CreateNewDocument("swriter") - oProgressbar = oDocument.GetCurrentController.GetFrame.CreateStatusIndicator() - oProgressbar.Start("", 100) - oDocument.ApplyFormDesignMode = False - oController = oDocument.GetCurrentController - oViewSettings = oDocument.CurrentController.ViewSettings - oViewSettings.ShowTableBoundaries = False - oViewSettings.ShowOnlineLayout = True - oDrawPage = oDocument.DrawPage - oPageStyle = oDocument.StyleFamilies.GetByName("PageStyles").GetByName("Standard") -End Sub - - -Sub InitializeLabelValues() -Dim oLabelModel as Object -Dim oTBModel as Object -Dim oLabelShape as Object -Dim oTBShape as Object -Dim aTBSize As New com.sun.star.awt.Size -Dim aLabelSize As New com.sun.star.awt.Size -Dim aPoint As New com.sun.star.awt.Point -Dim aSize As New com.sun.star.awt.Size -Dim oLocControl as Object -Dim oLocPeer as Object - oLabelModel = CreateUnoService("com.sun.star.form.component.FixedText") - oTBModel = CreateUnoService("com.sun.star.form.component.TextField") - - Set oLabelShape = InsertControl(oDrawPage, oLabelModel, aPoint, aLabelSize) - Set oTBShape = InsertControl(oDrawPage, oTBModel, aPoint, aSize) - - oLocPeer = oController.GetControl(oLabelModel).Peer - XPixelFactor = 100000/oLocPeer.GetInfo.PixelPerMeterX - YPixelFactor = 100000/oLocPeer.GetInfo.PixelPerMeterY - aLabelSize = GetPeerSize(oLabelModel, oLocControl, "The quick brown fox...") - nTCHeight = (aLabelSize.Height+1) * YPixelFactor - aTBSize = GetPeerSize(oTBModel, oLocControl, "The quick brown fox...") - nDBRefHeight = (aTBSize.Height+1) * YPixelFactor - BasicLabelDiffHeight = Clng((nDBRefHeight - nTCHeight)/2) - oDrawPage.Remove(oLabelShape) - oDrawPage.Remove(oTBShape) -End Sub - - -Sub ConfigurePageStyle() -Dim aPageSize As New com.sun.star.awt.Size -Dim aSize As New com.sun.star.awt.Size - oPageStyle.IsLandscape = True - aPageSize = oPageStyle.Size - nPageWidth = aPageSize.Width - nPageHeight = aPageSize.Height - aSize.Width = nPageHeight - aSize.Height = nPageWidth - oPageStyle.Size = aSize - nPageWidth = nPageHeight - nPageHeight = oPageStyle.Size.Height - nFormWidth = nPageWidth - oPageStyle.RightMargin - oPageStyle.LeftMargin - 2 * cXOffset - nFormHeight = nPageHeight - oPageStyle.TopMargin - oPageStyle.BottomMargin - 2 * cYOffset - cSymbolMargin -End Sub - - -' Modify the Borders of the Controls -Sub ChangeBorderLayouts(oEvent as Object) -Dim oModel as Object -Dim i as Integer -Dim oCurModel as Object -Dim sLocText as String -Dim oGroupShape as Object -Dim s as Integer - If Not bDebug Then - On Local Error GoTo WIZARDERROR - End If - oModel = oEvent.Source.Model - SwitchBorderMode(Val(Right(oModel.Name,1))) - ToggleLayoutPage(False) - If CurArrangement = cTabled Then - oGridModel.Border = CurBorderType - Else - If OldBorderType <> CurBorderType Then - For i = 0 To MaxIndex - If oDBShapeList(i).SupportsService("com.sun.star.drawing.GroupShape") Then - oGroupShape = oDBShapeList(i) - For s = 0 To oGroupShape.Count-1 - oGroupShape(s).Control.Border = CurBorderType - Next s - Else - If oDBModelList(i).PropertySetInfo.HasPropertyByName("Border") Then - oDBModelList(i).Border = CurBorderType - End If - End If - Next i - End If - End If - ToggleLayoutPage(True) -WIZARDERROR: - If Err <> 0 Then - Msgbox(sMsgErrMsg, 16, GetProductName()) - Resume LOCERROR - LOCERROR: - DlgFormDB.Dispose() - End If -End Sub - - -Sub ChangeLabelAlignments(oEvent as Object) -Dim i as Integer -Dim oSize as New com.sun.star.awt.Size -Dim oModel as Object - If Not bDebug Then - On Local Error GoTo WIZARDERROR - End If - oModel = oEvent.Source.Model - SwitchAlignMode(Val(Right(oModel.Name,1))) - ToggleLayoutPage(False) - If OldAlignMode <> CurAlignMode Then - For i = 0 To MaxIndex - oTCShapeList(i).GetControl.Align = CurAlignmode - Next i - End If - If CurAlignmode = com.sun.star.awt.TextAlign.RIGHT Then - For i = 0 To Ubound(oTCShapeList()) - oSize = oTCShapeList(i).Size - oSize.Width = oDBShapeList(i).Position.X - oTCShapeList(i).Position.X - cHoriDistance - oTCShapeList(i).Size = oSize - Next i - End If - -WIZARDERROR: - If Err <> 0 Then - Msgbox(sMsgErrMsg, 16, GetProductName()) - Resume LOCERROR - LOCERROR: - End If - ToggleLayoutPage(True) -End Sub - - -Sub ChangeArrangemode(oEvent as Object) -Dim oModel as Object - If Not bDebug Then - On Local Error GoTo WIZARDERROR - End If - oModel = oEvent.Source.Model - SwitchArrangementButtons(Val(Right(oModel.Name,1))) - oModel.State = 1 - DlgFormDB.GetControl("cmdArrange" & OldArrangement).Model.State = 0 - If CurArrangement <> OldArrangement Then - ArrangeControls() - Select Case CurArrangement - Case cTabled - ToggleBorderGroup(False) - ToggleAlignGroup(False) - Case Else ' cColumnarTop,cLeftJustified, cTopJustified - ToggleAlignGroup(CurArrangement = cColumnarLeft) - If CurArrangement = cColumnarTop Then - If CurAlignMode = com.sun.star.awt.TextAlign.RIGHT Then - DialogModel.optAlign0.State = 1 - CurAlignMode = com.sun.star.awt.TextAlign.LEFT - OldAlignMode = com.sun.star.awt.TextAlign.RIGHT - End If - End If - ControlCaptionstoStandardLayout() - oDBForm.Load - End Select - End If -WIZARDERROR: - If Err <> 0 Then - Msgbox(sMsgErrMsg, 16, GetProductName()) - Resume LOCERROR - LOCERROR: - End If -End Sub - - -Sub ToggleBorderGroup(bDoEnable as Boolean) - With DialogModel - .hlnBorderLayout.Enabled = bDoEnable - .optBorder0.Enabled = bDoEnable ' 0: No border - .optBorder1.Enabled = bDoEnable ' 1: 3D border - .optBorder2.Enabled = bDoEnable ' 2: simple border - End With -End Sub - - -Sub ToggleAlignGroup(ByVal bDoEnable as Boolean) - With DialogModel - If bDoEnable Then - bDoEnable = CurArrangement = cColumnarLeft - End If - .hlnAlign.Enabled = bDoEnable - .optAlign0.Enabled = bDoEnable - .optAlign2.Enabled = bDoEnable - End With -End Sub - - -Sub ToggleLayoutPage(bDoEnable as Boolean, Optional FocusControlName as String) - DialogModel.Enabled = bDoEnable - If bDoEnable Then - If Not bDebug Then - oDocument.UnlockControllers() - End If - ToggleOptionButtons(DialogModel,(bWithBackGraphic = True)) - ToggleAlignGroup(bDoEnable) - ToggleBorderGroup(bDoEnable) - Else - If Not bDebug Then - oDocument.LockControllers() - End If - End If - If Not IsMissing(FocusControlName) Then - DlgFormDB.GetControl(FocusControlName).SetFocus() - End If -End Sub - - -Sub DestroyControlShapes(oDrawPage as Object) -Dim i as Integer -Dim oShape as Object - For i = oDrawPage.Count-1 To 0 Step -1 - oShape = oDrawPage.GetByIndex(i) - If oShape.ShapeType = "com.sun.star.drawing.ControlShape" Then - oShape.Dispose() - End If - Next i -End Sub - - -Sub SwitchArrangementButtons(ByVal LocArrangement as Integer) - OldArrangement = CurArrangement - CurArrangement = LocArrangement - If OldArrangement <> 0 Then - DlgFormDB.GetControl("cmdArrange" & OldArrangement).Model.State = 0 - End If - DlgFormDB.GetControl("cmdArrange" & CurArrangement).Model.State = 1 -End Sub - - -Sub SwitchBorderMode(ByVal LocBorderType as Integer) - OldBorderType = CurBorderType - CurBorderType = LocBorderType -End Sub - - -Sub SwitchAlignMode(ByVal LocAlignMode as Integer) - OldAlignMode = CurAlignMode - CurAlignMode = LocAlignMode -End Sub</script:module>
\ No newline at end of file diff --git a/wizards/source/formwizard/dbwizres.src b/wizards/source/formwizard/dbwizres.src deleted file mode 100644 index 160bb08d9..000000000 --- a/wizards/source/formwizard/dbwizres.src +++ /dev/null @@ -1,3518 +0,0 @@ -/************************************************************************* - * - * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. - * - * Copyright 2000, 2010 Oracle and/or its affiliates. - * - * OpenOffice.org - a multi-platform office productivity suite - * - * This file is part of OpenOffice.org. - * - * OpenOffice.org is free software: you can redistribute it and/or modify - * it under the terms of the GNU Lesser General Public License version 3 - * only, as published by the Free Software Foundation. - * - * OpenOffice.org is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU Lesser General Public License version 3 for more details - * (a copy is included in the LICENSE file that accompanied this code). - * - * You should have received a copy of the GNU Lesser General Public License - * version 3 along with OpenOffice.org. If not, see - * <http://www.openoffice.org/license.html> - * for a copy of the LGPLv3 License. - * - ************************************************************************/// common - -#define RID_COMMON_START 500 -#define RID_DB_COMMON_START 1000 - -// db wizards - -#define RID_DB_FORM_WIZARD_START 2200 -#define RID_DB_QUERY_WIZARD_START 2300 -#define RID_DB_REPORT_WIZARD_START 2400 -#define RID_DB_TABLE_WIZARD_START 2500 - - -#define RID_LETTERWIZARDDIALOG_START 3000 -#define RID_LETTERWIZARDGREETING_START 3080 -#define RID_LETTERWIZARDSALUTATION_START 3090 -#define RID_LETTERWIZARDROADMAP_START 3100 -#define RID_LETTERWIZARDLANGUAGE_START 3110 - - -#define RID_FAXWIZARDDIALOG_START 3200 -#define RID_FAXWIZARDCOMMUNICATION_START 3270 -#define RID_FAXWIZARDGREETING_START 3280 -#define RID_FAXWIZARDSALUTATION_START 3290 -#define RID_FAXWIZARDROADMAP_START 3300 - -// web wizard - -#define RID_WEBWIZARDDIALOG_START 4000 -#define RID_WEBWIZARDDIALOG_FTP 4200 - -// agenda wizard - -#define RID_AGENDAWIZARDDIALOG_START 5000 - - - -// ============================================================================ - -String RID_COMMON_START + 0 -{ - Text [ en-US ] = "The directory '%1' could not be created.<BR>There may not be enough space left on your hard disk."; -}; - -String RID_COMMON_START + 1 -{ - Text [ en-US] = "The text document could not be created.<BR>Please check if the module 'PRODUCTNAME Writer' is installed."; -}; - -String RID_COMMON_START + 2 -{ - Text [ en-US] = "The spreadsheet could not be created.<BR>Please check if the module 'PRODUCTNAME Calc' is installed."; -}; - -String RID_COMMON_START + 3 -{ - Text [ en-US] = "The presentation could not be created.<BR>Please check if the module 'PRODUCTNAME Impress' is installed."; -}; - -String RID_COMMON_START + 4 -{ - Text [ en-US] = "The drawing could not be created.<BR>Please check if the module 'PRODUCTNAME Draw' is installed."; -}; - -String RID_COMMON_START + 5 -{ - Text [ en-US] = "The formula could not be created.<BR>Please check if the module 'PRODUCTNAME Math' is installed."; -}; - -String RID_COMMON_START + 6 -{ - Text [ en-US] = "The files required could not be found.<BR>Please start the %PRODUCTNAME Setup and choose 'Repair'."; -}; - -String RID_COMMON_START + 7 -{ - Text [ en-US] = "The file '<PATH>' already exists.<BR><BR>Would you like to overwrite the existing file?"; -}; - -String RID_COMMON_START + 8 -{ - Text [ en-US] = "Yes"; -}; - -String RID_COMMON_START + 9 -{ - Text [ en-US] = "Yes to All"; -}; - -String RID_COMMON_START + 10 -{ - Text [ en-US] = "No"; -}; - -String RID_COMMON_START + 11 -{ - Text [ en-US] = "Cancel"; -}; - -String RID_COMMON_START + 12 -{ - Text [ en-US] = "~Finish"; -}; - -String RID_COMMON_START + 13 -{ - Text [ en-US] = "< ~Back"; -}; - -String RID_COMMON_START + 14 -{ - Text [ en-US] = "~Next >"; -}; - -String RID_COMMON_START + 15 -{ - Text [ en-US ] = "~Help"; -}; - -String RID_COMMON_START + 16 -{ - Text [ en-US] = "Steps"; -}; - -String RID_COMMON_START + 17 -{ - Text [ en-US] = "Close"; -}; - -String RID_COMMON_START + 18 -{ - Text [ en-US] = "OK"; -}; - -String RID_COMMON_START + 19 -{ - Text [ en-US] = "The file already exists. Do you want to overwrite it?"; -}; - -String RID_COMMON_START + 20 -{ - Text [ en-US] = "Template created via <wizard_name> on <current_date>."; -}; - -String RID_COMMON_START + 21 -{ - Text [ en-US] = "The wizard could not be run, because important files were not found.\nUnder 'Tools - Options - %PRODUCTNAME - Paths' click the 'Default' button to reset the paths to the original default settings.\nThen run the wizard again."; -}; - - -// end of common section ====================================================== - - -String RID_DB_COMMON_START + 0 -{ - Text [ en-US] = "C~reate"; -}; -String RID_DB_COMMON_START + 1 -{ - Text [ en-US] = "~Cancel"; -}; - -String RID_DB_COMMON_START + 2 -{ - Text [ en-US] = "<< ~Back"; -}; - -String RID_DB_COMMON_START + 3 -{ - Text [ en-US] = "~Next >>"; -}; -String RID_DB_COMMON_START + 4 -{ - Text [ en-US] = "~Database"; -}; -String RID_DB_COMMON_START + 5 -{ - Text [ en-US] = "~Table name"; -}; - -String RID_DB_COMMON_START + 6 -{ - Text [ en-US] = "An error occurred while running the wizard. The wizard will be terminated."; -}; - - -String RID_DB_COMMON_START + 14 -{ - Text [ en-US ] = "No connection to the database could be established."; -}; - -String RID_DB_COMMON_START + 20 -{ - Text [ en-US ] = "~Help"; -}; - -String RID_DB_COMMON_START + 21 -{ - Text [ en-US ] = "~Stop"; -}; - - -String RID_DB_COMMON_START + 30 -{ - Text[ en-US ] = "The document could not be saved."; -}; - - -String RID_DB_COMMON_START + 33 -{ - Text[ en-US ] = "Exiting the wizard"; -}; - -String RID_DB_COMMON_START + 34 -{ - Text[ en-US ] = "Connecting to data source..."; -}; - -String RID_DB_COMMON_START + 35 -{ - Text[ en-US ] = "The connection to the data source could not be established."; -}; - - -String RID_DB_COMMON_START + 36 -{ - Text[ en-US ] = "The file path entered is not valid."; -}; - - -String RID_DB_COMMON_START + 37 -{ - Text[ en-US ] = "Please select a data source"; -}; - -String RID_DB_COMMON_START + 38 -{ - Text[ en-US ] = "Please select a table or query"; -}; - -String RID_DB_COMMON_START + 39 -{ - Text[ en-US ] = "Add field"; -}; - -String RID_DB_COMMON_START + 40 -{ - Text[ en-US ] = "Remove field"; -}; - -String RID_DB_COMMON_START + 41 -{ - Text[ en-US ] = "Add all fields"; -}; - -String RID_DB_COMMON_START + 42 -{ - Text[ en-US ] = "Remove all fields"; -}; - -String RID_DB_COMMON_START + 43 -{ - Text[ en-US ] = "Move field up"; -}; - -String RID_DB_COMMON_START + 44 -{ - Text[ en-US ] = "Move field down"; -}; - -String RID_DB_COMMON_START + 45 -{ - Text [ en-US] = "The field names from '%NAME' could not be retrieved."; -}; - - - -// ============================================================================ -// Form Wizard -// ============================================================================ - -String RID_DB_FORM_WIZARD_START + 0 -{ - Text [ en-US ] = "Form Wizard"; -}; - -String RID_DB_FORM_WIZARD_START + 1 -{ - Text [ en-US ] = "Fields in ~the form"; -}; - -String RID_DB_FORM_WIZARD_START + 2 -{ - Text [ en-US ] = "Binary fields are always listed and selectable from the left list.\nIf possible, they are interpreted as images."; -}; - -String RID_DB_FORM_WIZARD_START + 3 -{ - Text [ en-US ] = "A subform is a form that is inserted in another form.\nUse subforms to show data from tables or queries with a one-to-many relationship."; -}; - -String RID_DB_FORM_WIZARD_START + 4 -{ - Text [ en-US ] = "~Add Subform"; -}; - -String RID_DB_FORM_WIZARD_START + 5 -{ - Text [ en-US ] = "~Subform based on existing relation"; -}; - -String RID_DB_FORM_WIZARD_START + 6 -{ - Text [ en-US ] = "Tables or queries"; -}; - -String RID_DB_FORM_WIZARD_START + 7 -{ - Text [ en-US ] = "Subform based on ~manual selection of fields"; -}; - -String RID_DB_FORM_WIZARD_START + 8 -{ - Text [ en-US ] = "~Which relation do you want to add?"; -}; - -String RID_DB_FORM_WIZARD_START + 9 -{ - Text [ en-US ] = "Fields in the ~subform"; -}; - -String RID_DB_FORM_WIZARD_START + 12 -{ - Text [ en-US ] = "~Available fields"; -}; - -String RID_DB_FORM_WIZARD_START + 13 -{ - Text [ en-US ] = "Fields in form"; -}; - - -String RID_DB_FORM_WIZARD_START + 19 -{ - Text [ en-US ] = "The join '<FIELDNAME1>' and '<FIELDNAME2>' has been selected twice.\nBut joins may only be used once."; -}; - -String RID_DB_FORM_WIZARD_START + 20 -{ - Text [ en-US ] = "~First joined subform field"; -}; - -String RID_DB_FORM_WIZARD_START + 21 -{ - Text [ en-US ] = "~Second joined subform field"; -}; - -String RID_DB_FORM_WIZARD_START + 22 -{ - Text [ en-US ] = "~Third joined subform field"; -}; - -String RID_DB_FORM_WIZARD_START + 23 -{ - Text [ en-US ] = "~Fourth joined subform field"; -}; - -String RID_DB_FORM_WIZARD_START + 24 -{ - Text [ en-US ] = "F~irst joined main form field"; -}; - -String RID_DB_FORM_WIZARD_START + 25 -{ - Text [ en-US ] = "S~econd joined main form field"; -}; - -String RID_DB_FORM_WIZARD_START + 26 -{ - Text [ en-US ] = "T~hird joined main form field"; -}; - -String RID_DB_FORM_WIZARD_START + 27 -{ - Text [ en-US ] = "F~ourth joined main form field"; -}; - - - -String RID_DB_FORM_WIZARD_START + 28 -{ - Text [ en-US ] = "Field border"; -}; - -String RID_DB_FORM_WIZARD_START + 29 -{ - Text [ en-US ] = "No border"; -}; - - -String RID_DB_FORM_WIZARD_START + 30 -{ - Text [ en-US ] = "3D look"; -}; - -String RID_DB_FORM_WIZARD_START + 31 -{ - Text [ en-US ] = "Flat"; -}; - -String RID_DB_FORM_WIZARD_START + 32 -{ - Text [ en-US ] = "Label placement"; -}; - -String RID_DB_FORM_WIZARD_START + 33 -{ - Text [ en-US ] = "Align left"; -}; - -String RID_DB_FORM_WIZARD_START + 34 -{ - Text [ en-US ] = "Align right"; -}; - -String RID_DB_FORM_WIZARD_START + 35 -{ - Text [ en-US ] = "Arrangement of DB fields"; -}; - -String RID_DB_FORM_WIZARD_START + 36 -{ - Text [ en-US ] = "Columnar - Labels Left"; -}; - -String RID_DB_FORM_WIZARD_START + 37 -{ - Text [ en-US ] = "Columnar - Labels on Top"; -}; - -String RID_DB_FORM_WIZARD_START + 38 -{ - Text [ en-US ] = "In Blocks - Labels Left"; -}; - -String RID_DB_FORM_WIZARD_START + 39 -{ - Text [ en-US ] = "In Blocks - Labels Above"; -}; - -String RID_DB_FORM_WIZARD_START + 40 -{ - Text [ en-US ] = "As Data Sheet"; -}; - - -String RID_DB_FORM_WIZARD_START + 41 -{ - Text [ en-US ] = "Arrangement of the main form"; -}; - -String RID_DB_FORM_WIZARD_START + 42 -{ - Text [ en-US ] = "Arrangement of the subform"; -}; - - -String RID_DB_FORM_WIZARD_START + 44 -{ - Text [ en-US ] = "The form is to be ~used for entering new data only."; -}; - -String RID_DB_FORM_WIZARD_START + 45 -{ - Text [ en-US ] = "Existing data will not be displayed "; -}; - -String RID_DB_FORM_WIZARD_START + 46 -{ - Text [ en-US ] = "T~he form is to display all data"; -}; - -String RID_DB_FORM_WIZARD_START + 47 -{ - Text [ en-US ] = "Do not allow ~modification of existing data"; -}; - -String RID_DB_FORM_WIZARD_START + 48 -{ - Text [ en-US ] = "Do not allow ~deletion of existing data"; -}; - -String RID_DB_FORM_WIZARD_START + 49 -{ - Text [ en-US ] = "Do not allow ~addition of new data"; -}; - - - -String RID_DB_FORM_WIZARD_START + 50 -{ - Text [ en-US ] = "Name of ~the form"; -}; - - - -String RID_DB_FORM_WIZARD_START + 51 -{ - Text [ en-US ] = "How do you want to proceed after creating the form?"; -}; - - -String RID_DB_FORM_WIZARD_START + 52 -{ - Text [ en-US ] = "~Work with the form"; -}; - -String RID_DB_FORM_WIZARD_START + 53 -{ - Text [ en-US ] = "~Modify the form"; -}; - - -String RID_DB_FORM_WIZARD_START + 55 -{ - Text [ en-US ] = "~Page Styles"; -}; - - - -String RID_DB_FORM_WIZARD_START + 80 -{ - Text [ en-US ] = "Field selection"; -}; - - -String RID_DB_FORM_WIZARD_START + 81 -{ - Text [ en-US ] = "Set up a subform"; -}; - - -String RID_DB_FORM_WIZARD_START + 82 -{ - Text [ en-US ] = "Add subform fields"; -}; - -String RID_DB_FORM_WIZARD_START + 83 -{ - Text [ en-US ] = "Get joined fields"; -}; - -String RID_DB_FORM_WIZARD_START + 84 -{ - Text [ en-US ] = "Arrange controls"; -}; - -String RID_DB_FORM_WIZARD_START + 85 -{ - Text [ en-US ] = "Set data entry"; -}; - -String RID_DB_FORM_WIZARD_START + 86 -{ - Text [ en-US ] = "Apply styles"; -}; - -String RID_DB_FORM_WIZARD_START + 87 -{ - Text [ en-US ] = "Set name"; -}; - -String RID_DB_FORM_WIZARD_START + 88 -{ - Text [ en-US ] = "(Date)"; -}; - -String RID_DB_FORM_WIZARD_START + 89 -{ - Text [ en-US ] = "(Time)"; -}; - - -String RID_DB_FORM_WIZARD_START + 90 -{ - Text [ en-US ] = "Select the fields of your form"; -}; - - -String RID_DB_FORM_WIZARD_START + 91 -{ - Text [ en-US ] = "Decide if you want to set up a subform"; -}; - -String RID_DB_FORM_WIZARD_START + 92 -{ - Text [ en-US ] = "Select the fields of your subform"; -}; - -String RID_DB_FORM_WIZARD_START + 93 -{ - Text [ en-US ] = "Select the joins between your forms"; -}; - -String RID_DB_FORM_WIZARD_START + 94 -{ - Text [ en-US ] = "Arrange the controls on your form"; -}; - -String RID_DB_FORM_WIZARD_START + 95 -{ - Text [ en-US ] = "Select the data entry mode"; -}; - -String RID_DB_FORM_WIZARD_START + 96 -{ - Text [ en-US ] = "Apply the style of your form"; -}; - -String RID_DB_FORM_WIZARD_START + 97 -{ - Text [ en-US ] = "Set the name of the form"; -}; - -String RID_DB_FORM_WIZARD_START + 98 -{ - Text [ en-US ] = "A form with the name '%FORMNAME' already exists.\nChoose another name."; -}; - - -// ============================================================================ - -String RID_DB_QUERY_WIZARD_START + 0 -{ - Text [ en-US ] = "Query Wizard"; -}; - -String RID_DB_QUERY_WIZARD_START + 1 -{ - Text [ en-US] = "Query"; -}; - - -String RID_DB_QUERY_WIZARD_START + 2 -{ - Text [ en-US] = "Query Wizard"; -}; - - -String RID_DB_QUERY_WIZARD_START + 3 -{ - Text [ en-US] = "~Tables"; -}; - -String RID_DB_QUERY_WIZARD_START + 4 -{ - Text [ en-US] = "A~vailable fields"; -}; - - -String RID_DB_QUERY_WIZARD_START + 5 -{ - Text [ en-US] = "Name ~of the query"; -}; - -String RID_DB_QUERY_WIZARD_START + 6 -{ - Text [ en-US] = "Display ~Query"; -}; - -String RID_DB_QUERY_WIZARD_START + 7 -{ - Text [ en-US] = "~Modify Query"; -}; - -String RID_DB_QUERY_WIZARD_START + 8 -{ - Text [ en-US] = "~How do you want to proceed after creating the query?"; -}; - - -String RID_DB_QUERY_WIZARD_START + 9 -{ - Text [ en-US] = "Match ~all of the following"; -}; - -String RID_DB_QUERY_WIZARD_START + 10 -{ - Text [ en-US] = "~Match any of the following"; -}; - -String RID_DB_QUERY_WIZARD_START + 11 -{ - Text [ en-US] = "~Detailed query (Shows all records of the query.)"; -}; - -String RID_DB_QUERY_WIZARD_START + 12 -{ - Text [ en-US] = "~Summary query (Shows only results of aggregate functions.)"; -}; - - -String RID_DB_QUERY_WIZARD_START + 16 -{ - Text [ en-US] = "Aggregate functions"; -}; - - -String RID_DB_QUERY_WIZARD_START + 17 -{ - Text [ en-US] = "Fields"; -}; - -String RID_DB_QUERY_WIZARD_START + 18 -{ - Text [ en-US] = "~Group by"; -}; - - -String RID_DB_QUERY_WIZARD_START + 19 -{ - Text [ en-US] = "Field"; -}; - -String RID_DB_QUERY_WIZARD_START + 20 -{ - Text [ en-US] = "Alias"; -}; - -String RID_DB_QUERY_WIZARD_START + 21 -{ - Text [ en-US] = "Table: "; -}; - - -String RID_DB_QUERY_WIZARD_START + 22 -{ - Text [ en-US] = "Query: "; -}; - - -String RID_DB_QUERY_WIZARD_START + 24 -{ - Text [ en-US] = "Condition"; -}; - -String RID_DB_QUERY_WIZARD_START + 25 -{ - Text [ en-US] = "Value"; -}; - -// -------------------------------------- -// don't change anything to the next 10 values -// they are list elements and need to be as follows -String RID_DB_QUERY_WIZARD_START + 26 -{ - Text [ en-US] = "is equal to"; -}; - -String RID_DB_QUERY_WIZARD_START + 27 -{ - Text [ en-US] = "is not equal to"; -}; - - -String RID_DB_QUERY_WIZARD_START + 28 -{ - Text [ en-US] = "is smaller than"; -}; - -String RID_DB_QUERY_WIZARD_START + 29 -{ - Text [ en-US] = "is greater than"; -}; - -String RID_DB_QUERY_WIZARD_START + 30 -{ - Text [ en-US] = "is equal or less than "; -}; - -String RID_DB_QUERY_WIZARD_START + 31 -{ - Text [ en-US] = "is equal or greater than"; -}; - -String RID_DB_QUERY_WIZARD_START + 32 -{ - Text [ en-US] = "like"; -}; - -String RID_DB_QUERY_WIZARD_START + 33 -{ - Text [ en-US] = "not like"; -}; - -String RID_DB_QUERY_WIZARD_START + 34 -{ - Text [ en-US] = "is null"; -}; - -String RID_DB_QUERY_WIZARD_START + 35 -{ - Text [ en-US] = "is not null"; -}; -// -------------------------------------- - -String RID_DB_QUERY_WIZARD_START + 36 -{ - Text [ en-US] = "true"; -}; - -String RID_DB_QUERY_WIZARD_START + 37 -{ - Text [ en-US] = "false"; -}; - -String RID_DB_QUERY_WIZARD_START + 38 -{ - Text [ en-US] = "and"; -}; - -String RID_DB_QUERY_WIZARD_START + 39 -{ - Text [ en-US] = "or"; -}; - - -String RID_DB_QUERY_WIZARD_START + 40 -{ - Text [ en-US] = "get the sum of"; -}; - -String RID_DB_QUERY_WIZARD_START + 41 -{ - Text [ en-US] = "get the average of"; -}; - - -String RID_DB_QUERY_WIZARD_START + 42 -{ - Text [ en-US] = "get the minimum of"; -}; - -String RID_DB_QUERY_WIZARD_START + 43 -{ - Text [ en-US] = "get the maximum of"; -}; - - -String RID_DB_QUERY_WIZARD_START + 44 -{ - Text [ en-US] = "get the sum of <FIELD>"; -}; - -String RID_DB_QUERY_WIZARD_START + 45 -{ - Text [ en-US] = "get the average of <FIELD>"; -}; - -String RID_DB_QUERY_WIZARD_START + 46 -{ - Text [ en-US] = "get the minimum of <FIELD>"; -}; - -String RID_DB_QUERY_WIZARD_START + 47 -{ - Text [ en-US] = "get the maximum of <FIELD>"; -}; - - -String RID_DB_QUERY_WIZARD_START + 48 -{ - Text [ en-US] = "(none)"; -}; - -String RID_DB_QUERY_WIZARD_START + 50 -{ - Text [ en-US] = "Fie~lds in the Query: "; -}; - - -String RID_DB_QUERY_WIZARD_START + 51 -{ - Text [ en-US] = "Sorting order: "; -}; - - -String RID_DB_QUERY_WIZARD_START + 52 -{ - Text [ en-US] = "No sorting fields were assigned."; - }; - - -String RID_DB_QUERY_WIZARD_START + 53 -{ - Text [ en-US] = "Search conditions: "; - }; - -String RID_DB_QUERY_WIZARD_START + 54 -{ - Text [ en-US] = "No conditions were assigned."; - }; - - -String RID_DB_QUERY_WIZARD_START + 55 -{ - Text [ en-US] = "Aggregate functions: "; - }; - - -String RID_DB_QUERY_WIZARD_START + 56 -{ - Text [ en-US] = "No aggregate functions were assigned."; - }; - - -String RID_DB_QUERY_WIZARD_START + 57 -{ - Text [ en-US] = "Grouped by: "; -}; - -String RID_DB_QUERY_WIZARD_START + 58 -{ - Text [ en-US] = "No Groups were assigned."; -}; - - -String RID_DB_QUERY_WIZARD_START + 59 -{ - Text [ en-US ] = "Grouping conditions: "; -}; - - -String RID_DB_QUERY_WIZARD_START + 60 -{ - Text [ en-US] = "No grouping conditions were assigned."; -}; - - -String RID_DB_QUERY_WIZARD_START + 70 -{ - Text [ en-US] = "Select the fields (columns) for your query"; -}; - -String RID_DB_QUERY_WIZARD_START + 71 -{ - Text [ en-US] = "Select the sorting order"; -}; - - -String RID_DB_QUERY_WIZARD_START + 72 -{ - Text [ en-US] = "Select the search conditions"; -}; - - -String RID_DB_QUERY_WIZARD_START + 73 -{ - Text [ en-US] = "Select the type of query"; -}; - -String RID_DB_QUERY_WIZARD_START + 74 -{ - Text [ en-US] = "Select the groups"; -}; - -String RID_DB_QUERY_WIZARD_START + 75 -{ - Text [ en-US] = "Select the grouping conditions"; -}; - - -String RID_DB_QUERY_WIZARD_START + 76 -{ - Text [ en-US] = "Assign aliases if desired"; -}; - - -String RID_DB_QUERY_WIZARD_START + 77 -{ - Text [ en-US] = "Check the overview and decide how to proceed"; -}; - - -String RID_DB_QUERY_WIZARD_START + 80 -{ - Text [ en-US] = "Field selection"; -}; - - -String RID_DB_QUERY_WIZARD_START + 81 -{ - Text [ en-US] = "Sorting order"; -}; - -String RID_DB_QUERY_WIZARD_START + 82 -{ - Text [ en-US] = "Search conditions"; -}; - -String RID_DB_QUERY_WIZARD_START + 83 -{ - Text [ en-US] = "Detail or summary"; -}; - -String RID_DB_QUERY_WIZARD_START + 84 -{ - Text [ en-US] = "Grouping"; -}; - -String RID_DB_QUERY_WIZARD_START + 85 -{ - Text [ en-US] = "Grouping conditions"; -}; - -String RID_DB_QUERY_WIZARD_START + 86 -{ - Text [ en-US] = "Aliases"; -}; - -String RID_DB_QUERY_WIZARD_START + 87 -{ - Text [ en-US] = "Overview"; -}; - - -String RID_DB_QUERY_WIZARD_START + 88 -{ - Text [ en-US] = "A field that has not been assigned an aggregate function must be used in a group."; -}; - - -String RID_DB_QUERY_WIZARD_START + 89 -{ - Text [ en-US] = "The condition '<FIELDNAME> <LOGICOPERATOR> <VALUE>' was chosen twice. Each condition can only be chosen once"; -}; - -String RID_DB_QUERY_WIZARD_START + 90 -{ - Text [ en-US] = "The aggregate function <FUNCTION> has been assigned twice to the fieldname '<NUMERICFIELD>'."; -}; - -String RID_DB_QUERY_WIZARD_START + 91 -{ - Text [ en-US] = ", "; -}; - -String RID_DB_QUERY_WIZARD_START + 92 -{ - Text [ en-US] = "<FIELDTITLE> (<FIELDNAME>)"; -}; - - -String RID_DB_QUERY_WIZARD_START + 93 -{ - Text [ en-US] = "<FIELDNAME> (<SORTMODE>)"; -}; - -String RID_DB_QUERY_WIZARD_START + 94 -{ - Text [ en-US] = "<FIELDNAME> <LOGICOPERATOR> <VALUE>"; -}; - -String RID_DB_QUERY_WIZARD_START + 95 -{ - Text [ en-US] = "<CALCULATEDFUNCTION> <FIELDNAME>"; -}; - - -String RID_DB_QUERY_WIZARD_START + 96 -{ - Text [ en-US] = "<FIELDNAME> <LOGICOPERATOR> <VALUE>"; -}; - - - - -// ============================================================================ - -String RID_DB_REPORT_WIZARD_START + 0 -{ - Text [ en-US ] = "Report Wizard"; -}; - - -String RID_DB_REPORT_WIZARD_START + 3 -{ - Text [ en-US ] = "~Table"; -}; - -String RID_DB_REPORT_WIZARD_START + 4 -{ - Text [ en-US ] = "Colu~mns"; -}; - - -String RID_DB_REPORT_WIZARD_START + 7 -{ - Text [ en-US ] = "Report_"; -}; - -String RID_DB_REPORT_WIZARD_START + 8 -{ - Text [ en-US ] = "- undefined -"; -}; - -String RID_DB_REPORT_WIZARD_START + 9 -{ - Text [ en-US ] = "~Fields in report"; -}; - - - -String RID_DB_REPORT_WIZARD_START + 11 -{ - Text [ en-US ] = "Grouping"; -}; - -String RID_DB_REPORT_WIZARD_START + 12 -{ - Text [ en-US ] = "Sort options"; -}; - -String RID_DB_REPORT_WIZARD_START + 13 -{ - Text [ en-US ] = "Choose layout"; -}; - - -String RID_DB_REPORT_WIZARD_START + 14 -{ - Text [ en-US ] = "Create report"; -}; - - -String RID_DB_REPORT_WIZARD_START + 15 -{ - Text [ en-US ] = "Layout of data"; -}; - -String RID_DB_REPORT_WIZARD_START + 16 -{ - Text [ en-US ] = "Layout of headers and footers"; -}; - - -String RID_DB_REPORT_WIZARD_START + 19 -{ - Text [ en-US ] = "Fields"; -}; - -String RID_DB_REPORT_WIZARD_START + 20 -{ - Text [ en-US ] = "~Sort by"; -}; - - -String RID_DB_REPORT_WIZARD_START + 21 -{ - Text [ en-US ] = "T~hen by"; -}; - - -String RID_DB_REPORT_WIZARD_START + 22 -{ - Text [ en-US ] = "Orientation"; -}; - -String RID_DB_REPORT_WIZARD_START + 23 -{ - Text [ en-US ] = "Portrait"; -}; - -String RID_DB_REPORT_WIZARD_START + 24 -{ - Text [ en-US ] = "Landscape"; -}; - - - -String RID_DB_REPORT_WIZARD_START + 28 -{ - Text [ en-US ] = "Which fields do you want to have in your report?"; -}; - - -String RID_DB_REPORT_WIZARD_START + 29 -{ - Text [ en-US ] = "Do you want to add grouping levels?"; -}; - - -String RID_DB_REPORT_WIZARD_START + 30 -{ - Text [ en-US ] = "According to which fields do you want to sort the data?"; -}; - - -String RID_DB_REPORT_WIZARD_START + 31 -{ - Text [ en-US ] = "How do you want your report to look?"; -}; - - -String RID_DB_REPORT_WIZARD_START + 32 -{ - Text [ en-US ] = "Decide how you want to proceed"; -}; - - -String RID_DB_REPORT_WIZARD_START + 33 -{ - Text [ en-US ] = "Title of report"; -}; - - -String RID_DB_REPORT_WIZARD_START + 34 -{ - Text [ en-US ] = "Display report"; -}; - -String RID_DB_REPORT_WIZARD_START + 35 -{ - Text [ en-US ] = "Create report"; -}; - -String RID_DB_REPORT_WIZARD_START + 36 -{ - Text [ en-US ] = "Ascending"; -}; - -String RID_DB_REPORT_WIZARD_START + 37 -{ - Text [ en-US ] = "Descending"; -}; - - -String RID_DB_REPORT_WIZARD_START + 40 -{ - Text [ en-US ] = "~Dynamic report"; -}; - - -String RID_DB_REPORT_WIZARD_START + 41 -{ - Text [ en-US ] = "~Create report now"; -}; - -String RID_DB_REPORT_WIZARD_START + 42 -{ - Text [ en-US ] = "~Modify report layout"; -}; - -String RID_DB_REPORT_WIZARD_START + 43 -{ - Text [ en-US ] = "Static report"; -}; - - -String RID_DB_REPORT_WIZARD_START + 44 -{ - Text [ en-US ] = "Save as"; -}; - - - -String RID_DB_REPORT_WIZARD_START + 50 -{ - Text [ en-US ] = "Groupings"; -}; - -String RID_DB_REPORT_WIZARD_START + 51 -{ - Text [ en-US ] = "Then b~y"; -}; - -String RID_DB_REPORT_WIZARD_START + 52 -{ - Text [ en-US ] = "~Then by"; -}; - -String RID_DB_REPORT_WIZARD_START + 53 -{ - Text [ en-US ] = "Asc~ending"; -}; - -String RID_DB_REPORT_WIZARD_START + 54 -{ - Text [ en-US ] = "Ascend~ing"; -}; - -String RID_DB_REPORT_WIZARD_START + 55 -{ - Text [ en-US ] = "Ascendin~g"; -}; - -String RID_DB_REPORT_WIZARD_START + 56 -{ - Text [ en-US ] = "De~scending"; -}; - -String RID_DB_REPORT_WIZARD_START + 57 -{ - Text [ en-US ] = "Des~cending"; -}; - -String RID_DB_REPORT_WIZARD_START + 58 -{ - Text [ en-US ] = "De~scending"; -}; - - -String RID_DB_REPORT_WIZARD_START + 60 -{ - Text [ en-US ] = "Binary fields cannot be displayed in the report."; -}; - - -String RID_DB_REPORT_WIZARD_START + 61 -{ - Text [ en-US ] = "The table '<TABLENAME>' does not exist."; -}; - -String RID_DB_REPORT_WIZARD_START + 62 -{ - Text [ en-US ] = "Creating Report..."; -}; - -String RID_DB_REPORT_WIZARD_START + 63 -{ - Text [ en-US ] = "Number of records inserted: <COUNT>"; -}; - -String RID_DB_REPORT_WIZARD_START + 64 -{ - Text [ en-US ] = "The form '<REPORTFORM>' does not exist."; -}; - -String RID_DB_REPORT_WIZARD_START + 65 -{ - Text [ en-US ] = "The query with the statement <BR>'<STATEMENT>' <BR> could not be run. <BR> Check your data source."; -}; - -String RID_DB_REPORT_WIZARD_START + 66 -{ - Text [ en-US ] = "The following hidden control in the form '<REPORTFORM>' could not be read: '<CONTROLNAME>'."; -}; - -String RID_DB_REPORT_WIZARD_START + 67 -{ - Text [ en-US ] = "Importing data..."; -}; - - -String RID_DB_REPORT_WIZARD_START + 68 -{ - Text [ en-US ] = "Labeling fields"; -}; - - -String RID_DB_REPORT_WIZARD_START + 69 -{ - Text [ en-US ] = "How do you want to label the fields?"; -}; - -String RID_DB_REPORT_WIZARD_START + 70 -{ - Text [ en-US ] = "Label"; -}; - - -String RID_DB_REPORT_WIZARD_START + 71 -{ - Text [ en-US ] = "Field"; -}; - - -String RID_DB_REPORT_WIZARD_START + 72 -{ - Text [ en-US ] = "An error occurred in the wizard.<BR>The template '%PATH' could be erroneous.<BR>Either the required sections or tables do not exist or exist under the wrong name.<BR>See the Help for more detailed information.<BR>Please select another template."; -}; - - -String RID_DB_REPORT_WIZARD_START + 73 -{ - Text [ en-US ] = "There is an invalid user field in a table."; -}; - - -String RID_DB_REPORT_WIZARD_START + 74 -{ - Text [ en-US ] = "The sort criterium '<FIELDNAME>' was chosen twice. Each criterium can only be chosen once."; -}; - - -String RID_DB_REPORT_WIZARD_START + 75 -{ - Text [ en-US ] = "Note: The dummy text will be replaced by data from the database when the report is created."; -}; - - -String RID_DB_REPORT_WIZARD_START + 76 -{ - Text [ en-US ] = "A report '%REPORTNAME' already exists in the database. Please assign another name."; -}; - - -String RID_DB_REPORT_WIZARD_START + 78 -{ - Text [ en-US ] = "How do you want to proceed after creating the report?"; -}; - -String RID_DB_REPORT_WIZARD_START + 79 -{ - Text [ en-US ] = "What kind of report do you want to create?"; -}; - -String RID_DB_REPORT_WIZARD_START + 80 -{ - Text [ en-US ] = "Tabular"; -}; -String RID_DB_REPORT_WIZARD_START + 81 -{ - Text [ en-US ] = "Columnar, single-column"; -}; -String RID_DB_REPORT_WIZARD_START + 82 -{ - Text [ en-US ] = "Columnar, two columns"; -}; -String RID_DB_REPORT_WIZARD_START + 83 -{ - Text [ en-US ] = "Columnar, three columns"; -}; -String RID_DB_REPORT_WIZARD_START + 84 -{ - Text [ en-US ] = "In blocks, labels left"; -}; -String RID_DB_REPORT_WIZARD_START + 85 -{ - Text [ en-US ] = "In blocks, labels above"; -}; -String RID_DB_REPORT_WIZARD_START + 86 -{ - Text [ en-US ] = "Title:"; -}; -String RID_DB_REPORT_WIZARD_START + 87 -{ - Text [ en-US ] = "Author:"; -}; -String RID_DB_REPORT_WIZARD_START + 88 -{ - Text [ en-US ] = "Date:"; -}; -String RID_DB_REPORT_WIZARD_START + 89 -{ - Text [ en-US ] = "Page #page# of #count#"; - Text [ x-comment ] = "Please don't translate the words #page# and #count#, these are placeholders."; -}; -String RID_DB_REPORT_WIZARD_START + 90 -{ - Text [ en-US ] = "Page number:"; -}; -String RID_DB_REPORT_WIZARD_START + 91 -{ - Text [ en-US ] = "Page count:"; -}; -String RID_DB_REPORT_WIZARD_START + 92 -{ - Text [ en-US ] = "No valid report template was found."; -}; - -// ============================================================================ - -String RID_DB_TABLE_WIZARD_START + 1 -{ - Text [ en-US] = "Table Wizard"; -}; - -String RID_DB_TABLE_WIZARD_START + 2 -{ - Text [ en-US] = "Select fields"; -}; - -String RID_DB_TABLE_WIZARD_START + 3 -{ - Text [ en-US] = "Set types and formats"; -}; - -String RID_DB_TABLE_WIZARD_START + 4 -{ - Text [ en-US] = "Set primary key"; -}; - -String RID_DB_TABLE_WIZARD_START + 5 -{ - Text [ en-US] = "Create table"; -}; - - -String RID_DB_TABLE_WIZARD_START + 8 -{ - Text [ en-US] = "Select fields for your table"; -}; - -String RID_DB_TABLE_WIZARD_START + 9 -{ - Text [ en-US] = "Set field types and formats"; -}; - -String RID_DB_TABLE_WIZARD_START + 10 -{ - Text [ en-US] = "Set primary key"; -}; - -String RID_DB_TABLE_WIZARD_START + 11 -{ - Text [ en-US] = "Create table"; -}; - - -String RID_DB_TABLE_WIZARD_START + 14 -{ - Text [ en-US] = "This wizard helps you to create a table for your database. After selecting a table category and a sample table, choose the fields you want to include in your table. You can include fields from more than one sample table."; -}; - -String RID_DB_TABLE_WIZARD_START + 15 -{ - Text [ en-US] = "Ca~tegory"; -}; - - -String RID_DB_TABLE_WIZARD_START + 16 -{ - Text [ en-US] = "B~usiness"; -}; - -String RID_DB_TABLE_WIZARD_START + 17 -{ - Text [ en-US] = "P~ersonal"; -}; - -String RID_DB_TABLE_WIZARD_START + 18 -{ - Text [ en-US] = "~Sample tables"; -}; - - -String RID_DB_TABLE_WIZARD_START + 19 -{ - Text [ en-US] = "A~vailable fields"; -}; - - -String RID_DB_TABLE_WIZARD_START + 20 -{ - Text [ en-US] = "Field information"; -}; - -String RID_DB_TABLE_WIZARD_START + 21 -{ - Text [ en-US] = "+"; -}; - -String RID_DB_TABLE_WIZARD_START + 22 -{ - Text [ en-US] = "-"; -}; - -String RID_DB_TABLE_WIZARD_START + 23 -{ - Text [ en-US] = "Field name"; -}; - -String RID_DB_TABLE_WIZARD_START + 24 -{ - Text [ en-US] = "Field type"; -}; - - -String RID_DB_TABLE_WIZARD_START + 25 -{ - Text [ en-US] = "~Selected fields"; -}; - - -String RID_DB_TABLE_WIZARD_START + 26 -{ - Text [ en-US] = "A primary key uniquely identifies each record in a database table. Primary keys ease the linking of information in separate tables, and it is recommended that you have a primary key in every table. Without a primary key, it will not be possible to enter data into this table."; -}; - -String RID_DB_TABLE_WIZARD_START + 27 -{ - Text [ en-US] = "~Create a primary key"; -}; - - -String RID_DB_TABLE_WIZARD_START + 28 -{ - Text [ en-US] = "~Automatically add a primary key"; -}; - -String RID_DB_TABLE_WIZARD_START + 29 -{ - Text [ en-US] = "~Use an existing field as a primary key"; -}; - -String RID_DB_TABLE_WIZARD_START + 30 -{ - Text [ en-US] = "Define p~rimary key as a combination of several fields "; -}; - -String RID_DB_TABLE_WIZARD_START + 31 -{ - Text [ en-US] = "F~ieldname"; -}; - - -String RID_DB_TABLE_WIZARD_START + 32 -{ - Text [ en-US] = "~Primary key fields"; -}; - - -String RID_DB_TABLE_WIZARD_START + 33 -{ - Text [ en-US] = "Auto ~value"; -}; - - -String RID_DB_TABLE_WIZARD_START + 34 -{ - Text [ en-US] = "What do you want to name your table?"; -}; - -String RID_DB_TABLE_WIZARD_START + 35 -{ - Text [ en-US] = "Congratulations. You have entered all the information needed to create your table."; -}; - - -String RID_DB_TABLE_WIZARD_START + 36 -{ - Text [ en-US] = "What do you want to do next?"; -}; - -String RID_DB_TABLE_WIZARD_START + 37 -{ - Text [ en-US] = "Modify the table design"; -}; - -String RID_DB_TABLE_WIZARD_START + 38 -{ - Text [ en-US] = "Insert data immediately"; -}; - -String RID_DB_TABLE_WIZARD_START + 39 -{ - Text [ en-US] = "C~reate a form based on this table"; -}; - -String RID_DB_TABLE_WIZARD_START + 40 -{ - Text [ en-US] = "The table you have created could not be opened."; -}; - -String RID_DB_TABLE_WIZARD_START + 41 -{ - Text [ en-US] = "The table name '%TABLENAME' contains a character ('%SPECIALCHAR') that might not be supported by the database."; -}; - - -String RID_DB_TABLE_WIZARD_START + 42 -{ - Text [ en-US] = "The field name '%FIELDNAME' contains a special character ('%SPECIALCHAR') that might not be supported by the database."; -}; - - -String RID_DB_TABLE_WIZARD_START + 43 -{ - Text [ en-US] = "Field"; -}; - -String RID_DB_TABLE_WIZARD_START + 44 -{ - Text [ en-US] = "MyTable"; -}; - -String RID_DB_TABLE_WIZARD_START + 45 -{ - Text [ en-US] = "Add a Field"; -}; - -String RID_DB_TABLE_WIZARD_START + 46 -{ - Text [ en-US] = "Remove the selected Field"; -}; - -String RID_DB_TABLE_WIZARD_START + 47 -{ - Text [ en-US] = "The field cannot be inserted because this would exceed the maximum number of %COUNT possible fields in the database table"; -}; - -String RID_DB_TABLE_WIZARD_START + 48 -{ - Text [ en-US] = "The name '%TABLENAME' already exists.\nPlease enter another name."; -}; - -String RID_DB_TABLE_WIZARD_START + 49 -{ - Text [ en-US] = "Catalog of the table"; -}; - -String RID_DB_TABLE_WIZARD_START + 50 -{ - Text [ en-US] = "Schema of the table"; -}; - -String RID_DB_TABLE_WIZARD_START + 51 -{ - Text [ en-US] = "The field '%FIELDNAME' already exists."; -}; - - - -// ============================================================================ -// ============================ ====================== -// ====================== LETTER WIZARD RESOURCES ================ -// ============================ ====================== -// ============================================================================ - - -String RID_LETTERWIZARDDIALOG_START + 1 -{ - Text [ en-US] = "Letter Wizard"; -}; - -String RID_LETTERWIZARDDIALOG_START + 2 -{ - Text [ en-US] = "Label9"; -}; - -String RID_LETTERWIZARDDIALOG_START + 3 -{ - Text [ en-US] = "~Business letter"; -}; - -String RID_LETTERWIZARDDIALOG_START + 4 -{ - Text [ en-US] = "~Formal personal letter"; -}; - -String RID_LETTERWIZARDDIALOG_START + 5 -{ - Text [ en-US] = "~Personal letter"; -}; - -String RID_LETTERWIZARDDIALOG_START + 6 -{ - Text [ en-US] = "~Use letterhead paper with pre-printed elements"; -}; - -String RID_LETTERWIZARDDIALOG_START + 7 -{ - Text [ en-US] = "~Logo"; -}; - -String RID_LETTERWIZARDDIALOG_START + 8 -{ - Text [ en-US] = "Return address"; -}; - -String RID_LETTERWIZARDDIALOG_START + 9 -{ - Text [ en-US] = "~Include footer"; -}; - -String RID_LETTERWIZARDDIALOG_START + 10 -{ - Text [ en-US] = "~Return address in envelope window"; -}; - -String RID_LETTERWIZARDDIALOG_START + 11 -{ - Text [ en-US] = "~Logo"; -}; - -String RID_LETTERWIZARDDIALOG_START + 12 -{ - Text [ en-US] = "~Return address in envelope window"; -}; - -String RID_LETTERWIZARDDIALOG_START + 13 -{ - Text [ en-US] = "Letter Signs"; -}; - -String RID_LETTERWIZARDDIALOG_START + 14 -{ - Text [ en-US] = "S~ubject line"; -}; - -String RID_LETTERWIZARDDIALOG_START + 15 -{ - Text [ en-US] = "Salu~tation"; -}; - -String RID_LETTERWIZARDDIALOG_START + 16 -{ - Text [ en-US] = "Fold ~marks"; -}; - -String RID_LETTERWIZARDDIALOG_START + 17 -{ - Text [ en-US] = "~Complimentary close"; -}; - -String RID_LETTERWIZARDDIALOG_START + 18 -{ - Text [ en-US] = "~Footer"; -}; - -String RID_LETTERWIZARDDIALOG_START + 19 -{ - Text [ en-US] = "~Use user data for return address"; -}; - -String RID_LETTERWIZARDDIALOG_START + 20 -{ - Text [ en-US] = "~New sender address:"; -}; - -String RID_LETTERWIZARDDIALOG_START + 21 -{ - Text [ en-US] = "Use placeholders for ~recipient's address"; -}; - -String RID_LETTERWIZARDDIALOG_START + 22 -{ - Text [ en-US] = "Use address database for ~mail merge"; -}; - -String RID_LETTERWIZARDDIALOG_START + 23 -{ - Text [ en-US] = "Include ~only on second and following pages"; -}; - -String RID_LETTERWIZARDDIALOG_START + 24 -{ - Text [ en-US] = "~Include page number"; -}; - -String RID_LETTERWIZARDDIALOG_START + 25 -{ - Text [ en-US] = "Letter Template"; -}; - -String RID_LETTERWIZARDDIALOG_START + 26 -{ - Text [ en-US] = "Create a ~letter from this template"; -}; - -String RID_LETTERWIZARDDIALOG_START + 27 -{ - Text [ en-US] = "Make ~manual changes to this letter template"; -}; - -String RID_LETTERWIZARDDIALOG_START + 28 -{ - Text [ en-US] = "Page design"; -}; - -String RID_LETTERWIZARDDIALOG_START + 29 -{ - Text [ en-US] = "Page design"; -}; - -String RID_LETTERWIZARDDIALOG_START + 30 -{ - Text [ en-US] = "Page design"; -}; - -String RID_LETTERWIZARDDIALOG_START + 31 -{ - Text [ en-US] = "This wizard helps you to create a letter template. You can then use the template as the basis for writing letters as often as desired."; -}; - -String RID_LETTERWIZARDDIALOG_START + 32 -{ - Text [ en-US] = "~Height:"; -}; - -String RID_LETTERWIZARDDIALOG_START + 33 -{ - Text [ en-US] = "~Width:"; -}; - -String RID_LETTERWIZARDDIALOG_START + 34 -{ - Text [ en-US] = "S~pacing to left margin:"; -}; - -String RID_LETTERWIZARDDIALOG_START + 35 -{ - Text [ en-US] = "Spacing ~to top margin:"; -}; - -String RID_LETTERWIZARDDIALOG_START + 36 -{ - Text [ en-US] = "Height:"; -}; - -String RID_LETTERWIZARDDIALOG_START + 37 -{ - Text [ en-US] = "Width:"; -}; - -String RID_LETTERWIZARDDIALOG_START + 38 -{ - Text [ en-US] = "S~pacing to left margin:"; -}; - -String RID_LETTERWIZARDDIALOG_START + 39 -{ - Text [ en-US] = "Spacing ~to top margin:"; -}; - -String RID_LETTERWIZARDDIALOG_START + 40 -{ - Text [ en-US] = "Height:"; -}; - -String RID_LETTERWIZARDDIALOG_START + 41 -{ - Text [ en-US] = "Use a typical letter format for this country:"; -}; - -String RID_LETTERWIZARDDIALOG_START + 42 -{ - Text [ en-US] = "Sender's address"; -}; - -String RID_LETTERWIZARDDIALOG_START + 43 -{ - Text [ en-US] = "Name:"; -}; - -String RID_LETTERWIZARDDIALOG_START + 44 -{ - Text [ en-US] = "Street:"; -}; - -String RID_LETTERWIZARDDIALOG_START + 45 -{ - Text [ en-US] = "ZIP code/State/City:"; -}; - -String RID_LETTERWIZARDDIALOG_START + 46 -{ - Text [ en-US] = "Recipient's address"; -}; - -String RID_LETTERWIZARDDIALOG_START + 47 -{ - Text [ en-US] = "Footer"; -}; - -String RID_LETTERWIZARDDIALOG_START + 48 -{ - Text [ en-US] = "This wizard creates a letter template which enables you to create multiple letters with the same layout and settings."; -}; - -String RID_LETTERWIZARDDIALOG_START + 49 -{ - Text [ en-US] = "To create another new letter out of the template just navigate to the template location and double-click it."; -}; - -String RID_LETTERWIZARDDIALOG_START + 50 -{ - Text [ en-US] = "Template name:"; -}; - -String RID_LETTERWIZARDDIALOG_START + 51 -{ - Text [ en-US] = "Location and file name:"; -}; - -String RID_LETTERWIZARDDIALOG_START + 52 -{ - Text [ en-US] = "How do you want to proceed?"; -}; - -String RID_LETTERWIZARDDIALOG_START + 53 -{ - Text [ en-US] = "Please choose the type of letter and page design"; -}; - -String RID_LETTERWIZARDDIALOG_START + 54 -{ - Text [ en-US] = "Select the items to be printed"; -}; - -String RID_LETTERWIZARDDIALOG_START + 55 -{ - Text [ en-US] = "Specify items already on your letterhead paper"; -}; - -String RID_LETTERWIZARDDIALOG_START + 56 -{ - Text [ en-US] = "Specify the sender and recipient information"; -}; - -String RID_LETTERWIZARDDIALOG_START + 57 -{ - Text [ en-US] = "Fill in the information you would like in the footer"; -}; - -String RID_LETTERWIZARDDIALOG_START + 58 -{ - Text [ en-US] = "Please specify last settings"; -}; - -//====================== Letter Wizard Greeting Start -String RID_LETTERWIZARDSALUTATION_START + 1 -{ - Text [ en-US] = "To Whom it May Concern"; -}; - -String RID_LETTERWIZARDSALUTATION_START + 2 -{ - Text [ en-US] = "Dear Sir or Madam"; -}; - -String RID_LETTERWIZARDSALUTATION_START + 3 -{ - Text [ en-US] = "Hello"; -}; - -//====================== Letter Wizard Greeting Start -String RID_LETTERWIZARDGREETING_START + 1 -{ - Text [ en-US] = "Sincerely"; -}; - -String RID_LETTERWIZARDGREETING_START + 2 -{ - Text [ en-US] = "Best regards"; -}; - -String RID_LETTERWIZARDGREETING_START + 3 -{ - Text [ en-US] = "Cheers"; -}; - - -//====================== Letter Wizard Roadmap Start -String RID_LETTERWIZARDROADMAP_START + 1 -{ - Text [ en-US] = "Page design"; -}; - -String RID_LETTERWIZARDROADMAP_START + 2 -{ - Text [ en-US] = "Letterhead layout"; -}; - -String RID_LETTERWIZARDROADMAP_START + 3 -{ - Text [ en-US] = "Printed items"; -}; - -String RID_LETTERWIZARDROADMAP_START + 4 -{ - Text [ en-US] = "Recipient and sender"; -}; - -String RID_LETTERWIZARDROADMAP_START + 5 -{ - Text [ en-US] = "Footer"; -}; - -String RID_LETTERWIZARDROADMAP_START + 6 -{ - Text [ en-US] = "Name and location"; -}; - - -// ============================================================================ -// ============================ ====================== -// ====================== FAX WIZARD RESOURCES ================ -// ============================ ====================== -// ============================================================================ - - -String RID_FAXWIZARDDIALOG_START + 1 -{ - Text [ en-US] = "Fax Wizard"; -}; - -String RID_FAXWIZARDDIALOG_START + 2 -{ - Text [ en-US] = "Label9"; -}; - -String RID_FAXWIZARDDIALOG_START + 3 -{ - Text [ en-US] = "~Business Fax"; -}; - -String RID_FAXWIZARDDIALOG_START + 4 -{ - Text [ en-US] = "~Personal Fax"; -}; - -String RID_FAXWIZARDDIALOG_START + 5 -{ - Text [ en-US] = "~Logo"; -}; - -String RID_FAXWIZARDDIALOG_START + 6 -{ - Text [ en-US] = "S~ubject line"; -}; - -String RID_FAXWIZARDDIALOG_START + 7 -{ - Text [ en-US] = "S~alutation"; -}; - -String RID_FAXWIZARDDIALOG_START + 8 -{ - Text [ en-US] = "~Complimentary close"; -}; - -String RID_FAXWIZARDDIALOG_START + 9 -{ - Text [ en-US] = "~Footer"; -}; - -String RID_FAXWIZARDDIALOG_START + 10 -{ - Text [ en-US] = "~Use user data for return address"; -}; - -String RID_FAXWIZARDDIALOG_START + 11 -{ - Text [ en-US] = "~New return address"; -}; - -String RID_FAXWIZARDDIALOG_START + 12 -{ - Text [ en-US] = "My Fax Template"; -}; - -String RID_FAXWIZARDDIALOG_START + 13 -{ - Text [ en-US] = "Create a ~fax from this template"; -}; - -String RID_FAXWIZARDDIALOG_START + 14 -{ - Text [ en-US] = "Make ~manual changes to this fax template"; -}; - -String RID_FAXWIZARDDIALOG_START + 15 -{ - Text [ en-US] = "Page design"; -}; - -String RID_FAXWIZARDDIALOG_START + 16 -{ - Text [ en-US] = "Page design"; -}; - -String RID_FAXWIZARDDIALOG_START + 17 -{ - Text [ en-US] = "This wizard helps you to create a fax template. The template can then be used to create a fax whenever needed."; -}; - -String RID_FAXWIZARDDIALOG_START + 18 -{ - Text [ en-US] = "Return address"; -}; - -String RID_FAXWIZARDDIALOG_START + 19 -{ - Text [ en-US] = "Name:"; -}; - -String RID_FAXWIZARDDIALOG_START + 20 -{ - Text [ en-US] = "Street:"; -}; - -String RID_FAXWIZARDDIALOG_START + 21 -{ - Text [ en-US] = "ZIP code/State/City:"; -}; - -String RID_FAXWIZARDDIALOG_START + 22 -{ - Text [ en-US] = "Footer"; -}; - -String RID_FAXWIZARDDIALOG_START + 23 -{ - Text [ en-US] = "This wizard creates a fax template which enables you to create multiple faxes with the same layout and settings."; -}; - -String RID_FAXWIZARDDIALOG_START + 24 -{ - Text [ en-US] = "To create another new fax out of the template, go to the location where you saved the template and double-click the file."; -}; - -String RID_FAXWIZARDDIALOG_START + 25 -{ - Text [ en-US] = "Template Name:"; -}; - -String RID_FAXWIZARDDIALOG_START + 26 -{ - Text [ en-US] = "Location and file name:"; -}; - -String RID_FAXWIZARDDIALOG_START + 27 -{ - Text [ en-US] = "What do you want to do next?"; -}; - -String RID_FAXWIZARDDIALOG_START + 28 -{ - Text [ en-US] = "Choose the type of fax and a page design"; -}; - -String RID_FAXWIZARDDIALOG_START + 29 -{ - Text [ en-US] = "Select items to include in the fax template"; -}; - -String RID_FAXWIZARDDIALOG_START + 30 -{ - Text [ en-US] = "Specify sender and recipient information"; -}; - -String RID_FAXWIZARDDIALOG_START + 31 -{ - Text [ en-US] = "Enter text for the footer"; -}; - -String RID_FAXWIZARDDIALOG_START + 32 -{ - Text [ en-US] = "Choose a name and save the template"; -}; - -String RID_FAXWIZARDDIALOG_START + 33 -{ - Text [ en-US] = "Include ~only on second and following pages"; -}; - -String RID_FAXWIZARDDIALOG_START + 34 -{ - Text [ en-US] = "~Include page number"; -}; - -String RID_FAXWIZARDDIALOG_START + 35 -{ - Text [ en-US] = "~Date"; -}; - -String RID_FAXWIZARDDIALOG_START + 36 -{ - Text [ en-US] = "~Type of message"; -}; - -String RID_FAXWIZARDDIALOG_START + 37 -{ - Text [ en-US] = "Fax Number:"; -}; - -String RID_FAXWIZARDDIALOG_START + 38 -{ - Text [ en-US] = "Use placeholders for ~recipient's address"; -}; - -String RID_FAXWIZARDDIALOG_START + 39 -{ - Text [ en-US] = "Use address database for ~mail merge"; -}; - -String RID_FAXWIZARDDIALOG_START + 40 -{ - Text [ en-US] = "~New return address"; -}; - -//====================== Fax Wizard Communication Start -String RID_FAXWIZARDCOMMUNICATION_START + 1 -{ - Text [ en-US] = "Important Information!"; -}; - -String RID_FAXWIZARDCOMMUNICATION_START + 2 -{ - Text [ en-US] = "For your information"; -}; - -String RID_FAXWIZARDCOMMUNICATION_START + 3 -{ - Text [ en-US] = "News!"; -}; - -//====================== Fax Wizard Salutation Start -String RID_FAXWIZARDSALUTATION_START + 1 -{ - Text [ en-US] = "To whom it may concern,"; -}; - -String RID_FAXWIZARDSALUTATION_START + 2 -{ - Text [ en-US] = "Dear Sir or Madam,"; -}; - -String RID_FAXWIZARDSALUTATION_START + 3 -{ - Text [ en-US] = "Hello,"; -}; - -String RID_FAXWIZARDSALUTATION_START + 4 -{ - Text [ en-US] = "Hi,"; -}; - - -//====================== Fax Wizard Greeting Start -String RID_FAXWIZARDGREETING_START + 1 -{ - Text [ en-US] = "Sincerely"; -}; - -String RID_FAXWIZARDGREETING_START + 2 -{ - Text [ en-US] = "Yours faithfully"; -}; - -String RID_FAXWIZARDGREETING_START + 3 -{ - Text [ en-US] = "Regards"; -}; - -String RID_FAXWIZARDGREETING_START + 4 -{ - Text [ en-US] = "Love"; -}; - - -//====================== Fax Wizard Roadmap Start -String RID_FAXWIZARDROADMAP_START + 1 -{ - Text [ en-US] = "Page design"; -}; - -String RID_FAXWIZARDROADMAP_START + 2 -{ - Text [ en-US] = "Items to include"; -}; - -String RID_FAXWIZARDROADMAP_START + 3 -{ - Text [ en-US] = "Sender and Recipient"; -}; - -String RID_FAXWIZARDROADMAP_START + 4 -{ - Text [ en-US] = "Footer"; -}; - -String RID_FAXWIZARDROADMAP_START + 5 -{ - Text [ en-US] = "Name and location"; -}; - - - - -// ============================================================================ -// ============================ ====================== -// ====================== WEB WIZARD RESOURCES ================ -// ============================ ====================== -// ============================================================================ - - -String RID_WEBWIZARDDIALOG_START +1 -{ - Text [ en-US ] = "Web Wizard"; -}; - -String RID_WEBWIZARDDIALOG_START +2 -{ - Text [ en-US ] = "This Web Wizard is to aid you in publishing documents on the Internet.\n\nIt will convert the documents so that they can be viewed by a web browser. In addition, it will generate a Table of Contents page with links for easy access to the documents. The Web Wizard will also allow you to customize the design and layout of your web site.\n\nYou will be able to keep the documents you have published on the web up-to-date and add or remove documents at any time."; -}; - -String RID_WEBWIZARDDIALOG_START +4 -{ - Text [ en-US ] = "~Delete"; -}; - -String RID_WEBWIZARDDIALOG_START +5 -{ - Text [ en-US ] = "Introduction"; -}; - -String RID_WEBWIZARDDIALOG_START +6 -{ - Text [ en-US ] = "Select the documents you want to publish"; -}; - -String RID_WEBWIZARDDIALOG_START +8 -{ - Text [ en-US ] = "Document information "; -}; - -String RID_WEBWIZARDDIALOG_START +9 -{ - Text [ en-US ] = "~Title:"; -}; - -String RID_WEBWIZARDDIALOG_START +10 -{ - Text [ en-US ] = "~Summary: "; -}; - -String RID_WEBWIZARDDIALOG_START +11 -{ - Text [ en-US ] = "Au~thor:"; -}; - -String RID_WEBWIZARDDIALOG_START +12 -{ - Text [ en-US ] = "~Export to file format:"; -}; - -String RID_WEBWIZARDDIALOG_START +13 -{ - Text [ en-US ] = "Enter general information for your web site"; -}; - -String RID_WEBWIZARDDIALOG_START +14 -{ - Text [ en-US ] = "Title:"; -}; - -String RID_WEBWIZARDDIALOG_START +16 -{ - Text [ en-US ] = "Description:"; -}; - -String RID_WEBWIZARDDIALOG_START +18 -{ - Text [ en-US ] = "Created:"; -}; - -String RID_WEBWIZARDDIALOG_START +20 -{ - Text [ en-US ] = "E-mail:"; -}; - -String RID_WEBWIZARDDIALOG_START +21 -{ - Text [ en-US ] = "Copyright notice:"; -}; - -String RID_WEBWIZARDDIALOG_START +22 -{ - Text [ en-US ] = "Modified:"; -}; - - -String RID_WEBWIZARDDIALOG_START +24 -{ - Text [ en-US ] = "~Preview"; -}; - -String RID_WEBWIZARDDIALOG_START +25 -{ - Text [ en-US ] = "Where do you want to publish your web site?"; -}; - -String RID_WEBWIZARDDIALOG_START +26 -{ - Text [ en-US ] = "Publish the new web site:"; -}; - -String RID_WEBWIZARDDIALOG_START +27 -{ - Text [ en-US ] = "To a ~local folder"; -}; - -String RID_WEBWIZARDDIALOG_START +28 -{ - Text [ en-US ] = "..."; -}; - -String RID_WEBWIZARDDIALOG_START +29 -{ - Text [ en-US ] = "To a ~web server via FTP"; -}; - -String RID_WEBWIZARDDIALOG_START +31 -{ - Text [ en-US ] = "~Configure..."; -}; - -String RID_WEBWIZARDDIALOG_START +32 -{ - Text [ en-US ] = "To a ZIP ~archive"; -}; - -String RID_WEBWIZARDDIALOG_START +33 -{ - Text [ en-US ] = "..."; -}; - -String RID_WEBWIZARDDIALOG_START +34 -{ - Text [ en-US ] = "~Save settings (recommended)"; -}; - -String RID_WEBWIZARDDIALOG_START +35 -{ - Text [ en-US ] = "Save ~as:"; -}; - -String RID_WEBWIZARDDIALOG_START +36 -{ - Text [ en-US ] = "~Choose settings for the Web Wizard"; -}; - -String RID_WEBWIZARDDIALOG_START +37 -{ - Text [ en-US ] = "Web site content "; -}; - -String RID_WEBWIZARDDIALOG_START +38 -{ - Text [ en-US ] = "~Add..."; -}; - -String RID_WEBWIZARDDIALOG_START +39 -{ - Text [ en-US ] = "Remo~ve"; -}; - -String RID_WEBWIZARDDIALOG_START +40 -{ - Text [ en-US ] = "Choose a layout for the table of contents of your web site"; -}; - -String RID_WEBWIZARDDIALOG_START +41 -{ - Text [ en-US ] = "Select a style for the table of contents page"; -}; - -String RID_WEBWIZARDDIALOG_START +42 -{ - Text [ en-US ] = "~Style:"; -}; - -String RID_WEBWIZARDDIALOG_START +48 -{ - Text [ en-US ] = "~Layouts: "; -}; - -String RID_WEBWIZARDDIALOG_START +50 -{ - Text [ en-US ] = "~Description"; -}; - -String RID_WEBWIZARDDIALOG_START +51 -{ - Text [ en-US ] = "~Author"; -}; - -String RID_WEBWIZARDDIALOG_START +52 -{ - Text [ en-US ] = "Cr~eation date"; -}; - -String RID_WEBWIZARDDIALOG_START +53 -{ - Text [ en-US ] = "~Last change date"; -}; - -String RID_WEBWIZARDDIALOG_START +54 -{ - Text [ en-US ] = "~File name"; -}; - -String RID_WEBWIZARDDIALOG_START +55 -{ - Text [ en-US ] = "File forma~t"; -}; - -String RID_WEBWIZARDDIALOG_START +56 -{ - Text [ en-US ] = "File format ~icon"; -}; - -String RID_WEBWIZARDDIALOG_START +57 -{ - Text [ en-US ] = "Number ~of pages"; -}; - -String RID_WEBWIZARDDIALOG_START +58 -{ - Text [ en-US ] = "~Size in KB"; -}; - -String RID_WEBWIZARDDIALOG_START +59 -{ - Text [ en-US ] = "Click 'Preview' to see a preview in your browser:"; -}; - -String RID_WEBWIZARDDIALOG_START +60 -{ - Text [ en-US ] = "Customize the selected layout"; -}; - -String RID_WEBWIZARDDIALOG_START +61 -{ - Text [ en-US ] = "Include the following information for each document in the table of contents:"; -}; - -String RID_WEBWIZARDDIALOG_START +62 -{ - Text [ en-US ] = "Optimize the layout for screen resolution:"; -}; - -String RID_WEBWIZARDDIALOG_START +64 -{ - Text [ en-US ] = "~640x480"; -}; - -String RID_WEBWIZARDDIALOG_START +65 -{ - Text [ en-US ] = "~800x600"; -}; - -String RID_WEBWIZARDDIALOG_START +66 -{ - Text [ en-US ] = "~1024x768"; -}; - -String RID_WEBWIZARDDIALOG_START +70 -{ - Text [ en-US ] = "Generating Your Web Site"; -}; - -String RID_WEBWIZARDDIALOG_START +71 -{ - Text [ en-US ] = "%START - %END/%TOTAL"; -}; - -String RID_WEBWIZARDDIALOG_START +72 -{ - Text [ en-US ] = "myWebsite"; -}; - -String RID_WEBWIZARDDIALOG_START +73 -{ - Text [ en-US ] = "FTP target '%FILENAME' is a file."; -}; - - -String RID_WEBWIZARDDIALOG_START +74 -{ - Text [ en-US ] = "The local target '%FILENAME' is a file."; -}; - -String RID_WEBWIZARDDIALOG_START +75 -{ - Text [ en-US ] = "The ZIP target '%FILENAME' already exists. Do you want to overwrite the existing target? "; -}; - -String RID_WEBWIZARDDIALOG_START +76 -{ - Text [ en-US ] = "The FTP target directory '%FILENAME' is not empty. Some files might be overwritten. Do you want to continue?"; -}; - -String RID_WEBWIZARDDIALOG_START +77 -{ - Text [ en-US ] = "The local target directory '%FILENAME' is not empty. Some files might be overwritten. Do you want to continue?"; -}; - -String RID_WEBWIZARDDIALOG_START +78 -{ - Text [ en-US ] = "Settings already exist under the given name. Do you want to overwrite the existing settings? "; -}; - -String RID_WEBWIZARDDIALOG_START +79 -{ - Text [ en-US ] = "Exporting documents..."; -}; - -String RID_WEBWIZARDDIALOG_START +80 -{ - Text [ en-US ] = "Preparing export..."; -}; - -String RID_WEBWIZARDDIALOG_START +81 -{ - Text [ en-US ] = "Copying layout files..."; -}; - -String RID_WEBWIZARDDIALOG_START +82 -{ - Text [ en-US ] = "Preparing table of contents generation..."; -}; - -String RID_WEBWIZARDDIALOG_START +83 -{ - Text [ en-US ] = "Generating table of contents..."; -}; - -String RID_WEBWIZARDDIALOG_START +84 -{ - Text [ en-US ] = "Initializing..."; -}; - -String RID_WEBWIZARDDIALOG_START +86 -{ - Text [ en-US ] = "Preparing to publish..."; -}; - -String RID_WEBWIZARDDIALOG_START +87 -{ - Text [ en-US ] = "Publishing to local directory..."; -}; - -String RID_WEBWIZARDDIALOG_START +88 -{ - Text [ en-US ] = "Publishing to FTP destination..."; -}; - -String RID_WEBWIZARDDIALOG_START +89 -{ - Text [ en-US ] = "Publishing to a ZIP archive..."; -}; - -String RID_WEBWIZARDDIALOG_START + 90 -{ - Text [ en-US ] = "Finishing..."; -}; - -String RID_WEBWIZARDDIALOG_START + 94 -{ - Text [ en-US ] = "Graphic files"; -}; - -String RID_WEBWIZARDDIALOG_START + 95 -{ - Text [ en-US ] = "All files"; -}; - -String RID_WEBWIZARDDIALOG_START + 96 -{ - Text [ en-US ] = "~ZIP archive files"; -}; - -String RID_WEBWIZARDDIALOG_START + 98 -{ - Text [ en-US ] = "Background images"; -}; - -String RID_WEBWIZARDDIALOG_START + 99 -{ - Text [ en-US ] = "Choose a background image: "; -}; - -String RID_WEBWIZARDDIALOG_START + 100 -{ - Text [ en-US ] = "Icon sets"; -}; - -String RID_WEBWIZARDDIALOG_START + 101 -{ - Text [ en-US ] = "Choose an icon set:"; -}; - -String RID_WEBWIZARDDIALOG_START +102 -{ - Text [ en-US ] = "Other..."; -}; - -String RID_WEBWIZARDDIALOG_START +103 -{ - Text [ en-US ] = "None"; -}; - -String RID_WEBWIZARDDIALOG_START +104 -{ - Text [ en-US ] = "Your web site was created successfully into: %FILENAME"; -}; - -String RID_WEBWIZARDDIALOG_START +105 -{ - Text [ en-US ] = "One or more errors occurred when generating the web site."; -}; - -String RID_WEBWIZARDDIALOG_START +106 -{ - Text [ en-US ] = "An error occurred while generating the table of contents page(s). "; -}; - -String RID_WEBWIZARDDIALOG_START +107 -{ - Text [ en-US ] = "An error occurred while copying the layout files. "; -}; - -String RID_WEBWIZARDDIALOG_START +108 -{ - Text [ en-US ] = "An error occurred while gathering document information for '%FILENAME'. "; -}; - -String RID_WEBWIZARDDIALOG_START +109 -{ - Text [ en-US ] = "An error occurred while exporting the document '%FILENAME'."; -}; - -String RID_WEBWIZARDDIALOG_START +110 -{ - Text [ en-US ] = "An error occurred while creating a directory for exporting '%FILENAME'."; -}; - -String RID_WEBWIZARDDIALOG_START +111 -{ - Text [ en-US ] = "A security error occurred while exporting the document '%FILENAME'."; -}; - -String RID_WEBWIZARDDIALOG_START +112 -{ - Text [ en-US ] = "An input/output error occurred while exporting the document '%FILENAME'."; -}; - -String RID_WEBWIZARDDIALOG_START +113 -{ - Text [ en-US ] = "An error occurred while copying media files to the temporary directory."; -}; - -String RID_WEBWIZARDDIALOG_START +114 -{ - Text [ en-US ] = "The web site could not be copied to the following destination: %URL"; -}; - -String RID_WEBWIZARDDIALOG_START +115 -{ - Text [ en-US ] = "An unexpected error occurred: %ERROR"; -}; - -String RID_WEBWIZARDDIALOG_START +116 -{ - Text [ en-US ] = "An unexpected error occurred while validating the file: '%FILENAME'"; -}; - -String RID_WEBWIZARDDIALOG_START +117 -{ - Text [ en-US ] = "%FILENAME' is a folder."; -}; - -String RID_WEBWIZARDDIALOG_START +118 -{ - Text [ en-US ] = "Loading Web Wizard Settings..."; -}; - -String RID_WEBWIZARDDIALOG_START +119 -{ - Text [ en-US ] = "An unexpected error occurred."; -}; - -String RID_WEBWIZARDDIALOG_START +120 -{ - Text [ en-US ] = "Validating documents..."; -}; - -String RID_WEBWIZARDDIALOG_START +121 -{ - Text [ en-US ] = "My Archive"; -}; - -String RID_WEBWIZARDDIALOG_START +122 -{ - Text [ en-US ] = "Introduction "; -}; - -String RID_WEBWIZARDDIALOG_START +123 -{ - Text [ en-US ] = "Documents "; -}; - -String RID_WEBWIZARDDIALOG_START +124 -{ - Text [ en-US ] = "Main layout"; -}; - -String RID_WEBWIZARDDIALOG_START +125 -{ - Text [ en-US ] = "Layout details"; -}; - -String RID_WEBWIZARDDIALOG_START +126 -{ - Text [ en-US ] = "Style"; -}; - -String RID_WEBWIZARDDIALOG_START +127 -{ - Text [ en-US ] = "Web site information"; -}; - -String RID_WEBWIZARDDIALOG_START +128 -{ - Text [ en-US ] = "Preview"; -}; - -String RID_WEBWIZARDDIALOG_START +130 -{ - Text [ en-US ] = "The selected settings will be deleted.\n\nDo you really want to delete these settings? "; -}; - -String RID_WEBWIZARDDIALOG_START +131 -{ - Text [ en-US ] = "%NUMBER pages"; -}; - -String RID_WEBWIZARDDIALOG_START +132 -{ - Text [ en-US ] = "%NUMBER slides"; -}; - -String RID_WEBWIZARDDIALOG_START +133 -{ - Text [ en-US ] = "Created: %DATE"; -}; - -String RID_WEBWIZARDDIALOG_START +134 -{ - Text [ en-US ] = "Last modified: %DATE"; -}; - -String RID_WEBWIZARDDIALOG_START +135 -{ - Text [ en-US ] = "Web Wizard Settings"; -}; - -String RID_WEBWIZARDDIALOG_START +136 -{ - Text [ en-US ] = "Background image:"; -}; - -String RID_WEBWIZARDDIALOG_START +137 -{ - Text [ en-US ] = "Icon set:"; -}; - -String RID_WEBWIZARDDIALOG_START +138 -{ - Text [ en-US ] = "The icon set is used for presentations in HTML format."; -}; - -String RID_WEBWIZARDDIALOG_START +139 -{ - Text [ en-US ] = "HTML Metadata"; -}; - -String RID_WEBWIZARDDIALOG_START +140 -{ - Text [ en-US ] = "Choose..."; -}; - -String RID_WEBWIZARDDIALOG_START +141 -{ - Text [ en-US ] = "Choose..."; -}; - -String RID_WEBWIZARDDIALOG_START +142 -{ - Text [ en-US ] = "<default>"; -}; - -String RID_WEBWIZARDDIALOG_START +143 -{ - Text [ en-US ] = "Publishing via FTP Proxy is not supported."; -}; - -String RID_WEBWIZARDDIALOG_START +144 -{ - Text [ en-US ] = "<no background image>"; -}; - -String RID_WEBWIZARDDIALOG_START +145 -{ - Text [ en-US ] = "<no icon set>"; -}; - -String RID_WEBWIZARDDIALOG_START +146 -{ - Text [ en-US ] = "The FTP directory '%FILENAME' could not be created."; -}; - -String RID_WEBWIZARDDIALOG_START +147 -{ - Text [ en-US ] = "The FTP directory '%FILENAME' does not exist. \nCreate the directory now?"; -}; - -String RID_WEBWIZARDDIALOG_START +148 -{ - Text [ en-US ] = "The Zip file '%FILENAME' cannot be created: a directory of the same name already exists."; -}; - -String RID_WEBWIZARDDIALOG_START +149 -{ - Text [ en-US ] = "The local directory '%FILENAME' cannot be created. \nPlease check your write-access."; -}; - -String RID_WEBWIZARDDIALOG_START +150 -{ - Text [ en-US ] = "The local directory '%FILENAME' does not exist. \nCreate the directory now?"; -}; - -String RID_WEBWIZARDDIALOG_START +151 -{ - Text [ en-US ] = "Size: %NUMBERKB"; -}; - - -String RID_WEBWIZARDDIALOG_START +152 -{ - Text [ en-US ] = "File not found. Would you like to specify a new file location?"; -}; - - - -// ============================================================================ -// ================= WEB WIZARD FTP DIALOG RESOURCES ============= -// ============================================================================ - - - - -String RID_WEBWIZARDDIALOG_FTP +0 -{ - Text [ en-US ] = "FTP Connection"; -}; - -String RID_WEBWIZARDDIALOG_FTP +1 -{ - Text [ en-US ] = "~User name:"; -}; - -String RID_WEBWIZARDDIALOG_FTP +2 -{ - Text [ en-US ] = "~Password:"; -}; - -String RID_WEBWIZARDDIALOG_FTP +3 -{ - Text [ en-US ] = "Connect"; -}; - -String RID_WEBWIZARDDIALOG_FTP +4 -{ - Text [ en-US ] = "1. Enter FTP connection information."; -}; - -String RID_WEBWIZARDDIALOG_FTP +5 -{ - Text [ en-US ] = "~Server name or IP address:"; -}; - -String RID_WEBWIZARDDIALOG_FTP +6 -{ - Text [ en-US ] = "2. Connect to the server."; -}; - -String RID_WEBWIZARDDIALOG_FTP +7 -{ - Text [ en-US ] = "3. ~Choose a remote directory (optional)."; -}; - -String RID_WEBWIZARDDIALOG_FTP +8 -{ - Text [ en-US ] = "..."; -}; - -String RID_WEBWIZARDDIALOG_FTP +9 -{ - Text [ en-US ] = "Connection status is unknown"; -}; - -String RID_WEBWIZARDDIALOG_FTP +10 -{ - Text [ en-US ] = "Connection was established successfully"; -}; - -String RID_WEBWIZARDDIALOG_FTP +11 -{ - Text [ en-US ] = "Username or password is wrong"; -}; - -String RID_WEBWIZARDDIALOG_FTP +12 -{ - Text [ en-US ] = "Could not resolve server name"; -}; - -String RID_WEBWIZARDDIALOG_FTP +13 -{ - Text [ en-US ] = "You do not have sufficient user rights"; -}; - -String RID_WEBWIZARDDIALOG_FTP +14 -{ - Text [ en-US ] = "Cannot connect to server"; -}; - -String RID_WEBWIZARDDIALOG_FTP +15 -{ - Text [ en-US ] = "Unexpected error"; -}; - -String RID_WEBWIZARDDIALOG_FTP +16 -{ - Text [ en-US ] = "FTP publishing directory"; -}; - -String RID_WEBWIZARDDIALOG_FTP +17 -{ - Text [ en-US ] = "This is not an FTP folder"; -}; - -String RID_WEBWIZARDDIALOG_FTP +18 -{ - Text [ en-US ] = "Connecting..."; -}; - - -// ============================================================================ -// ============================ ====================== -// ====================== AGENDA WIZARD RESOURCES ================ -// ============================ ====================== -// ============================================================================ - -String RID_AGENDAWIZARDDIALOG_START +1 -{ - Text [en-US ] = "Agenda Wizard"; -}; - -String RID_AGENDAWIZARDDIALOG_START +2 -{ - Text [en-US ] = "Make ~manual changes to this agenda template"; -}; - -String RID_AGENDAWIZARDDIALOG_START +3 -{ - Text [en-US ] = "Template name:"; -}; - -String RID_AGENDAWIZARDDIALOG_START + 4 -{ - Text [en-US ] = "Location and file name:"; -}; - -String RID_AGENDAWIZARDDIALOG_START +5 -{ - Text [en-US ] = "What do you want to do next?"; -}; - -String RID_AGENDAWIZARDDIALOG_START +6 -{ - Text [en-US ] = "Please choose the page design for the agenda"; -}; - -String RID_AGENDAWIZARDDIALOG_START +7 -{ - Text [en-US ] = "Please select the headings you wish to include in your agenda template"; -}; - -String RID_AGENDAWIZARDDIALOG_START +8 -{ - Text [en-US ] = "Please enter general information for the event"; -}; - -String RID_AGENDAWIZARDDIALOG_START +9 -{ - Text [en-US ] = "Please specify items for the agenda"; -}; - -String RID_AGENDAWIZARDDIALOG_START +10 -{ - Text [en-US ] = "Please select the names you wish to include in your agenda template"; -}; - -String RID_AGENDAWIZARDDIALOG_START +11 -{ - Text [en-US ] = "Choose a name and save the template"; -}; - -String RID_AGENDAWIZARDDIALOG_START +12 -{ - Text [en-US ] = "Include form for recording minutes"; -}; - -String RID_AGENDAWIZARDDIALOG_START +13 -{ - Text [en-US ] = "This wizard helps you to create an agenda template. The template can then be used to create an agenda whenever needed."; -}; - -String RID_AGENDAWIZARDDIALOG_START +14 -{ - Text [en-US ] = "Time:"; -}; - -String RID_AGENDAWIZARDDIALOG_START +15 -{ - Text [en-US ] = "Name:"; -}; - -String RID_AGENDAWIZARDDIALOG_START + 16 -{ - Text [en-US ] = "Location:"; -}; - -String RID_AGENDAWIZARDDIALOG_START +17 -{ - Text [en-US ] = "Placeholders will be used in empty fields. You can replace placeholders with text later."; -}; - -String RID_AGENDAWIZARDDIALOG_START +18 -{ - Text [en-US ] = "..."; -}; - -String RID_AGENDAWIZARDDIALOG_START +19 -{ - Text [en-US ] = "Create an ~agenda from this template"; -}; - -String RID_AGENDAWIZARDDIALOG_START +20 -{ - Text [en-US ] = "To create a new agenda out of the template, go to the location where you saved the template and double-click the file."; -}; - -String RID_AGENDAWIZARDDIALOG_START +21 -{ - Text [en-US ] = "Agenda item"; -}; - -String RID_AGENDAWIZARDDIALOG_START +22 -{ - Text [en-US ] = "Responsible"; -}; - -String RID_AGENDAWIZARDDIALOG_START +23 -{ - Text [en-US ] = "Duration"; -}; - -String RID_AGENDAWIZARDDIALOG_START +24 -{ - Text [en-US ] = "Meeting called by"; -}; - -String RID_AGENDAWIZARDDIALOG_START +25 -{ - Text [en-US ] = "Chairperson"; -}; - -String RID_AGENDAWIZARDDIALOG_START +26 -{ - Text [en-US ] = "Minute keeper"; -}; - -String RID_AGENDAWIZARDDIALOG_START +27 -{ - Text [en-US ] = "Moderator"; -}; - -String RID_AGENDAWIZARDDIALOG_START +28 -{ - Text [en-US ] = "Attendees"; -}; - -String RID_AGENDAWIZARDDIALOG_START +29 -{ - Text [en-US ] = "Observers"; -}; - -String RID_AGENDAWIZARDDIALOG_START +30 -{ - Text [en-US ] = "Facility personnel"; -}; - -String RID_AGENDAWIZARDDIALOG_START +31 -{ - Text [en-US ] = "The agenda template will include placeholders for the names of the selected people. When creating an agenda from the template, you can replace these placeholder with the appropriate names."; -}; - -String RID_AGENDAWIZARDDIALOG_START +32 -{ - Text [en-US ] = "Type of meeting"; -}; - -String RID_AGENDAWIZARDDIALOG_START +33 -{ - Text [en-US ] = "Please read"; -}; - -String RID_AGENDAWIZARDDIALOG_START +34 -{ - Text [en-US ] = "Please bring"; -}; - -String RID_AGENDAWIZARDDIALOG_START +35 -{ - Text [en-US ] = "Notes"; -}; - -String RID_AGENDAWIZARDDIALOG_START +36 -{ - Text [en-US ] = "The agenda template will include placeholders for the selected items."; -}; - -String RID_AGENDAWIZARDDIALOG_START +38 -{ - Text [en-US ] = "Date:"; -}; - -String RID_AGENDAWIZARDDIALOG_START +39 -{ - Text [en-US ] = "This wizard creates an agenda template which enables you to create multiple agendas with the same layout and settings."; -}; - -String RID_AGENDAWIZARDDIALOG_START +40 -{ - Text [en-US ] = "Page design:"; -}; - -String RID_AGENDAWIZARDDIALOG_START +41 -{ - Text [en-US ] = "myAgendaTemplate.stw"; -}; - -String RID_AGENDAWIZARDDIALOG_START +42 -{ - Text [en-US ] = "My Agenda Template"; -}; - -String RID_AGENDAWIZARDDIALOG_START +43 -{ - Text [en-US ] = "An unexpected error occurred while saving the agenda template."; -}; - -String RID_AGENDAWIZARDDIALOG_START +44 -{ - Text [en-US ] = "Name"; -}; - -String RID_AGENDAWIZARDDIALOG_START +45 -{ - Text [en-US ] = "Date"; -}; - -String RID_AGENDAWIZARDDIALOG_START +46 -{ - Text [en-US ] = "Time"; -}; - -String RID_AGENDAWIZARDDIALOG_START + 47 -{ - Text [en-US ] = "Location"; -}; - -String RID_AGENDAWIZARDDIALOG_START +48 -{ - Text [en-US ] = "Click to replace this text"; -}; - -String RID_AGENDAWIZARDDIALOG_START +50 -{ - Text [en-US ] = "Page design"; -}; - -String RID_AGENDAWIZARDDIALOG_START +51 -{ - Text [en-US ] = "General information"; -}; - -String RID_AGENDAWIZARDDIALOG_START +52 -{ - Text [en-US ] = "Headings to include"; -}; - -String RID_AGENDAWIZARDDIALOG_START +53 -{ - Text [en-US ] = "Names"; -}; - -String RID_AGENDAWIZARDDIALOG_START +54 -{ - Text [en-US ] = "Agenda items"; -}; - -String RID_AGENDAWIZARDDIALOG_START +55 -{ - Text [en-US ] = "Name and location"; -}; - -String RID_AGENDAWIZARDDIALOG_START +56 -{ - Text [en-US ] = "An unexpected error occurred while opening the agenda template."; -}; - -String RID_AGENDAWIZARDDIALOG_START +57 -{ - Text [en-US ] = "Type of meeting"; -}; - -String RID_AGENDAWIZARDDIALOG_START +58 -{ - Text [en-US ] = "Please bring"; -}; - -String RID_AGENDAWIZARDDIALOG_START +59 -{ - Text [en-US ] = "Please read"; -}; - -String RID_AGENDAWIZARDDIALOG_START +60 -{ - Text [en-US ] = "Notes"; -}; - -String RID_AGENDAWIZARDDIALOG_START +61 -{ - Text [en-US ] = "Meeting called by"; -}; - -String RID_AGENDAWIZARDDIALOG_START +62 -{ - Text [en-US ] = "Chairperson"; -}; - -String RID_AGENDAWIZARDDIALOG_START +63 -{ - Text [en-US ] = "Attendees"; -}; - -String RID_AGENDAWIZARDDIALOG_START +64 -{ - Text [en-US ] = "Minute keeper"; -}; - -String RID_AGENDAWIZARDDIALOG_START +65 -{ - Text [en-US ] = "Moderator"; -}; - -String RID_AGENDAWIZARDDIALOG_START +66 -{ - Text [en-US ] = "Observers"; -}; - -String RID_AGENDAWIZARDDIALOG_START +67 -{ - Text [en-US ] = "Facility personnel"; -}; - -String RID_AGENDAWIZARDDIALOG_START +68 -{ - Text [en-US ] = "Insert"; -}; - -String RID_AGENDAWIZARDDIALOG_START +69 -{ - Text [en-US ] = "Remove"; -}; - -String RID_AGENDAWIZARDDIALOG_START +70 -{ - Text [en-US ] = "Move up"; -}; - -String RID_AGENDAWIZARDDIALOG_START +71 -{ - Text [en-US ] = "Move down"; -}; - diff --git a/wizards/source/formwizard/delzip b/wizards/source/formwizard/delzip deleted file mode 100644 index e69de29bb..000000000 --- a/wizards/source/formwizard/delzip +++ /dev/null diff --git a/wizards/source/formwizard/develop.xba b/wizards/source/formwizard/develop.xba deleted file mode 100644 index a12d1af37..000000000 --- a/wizards/source/formwizard/develop.xba +++ /dev/null @@ -1,533 +0,0 @@ -<?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="develop" script:language="StarBasic">REM ***** BASIC ***** -Option Explicit - -Public oDBShapeList() as Object -Public oTCShapeList() as Object -Public oDBModelList() as Object -Public oGroupShapeList() as Object - -Public oGridShape as Object -Public a as Integer -Public StartA as Integer -Public bIsFirstRun as Boolean -Public bIsVeryFirstRun as Boolean -Public bControlsareCreated as Boolean -Public nDBRefHeight as Long -Public nXTCPos&, nYTCPos&, nXDBPos&, nYDBPos&, nTCHeight&, nTCWidth&, nDBHeight&, nDBWidth& - -Dim iReduceWidth as Integer - -Function PositionControls(Maxindex as Integer) -Dim oTCModel as Object -Dim oDBModel as Object -Dim i as Integer - InitializePosSizes() - bIsFirstRun = True - bIsVeryFirstRun = True - a = 0 - StartA = 0 - nMaxRowY = 0 - nSecMaxRowY = 0 - If CurArrangement = cLeftJustified Or cTopJustified Then - DialogModel.optAlign0.State = 1 - End If - For i = 0 To MaxIndex - GetCurrentMetaValues(i) - oTCModel = InsertTextControl(i) - If CurFieldType = com.sun.star.sdbc.DataType.TIMESTAMP Then - InsertTimeStampShape(i) - Else - InsertDBControl(i) - bIsVeryFirstRun = False - oDBModelList(i).LabelControl = oTCModel - End If - GetLabelDiffHeight(i+1) - ResetPosSizes(i) - oProgressbar.Value = i - Next i - ControlCaptionstoStandardLayout() - bControlsareCreated = True -End Function - - -Sub ResetPosSizes(LastIndex as Integer) - Select Case CurArrangement - Case cColumnarLeft - nYDBPos = nYDBPos + nDBHeight + cVertDistance - If (nYDBPos > cYOffset + nFormHeight) Or (LastIndex = MaxIndex) Then - RepositionColumnarLeftControls(LastIndex) - nXTCPos = nMaxColRightX + 2 * cHoriDistance - nXDBPos = nXTCPos + cHoriDistance + nMaxTCWidth - nYDBPos = cYOffset - bIsFirstRun = True - StartA = LastIndex + 1 - a = 0 - Else - a = a + 1 - End If - nYTCPos = nYDBPos + LABELDIFFHEIGHT - Case cColumnarTop - nYTCPos = nYDBPos + nDBHeight + cVertDistance - If nYTCPos > cYOffset + nFormHeight Then - nXDBPos = nMaxColRightX + cHoriDistance - nXTCPos = nXDBPos - nYDBPos = cYOffset + nTCHeight + cVertDistance - nYTCPos = cYOffset - bIsFirstRun = True - StartA = LastIndex + 1 - a = 0 - Else - a = a + 1 - End If - Case cLeftJustified,cTopJustified - If nMaxColRightX > cXOffset + nFormWidth Then - Dim nOldYTCPos as Long - nOldYTCPos = nYTCPos - CheckJustifiedPosition() - Else - nXTCPos = nMaxColRightX + CHoriDistance - If CurArrangement = cLeftJustified Then - nYTCPos = nYDBPos + LabelDiffHeight - End If - End If - a = a + 1 - End Select -End Sub - - -Sub RepositionColumnarLeftControls(LastIndex as Integer) -Dim aSize As New com.sun.star.awt.Size -Dim aPoint As New com.sun.star.awt.Point -Dim i as Integer - aSize = GetSize(nMaxTCWidth, nTCHeight) - bIsFirstRun = True - For i = StartA To LastIndex - If i = StartA Then - nXTCPos = oTCShapeList(i).Position.X - nXDBPos = nXTCPos + nMaxTCWidth + cHoriDistance - End If - ResetDBShape(oDBShapeList(i), nXDBPos) - CheckOuterPoints(nXDBPos, nDBWidth, nYDBPos, nDBHeight, True) - Next i -End Sub - - -Sub ResetDBShape(oLocDBShape as Object, iXPos as Long) -Dim aSize As New com.sun.star.awt.Size -Dim aPoint As New com.sun.star.awt.Point - nYDBPos = oLocDBShape.Position.Y - nDBWidth = oLocDBShape.Size.Width - nDBHeight = oLocDBShape.Size.Height - aPoint = GetPoint(iXPos,nYDBPos) - oLocDBShape.SetPosition(aPoint) -End Sub - - -Sub InitializePosSizes() - nXTCPos = cXOffset - nTCWidth = 2000 - nDBWidth = 2000 - nDBHeight = nDBRefHeight - iReduceWidth = 0 - Select Case CurArrangement - Case cColumnarLeft, cLeftJustified - GetLabelDiffHeight(0) - nYTCPos = cYOffset + LABELDIFFHEIGHT - nXDBPos = cXOffset + 3050 - nYDBPos = cYOffset - Case cColumnarTop, cTopJustified - nXDBPos = cXOffset - nYTCPos = cYOffset - End Select -End Sub - - -Function InsertTextControl(i as Integer) as Object -Dim oShape as Object -Dim oModel as Object -Dim aPoint as New com.sun.star.awt.Point -Dim aSize As New com.sun.star.awt.Size - If bControlsareCreated Then - Set oShape = oTCShapeList(i) - Set oModel = oShape.GetControl - If CurArrangement = cLeftJustified Then - nTCWidth = GetPreferredWidth(oModel, True, CurFieldname) - Else - nTCWidth = oShape.Size.Width - End If - oShape.Position = GetPoint(nXTCPos, nYTCPos) - If CurArrangement = cColumnarTop Then - oModel.Align = com.sun.star.awt.TextAlign.LEFT - End If - Else - oModel = CreateUnoService(oModelService(cLabel)) - aPoint = GetPoint(nXTCPos, nYTCPos) - aSize = GetSize(nTCWidth,nTCHeight) - Set oShape = InsertControl(oDrawPage, oModel, aPoint, aSize) - Set oTCShapeList(i)= oShape - If bIsVeryFirstRun Then - If CurArrangement = cColumnarTop Then - nYDBPos = nYTCPos + nTCHeight - End If - End If - nTCWidth = GetPreferredWidth(oModel, True, CurFieldName) - End If - If CurArrangement = cColumnarLeft Then - ' Note This If Sequence must be called before retrieving the outer Points - If bIsFirstRun Then - nMaxTCWidth = nTCWidth - bIsFirstRun = False - ElseIf nTCWidth > nMaxTCWidth Then - nMaxTCWidth = nTCWidth - End If - End If - CheckOuterPoints(oShape.Position.X, nTCWidth, nYTCPos, nTCHeight, False) - Select Case CurArrangement - Case cLeftJustified - nXDBPos = nMaxColRightX - Case cColumnarTop,cTopJustified - oModel.Align = com.sun.star.awt.TextAlign.LEFT - nXDBPos = nXTCPos - nYDBPos = nYTCPos + nTCHeight - If CurFieldLength = 20 And nDBWidth > 2 * nTCWidth Then - iReduceWidth = iReduceWidth + 1 - End If - End Select - oShape.SetSize(GetSize(nTCWidth,nTCHeight)) - If CurHelpText <> "" Then - oModel.HelpText = CurHelptext - End If - InsertTextControl = oModel -End Function - - -Sub InsertDBControl(i as Integer) -Dim aPoint as New com.sun.star.awt.Point -Dim aSize As New com.sun.star.awt.Size -Dim oControl as Object -Dim iColRightX as Long - - aPoint = GetPoint(nXDBPos, nYDBPos) - If bControlsAreCreated Then - oDBShapeList(i).Position = aPoint - Else - oDBModelList(i) = CreateUnoService(oModelService(CurControlType)) - oDBShapeList(i) = InsertControl(oDrawPage, oDBModelList(i), aPoint, aSize) - SetNumerics(oDBModelList(i), CurFieldType) - If CurControlType = cCheckBox Then - oDBModelList(i).Label = "" - End If - oDBModelList(i).DataField = CurFieldName - End If - nDBHeight = GetDBHeight(oDBModelList(i)) - nDBWidth = GetPreferredWidth(oDBModelList(i),True) - aSize = GetSize(nDBWidth,nDBHeight) - oDBShapeList(i).SetSize(aSize) - CheckOuterPoints(nXDBPos, nDBWidth, nYDBPos, nDBHeight, True) -End Sub - - -Function InsertTimeStampShape(i as Integer) as Object -Dim oDateModel as Object -Dim oTimeModel as Object -Dim oDateShape as Object -Dim oTimeShape as Object -Dim oDateTimeShape as Object -Dim aPoint as New com.sun.star.awt.Point -Dim aSize as New com.sun.star.awt.Size -Dim nDateWidth as Long -Dim nTimeWidth as Long -Dim oGroupShape as Object - aPoint = GetPoint(nXDBPos, nYDBPos) - If bControlsAreCreated Then - oDBShapeList(i).Position = aPoint - nDBWidth = oDBShapeList(i).Size.Width - nDBHeight = oDBShapeList(i).Size.Height - Else - oGroupShape = oDocument.CreateInstance("com.sun.star.drawing.GroupShape") - oGroupShape.AnchorType = com.sun.star.text.TextContentAnchorType.AT_PARAGRAPH - oDrawPage.Add(oGroupShape) - CurFieldType = com.sun.star.sdbc.DataType.DATE - oDateModel = CreateUnoService("com.sun.star.form.component.DateField") - oDateModel.DataField = CurFieldName - oDateShape = InsertControl(oGroupShape, oDateModel, aPoint, aSize) - SetNumerics(oDateModel, CurFieldType) - nDBHeight = GetDBHeight(oDateModel) - nDateWidth = GetPreferredWidth(oDateModel,True) - aSize = GetSize(nDateWidth,nDBHeight) - oDateShape.SetSize(aSize) - - CurFieldType = com.sun.star.sdbc.DataType.TIME - oTimeModel = CreateUnoService("com.sun.star.form.component.TimeField") - oTimeModel.DataField = CurFieldName - oTimeShape = InsertControl(oGroupShape, oTimeModel, aPoint, aSize) - oTimeShape.Position = GetPoint(nXDBPos + 10 + nDateWidth,nYDBPos) - nTimeWidth = GetPreferredWidth(oTimeModel) - aSize = GetSize(nTimeWidth,nDBHeight) - oTimeShape.SetSize(aSize) - nDBWidth = nDateWidth + nTimeWidth + 10 - oGroupShape.Position = aPoint - oGroupShape.Size = GetSize(nDBWidth, nDBHeight) - Set oDBShapeList(i)= oGroupShape - End If - CheckOuterPoints(nXDBPos, nDBWidth, nYDBPos, nDBHeight, True) - InsertTimeStampShape() = oDBShapeList(i) -End Function - - -' Note: on all Controls except for the checkbox the Label has to be set -' a bit under the DBControl because its Height is also smaller -Sub GetLabelDiffHeight(Index as Integer) - If (CurArrangement = cLeftJustified) Or (CurArrangement = cColumnarLeft) Then - If Index <= Ubound(FieldMetaValues()) Then - If FieldMetaValues(Index,2) = cCheckBox Then - LabelDiffHeight = 0 - Else - LabelDiffHeight = BasicLabelDiffHeight - End If - End If - End If -End Sub - - -Sub CheckJustifiedPosition() -Dim nLeftDist as Long -Dim nRightDist as Long -Dim oLocDBShape as Object -Dim oLocTextShape as Object -Dim nBaseWidth as Long - nBaseWidth = nFormWidth + cXOffset - nLeftDist = nMaxColRightX - nBaseWidth - nRightDist = nBaseWidth - nXTCPos + cHoriDistance - If nLeftDist < 0.5 * nRightDist and iReduceWidth > 2 Then - ' Fieldwidths in the line can be made smaller - AdjustLineWidth(StartA, a, nLeftDist, - 1) - If CurArrangement = cLeftjustified Then - nYDBPos = nMaxRowY + cVertDistance - nYTCPos = nYDBPos + LABELDIFFHEIGHT - nXTCPos = cXOffset - Else - nYTCPos = nMaxRowY + cVertDistance - nYDBPos = nYTCPos + nTCHeight - nXTCPos = cXOffset - nXDBPos = cXOffset - End If - bIsFirstRun = True - StartA = a + 1 - Else - Set oLocDBShape = oDBShapeList(a) - Set oLocTextShape = oTCShapeList(a) - If CurArrangement = cLeftJustified Then - If nYDBPos + nDBHeight = nMaxRowY Then - ' The last Control was the highes in the row - nYDBPos = nSecMaxRowY + cVertDistance - Else - nYDBPos = nMaxRowY + cVertDistance - End If - nYTCPos = nYDBPos + LABELDIFFHEIGHT - nXDBPos = cXOffset + nTCWidth - oLocTextShape.Position = GetPoint(cXOffset, nYTCPos) - oLocDBShape.Position = GetPoint(nXDBPos, nYDBPos) - ' PosSizes for the next two Controls - nXTCPos = oLocDBShape.Position.X + oLocDBShape.Size.Width + cHoriDistance - bIsFirstRun = True - CheckOuterPoints(nXDBPos, nDBWidth, nYDBPos, nDBHeight, True) - nXDBPos = nMaxColRightX + cHoriDistance - Else ' cTopJustified - If nYDBPos + nDBHeight = nMaxRowY Then - ' The last Control was the highest in the row - nYTCPos = nSecMaxRowY + cVertDistance - Else - nYTCPos = nMaxRowY + cVertDistance - End If - nYDBPos = nYTCPOS + nTCHeight - nXDBPos = cXOffset - nXTCPos = cXOffset - oLocTextShape.Position = GetPoint(cXOffset, nYTCPos) - oLocDBShape.Position = GetPoint(cXOffset, nYDBPos) - bIsFirstRun = True - If nDBWidth > nTCWidth Then - CheckOuterPoints(nXDBPos, nDBWidth, nYDBPos, nDBHeight, True) - Else - CheckOuterPoints(nXDBPos, nTCWidth, nYDBPos, nDBHeight, True) - End If - nXTCPos = nMaxColRightX + cHoriDistance - nXDBPos = nXTCPos - End If - AdjustLineWidth(StartA, a-1, nRightDist, 1) - StartA = a - End If - iReduceWidth = 0 -End Sub - - - -Function GetCorrWidth(StartIndex as Integer, EndIndex as Integer, nDist as Long, Widthfactor as Integer) as Integer -Dim ShapeCount as Integer - If WidthFactor > 0 Then - ShapeCount = EndIndex-StartIndex + 1 - Else - ShapeCount = iReduceWidth - End If - GetCorrWidth() = (nDist)/ShapeCount -End Function - - -Sub AdjustLineWidth(StartIndex as Integer, EndIndex as Integer, nDist as Long, Widthfactor as Integer) -Dim i as Integer -Dim oLocDBShape as Object -Dim oLocTCShape as Object -Dim CorrWidth as Integer -Dim bAdjustPos as Boolean -Dim iLocTCPosX as Long -Dim iLocDBPosX as Long - CorrWidth = GetCorrWidth(StartIndex, EndIndex, nDist, Widthfactor) - bAdjustPos = False - iLocTCPosX = cXOffset - For i = StartIndex To EndIndex - Set oLocDBShape = oDBShapeList(i) - Set oLocTCShape = oTCShapeList(i) - If bAdjustPos Then - oLocTCShape.Position = GetPoint(iLocTCPosX, oLocTCShape.Position.Y) - If CurArrangement = cLeftJustified Then - iLocDBPosX = oLocTCShape.Position.X + oLocTCShape.Size.Width - oLocDBShape.Position = GetPoint(iLocDBPosX, oLocDBShape.Position.Y) - Else - oLocDBShape.Position = GetPoint(iLocTCPosX, oLocTCShape.Position.Y + nTCHeight) - End If - Else - bAdjustPos = True - End If - If CDbl(FieldMetaValues(i,1)) > 20 or WidthFactor > 0 Then - If (CurArrangement = cTopJustified) And (oLocTCShape.Size.Width > oLocDBShape.Size.Width) Then - oLocDBShape.Size = GetSize(oLocTCShape.Size.Width + WidthFactor * CorrWidth, oLocDBShape.Size.Height) - Else - oLocDBShape.Size = GetSize(oLocDBShape.Size.Width + WidthFactor * CorrWidth, oLocDBShape.Size.Height) - End If - End If - iLocTCPosX = oLocDBShape.Position.X + oLocDBShape.Size.Width + cHoriDistance - If CurArrangement = cTopJustified Then - If oLocTCShape.Size.Width > oLocDBShape.Size.Width Then - iLocTCPosX = oLocDBShape.Position.X + oLocTCShape.Size.Width + cHoriDistance - End If - End If - Next i -End Sub - - -Sub CheckOuterPoints(nXPos, nWidth, nYPos, nHeight, bIsDBField as Boolean) -Dim nColRightX as Long -Dim nRowY as Long -Dim nOldMaxRowY as Long - If CurArrangement = cLeftJustified Or CurArrangement = cTopJustified Then - If bIsDBField Then - ' Only at DBControls you can measure the Value of nMaxRowY - If bIsFirstRun Then - nMaxRowY = nYPos + nHeight - nSecMaxRowY = nMaxRowY - Else - nRowY = nYPos + nHeight - If nRowY >= nMaxRowY Then - nOldMaxRowY = nMaxRowY - nSecMaxRowY = nOldMaxRowY - nMaxRowY = nRowY - End If - End If - End If - End If - ' Find the outer right point - If bIsFirstRun Then - nMaxColRightX = nXPos + nWidth - bIsFirstRun = False - Else - nColRightX = nXPos + nWidth - If nColRightX > nMaxColRightX Then - nMaxColRightX = nColRightX - End If - End If -End Sub - - -Function PositionGridControl(MaxIndex as Integer) -Dim oControl as Object -Dim n as Integer -Dim oColumn as Object -Dim aPoint as New com.sun.star.awt.Point -Dim aSize as New com.sun.star.awt.Size - If bControlsareCreated Then - ShapesToNirwana() - End If - oGridModel = CreateUnoService(oModelService(cGridControl)) - oGridModel.Name = "Grid1" - aPoint = GetPoint(cXOffset, cYOffset) - aSize = GetSize(nFormWidth, nFormHeight) - oDBForm.InsertByName (oGridModel.Name, oGridModel) - oGridShape = InsertControl(oDrawPage, oGridModel, aPoint, aSize) - For n = 0 to MaxIndex - GetCurrentMetaValues(n) - If CurFieldType = com.sun.star.sdbc.DataType.TIMESTAMP Then - oColumn = SetupGridColumn(oGridModel,"DateField", False, com.sun.star.sdbc.DataType.DATE, CurFieldName & " " & sDateAppendix) - oColumn = SetupGridColumn(oGridModel,"TimeField", False, com.sun.star.sdbc.DataType.TIME, CurFieldName & " " & sTimeAppendix) - Else - If CurControlType = cImageControl Then - oColumn = SetupGridColumn(oGridModel,"TextField", True, CurFieldType, CurFieldName) - Else - oColumn = SetupGridColumn(oGridModel, CurControlName, False, CurFieldType, CurFieldName) - End If - End If - oProgressbar.Value = n - next n -End Function - - -Function SetupGridColumn(oGridModel as Object, ControlName as String, bHidden as Boolean, iLocFieldType as Integer, ColName as String) as Object -Dim oColumn as Object - CurControlName = ControlName - oColumn = oGridModel.CreateColumn(CurControlName) - oColumn.Name = CalcUniqueContentName(oGridModel, CurControlName) - oColumn.Hidden = bHidden - SetNumerics(oColumn, iLocFieldType) - oColumn.DataField = CurFieldName - oColumn.Label = ColName - oColumn.Width = 0 ' Width of column is adjusted to Columname - oGridModel.insertByName(oColumn.Name, oColumn) -End Function - - -Sub ControlCaptionstoStandardLayout() -Dim i as Integer -Dim iBorderType as Integer -Dim oCurModel as Object -Dim oStyle as Object -Dim iStandardColor as Long - If CurArrangement <> cTabled Then - oStyle = oDocument.StyleFamilies.GetByName("ParagraphStyles").GetByName("Standard") - iStandardColor = oStyle.CharColor - For i = 0 To MaxIndex - oCurModel = oTCShapeList(i).GetControl - If i = 0 Then - If oCurModel.TextColor = iStandardColor Then - Exit Sub - End If - End If - oCurModel.TextColor = iStandardColor - Next i - End If -End Sub - - -Sub GroupShapesTogether() -Dim i as Integer - If CurArrangement <> cTabled Then - For i = 0 To MaxIndex - oGroupShapeList(i) = CreateUnoService("com.sun.star.drawing.ShapeCollection") - oGroupShapeList(i).Add(oTCShapeList(i)) - oGroupShapeList(i).Add(oDBShapeList(i)) - oDrawPage.Group(oGroupShapeList(i)) - Next i - Else - RemoveNirwanaShapes() - End If -End Sub</script:module>
\ No newline at end of file diff --git a/wizards/source/formwizard/dialog.xlb b/wizards/source/formwizard/dialog.xlb deleted file mode 100644 index d680f2929..000000000 --- a/wizards/source/formwizard/dialog.xlb +++ /dev/null @@ -1,5 +0,0 @@ -<?xml version="1.0" encoding="UTF-8"?> -<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> -<library:library xmlns:library="http://openoffice.org/2000/library" library:name="FormWizard" library:readonly="true" library:passwordprotected="false"> - <library:element library:name="DlgFormDB"/> -</library:library> diff --git a/wizards/source/formwizard/script.xlb b/wizards/source/formwizard/script.xlb deleted file mode 100644 index 0b79b7f07..000000000 --- a/wizards/source/formwizard/script.xlb +++ /dev/null @@ -1,10 +0,0 @@ -<?xml version="1.0" encoding="UTF-8"?> -<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> -<library:library xmlns:library="http://openoffice.org/2000/library" library:name="FormWizard" library:readonly="true" library:passwordprotected="false"> - <library:element library:name="FormWizard"/> - <library:element library:name="Layouter"/> - <library:element library:name="Language"/> - <library:element library:name="DBMeta"/> - <library:element library:name="tools"/> - <library:element library:name="develop"/> -</library:library> diff --git a/wizards/source/formwizard/tools.xba b/wizards/source/formwizard/tools.xba deleted file mode 100644 index 8b40b8379..000000000 --- a/wizards/source/formwizard/tools.xba +++ /dev/null @@ -1,349 +0,0 @@ -<?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="tools" script:language="StarBasic">REM ***** BASIC ***** -Option Explicit -Public Const SBMAXTEXTSIZE = 50 - - -Function SetProgressValue(iValue as Integer) - If iValue = 0 Then - oProgressbar.End - End If - ProgressValue = iValue - oProgressbar.Value = iValue -End Function - - -Function GetPreferredWidth(oModel as Object, bGetMaxWidth as Boolean, Optional LocText) -Dim aPeerSize as new com.sun.star.awt.Size -Dim nWidth as Integer -Dim oControl as Object - If Not IsMissing(LocText) Then - ' Label - aPeerSize = GetPeerSize(oModel, oControl, LocText) - ElseIf CurControlType = cImageControl Then - GetPreferredWidth() = 2000 - Exit Function - Else - aPeerSize = GetPeerSize(oModel, oControl) - End If - nWidth = aPeerSize.Width - ' We increase the preferred Width a bit so that the control does not become too small - ' when we change the border from "3D" to "Flat" - GetPreferredWidth = (nWidth + 10) * XPixelFactor ' PixelTo100thmm(nWidth) -End Function - - -Function GetPreferredHeight(oModel as Object, Optional LocText) -Dim aPeerSize as new com.sun.star.awt.Size -Dim nHeight as Integer -Dim oControl as Object - If Not IsMissing(LocText) Then - ' Label - aPeerSize = GetPeerSize(oModel, oControl, LocText) - ElseIf CurControlType = cImageControl Then - GetPreferredHeight() = 2000 - Exit Function - Else - aPeerSize = GetPeerSize(oModel, oControl) - End If - nHeight = aPeerSize.Height - ' We increase the preferred Height a bit so that the control does not become too small - ' when we change the border from "3D" to "Flat" - GetPreferredHeight = (nHeight+1) * YPixelFactor ' PixelTo100thmm(nHeight) -End Function - - -Function GetPeerSize(oModel as Object, oControl as Object, Optional LocText) -Dim oPeer as Object -Dim aPeerSize as new com.sun.star.awt.Size -Dim NullValue - oControl = oController.GetControl(oModel) - oPeer = oControl.GetPeer() - If oControl.Model.PropertySetInfo.HasPropertybyName("EffectiveMax") Then - If oControl.Model.EffectiveMax = 0 Then - ' This is relevant for decimal fields - oControl.Model.EffectiveValue = 999.9999 - Else - oControl.Model.EffectiveValue = oControl.Model.EffectiveMax - End If - GetPeerSize() = oPeer.PreferredSize() - oControl.Model.EffectiveValue = NullValue - ElseIf Not IsMissing(LocText) Then - oControl.Text = LocText - GetPeerSize() = oPeer.PreferredSize() - ElseIf CurFieldType = com.sun.star.sdbc.DataType.BIT Then - GetPeerSize() = oPeer.PreferredSize() - ElseIf CurFieldType = com.sun.star.sdbc.DataType.BOOLEAN Then - GetPeerSize() = oPeer.PreferredSize() - ElseIf CurFieldType = com.sun.star.sdbc.DataType.DATE Then - oControl.Model.Date = Date - GetPeerSize() = oPeer.PreferredSize() - oControl.Model.Date = NullValue - ElseIf CurFieldType = com.sun.star.sdbc.DataType.TIME Then - oControl.Time = Time - GetPeerSize() = oPeer.PreferredSize() - oControl.Time = NullValue - Else - If oControl.MaxTextLen > SBMAXTEXTSIZE Then - oControl.Text = Mid(SBSIZETEXT,1, SBMAXTEXTSIZE) - Else - oControl.Text = Mid(SBSIZETEXT,1, oControl.MaxTextLen) - End If - GetPeerSize() = oPeer.PreferredSize() - oControl.Text = "" - End If -End Function - - -Function TwipToCM(BYVAL nValue as long) as String - TwipToCM = trim(str(nValue / 567)) + "cm" -End function - - -Function TwipTo100telMM(BYVAL nValue as long) as long - TwipTo100telMM = nValue / 0.567 -End function - - -Function TwipToPixel(BYVAL nValue as long) as long ' not an exact calculation - TwipToPixel = nValue / 15 -End function - - -Function PixelTo100thMMX(oControl as Object) as long - oPeer = oControl.GetPeer() - PixelTo100mmX = Clng(Peer.GetInfo.PixelPerMeterX/100000) - -' PixelTo100thMM = nValue * 28 ' not an exact calculation -End function - - -Function PixelTo100thMMY(oControl as Object) as long - oPeer = oControl.GetPeer() - PixelTo100mmX = Clng(Peer.GetInfo.PixelPerMeterY/100000) - -' PixelTo100thMM = nValue * 28 ' not an exact calculation -End function - - -Function GetPoint(xPos, YPos) as New com.sun.star.awt.Point -Dim aPoint as New com.sun.star.awt.Point - aPoint.X = xPos - aPoint.Y = yPos - GetPoint() = aPoint -End Function - - -Function GetSize(iWidth, iHeight) As New com.sun.star.awt.Size -Dim aSize As New com.sun.star.awt.Size - aSize.Width = iWidth - aSize.Height = iHeight - GetSize() = aSize -End Function - - -Sub ImportStyles() -Dim OldIndex as Integer - If Not bDebug Then - On Local Error GoTo WIZARDERROR - End If - OldIndex = CurIndex - CurIndex = GetCurIndex(DialogModel.lstStyles, Styles(),8) - If CurIndex <> OldIndex Then - ToggleLayoutPage(False) - Dim sImportPath as String - sImportPath = Styles(CurIndex, 8) - bWithBackGraphic = LoadNewStyles(oDocument, DialogModel, CurIndex, sImportPath, Styles(), TexturePath) - ControlCaptionsToStandardLayout() - ToggleLayoutPage(True, "lstStyles") - End If -WIZARDERROR: - If Err <> 0 Then - Msgbox(sMsgErrMsg, 16, GetProductName()) - Resume LOCERROR - LOCERROR: - End If -End Sub - - - -Function SetNumerics(ByVal oLocObject as Object, iLocFieldType as Integer) as Object - If CurControlType = cNumericBox Then - oLocObject.TreatAsNumber = True - Select Case iLocFieldType - Case com.sun.star.sdbc.DataType.BIGINT - oLocObject.EffectiveMax = 2147483647 * 2147483647 - oLocObject.EffectiveMin = -(-2147483648 * -2147483648) -' oLocObject.DecimalAccuracy = 0 - Case com.sun.star.sdbc.DataType.INTEGER - oLocObject.EffectiveMax = 2147483647 - oLocObject.EffectiveMin = -2147483648 - Case com.sun.star.sdbc.DataType.SMALLINT - oLocObject.EffectiveMax = 32767 - oLocObject.EffectiveMin = -32768 - Case com.sun.star.sdbc.DataType.TINYINT - 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 CurFieldLength = 0 Then 'Or oLocObject.MaxTextLen > SBMAXTEXTSIZE - oLocObject.MaxTextLen = SBMAXTEXTSIZE - CurFieldLength = SBMAXTEXTSIZE - Else - oLocObject.MaxTextLen = CurFieldLength - 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 - If oLocObject.PropertySetInfo.HasPropertybyName("FormatKey") Then - On Local Error Resume Next - oLocObject.FormatKey = CurFormatKey - End If -End Function - - -' Destroy all Shapes in Nirwana -Sub RemoveShapes() -Dim n as Integer -Dim oControl as Object -Dim oShape as Object - For n = oDrawPage.Count-1 To 0 Step -1 - oShape = oDrawPage(n) - If oShape.Position.Y > -2000 Then - oDrawPage.Remove(oShape) - End If - Next n -End Sub - - -' Destroy all Shapes in Nirwana -Sub RemoveNirwanaShapes() -Dim n as Integer -Dim oControl as Object -Dim oShape as Object - For n = oDrawPage.Count-1 To 0 Step -1 - oShape = oDrawPage(n) - If oShape.Position.Y < -2000 Then - oDrawPage.Remove(oShape) - End If - Next n -End Sub - - - -' Note: as Shapes cannot be removed from the DrawPage without destroying -' the object we have to park them somewhere beyond the visible area of the page -Sub ShapesToNirwana() -Dim n as Integer -Dim oControl as Object - For n = 0 To oDrawPage.Count-1 - oDrawPage(n).Position = GetPoint(-20, -10000) - Next n -End Sub - - -Function CalcUniqueContentName(BYVAL oContainer as Object, sBaseName as String) as String - -Dim nPostfix as Integer -Dim sReturn as String - nPostfix = 2 - sReturn = sBaseName - while (oContainer.hasByName(sReturn)) - sReturn = sBaseName & nPostfix - nPostfix = nPostfix + 1 - Wend - CalcUniqueContentName = sReturn -End Function - - -Function CountItemsInArray(BigArray(), SearchItem) -Dim i as Integer -Dim MaxIndex as Integer -Dim ResCount as Integer - ResCount = 0 - MaxIndex = Ubound(BigArray()) - For i = 0 To MaxIndex - If SearchItem = BigArray(i) Then - ResCount = ResCount + 1 - End If - Next i - CountItemsInArray() = ResCount -End Function - - -Function GetDBHeight(oDBModel as Object) - If CurControlType = cImageControl Then - nDBHeight = 2000 - Else - If CurFieldType = com.sun.star.sdbc.DataType.LONGVARCHAR Then - oDBModel.MultiLine = True - nDBHeight = nDBRefHeight * 4 - Else - nDBHeight = nDBRefHeight - End If - End If - GetDBHeight() = nDBHeight -End Function - - -Function GetFormWizardPaths() as Boolean - FormPath = GetOfficeSubPath("Template","../wizard/bitmap") - If FormPath <> "" Then - WebWizardPath = GetOfficeSubPath("Template","wizard/web") - If WebWizardPath <> "" Then - WizardPath = GetOfficeSubPath("Template","wizard/") - If Wizardpath <> "" Then - TexturePath = GetOfficeSubPath("Gallery", "www-back/") - If TexturePath <> "" Then - WorkPath = GetPathSettings("Work") - If WorkPath <> "" Then - TempPath = GetPathSettings("Temp") - If TempPath <> "" Then - GetFormWizardPaths = True - Exit Function - End If - End If - End If - End If - End If - End If - DisposeDocument(oDocument) - GetFormWizardPaths() = False -End Function - - -Function GetFilterName(sApplicationKey as String) as String -Dim oArgs() -Dim oFactory -Dim i as Integer -Dim Maxindex as Integer -Dim UIName as String - oFactory = createUnoService("com.sun.star.document.FilterFactory") - oArgs() = oFactory.getByName(sApplicationKey) - MaxIndex = Ubound(oArgs()) - For i = 0 to MaxIndex - If (oArgs(i).Name="UIName") Then - UIName = oArgs(i).Value - Exit For - End If - next i - GetFilterName() = UIName -End Function -</script:module> |