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