home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 2003 August / VPR0308.ISO / OPENOFFICE / install / f_0142 / Language.xba < prev    next >
Extensible Markup Language  |  2001-12-18  |  9KB  |  256 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 oDialogModel as Object
  17.  
  18. Dim sMsgWizardName as String
  19. Dim sMsgErrMsg as String
  20. Dim sMsgErrFormOpen as String
  21. Dim sMsgErrNoDatabase as String
  22. Dim sMsgErrNoTableInDatabase as String
  23. Dim sMsgErrTitleSuggestedExist as String
  24. Dim sMsgErrTitleSyntaxError as String
  25. Dim sMsgErrTitleAsTableExist as String
  26. Dim sMsgProgressText as String
  27. Dim sMsgCreatedForm as String
  28. Dim sMsgErrCouldNotOpenObject as String
  29. Dim sMsgErrNameToLong as String
  30. Dim sTimeAppendix as String
  31. Dim sDateAppendix as String
  32. Public sGoOn as String
  33. Public sReady as String
  34. Public sMsgNoConnection as String
  35. Public sWriterFilterName as String        
  36. Public XPixelFactor as Long        
  37. Public YPixelFactor as Long
  38.  
  39.  
  40. Sub LoadLanguage ()
  41.     sMsgWizardName = GetResText(RID_FORM + 0)
  42.     sMsgErrMsg = GetResText(RID_COMMON + 6)
  43.     sMsgErrFormOpen = GetResText(RID_COMMON + 7)
  44.     sMsgErrNoDatabase = GetResText(RID_COMMON + 8)
  45.     sMsgErrNoTableInDatabase = GetResText(RID_COMMON + 9)
  46.     sMsgErrTitleSuggestedExist = GetResText(RID_COMMON + 10)
  47.     sMsgErrTitleAsTableExist = GetResText(RID_COMMON + 10)
  48.     sMsgErrTitleSyntaxError = GetResText(RID_COMMON + 11)
  49.     sMsgNoConnection = GetResText(RID_COMMON + 14
  50.     sMsgProgressText = GetResText(RID_FORM + 2)
  51.     sMsgCreatedForm = GetResText(RID_FORM + 26)
  52.     sMsgErrNameToLong = GetResText (RID_FORM + 27)
  53.     sMsgErrCouldNotOpenObject = GetResText (RID_COMMON + 13)
  54.  
  55.     '    Internal Logic
  56.     sDateAppendix = GetResText(RID_FORM + 4)
  57.     sTimeAppendix = GetResText(RID_FORM + 5)
  58.     
  59.     sReady = GetResText(RID_COMMON + 0)
  60.     SetDialogLanguage()
  61. End Sub
  62.  
  63.  
  64. Sub SetDialogLanguage ()
  65.     DlgFormDB = LoadDialog("FormWizard", "DlgFormDB")
  66.     oDialogModel = DlgFormDB.Model
  67.  
  68.     With oDialogModel
  69.         .cmdCancel.Label = GetResText(RID_COMMON + 1)
  70.         .cmdBack.Label = GetResText(RID_COMMON + 2)
  71.         .cmdHelp.Label = GetResText(RID_COMMON + 20)
  72.         sGoOn = GetResText(RID_COMMON + 3)
  73.         .cmdGoOn.Label = sGoOn
  74.         .lblDatabases.Label = GetResText(RID_FORM + 11)
  75.         .lblTables.Label = GetResText(RID_FORM + 6)
  76.  
  77.         .lblFields.Label = GetResText(RID_FORM + 12)
  78.         .lblSelFields.Label = GetResText(RID_FORM + 13)
  79.  
  80.         .lblStyles.Label = GetResText(RID_FORM + 21)
  81.         .hlnBorderLayout.Label = GetResText(RID_FORM + 28)
  82.         .hlnAlign.Label = GetResText(RID_FORM + 32)
  83.         .hlnArrangements.Label = GetResText(RID_FORM + 35)
  84.  
  85.         WizardTitle(1) = sMsgWizardName & " - " & GetResText(RID_FORM + 45)
  86.         WizardTitle(2) = sMsgWizardName & " - " & GetResText(RID_FORM + 46)
  87.         WizardTitle(3) = sMsgWizardName & " - " & GetResText(RID_FORM + 47)
  88.  
  89.         .hlnBinaries.Label = GetResText(RID_FORM + 50)
  90.         .optIgnoreBinaries.Label = GetResText(RID_FORM + 51)
  91.         .optBinariesasGraphics.Label = GetResText(RID_FORM + 52)
  92.     
  93.         .hlnBackground.Label = GetResText(RID_FORM + 55)
  94.         .optTiled.Label = GetResText(RID_FORM + 56)
  95.         .optArea.Label = GetResText(RID_FORM + 57)
  96.  
  97.         .optBorder0.Label = GetResText(RID_FORM + 29)
  98.         .optBorder1.Label = GetResText(RID_FORM + 30)
  99.         .optBorder2.Label = GetResText(RID_FORM + 31)
  100.         .optBorder1.State = 1
  101.         
  102.         .optAlign0.Label = GetResText(RID_FORM + 33)
  103.         .optAlign2.Label = GetResText(RID_FORM + 34)
  104.         .optAlign0.State = 1
  105.         
  106.         .cmdArrange1.ImageURL = FormPath & "Arrange_1.gif"
  107.         .cmdArrange1.HelpText = GetResText(RID_FORM + 36)
  108.     
  109.         .cmdArrange2.ImageURL = FormPath & "Arrange_2.gif"
  110.         .cmdArrange2.HelpText = GetResText(RID_FORM + 37)
  111.  
  112.         .cmdArrange3.ImageURL = FormPath & "Arrange_3.gif"
  113.         .cmdArrange3.HelpText = GetResText(RID_FORM + 40)
  114.  
  115.         .cmdArrange4.ImageURL = FormPath & "Arrange_4.gif"
  116.         .cmdArrange4.HelpText = GetResText(RID_FORM + 38)
  117.  
  118.         .cmdArrange5.ImageURL = FormPath & "Arrange_5.gif"
  119.         .cmdArrange5.HelpText = GetResText(RID_FORM + 39)
  120.  
  121.         sWriterFilterName = GetResText(RID_FORM + 70)
  122.     End With
  123. End Sub
  124.  
  125.  
  126.  
  127. Sub InitializeWidthList()
  128.  
  129. ' Todo: 'Currency' ist ein Flag, dass grundsﾃ､tzlich an jedes Feld angehﾃ､ngt sein kann.
  130. ' An der Connection kann man irgendwie abfragen, ob ein bestimmter Datentyp als Wﾃ､hrung 
  131. ' interpretiert wird. Darstellung ﾃｼber Numberformatter. Ist nicht konsistent ﾃｼber Datenbanken.
  132. ' auﾃ歹rdem dﾃｼrften hier einige Treiber auch buggy sein.
  133.  
  134.     If Ubound(WidthList(),1) > 15 Then
  135.         ReDim WidthList(15,4)
  136.     End If
  137.  
  138.     WidthList(0,0) = com.sun.star.sdbc.DataType.BIT               ' = -7;
  139.     WidthList(0,1) = cCheckbox
  140.     WidthList(0,2) = False
  141.     WidthList(0,3) = "CheckBox"
  142.  
  143.     WidthList(1,0) = com.sun.star.sdbc.DataType.TINYINT            ' =  -6;
  144.     WidthList(1,1) = cNumericBox
  145.     WidthList(1,2) = False
  146.     WidthList(1,3) = "FormattedField"
  147.     
  148.     WidthList(2,0) = com.sun.star.sdbc.DataType.SMALLINT        ' =   5;
  149.     WidthList(2,1) = cNumericBox
  150.     WidthList(2,2) = False
  151.     WidthList(2,3) = "FormattedField"
  152.     
  153.     WidthList(3,0) = com.sun.star.sdbc.DataType.INTEGER            ' =   4;
  154.     WidthList(3,1) = cNumericBox
  155.     WidthList(3,2) = False
  156.     WidthList(3,3) = "FormattedField"
  157.     
  158.     WidthList(4,0) = com.sun.star.sdbc.DataType.BIGINT            ' =  -5;
  159.     WidthList(4,1) = cNumericBox
  160.     WidthList(4,2) = False
  161.     WidthList(4,3) = "FormattedField"
  162.     
  163.     WidthList(5,0) = com.sun.star.sdbc.DataType.FLOAT            ' =   6;
  164.     WidthList(5,1) = cNumericBox
  165.     WidthList(5,2) = False
  166.     WidthList(5,3) = "FormattedField"
  167.     
  168.     WidthList(6,0) = com.sun.star.sdbc.DataType.REAL            ' =   7;
  169.     WidthList(6,1) = cNumericBox
  170.     WidthList(6,2) = False
  171.     WidthList(6,3) = "FormattedField"
  172.     
  173.     WidthList(7,0) = com.sun.star.sdbc.DataType.DOUBLE            ' =   8;
  174.     WidthList(7,1) = cNumericBox
  175.     WidthList(7,2) = False
  176.     WidthList(7,3) = "FormattedField"
  177.     
  178.     WidthList(8,0) = com.sun.star.sdbc.DataType.NUMERIC            ' =   2;
  179.     WidthList(8,1) = cNumericBox
  180.     WidthList(8,2) = False
  181.     WidthList(8,3) = "FormattedField"
  182.     
  183.     WidthList(9,0) = com.sun.star.sdbc.DataType.DECIMAL            ' =   3;  (mit Nachkommastellen)
  184.     WidthList(9,1) = cNumericBox
  185.     WidthList(9,2) = False
  186.     WidthList(9,3) = "FormattedField"
  187.     
  188.     WidthList(10,0) = com.sun.star.sdbc.DataType.CHAR            ' =   1;
  189.     WidthList(10,1) = cTextBox
  190.     WidthList(10,2) = False
  191.     WidthList(10,3) = "TextField"
  192.  
  193.     WidthList(11,0) = com.sun.star.sdbc.DataType.VARCHAR        ' =  12;
  194.     WidthList(11,1) = cTextBox
  195.     WidthList(11,2) = True
  196.     WidthList(11,3) = "TextField"
  197.     
  198.     WidthList(12,0) = com.sun.star.sdbc.DataType.LONGVARCHAR    ' =  -1;
  199.     WidthList(12,1) = cTextBox
  200.     WidthList(12,2) = True
  201.     WidthList(12,3) = "TextField"
  202.  
  203.     WidthList(13,0) = com.sun.star.sdbc.DataType.DATE            ' =  91;
  204.     WidthList(13,1) = cDateBox
  205.     WidthList(13,2) = False
  206.     WidthList(13,3) = "DateField"
  207.     
  208.     WidthList(14,0) = com.sun.star.sdbc.DataType.TIME            ' =  92;
  209.     WidthList(14,1) = cTimeBox
  210.     WidthList(14,2) = False
  211.     WidthList(14,3) = "TimeField"
  212.     
  213.     WidthList(15,0) = com.sun.star.sdbc.DataType.TIMESTAMP        ' =  93;
  214.     WidthList(15,1) = cDateBox
  215.     WidthList(15,2) = False
  216.     WidthList(15,3) = "DateField"
  217.  
  218.     ImgWidthList(0,0) = com.sun.star.sdbc.DataType.BINARY            ' =  -2;
  219.     ImgWidthList(0,1) = cImageControl
  220.     ImgWidthList(0,2) = False
  221.     ImgWidthList(0,3) = "ImageControl"
  222.     
  223.     ImgWidthList(1,0) = com.sun.star.sdbc.DataType.VARBINARY        ' =  -3;
  224.     ImgWidthList(1,1) = cImageControl
  225.     ImgWidthList(1,2) = False
  226.     ImgWidthList(1,3) = "ImageControl"
  227.  
  228.     ImgWidthList(2,0) = com.sun.star.sdbc.DataType.LONGVARBINARY    ' =  -4;
  229.     ImgWidthList(2,1) = cImageControl
  230.     ImgWidthList(2,2) = False
  231.     ImgWidthList(2,3) = "ImageControl"
  232.  
  233.     ImgWidthList(3,0) = com.sun.star.sdbc.DataType.BLOB            ' = 2004;
  234.     ImgWidthList(3,1) = cImageControl
  235.     ImgWidthList(3,2) = False
  236.     ImgWidthList(3,3) = "ImageControl"
  237.  
  238. ' Note: the following Fieldtypes are ignored
  239. 'ExcludeList(0) = com.sun.star.sdbc.DataType.SQLNULL
  240. 'ExcludeList(1) = com.sun.star.sdbc.DataType.OTHER
  241. 'ExcludeList(2) = com.sun.star.sdbc.DataType.OBJECT
  242. 'ExcludeList(3) = com.sun.star.sdbc.DataType.DISTINCT
  243. 'ExcludeList(4) = com.sun.star.sdbc.DataType.STRUCT
  244. 'ExcludeList(5) = com.sun.star.sdbc.DataType.ARRAY
  245. 'ExcludeList(6) = com.sun.star.sdbc.DataType.CLOB
  246. 'ExcludeList(7) = com.sun.star.sdbc.DataType.REF
  247.  
  248.     oModelService(cLabel) = "com.sun.star.form.component.FixedText"
  249.     oModelService(cTextBox) = "com.sun.star.form.component.TextField"
  250.     oModelService(cCheckBox) = "com.sun.star.form.component.CheckBox"
  251.     oModelService(cDateBox) = "com.sun.star.form.component.DateField"
  252.     oModelService(cTimeBox) = "com.sun.star.form.component.TimeField"
  253.     oModelService(cNumericBox) = "com.sun.star.form.component.FormattedField"
  254.     oModelService(cGridControl) = "com.sun.star.form.component.GridControl"
  255.     oModelService(cImageControl) = "com.sun.star.form.component.DatabaseImageControl"
  256. End Sub</script:module>