home *** CD-ROM | disk | FTP | other *** search
/ com!online 2001 December / COMCD1201.iso / openoffice / f_0020 / Language.xba < prev    next >
Encoding:
Extensible Markup Language  |  2001-08-21  |  10.7 KB  |  291 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.  
  12. Public WizardTitle(1 To 3) as String
  13. Public DlgFormDB as Object
  14. Public oDialogModel as Object
  15.  
  16. '    Global Msg
  17. Dim sMsgWizardName as String
  18. Dim sMsgErrMsg as String
  19. Dim sMsgErrFormOpen 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.  
  30. '    Internal Logic
  31. Dim Form_ilFormTitleSuggestPrefix as String
  32.  
  33. Dim sMsgDatetime_DateComponent as String
  34. Dim sMsgDatetime_TimeComponent as String
  35.  
  36. Public sGoOn as String
  37. Public sReady as String
  38. Public sMsgNoConnection as String
  39. Public sWriterFilterName as String        
  40. Public sWriterTemplateFiltername as String        
  41. Public XPixelFactor as Long        
  42. Public YPixelFactor as Long
  43.  
  44.  
  45.  
  46. Sub LoadLanguage ()
  47.     sMsgWizardName = GetResText(RID_FORM + 0)
  48.     sMsgErrMsg = GetResText(RID_COMMON + 6)
  49.     sMsgErrFormOpen = GetResText(RID_COMMON + 7)
  50.     sMsgErrNoDatabase = GetResText(RID_COMMON + 8)
  51.     sMsgErrNoTableInDatabase = GetResText(RID_COMMON + 9)
  52.     sMsgErrTitleSuggestedExist = GetResText(RID_COMMON + 10)
  53.     sMsgErrTitleAsTableExist = GetResText(RID_COMMON + 10)
  54.     sMsgErrTitleSyntaxError = GetResText(RID_COMMON + 11)
  55.     sMsgNoConnection = GetResText(RID_COMMON + 14
  56.     sMsgProgressText = GetResText(RID_FORM + 2)
  57.     sMsgCreatedForm = GetResText(RID_FORM + 26)
  58.     sMsgErrNameToLong = GetResText (RID_FORM + 27)
  59.     sMsgErrCouldNotOpenObject = GetResText (RID_COMMON + 13)
  60.  
  61.     '    Internal Logic
  62.     Form_ilFormTitleSuggestPrefix = GetResText(RID_FORM + 3)
  63.     sMsgDatetime_DateComponent = GetResText(RID_FORM + 4)
  64.     sMsgDatetime_TimeComponent = GetResText(RID_FORM + 5)
  65.     
  66.     sReady = GetResText(RID_COMMON + 0)
  67.     SetDialogLanguage()
  68. End Sub
  69.  
  70.  
  71. Sub SetDialogLanguage ()
  72.     DlgFormDB = LoadDialog("FormWizard", "DlgFormDB")
  73.     oDialogModel = DlgFormDB.Model
  74.     With oDialogModel
  75.         .cmdCancel.Label = GetResText(RID_COMMON + 1)
  76.         .cmdBack.Label = GetResText(RID_COMMON + 2)
  77.         .cmdHelp.Label = GetResText(RID_COMMON + 20)
  78.         sGoOn = GetResText(RID_COMMON + 3)
  79.         .cmdGoOn.Label = sGoOn
  80.         .lblDatabases.Label = GetResText(RID_FORM + 11)
  81.         .lblTables.Label = GetResText(RID_FORM + 6)
  82.         XPixelFactor = 100000/DlgFormDB.GetControl("lstDatabases").Peer.GetInfo.PixelPerMeterX
  83.         YPixelFactor = 100000/DlgFormDB.GetControl("lstDatabases").Peer.GetInfo.PixelPerMeterY
  84.  
  85.         .lblFields.Label = GetResText(RID_FORM + 12)
  86.         .lblSelFields.Label = GetResText(RID_FORM + 13)
  87.  
  88.         .lblStyles.Label = GetResText(RID_FORM + 21)
  89.         .hlnBorderLayout.Label = GetResText(RID_FORM + 28)
  90.         .hlnAlign.Label = GetResText(RID_FORM + 32)
  91.         .hlnArrangements.Label = GetResText(RID_FORM + 35)
  92.  
  93.         WizardTitle(1) = GetResText(RID_FORM + 45)
  94.         WizardTitle(2) = GetResText(RID_FORM + 46)
  95.         WizardTitle(3) = GetResText(RID_FORM + 47)
  96.  
  97.         .hlnBinaries.Label = GetResText(RID_FORM + 50)
  98.         .optIgnoreBinaries.Label = GetResText(RID_FORM + 51)
  99.         .optBinariesasGraphics.Label = GetResText(RID_FORM + 52)
  100.     
  101.         .hlnBackground.Label = GetResText(RID_FORM + 55)
  102.         .optTiled.Label = GetResText(RID_FORM + 56)
  103.         .optArea.Label = GetResText(RID_FORM + 57)
  104.  
  105.         .optBorder0.Label = GetResText(RID_FORM + 29)
  106.         .optBorder1.Label = GetResText(RID_FORM + 30)
  107.         .optBorder2.Label = GetResText(RID_FORM + 31)
  108.         .optBorder1.State = 1
  109.         
  110.         .optAlign0.Label = GetResText(RID_FORM + 33)
  111.         .optAlign2.Label = GetResText(RID_FORM + 34)
  112.         .optAlign0.State = 1
  113.         
  114.         .cmdArrange1.ImageURL = FormPath & "Arrange_1.gif"
  115.         .cmdArrange1.HelpText = GetResText(RID_FORM + 36)
  116.     
  117.         .cmdArrange2.ImageURL = FormPath & "Arrange_2.gif"
  118.         .cmdArrange2.HelpText = GetResText(RID_FORM + 37)
  119.  
  120.         .cmdArrange3.ImageURL = FormPath & "Arrange_3.gif"
  121.         .cmdArrange3.HelpText = GetResText(RID_FORM + 40)
  122.  
  123.         .cmdArrange4.ImageURL = FormPath & "Arrange_4.gif"
  124.         .cmdArrange4.HelpText = GetResText(RID_FORM + 38)
  125.  
  126.         .cmdArrange5.ImageURL = FormPath & "Arrange_5.gif"
  127.         .cmdArrange5.HelpText = GetResText(RID_FORM + 39)
  128.  
  129.         sWriterFilterName = GetResText(RID_FORM + 70)
  130.         sWriterTemplateFilterName = GetResText(RID_FORM + 71)
  131.     End With
  132. End Sub
  133.  
  134.  
  135.  
  136. Sub InitializeWidthList()
  137.  
  138. 'Todo: Was ist mit Currencies? Wieso sind daf├╝r in der API keine Feldtypen definiert?
  139. '  'Currency' ist ein Flag, dass grunds├ñtzlich an jedes Feld angeh├ñngt sein kann.
  140. ' An der Connection kann man irgendwie abfragen, ob ein bestimmter Datentyp als W├ñhrung 
  141. ' interpretiert wird. Darstellung ├╝ber Numberformatter. Ist nicht konsistent ├╝ber Datenbanken.
  142. ' au├ƒerdem d├╝rften hier einige Treiber auch buggy sein.
  143.  
  144.     ' Todo: Bugfix to Bug #88329
  145.     If Ubound(WidthList(),1) > 15 Then
  146.         ReDim WidthList(15,4)
  147.     End If
  148.  
  149.     WidthList(0,0) = com.sun.star.sdbc.DataType.BIT               ' = -7;
  150.     WidthList(0,1) = 8
  151.     WidthList(0,2) = cCheckbox
  152.     WidthList(0,3) = False
  153.     WidthList(0,4) = "CheckBox"
  154.  
  155.     WidthList(1,0) = com.sun.star.sdbc.DataType.TINYINT            ' =  -6;
  156.     WidthList(1,1) = 20
  157.     WidthList(1,2) = cNumericBox
  158.     WidthList(1,3) = False
  159.     WidthList(1,4) = "FormattedField"
  160.     
  161.     WidthList(2,0) = com.sun.star.sdbc.DataType.SMALLINT        ' =   5;
  162.     WidthList(2,1) = 20
  163.     WidthList(2,2) = cNumericBox
  164.     WidthList(2,3) = False
  165.     WidthList(2,4) = "FormattedField"
  166.     
  167.     WidthList(3,0) = com.sun.star.sdbc.DataType.INTEGER            ' =   4;
  168.     WidthList(3,1) = 30
  169.     WidthList(3,2) = cNumericBox
  170.     WidthList(3,3) = False
  171.     WidthList(3,4) = "FormattedField"
  172.     
  173.     WidthList(4,0) = com.sun.star.sdbc.DataType.BIGINT            ' =  -5;
  174.     WidthList(4,1) = 30
  175.     WidthList(4,2) = cNumericBox
  176.     WidthList(4,3) = False
  177.     WidthList(4,4) = "FormattedField"
  178.     
  179.     WidthList(5,0) = com.sun.star.sdbc.DataType.FLOAT            ' =   6;
  180.     WidthList(5,1) = 40
  181.     WidthList(5,2) = cNumericBox
  182.     WidthList(5,3) = False
  183.     WidthList(5,4) = "FormattedField"
  184.     
  185.     WidthList(6,0) = com.sun.star.sdbc.DataType.REAL            ' =   7;
  186.     WidthList(6,1) = 40    'Property 'Scale', keine maximalwerte
  187.     WidthList(6,2) = cNumericBox
  188.     WidthList(6,3) = False
  189.     WidthList(6,4) = "FormattedField"
  190.     
  191.     WidthList(7,0) = com.sun.star.sdbc.DataType.DOUBLE            ' =   8;
  192.     WidthList(7,1) = 40' dynamisch erstellen
  193.     'Property 'Scale'
  194.     WidthList(7,2) = cNumericBox
  195.     WidthList(7,3) = False
  196.     WidthList(7,4) = "FormattedField"
  197.     
  198.     WidthList(8,0) = com.sun.star.sdbc.DataType.NUMERIC            ' =   2;
  199.     WidthList(8,1) = 40
  200.     WidthList(8,2) = cNumericBox
  201.     WidthList(8,3) = False
  202.     WidthList(8,4) = "FormattedField"
  203.     
  204.     WidthList(9,0) = com.sun.star.sdbc.DataType.DECIMAL            ' =   3;  (mit Nachkommastellen)
  205.     WidthList(9,1) = 40    ' ToDo: Dies muss in einer Routine errechnet werden
  206.     WidthList(9,2) = cNumericBox
  207.     WidthList(9,3) = False
  208.     WidthList(9,4) = "FormattedField"
  209.     
  210.     WidthList(10,0) = com.sun.star.sdbc.DataType.CHAR            ' =   1;
  211.     WidthList(10,1) = 30
  212.     WidthList(10,2) = cTextBox
  213.     WidthList(10,3) = False
  214.     WidthList(10,4) = "TextField"
  215.  
  216.     ' Todo: Sollte die Feldl├ñnge vielleicht lieber aus den Metadaten ausgelesen werden?    
  217.     WidthList(11,0) = com.sun.star.sdbc.DataType.VARCHAR        ' =  12;
  218.     WidthList(11,1) = 30
  219.     WidthList(11,2) = cTextBox
  220.     WidthList(11,3) = True
  221.     WidthList(11,4) = "TextField"
  222.     
  223.     WidthList(12,0) = com.sun.star.sdbc.DataType.LONGVARCHAR    ' =  -1;
  224.     WidthList(12,1) = 50
  225.     WidthList(12,2) = cTextBox
  226.     WidthList(12,3) = True
  227.     WidthList(12,4) = "TextField"
  228.     
  229.     WidthList(13,0) = com.sun.star.sdbc.DataType.DATE            ' =  91;
  230.     WidthList(13,1) = 20
  231.     WidthList(13,2) = cDateBox
  232.     WidthList(13,3) = False
  233.     WidthList(13,4) = "DateField"
  234.     
  235.     WidthList(14,0) = com.sun.star.sdbc.DataType.TIME            ' =  92;
  236.     WidthList(14,1) = 20
  237.     WidthList(14,2) = cTimeBox
  238.     WidthList(14,3) = False
  239.     WidthList(14,4) = "TimeField"
  240.     
  241.     WidthList(15,0) = com.sun.star.sdbc.DataType.TIMESTAMP        ' =  93;
  242.     WidthList(15,1) = 20
  243. ' Todo: Dieses Control ist keine cDatebox sondern Kollektion aus Time und Datefield
  244.     WidthList(15,2) = cDateBox
  245.     WidthList(15,3) = False
  246.     WidthList(15,4) = "DateField"
  247.  
  248.     ImgWidthList(0,0) = com.sun.star.sdbc.DataType.BINARY            ' =  -2;
  249.     ImgWidthList(0,1) = 1000
  250.     ImgWidthList(0,2) = cImageControl
  251.     ImgWidthList(0,3) = False
  252.     ImgWidthList(0,4) = "ImageControl"
  253.     
  254.     ImgWidthList(1,0) = com.sun.star.sdbc.DataType.VARBINARY        ' =  -3;
  255.     ImgWidthList(1,1) = 1000
  256.     ImgWidthList(1,2) = cImageControl
  257.     ImgWidthList(1,3) = False
  258.     ImgWidthList(1,4) = "ImageControl"
  259.  
  260.     ImgWidthList(2,0) = com.sun.star.sdbc.DataType.LONGVARBINARY    ' =  -4;
  261.     ImgWidthList(2,1) = 1000
  262.     ImgWidthList(2,2) = cImageControl
  263.     ImgWidthList(2,3) = False
  264.     ImgWidthList(2,4) = "ImageControl"
  265.  
  266.     ImgWidthList(3,0) = com.sun.star.sdbc.DataType.BLOB            ' = 2004;
  267.     ImgWidthList(3,1) = 1000
  268.     ImgWidthList(3,2) = cImageControl
  269.     ImgWidthList(3,3) = False
  270.     ImgWidthList(3,4) = "ImageControl"
  271.  
  272. ' Note: the following Fieldtypes cannot be presented
  273. ' Todo: This should be mentioned in the help    
  274. 'ExcludeList(0) = com.sun.star.sdbc.DataType.SQLNULL
  275. 'ExcludeList(1) = com.sun.star.sdbc.DataType.OTHER
  276. 'ExcludeList(2) = com.sun.star.sdbc.DataType.OBJECT
  277. 'ExcludeList(3) = com.sun.star.sdbc.DataType.DISTINCT
  278. 'ExcludeList(4) = com.sun.star.sdbc.DataType.STRUCT
  279. 'ExcludeList(5) = com.sun.star.sdbc.DataType.ARRAY
  280. 'ExcludeList(6) = com.sun.star.sdbc.DataType.CLOB
  281. 'ExcludeList(7) = com.sun.star.sdbc.DataType.REF
  282.     
  283.     oModelService(cLabel) = "com.sun.star.form.component.FixedText"
  284.     oModelService(cTextBox) = "com.sun.star.form.component.TextField"
  285.     oModelService(cCheckBox) = "com.sun.star.form.component.CheckBox"
  286.     oModelService(cDateBox) = "com.sun.star.form.component.DateField"
  287.     oModelService(cTimeBox) = "com.sun.star.form.component.TimeField"
  288.     oModelService(cNumericBox) = "com.sun.star.form.component.FormattedField"
  289.     oModelService(cGridControl) = "com.sun.star.form.component.GridControl"
  290.     oModelService(cImageControl) = "com.sun.star.form.component.DatabaseImageControl"
  291. End Sub</script:module>