diff options
| author | Behrend Cornelius <bc@openoffice.org> | 2001-11-22 08:43:01 +0000 |
|---|---|---|
| committer | Behrend Cornelius <bc@openoffice.org> | 2001-11-22 08:43:01 +0000 |
| commit | 21c0b6d95583db9d30d506254e1558eee56fb5e5 (patch) | |
| tree | 73ac5636d47898e27118d6728f6b424f288cc028 /wizards/source/formwizard/Language.xba | |
| parent | cef0eccd7eef8bdb1080b29c9fecbe63c2288a49 (diff) | |
#94903# Now label controls positioned correctly
Diffstat (limited to 'wizards/source/formwizard/Language.xba')
| -rw-r--r-- | wizards/source/formwizard/Language.xba | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/wizards/source/formwizard/Language.xba b/wizards/source/formwizard/Language.xba index 2296926387f1..3253b4e53356 100644 --- a/wizards/source/formwizard/Language.xba +++ b/wizards/source/formwizard/Language.xba @@ -8,12 +8,12 @@ Global Const RID_FORM = 2200 Public Const SBCANCEL = 2 Public Const SBREPEAT = 4 +Public LabelDiffHeight as Long Public WizardTitle(1 To 3) as String Public DlgFormDB as Object Public oDialogModel as Object -' Global Msg Dim sMsgWizardName as String Dim sMsgErrMsg as String Dim sMsgErrFormOpen as String @@ -34,7 +34,6 @@ Public sGoOn as String Public sReady as String Public sMsgNoConnection as String Public sWriterFilterName as String -Public sWriterTemplateFiltername as String Public XPixelFactor as Long Public YPixelFactor as Long @@ -75,8 +74,6 @@ Sub SetDialogLanguage () .cmdGoOn.Label = sGoOn .lblDatabases.Label = GetResText(RID_FORM + 11) .lblTables.Label = GetResText(RID_FORM + 6) - XPixelFactor = 100000/DlgFormDB.GetControl("lstDatabases").Peer.GetInfo.PixelPerMeterX - YPixelFactor = 100000/DlgFormDB.GetControl("lstDatabases").Peer.GetInfo.PixelPerMeterY .lblFields.Label = GetResText(RID_FORM + 12) .lblSelFields.Label = GetResText(RID_FORM + 13) @@ -123,7 +120,6 @@ Sub SetDialogLanguage () .cmdArrange5.HelpText = GetResText(RID_FORM + 39) sWriterFilterName = GetResText(RID_FORM + 70) - sWriterTemplateFilterName = GetResText(RID_FORM + 71) End With End Sub @@ -131,7 +127,6 @@ End Sub Sub InitializeWidthList() -'Todo: Was ist mit Currencies? Wieso sind dafür in der API keine Feldtypen definiert? ' 'Currency' ist ein Flag, dass grundsätzlich an jedes Feld angehängt sein kann. ' An der Connection kann man irgendwie abfragen, ob ein bestimmter Datentyp als Währung ' interpretiert wird. Darstellung über Numberformatter. Ist nicht konsistent über Datenbanken. |