1*b1cdbd2cSJim Jagielski<?xml version="1.0" encoding="UTF-8"?> 2*b1cdbd2cSJim Jagielski<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> 3*b1cdbd2cSJim Jagielski<!--*********************************************************** 4*b1cdbd2cSJim Jagielski * 5*b1cdbd2cSJim Jagielski * Licensed to the Apache Software Foundation (ASF) under one 6*b1cdbd2cSJim Jagielski * or more contributor license agreements. See the NOTICE file 7*b1cdbd2cSJim Jagielski * distributed with this work for additional information 8*b1cdbd2cSJim Jagielski * regarding copyright ownership. The ASF licenses this file 9*b1cdbd2cSJim Jagielski * to you under the Apache License, Version 2.0 (the 10*b1cdbd2cSJim Jagielski * "License"); you may not use this file except in compliance 11*b1cdbd2cSJim Jagielski * with the License. You may obtain a copy of the License at 12*b1cdbd2cSJim Jagielski * 13*b1cdbd2cSJim Jagielski * http://www.apache.org/licenses/LICENSE-2.0 14*b1cdbd2cSJim Jagielski * 15*b1cdbd2cSJim Jagielski * Unless required by applicable law or agreed to in writing, 16*b1cdbd2cSJim Jagielski * software distributed under the License is distributed on an 17*b1cdbd2cSJim Jagielski * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 18*b1cdbd2cSJim Jagielski * KIND, either express or implied. See the License for the 19*b1cdbd2cSJim Jagielski * specific language governing permissions and limitations 20*b1cdbd2cSJim Jagielski * under the License. 21*b1cdbd2cSJim Jagielski * 22*b1cdbd2cSJim Jagielski ***********************************************************--> 23*b1cdbd2cSJim Jagielski<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Language" script:language="StarBasic">Option Explicit 24*b1cdbd2cSJim Jagielski 25*b1cdbd2cSJim Jagielski 26*b1cdbd2cSJim JagielskiGlobal Const RID_COMMON = 1000 27*b1cdbd2cSJim JagielskiGlobal Const RID_FORM = 2200 28*b1cdbd2cSJim Jagielski 29*b1cdbd2cSJim JagielskiPublic Const SBCANCEL = 2 30*b1cdbd2cSJim JagielskiPublic Const SBREPEAT = 4 31*b1cdbd2cSJim JagielskiPublic LabelDiffHeight as Long 32*b1cdbd2cSJim JagielskiPublic BasicLabelDiffHeight as Long 33*b1cdbd2cSJim Jagielski 34*b1cdbd2cSJim JagielskiPublic WizardTitle(1 To 3) as String 35*b1cdbd2cSJim JagielskiPublic DlgFormDB as Object 36*b1cdbd2cSJim JagielskiPublic DialogModel as Object 37*b1cdbd2cSJim Jagielski 38*b1cdbd2cSJim JagielskiDim sMsgWizardName as String 39*b1cdbd2cSJim JagielskiDim sMsgErrMsg as String 40*b1cdbd2cSJim JagielskiDim sMsgErrNoDatabase as String 41*b1cdbd2cSJim JagielskiDim sMsgErrNoTableInDatabase as String 42*b1cdbd2cSJim JagielskiDim sMsgErrTitleSuggestedExist as String 43*b1cdbd2cSJim JagielskiDim sMsgErrTitleSyntaxError as String 44*b1cdbd2cSJim JagielskiDim sMsgErrTitleAsTableExist as String 45*b1cdbd2cSJim JagielskiDim sMsgProgressText as String 46*b1cdbd2cSJim JagielskiDim sMsgCreatedForm as String 47*b1cdbd2cSJim JagielskiDim sMsgErrCouldNotOpenObject as String 48*b1cdbd2cSJim JagielskiDim sMsgErrNameToLong as String 49*b1cdbd2cSJim JagielskiDim sTimeAppendix as String 50*b1cdbd2cSJim JagielskiDim sDateAppendix as String 51*b1cdbd2cSJim JagielskiPublic sGoOn as String 52*b1cdbd2cSJim JagielskiPublic sReady as String 53*b1cdbd2cSJim JagielskiPublic sMsgNoConnection as String 54*b1cdbd2cSJim JagielskiPublic sWriterFilterName as String 55*b1cdbd2cSJim JagielskiPublic XPixelFactor as Long 56*b1cdbd2cSJim JagielskiPublic YPixelFactor as Long 57*b1cdbd2cSJim JagielskiPublic sSelectDatasource as String 58*b1cdbd2cSJim JagielskiPublic sSelectDBTable as String 59*b1cdbd2cSJim Jagielski 60*b1cdbd2cSJim Jagielski 61*b1cdbd2cSJim Jagielski 62*b1cdbd2cSJim JagielskiSub LoadLanguage () 63*b1cdbd2cSJim Jagielski sMsgWizardName = GetResText(RID_FORM + 0) 64*b1cdbd2cSJim Jagielski sMsgErrMsg = GetResText(RID_COMMON + 6) 65*b1cdbd2cSJim Jagielski sMsgErrNoDatabase = GetResText(RID_COMMON + 8) 66*b1cdbd2cSJim Jagielski sMsgErrNoTableInDatabase = GetResText(RID_COMMON + 9) 67*b1cdbd2cSJim Jagielski sMsgErrTitleSuggestedExist = GetResText(RID_COMMON + 10) 68*b1cdbd2cSJim Jagielski sMsgErrTitleAsTableExist = GetResText(RID_COMMON + 10) 69*b1cdbd2cSJim Jagielski sMsgErrTitleSyntaxError = GetResText(RID_COMMON + 11) 70*b1cdbd2cSJim Jagielski sMsgNoConnection = GetResText(RID_COMMON + 14 71*b1cdbd2cSJim Jagielski sMsgProgressText = GetResText(RID_FORM + 2) 72*b1cdbd2cSJim Jagielski sMsgCreatedForm = GetResText(RID_FORM + 26) 73*b1cdbd2cSJim Jagielski sMsgErrNameToLong = GetResText (RID_FORM + 27) 74*b1cdbd2cSJim Jagielski sMsgErrCouldNotOpenObject = GetResText (RID_COMMON + 13) 75*b1cdbd2cSJim Jagielski 76*b1cdbd2cSJim Jagielski ' Internal Logic 77*b1cdbd2cSJim Jagielski sDateAppendix = GetResText(RID_FORM + 4) 78*b1cdbd2cSJim Jagielski sTimeAppendix = GetResText(RID_FORM + 5) 79*b1cdbd2cSJim Jagielski 80*b1cdbd2cSJim Jagielski sReady = GetResText(RID_COMMON + 0) 81*b1cdbd2cSJim JagielskiEnd Sub 82*b1cdbd2cSJim Jagielski 83*b1cdbd2cSJim Jagielski 84*b1cdbd2cSJim JagielskiSub SetDialogLanguage () 85*b1cdbd2cSJim JagielskiDim i as Integer 86*b1cdbd2cSJim JagielskiDim ButtonHelpText as String 87*b1cdbd2cSJim JagielskiDim CmdButton as Object 88*b1cdbd2cSJim JagielskiDim IDArray as Variant 89*b1cdbd2cSJim JagielskiDim FNameAddOn as String 90*b1cdbd2cSJim JagielskiDim slblSelFields as String 91*b1cdbd2cSJim JagielskiDim slblFields as String 92*b1cdbd2cSJim Jagielski 93*b1cdbd2cSJim Jagielski DlgFormDB = LoadDialog("FormWizard", "DlgFormDB") 94*b1cdbd2cSJim Jagielski DialogModel = DlgFormDB.Model 95*b1cdbd2cSJim Jagielski 96*b1cdbd2cSJim Jagielski With DialogModel 97*b1cdbd2cSJim Jagielski .cmdCancel.Label = GetResText(RID_COMMON + 1) 98*b1cdbd2cSJim Jagielski .cmdBack.Label = GetResText(RID_COMMON + 2) 99*b1cdbd2cSJim Jagielski .cmdHelp.Label = GetResText(RID_COMMON + 20) 100*b1cdbd2cSJim Jagielski sGoOn = GetResText(RID_COMMON + 3) 101*b1cdbd2cSJim Jagielski .cmdGoOn.Label = sGoOn 102*b1cdbd2cSJim Jagielski .lblTables.Label = GetResText(RID_FORM + 6) 103*b1cdbd2cSJim Jagielski 104*b1cdbd2cSJim Jagielski slblFields = GetResText(RID_FORM + 12) 105*b1cdbd2cSJim Jagielski slblSelFields = GetResText(RID_FORM + 13) 106*b1cdbd2cSJim Jagielski .lblFields.Label = slblFields 107*b1cdbd2cSJim Jagielski .lblSelFields.Label = slblSelFields 108*b1cdbd2cSJim Jagielski 109*b1cdbd2cSJim Jagielski .lblStyles.Label = GetResText(RID_FORM + 21) 110*b1cdbd2cSJim Jagielski .hlnBorderLayout.Label = GetResText(RID_FORM + 28) 111*b1cdbd2cSJim Jagielski .hlnAlign.Label = GetResText(RID_FORM + 32) 112*b1cdbd2cSJim Jagielski .hlnArrangements.Label = GetResText(RID_FORM + 35) 113*b1cdbd2cSJim Jagielski 114*b1cdbd2cSJim Jagielski WizardTitle(1) = sMsgWizardName & " - " & GetResText(RID_FORM + 45) 115*b1cdbd2cSJim Jagielski WizardTitle(2) = sMsgWizardName & " - " & GetResText(RID_FORM + 46) 116*b1cdbd2cSJim Jagielski WizardTitle(3) = sMsgWizardName & " - " & GetResText(RID_FORM + 47) 117*b1cdbd2cSJim Jagielski 118*b1cdbd2cSJim Jagielski .hlnBinaries.Label = GetResText(RID_FORM + 50) 119*b1cdbd2cSJim Jagielski .optIgnoreBinaries.Label = GetResText(RID_FORM + 51) 120*b1cdbd2cSJim Jagielski .optBinariesasGraphics.Label = GetResText(RID_FORM + 52) 121*b1cdbd2cSJim Jagielski 122*b1cdbd2cSJim Jagielski .hlnBackground.Label = GetResText(RID_FORM + 55) 123*b1cdbd2cSJim Jagielski .optTiled.Label = GetResText(RID_FORM + 56) 124*b1cdbd2cSJim Jagielski .optArea.Label = GetResText(RID_FORM + 57) 125*b1cdbd2cSJim Jagielski 126*b1cdbd2cSJim Jagielski .optBorder0.Label = GetResText(RID_FORM + 29) 127*b1cdbd2cSJim Jagielski .optBorder1.Label = GetResText(RID_FORM + 30) 128*b1cdbd2cSJim Jagielski .optBorder2.Label = GetResText(RID_FORM + 31) 129*b1cdbd2cSJim Jagielski .optBorder1.State = 1 130*b1cdbd2cSJim Jagielski 131*b1cdbd2cSJim Jagielski .optAlign0.Label = GetResText(RID_FORM + 33) 132*b1cdbd2cSJim Jagielski .optAlign2.Label = GetResText(RID_FORM + 34) 133*b1cdbd2cSJim Jagielski .optAlign0.State = 1 134*b1cdbd2cSJim Jagielski 135*b1cdbd2cSJim Jagielski FNameAddOn = "" 136*b1cdbd2cSJim Jagielski If isHighContrast(DlgFormDB.getPeer) Then FNameAddOn = "_hc" 137*b1cdbd2cSJim Jagielski 138*b1cdbd2cSJim Jagielski IDArray = Array(36, 37, 40, 38, 39) 139*b1cdbd2cSJim Jagielski For i = 1 To 5 140*b1cdbd2cSJim Jagielski ButtonHelpText = GetResText(RID_FORM + IDArray(i-1) 141*b1cdbd2cSJim Jagielski cmdButton = DlgFormDB.getControl("cmdArrange" & i) 142*b1cdbd2cSJim Jagielski cmdButton.Model.ImageURL = FormPath & "Arrange_" & i & FNameAddOn & ".gif" 143*b1cdbd2cSJim Jagielski cmdButton.Model.HelpText = ButtonHelpText 144*b1cdbd2cSJim Jagielski cmdButton.getPeer().setProperty("AccessibleName", ButtonHelpText) 145*b1cdbd2cSJim Jagielski Next i 146*b1cdbd2cSJim Jagielski' .cmdArrange1.ImageURL = FormPath & "Arrange_1" & FNameAddOn & ".gif" 147*b1cdbd2cSJim Jagielski' .cmdArrange1.HelpText = GetResText(RID_FORM + 36) 148*b1cdbd2cSJim Jagielski' 149*b1cdbd2cSJim Jagielski' .cmdArrange2.ImageURL = FormPath & "Arrange_2" & FNameAddOn & ".gif" 150*b1cdbd2cSJim Jagielski' .cmdArrange2.HelpText = GetResText(RID_FORM + 37) 151*b1cdbd2cSJim Jagielski' 152*b1cdbd2cSJim Jagielski' .cmdArrange3.ImageURL = FormPath & "Arrange_3" & FNameAddOn & ".gif" 153*b1cdbd2cSJim Jagielski' .cmdArrange3.HelpText = GetResText(RID_FORM + 40) 154*b1cdbd2cSJim Jagielski' 155*b1cdbd2cSJim Jagielski' .cmdArrange4.ImageURL = FormPath & "Arrange_4" & FNameAddOn & ".gif" 156*b1cdbd2cSJim Jagielski' .cmdArrange4.HelpText = GetResText(RID_FORM + 38) 157*b1cdbd2cSJim Jagielski' 158*b1cdbd2cSJim Jagielski' .cmdArrange5.ImageURL = FormPath & "Arrange_5" & FNameAddOn & ".gif" 159*b1cdbd2cSJim Jagielski' .cmdArrange5.HelpText = GetResText(RID_FORM + 39) 160*b1cdbd2cSJim Jagielski sWriterFilterName = GetResText(RID_FORM + 70) 161*b1cdbd2cSJim Jagielski End With 162*b1cdbd2cSJim Jagielski DlgFormDB.GetControl("cmdMoveSelected").getPeer().setProperty("AccessibleName", GetResText(RID_COMMON + 39) 163*b1cdbd2cSJim Jagielski DlgFormDB.GetControl("cmdRemoveSelected").getPeer().setProperty("AccessibleName", GetResText(RID_COMMON + 40) 164*b1cdbd2cSJim Jagielski DlgFormDB.GetControl("cmdMoveAll").getPeer().setProperty("AccessibleName", GetResText(RID_COMMON + 41) 165*b1cdbd2cSJim Jagielski DlgFormDB.GetControl("cmdRemoveAll").getPeer().setProperty("AccessibleName", GetResText(RID_COMMON + 42) 166*b1cdbd2cSJim Jagielski DlgFormDB.getControl("lstFields").getPeer().setProperty("AccessibleName", DeleteStr(slblFields, "~")) 167*b1cdbd2cSJim Jagielski DlgFormDB.getControl("lstSelFields").getPeer().setProperty("AccessibleName", DeleteStr(slblSelFields, "~")) 168*b1cdbd2cSJim Jagielski 169*b1cdbd2cSJim Jagielski sSelectDatasource = GetResText(RID_COMMON + 37) 170*b1cdbd2cSJim Jagielski sSelectDBTable = GetResText(RID_COMMON + 38) 171*b1cdbd2cSJim JagielskiEnd Sub 172*b1cdbd2cSJim Jagielski 173*b1cdbd2cSJim Jagielski 174*b1cdbd2cSJim Jagielski 175*b1cdbd2cSJim JagielskiSub InitializeWidthList() 176*b1cdbd2cSJim Jagielski 177*b1cdbd2cSJim Jagielski If Ubound(WidthList(),1) > 16 Then 178*b1cdbd2cSJim Jagielski ReDim WidthList(16,4) 179*b1cdbd2cSJim Jagielski End If 180*b1cdbd2cSJim Jagielski 181*b1cdbd2cSJim Jagielski WidthList(0,0) = com.sun.star.sdbc.DataType.BIT ' = -7; 182*b1cdbd2cSJim Jagielski WidthList(0,1) = cCheckbox 183*b1cdbd2cSJim Jagielski WidthList(0,2) = False 184*b1cdbd2cSJim Jagielski WidthList(0,3) = "CheckBox" 185*b1cdbd2cSJim Jagielski 186*b1cdbd2cSJim Jagielski WidthList(1,0) = com.sun.star.sdbc.DataType.TINYINT ' = -6; 187*b1cdbd2cSJim Jagielski WidthList(1,1) = cNumericBox 188*b1cdbd2cSJim Jagielski WidthList(1,2) = False 189*b1cdbd2cSJim Jagielski WidthList(1,3) = "FormattedField" 190*b1cdbd2cSJim Jagielski 191*b1cdbd2cSJim Jagielski WidthList(2,0) = com.sun.star.sdbc.DataType.SMALLINT ' = 5; 192*b1cdbd2cSJim Jagielski WidthList(2,1) = cNumericBox 193*b1cdbd2cSJim Jagielski WidthList(2,2) = False 194*b1cdbd2cSJim Jagielski WidthList(2,3) = "FormattedField" 195*b1cdbd2cSJim Jagielski 196*b1cdbd2cSJim Jagielski WidthList(3,0) = com.sun.star.sdbc.DataType.INTEGER ' = 4; 197*b1cdbd2cSJim Jagielski WidthList(3,1) = cNumericBox 198*b1cdbd2cSJim Jagielski WidthList(3,2) = False 199*b1cdbd2cSJim Jagielski WidthList(3,3) = "FormattedField" 200*b1cdbd2cSJim Jagielski 201*b1cdbd2cSJim Jagielski WidthList(4,0) = com.sun.star.sdbc.DataType.BIGINT ' = -5; 202*b1cdbd2cSJim Jagielski WidthList(4,1) = cNumericBox 203*b1cdbd2cSJim Jagielski WidthList(4,2) = False 204*b1cdbd2cSJim Jagielski WidthList(4,3) = "FormattedField" 205*b1cdbd2cSJim Jagielski 206*b1cdbd2cSJim Jagielski WidthList(5,0) = com.sun.star.sdbc.DataType.FLOAT ' = 6; 207*b1cdbd2cSJim Jagielski WidthList(5,1) = cNumericBox 208*b1cdbd2cSJim Jagielski WidthList(5,2) = False 209*b1cdbd2cSJim Jagielski WidthList(5,3) = "FormattedField" 210*b1cdbd2cSJim Jagielski 211*b1cdbd2cSJim Jagielski WidthList(6,0) = com.sun.star.sdbc.DataType.REAL ' = 7; 212*b1cdbd2cSJim Jagielski WidthList(6,1) = cNumericBox 213*b1cdbd2cSJim Jagielski WidthList(6,2) = False 214*b1cdbd2cSJim Jagielski WidthList(6,3) = "FormattedField" 215*b1cdbd2cSJim Jagielski 216*b1cdbd2cSJim Jagielski WidthList(7,0) = com.sun.star.sdbc.DataType.DOUBLE ' = 8; 217*b1cdbd2cSJim Jagielski WidthList(7,1) = cNumericBox 218*b1cdbd2cSJim Jagielski WidthList(7,2) = False 219*b1cdbd2cSJim Jagielski WidthList(7,3) = "FormattedField" 220*b1cdbd2cSJim Jagielski 221*b1cdbd2cSJim Jagielski WidthList(8,0) = com.sun.star.sdbc.DataType.NUMERIC ' = 2; 222*b1cdbd2cSJim Jagielski WidthList(8,1) = cNumericBox 223*b1cdbd2cSJim Jagielski WidthList(8,2) = False 224*b1cdbd2cSJim Jagielski WidthList(8,3) = "FormattedField" 225*b1cdbd2cSJim Jagielski 226*b1cdbd2cSJim Jagielski WidthList(9,0) = com.sun.star.sdbc.DataType.DECIMAL ' = 3; (including decimal places) 227*b1cdbd2cSJim Jagielski WidthList(9,1) = cNumericBox 228*b1cdbd2cSJim Jagielski WidthList(9,2) = False 229*b1cdbd2cSJim Jagielski WidthList(9,3) = "FormattedField" 230*b1cdbd2cSJim Jagielski 231*b1cdbd2cSJim Jagielski WidthList(10,0) = com.sun.star.sdbc.DataType.CHAR ' = 1; 232*b1cdbd2cSJim Jagielski WidthList(10,1) = cTextBox 233*b1cdbd2cSJim Jagielski WidthList(10,2) = False 234*b1cdbd2cSJim Jagielski WidthList(10,3) = "TextField" 235*b1cdbd2cSJim Jagielski 236*b1cdbd2cSJim Jagielski WidthList(11,0) = com.sun.star.sdbc.DataType.VARCHAR ' = 12; 237*b1cdbd2cSJim Jagielski WidthList(11,1) = cTextBox 238*b1cdbd2cSJim Jagielski WidthList(11,2) = True 239*b1cdbd2cSJim Jagielski WidthList(11,3) = "TextField" 240*b1cdbd2cSJim Jagielski 241*b1cdbd2cSJim Jagielski WidthList(12,0) = com.sun.star.sdbc.DataType.LONGVARCHAR ' = -1; 242*b1cdbd2cSJim Jagielski WidthList(12,1) = cTextBox 243*b1cdbd2cSJim Jagielski WidthList(12,2) = True 244*b1cdbd2cSJim Jagielski WidthList(12,3) = "TextField" 245*b1cdbd2cSJim Jagielski 246*b1cdbd2cSJim Jagielski WidthList(13,0) = com.sun.star.sdbc.DataType.DATE ' = 91; 247*b1cdbd2cSJim Jagielski WidthList(13,1) = cDateBox 248*b1cdbd2cSJim Jagielski WidthList(13,2) = False 249*b1cdbd2cSJim Jagielski WidthList(13,3) = "DateField" 250*b1cdbd2cSJim Jagielski 251*b1cdbd2cSJim Jagielski WidthList(14,0) = com.sun.star.sdbc.DataType.TIME ' = 92; 252*b1cdbd2cSJim Jagielski WidthList(14,1) = cTimeBox 253*b1cdbd2cSJim Jagielski WidthList(14,2) = False 254*b1cdbd2cSJim Jagielski WidthList(14,3) = "TimeField" 255*b1cdbd2cSJim Jagielski 256*b1cdbd2cSJim Jagielski WidthList(15,0) = com.sun.star.sdbc.DataType.TIMESTAMP ' = 93; 257*b1cdbd2cSJim Jagielski WidthList(15,1) = cDateBox 258*b1cdbd2cSJim Jagielski WidthList(15,2) = False 259*b1cdbd2cSJim Jagielski WidthList(15,3) = "DateField" 260*b1cdbd2cSJim Jagielski 261*b1cdbd2cSJim Jagielski WidthList(16,0) = com.sun.star.sdbc.DataType.BOOLEAN ' = 16; 262*b1cdbd2cSJim Jagielski WidthList(16,1) = cCheckbox 263*b1cdbd2cSJim Jagielski WidthList(16,2) = False 264*b1cdbd2cSJim Jagielski WidthList(16,3) = "CheckBox" 265*b1cdbd2cSJim Jagielski 266*b1cdbd2cSJim Jagielski ImgWidthList(0,0) = com.sun.star.sdbc.DataType.BINARY ' = -2; 267*b1cdbd2cSJim Jagielski ImgWidthList(0,1) = cImageControl 268*b1cdbd2cSJim Jagielski ImgWidthList(0,2) = False 269*b1cdbd2cSJim Jagielski ImgWidthList(0,3) = "ImageControl" 270*b1cdbd2cSJim Jagielski 271*b1cdbd2cSJim Jagielski ImgWidthList(1,0) = com.sun.star.sdbc.DataType.VARBINARY ' = -3; 272*b1cdbd2cSJim Jagielski ImgWidthList(1,1) = cImageControl 273*b1cdbd2cSJim Jagielski ImgWidthList(1,2) = False 274*b1cdbd2cSJim Jagielski ImgWidthList(1,3) = "ImageControl" 275*b1cdbd2cSJim Jagielski 276*b1cdbd2cSJim Jagielski ImgWidthList(2,0) = com.sun.star.sdbc.DataType.LONGVARBINARY ' = -4; 277*b1cdbd2cSJim Jagielski ImgWidthList(2,1) = cImageControl 278*b1cdbd2cSJim Jagielski ImgWidthList(2,2) = False 279*b1cdbd2cSJim Jagielski ImgWidthList(2,3) = "ImageControl" 280*b1cdbd2cSJim Jagielski 281*b1cdbd2cSJim Jagielski ImgWidthList(3,0) = com.sun.star.sdbc.DataType.BLOB ' = 2004; 282*b1cdbd2cSJim Jagielski ImgWidthList(3,1) = cImageControl 283*b1cdbd2cSJim Jagielski ImgWidthList(3,2) = False 284*b1cdbd2cSJim Jagielski ImgWidthList(3,3) = "ImageControl" 285*b1cdbd2cSJim Jagielski 286*b1cdbd2cSJim Jagielski' Note: the following Fieldtypes are ignored 287*b1cdbd2cSJim Jagielski'ExcludeList(0) = com.sun.star.sdbc.DataType.SQLNULL 288*b1cdbd2cSJim Jagielski'ExcludeList(1) = com.sun.star.sdbc.DataType.OTHER 289*b1cdbd2cSJim Jagielski'ExcludeList(2) = com.sun.star.sdbc.DataType.OBJECT 290*b1cdbd2cSJim Jagielski'ExcludeList(3) = com.sun.star.sdbc.DataType.DISTINCT 291*b1cdbd2cSJim Jagielski'ExcludeList(4) = com.sun.star.sdbc.DataType.STRUCT 292*b1cdbd2cSJim Jagielski'ExcludeList(5) = com.sun.star.sdbc.DataType.ARRAY 293*b1cdbd2cSJim Jagielski'ExcludeList(6) = com.sun.star.sdbc.DataType.CLOB 294*b1cdbd2cSJim Jagielski'ExcludeList(7) = com.sun.star.sdbc.DataType.REF 295*b1cdbd2cSJim Jagielski 296*b1cdbd2cSJim Jagielski oModelService(cLabel) = "com.sun.star.form.component.FixedText" 297*b1cdbd2cSJim Jagielski oModelService(cTextBox) = "com.sun.star.form.component.TextField" 298*b1cdbd2cSJim Jagielski oModelService(cCheckBox) = "com.sun.star.form.component.CheckBox" 299*b1cdbd2cSJim Jagielski oModelService(cDateBox) = "com.sun.star.form.component.DateField" 300*b1cdbd2cSJim Jagielski oModelService(cTimeBox) = "com.sun.star.form.component.TimeField" 301*b1cdbd2cSJim Jagielski oModelService(cNumericBox) = "com.sun.star.form.component.FormattedField" 302*b1cdbd2cSJim Jagielski oModelService(cGridControl) = "com.sun.star.form.component.GridControl" 303*b1cdbd2cSJim Jagielski oModelService(cImageControl) = "com.sun.star.form.component.DatabaseImageControl" 304*b1cdbd2cSJim JagielskiEnd Sub 305*b1cdbd2cSJim Jagielski</script:module> 306