home *** CD-ROM | disk | FTP | other *** search
/ PC World 2004 January / PCWorld_2004-01_cd.bin / akce / openoffice / f_0173 / Language.xba < prev    next >
Extensible Markup Language  |  2003-04-11  |  11KB  |  280 lines
  1. <?xml version="1.0" encoding="UTF-8"?>
  2. <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
  3. <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Language" script:language="StarBasic">Option Explicit
  4.  
  5.  
  6. Global Const RID_COMMON    = 1000
  7. Global Const RID_FORM    = 2200
  8.  
  9. Public Const SBCANCEL = 2
  10. Public Const SBREPEAT = 4
  11. Public LabelDiffHeight as Long
  12. Public BasicLabelDiffHeight as Long
  13.  
  14. Public WizardTitle(1 To 3) as String
  15. Public DlgFormDB as Object
  16. Public DialogModel as Object
  17.  
  18. Dim sMsgWizardName as String
  19. Dim sMsgErrMsg as String
  20. Dim sMsgErrNoDatabase as String
  21. Dim sMsgErrNoTableInDatabase as String
  22. Dim sMsgErrTitleSuggestedExist as String
  23. Dim sMsgErrTitleSyntaxError as String
  24. Dim sMsgErrTitleAsTableExist as String
  25. Dim sMsgProgressText as String
  26. Dim sMsgCreatedForm as String
  27. Dim sMsgErrCouldNotOpenObject as String
  28. Dim sMsgErrNameToLong as String
  29. Dim sTimeAppendix as String
  30. Dim sDateAppendix as String
  31. Public sGoOn as String
  32. Public sReady as String
  33. Public sMsgNoConnection as String
  34. Public sWriterFilterName as String        
  35. Public XPixelFactor as Long        
  36. Public YPixelFactor as Long
  37. Public sSelectDatasource as String
  38. Public sSelectDBTable as String
  39.  
  40.  
  41.  
  42. Sub LoadLanguage ()
  43.     sMsgWizardName = GetResText(RID_FORM + 0)
  44.     sMsgErrMsg = GetResText(RID_COMMON + 6)
  45.     sMsgErrNoDatabase = GetResText(RID_COMMON + 8)
  46.     sMsgErrNoTableInDatabase = GetResText(RID_COMMON + 9)
  47.     sMsgErrTitleSuggestedExist = GetResText(RID_COMMON + 10)
  48.     sMsgErrTitleAsTableExist = GetResText(RID_COMMON + 10)
  49.     sMsgErrTitleSyntaxError = GetResText(RID_COMMON + 11)
  50.     sMsgNoConnection = GetResText(RID_COMMON + 14
  51.     sMsgProgressText = GetResText(RID_FORM + 2)
  52.     sMsgCreatedForm = GetResText(RID_FORM + 26)
  53.     sMsgErrNameToLong = GetResText (RID_FORM + 27)
  54.     sMsgErrCouldNotOpenObject = GetResText (RID_COMMON + 13)
  55.  
  56.     '    Internal Logic
  57.     sDateAppendix = GetResText(RID_FORM + 4)
  58.     sTimeAppendix = GetResText(RID_FORM + 5)
  59.     
  60.     sReady = GetResText(RID_COMMON + 0)
  61. End Sub
  62.  
  63.  
  64. Sub SetDialogLanguage ()
  65. Dim i as Integer
  66. Dim ButtonHelpText as String
  67. Dim CmdButton as Object
  68. Dim IDArray as Variant
  69. Dim FNameAddOn as String
  70. Dim slblSelFields as String
  71. Dim slblFields as String
  72.  
  73.     DlgFormDB = LoadDialog("FormWizard", "DlgFormDB")
  74.     DialogModel = DlgFormDB.Model
  75.     
  76.     With DialogModel
  77.         .cmdCancel.Label = GetResText(RID_COMMON + 1)
  78.         .cmdBack.Label = GetResText(RID_COMMON + 2)
  79.         .cmdHelp.Label = GetResText(RID_COMMON + 20)
  80.         sGoOn = GetResText(RID_COMMON + 3)
  81.         .cmdGoOn.Label = sGoOn
  82.         .lblDatabases.Label = GetResText(RID_FORM + 11)
  83.         .lblTables.Label = GetResText(RID_FORM + 6)
  84.  
  85.         slblFields = GetResText(RID_FORM + 12)
  86.         slblSelFields = GetResText(RID_FORM + 13)
  87.         .lblFields.Label = slblFields
  88.         .lblSelFields.Label = slblSelFields
  89.  
  90.         .lblStyles.Label = GetResText(RID_FORM + 21)
  91.         .hlnBorderLayout.Label = GetResText(RID_FORM + 28)
  92.         .hlnAlign.Label = GetResText(RID_FORM + 32)
  93.         .hlnArrangements.Label = GetResText(RID_FORM + 35)
  94.  
  95.         WizardTitle(1) = sMsgWizardName & " - " & GetResText(RID_FORM + 45)
  96.         WizardTitle(2) = sMsgWizardName & " - " & GetResText(RID_FORM + 46)
  97.         WizardTitle(3) = sMsgWizardName & " - " & GetResText(RID_FORM + 47)
  98.  
  99.         .hlnBinaries.Label = GetResText(RID_FORM + 50)
  100.         .optIgnoreBinaries.Label = GetResText(RID_FORM + 51)
  101.         .optBinariesasGraphics.Label = GetResText(RID_FORM + 52)
  102.     
  103.         .hlnBackground.Label = GetResText(RID_FORM + 55)
  104.         .optTiled.Label = GetResText(RID_FORM + 56)
  105.         .optArea.Label = GetResText(RID_FORM + 57)
  106.  
  107.         .optBorder0.Label = GetResText(RID_FORM + 29)
  108.         .optBorder1.Label = GetResText(RID_FORM + 30)
  109.         .optBorder2.Label = GetResText(RID_FORM + 31)
  110.         .optBorder1.State = 1
  111.         
  112.         .optAlign0.Label = GetResText(RID_FORM + 33)
  113.         .optAlign2.Label = GetResText(RID_FORM + 34)
  114.         .optAlign0.State = 1
  115.         
  116.         FNameAddOn = ""
  117.         If isHighContrast(DlgFormDB.getPeer) Then FNameAddOn = "_hc"
  118.  
  119.         IDArray = Array(36, 37, 40, 38, 39)
  120.         For i = 1 To 5
  121.             ButtonHelpText = GetResText(RID_FORM + IDArray(i-1)
  122.             cmdButton = DlgFormDB.getControl("cmdArrange" & i)
  123.             cmdButton.Model.ImageURL = FormPath & "Arrange_" & i & FNameAddOn & ".gif"
  124.             cmdButton.Model.HelpText = ButtonHelpText
  125.             cmdButton.getPeer().setProperty("AccessibleName", ButtonHelpText)
  126.         Next i        
  127. '        .cmdArrange1.ImageURL = FormPath & "Arrange_1" & FNameAddOn & ".gif"
  128. '        .cmdArrange1.HelpText = GetResText(RID_FORM + 36)
  129. '
  130. '        .cmdArrange2.ImageURL = FormPath & "Arrange_2" & FNameAddOn & ".gif"
  131. '        .cmdArrange2.HelpText = GetResText(RID_FORM + 37)
  132. '
  133. '        .cmdArrange3.ImageURL = FormPath & "Arrange_3" & FNameAddOn & ".gif"
  134. '        .cmdArrange3.HelpText = GetResText(RID_FORM + 40)
  135. '
  136. '        .cmdArrange4.ImageURL = FormPath & "Arrange_4" & FNameAddOn & ".gif"
  137. '        .cmdArrange4.HelpText = GetResText(RID_FORM + 38)
  138. '
  139. '        .cmdArrange5.ImageURL = FormPath & "Arrange_5" & FNameAddOn & ".gif"
  140. '        .cmdArrange5.HelpText = GetResText(RID_FORM + 39)
  141.         sWriterFilterName = GetResText(RID_FORM + 70)
  142.     End With
  143.     DlgFormDB.GetControl("cmdMoveSelected").getPeer().setProperty("AccessibleName", GetResText(RID_COMMON + 39)
  144.     DlgFormDB.GetControl("cmdRemoveSelected").getPeer().setProperty("AccessibleName", GetResText(RID_COMMON + 40)
  145.     DlgFormDB.GetControl("cmdMoveAll").getPeer().setProperty("AccessibleName", GetResText(RID_COMMON + 41)
  146.     DlgFormDB.GetControl("cmdRemoveAll").getPeer().setProperty("AccessibleName", GetResText(RID_COMMON + 42)
  147.     DlgFormDB.getControl("lstFields").getPeer().setProperty("AccessibleName", DeleteStr(slblFields, "~"))
  148.     DlgFormDB.getControl("lstSelFields").getPeer().setProperty("AccessibleName", DeleteStr(slblSelFields, "~"))
  149.     
  150.     sSelectDatasource = GetResText(RID_COMMON + 37)
  151.     sSelectDBTable = GetResText(RID_COMMON + 38)    
  152. End Sub
  153.  
  154.  
  155.  
  156. Sub InitializeWidthList()
  157.  
  158.     If Ubound(WidthList(),1) > 15 Then
  159.         ReDim WidthList(15,4)
  160.     End If
  161.  
  162.     WidthList(0,0) = com.sun.star.sdbc.DataType.BIT               ' = -7;
  163.     WidthList(0,1) = cCheckbox
  164.     WidthList(0,2) = False
  165.     WidthList(0,3) = "CheckBox"
  166.  
  167.     WidthList(1,0) = com.sun.star.sdbc.DataType.TINYINT            ' =  -6;
  168.     WidthList(1,1) = cNumericBox
  169.     WidthList(1,2) = False
  170.     WidthList(1,3) = "FormattedField"
  171.     
  172.     WidthList(2,0) = com.sun.star.sdbc.DataType.SMALLINT        ' =   5;
  173.     WidthList(2,1) = cNumericBox
  174.     WidthList(2,2) = False
  175.     WidthList(2,3) = "FormattedField"
  176.     
  177.     WidthList(3,0) = com.sun.star.sdbc.DataType.INTEGER            ' =   4;
  178.     WidthList(3,1) = cNumericBox
  179.     WidthList(3,2) = False
  180.     WidthList(3,3) = "FormattedField"
  181.     
  182.     WidthList(4,0) = com.sun.star.sdbc.DataType.BIGINT            ' =  -5;
  183.     WidthList(4,1) = cNumericBox
  184.     WidthList(4,2) = False
  185.     WidthList(4,3) = "FormattedField"
  186.     
  187.     WidthList(5,0) = com.sun.star.sdbc.DataType.FLOAT            ' =   6;
  188.     WidthList(5,1) = cNumericBox
  189.     WidthList(5,2) = False
  190.     WidthList(5,3) = "FormattedField"
  191.     
  192.     WidthList(6,0) = com.sun.star.sdbc.DataType.REAL            ' =   7;
  193.     WidthList(6,1) = cNumericBox
  194.     WidthList(6,2) = False
  195.     WidthList(6,3) = "FormattedField"
  196.     
  197.     WidthList(7,0) = com.sun.star.sdbc.DataType.DOUBLE            ' =   8;
  198.     WidthList(7,1) = cNumericBox
  199.     WidthList(7,2) = False
  200.     WidthList(7,3) = "FormattedField"
  201.     
  202.     WidthList(8,0) = com.sun.star.sdbc.DataType.NUMERIC            ' =   2;
  203.     WidthList(8,1) = cNumericBox
  204.     WidthList(8,2) = False
  205.     WidthList(8,3) = "FormattedField"
  206.     
  207.     WidthList(9,0) = com.sun.star.sdbc.DataType.DECIMAL            ' =   3;  (including decimal places)
  208.     WidthList(9,1) = cNumericBox
  209.     WidthList(9,2) = False
  210.     WidthList(9,3) = "FormattedField"
  211.     
  212.     WidthList(10,0) = com.sun.star.sdbc.DataType.CHAR            ' =   1;
  213.     WidthList(10,1) = cTextBox
  214.     WidthList(10,2) = False
  215.     WidthList(10,3) = "TextField"
  216.  
  217.     WidthList(11,0) = com.sun.star.sdbc.DataType.VARCHAR        ' =  12;
  218.     WidthList(11,1) = cTextBox
  219.     WidthList(11,2) = True
  220.     WidthList(11,3) = "TextField"
  221.     
  222.     WidthList(12,0) = com.sun.star.sdbc.DataType.LONGVARCHAR    ' =  -1;
  223.     WidthList(12,1) = cTextBox
  224.     WidthList(12,2) = True
  225.     WidthList(12,3) = "TextField"
  226.  
  227.     WidthList(13,0) = com.sun.star.sdbc.DataType.DATE            ' =  91;
  228.     WidthList(13,1) = cDateBox
  229.     WidthList(13,2) = False
  230.     WidthList(13,3) = "DateField"
  231.     
  232.     WidthList(14,0) = com.sun.star.sdbc.DataType.TIME            ' =  92;
  233.     WidthList(14,1) = cTimeBox
  234.     WidthList(14,2) = False
  235.     WidthList(14,3) = "TimeField"
  236.     
  237.     WidthList(15,0) = com.sun.star.sdbc.DataType.TIMESTAMP        ' =  93;
  238.     WidthList(15,1) = cDateBox
  239.     WidthList(15,2) = False
  240.     WidthList(15,3) = "DateField"
  241.  
  242.     ImgWidthList(0,0) = com.sun.star.sdbc.DataType.BINARY            ' =  -2;
  243.     ImgWidthList(0,1) = cImageControl
  244.     ImgWidthList(0,2) = False
  245.     ImgWidthList(0,3) = "ImageControl"
  246.     
  247.     ImgWidthList(1,0) = com.sun.star.sdbc.DataType.VARBINARY        ' =  -3;
  248.     ImgWidthList(1,1) = cImageControl
  249.     ImgWidthList(1,2) = False
  250.     ImgWidthList(1,3) = "ImageControl"
  251.  
  252.     ImgWidthList(2,0) = com.sun.star.sdbc.DataType.LONGVARBINARY    ' =  -4;
  253.     ImgWidthList(2,1) = cImageControl
  254.     ImgWidthList(2,2) = False
  255.     ImgWidthList(2,3) = "ImageControl"
  256.  
  257.     ImgWidthList(3,0) = com.sun.star.sdbc.DataType.BLOB            ' = 2004;
  258.     ImgWidthList(3,1) = cImageControl
  259.     ImgWidthList(3,2) = False
  260.     ImgWidthList(3,3) = "ImageControl"
  261.  
  262. ' Note: the following Fieldtypes are ignored
  263. 'ExcludeList(0) = com.sun.star.sdbc.DataType.SQLNULL
  264. 'ExcludeList(1) = com.sun.star.sdbc.DataType.OTHER
  265. 'ExcludeList(2) = com.sun.star.sdbc.DataType.OBJECT
  266. 'ExcludeList(3) = com.sun.star.sdbc.DataType.DISTINCT
  267. 'ExcludeList(4) = com.sun.star.sdbc.DataType.STRUCT
  268. 'ExcludeList(5) = com.sun.star.sdbc.DataType.ARRAY
  269. 'ExcludeList(6) = com.sun.star.sdbc.DataType.CLOB
  270. 'ExcludeList(7) = com.sun.star.sdbc.DataType.REF
  271.  
  272.     oModelService(cLabel) = "com.sun.star.form.component.FixedText"
  273.     oModelService(cTextBox) = "com.sun.star.form.component.TextField"
  274.     oModelService(cCheckBox) = "com.sun.star.form.component.CheckBox"
  275.     oModelService(cDateBox) = "com.sun.star.form.component.DateField"
  276.     oModelService(cTimeBox) = "com.sun.star.form.component.TimeField"
  277.     oModelService(cNumericBox) = "com.sun.star.form.component.FormattedField"
  278.     oModelService(cGridControl) = "com.sun.star.form.component.GridControl"
  279.     oModelService(cImageControl) = "com.sun.star.form.component.DatabaseImageControl"
  280. End Sub</script:module>