Skip to content
Projeler
Gruplar
Parçacıklar
Yardım
Yükleniyor...
Oturum aç / Kaydol
Gezinmeyi değiştir
C
core
Proje
Proje
Ayrıntılar
Etkinlik
Cycle Analytics
Depo (repository)
Depo (repository)
Dosyalar
Kayıtlar (commit)
Dallar (branch)
Etiketler
Katkıda bulunanlar
Grafik
Karşılaştır
Grafikler
Konular (issue)
0
Konular (issue)
0
Liste
Pano
Etiketler
Kilometre Taşları
Birleştirme (merge) Talepleri
0
Birleştirme (merge) Talepleri
0
CI / CD
CI / CD
İş akışları (pipeline)
İşler
Zamanlamalar
Grafikler
Paketler
Paketler
Wiki
Wiki
Parçacıklar
Parçacıklar
Üyeler
Üyeler
Collapse sidebar
Close sidebar
Etkinlik
Grafik
Grafikler
Yeni bir konu (issue) oluştur
İşler
Kayıtlar (commit)
Konu (issue) Panoları
Kenar çubuğunu aç
LibreOffice
core
Commits
6e5c06d0
Kaydet (Commit)
6e5c06d0
authored
Ara 08, 2018
tarafından
Matthias Seidel
Dosyalara gözat
Seçenekler
Dosyalara Gözat
İndir
Eposta Yamaları
Sade Fark
Cleaning up FormWizard, moving graphics from bmp to png
üst
31df7841
Hide whitespace changes
Inline
Side-by-side
Showing
5 changed files
with
15 additions
and
17 deletions
+15
-17
FormWizard_1.bmp
extras/source/templates/wizard/bitmap/FormWizard_1.bmp
+0
-0
FormWizard_1.png
extras/source/templates/wizard/bitmap/FormWizard_1.png
+0
-0
FormWizard_2.bmp
extras/source/templates/wizard/bitmap/FormWizard_2.bmp
+0
-0
FormWizard_2.png
extras/source/templates/wizard/bitmap/FormWizard_2.png
+0
-0
FormWizard.xba
wizards/source/formwizard/FormWizard.xba
+15
-17
No files found.
extras/source/templates/wizard/bitmap/FormWizard_1.bmp
deleted
100644 → 0
Dosyayı görüntüle @
31df7841
64.9 KB
extras/source/templates/wizard/bitmap/FormWizard_1.png
0 → 100644
Dosyayı görüntüle @
6e5c06d0
14 KB
extras/source/templates/wizard/bitmap/FormWizard_2.bmp
deleted
100644 → 0
Dosyayı görüntüle @
31df7841
22 KB
extras/source/templates/wizard/bitmap/FormWizard_2.png
0 → 100644
Dosyayı görüntüle @
6e5c06d0
8.5 KB
wizards/source/formwizard/FormWizard.xba
Dosyayı görüntüle @
6e5c06d0
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
<!--***********************************************************
*
*
* Licensed to the Apache Software Foundation (ASF) under one
* or more contributor license agreements. See the NOTICE file
* distributed with this work for additional information
...
...
@@ -9,16 +9,16 @@
* to you under the Apache License, Version 2.0 (the
* "License"); you may not use this file except in compliance
* with the License. You may obtain a copy of the License at
*
*
* http://www.apache.org/licenses/LICENSE-2.0
*
*
* Unless required by applicable law or agreed to in writing,
* software distributed under the License is distributed on an
* "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
* KIND, either express or implied. See the License for the
* specific language governing permissions and limitations
* under the License.
*
*
***********************************************************-->
<script:module
xmlns:script=
"http://openoffice.org/2000/script"
script:name=
"FormWizard"
script:language=
"StarBasic"
>
Option Explicit
...
...
@@ -189,7 +189,7 @@ Dim LocList() as String
ControlCaptionsToStandardLayout()
oDocument.GetCurrentController().Frame.ComponentWindow.Enable = True
oProgressBar.Value = 90
DialogModel.imgTheme.ImageURL = FormPath
&
"
FormWizard_1.
bmp
"
DialogModel.imgTheme.ImageURL = FormPath
&
"
FormWizard_1.
png
"
DialogModel.imgTheme.BackGroundColor = RGB(0,60,126)
ToggleDatabasePage(True)
oProgressBar.Value = 100
...
...
@@ -202,11 +202,11 @@ Dim LocList() as String
oFormDocuments = oDataSource.getFormDocuments()
DlgFormDB.Dispose()
oDocument.dispose()
Dim
bLinkExists as Boolean
Dim
bLinkExists as Boolean
i = 1
Dim FormBaseName
as String
Dim FormBaseName as String
FormBaseName = FormName
Do
Do
bLinkExists = oFormDocuments.HasbyHierarchicalName(FormName)
If bLinkExists Then
i = i + 1
...
...
@@ -227,7 +227,7 @@ Dim LocList() as String
End If
If ((Not IsNull(oDBConnection)) And (Not bConnectionIsovergiven)) Then
oDBConnection.Dispose()
End If
End If
WIZARDERROR:
If Err
<>
0 Then
Msgbox(sMsgErrMsg, 16, GetProductName())
...
...
@@ -262,7 +262,7 @@ Dim QueryIndex as Integer
CurCommandType = iCommandTypes(SelIndex)
End If
If CurCommandType = com.sun.star.sdb.CommandType.QUERY Then
QueryIndex = SelIndex
- Ubound(Tablenames()) - 1
QueryIndex = SelIndex - Ubound(Tablenames()) - 1
Tablename = QueryNames(QueryIndex)
oColumns = oDBConnection.Queries.GetByName(TableName).Columns
Else
...
...
@@ -292,7 +292,7 @@ Sub PreviousStep()
.cmdGoOn.Enabled = True
.lstSelFields.Tag = Not bControlsareCreated
.cmdGoOn.Label = sGoOn
.imgTheme.ImageUrl = FormPath
&
"
FormWizard_1.
bmp
"
.imgTheme.ImageUrl = FormPath
&
"
FormWizard_1.
png
"
End With
FormSetMoveRights()
WIZARDERROR:
...
...
@@ -327,7 +327,7 @@ Sub NextStep()
DlgFormDB.EndExecute()
exit Sub
End Select
DialogModel.imgTheme.ImageUrl = FormPath
&
"
FormWizard_
"
&
DialogModel.Step
&
"
.
bmp
"
DialogModel.imgTheme.ImageUrl = FormPath
&
"
FormWizard_
"
&
DialogModel.Step
&
"
.
png
"
DlgFormDB.Title = WizardTitle(DialogModel.Step)
WIZARDERROR:
If Err
<>
0 Then
...
...
@@ -391,7 +391,7 @@ End Sub
Sub StoreFormInDatabase()
Dim NoArgs() as new com.sun.star.beans.PropertyValue
Dim NoArgs() as new com.sun.star.beans.PropertyValue
FormName =
"
Form_
"
&
sDBName
&
"
_
"
&
TableName
&
"
.sxw
"
sFormUrl = TempPath
&
"
/
"
&
FormName
oDocument.StoreAsUrl(sFormUrl, NoArgs())
...
...
@@ -400,7 +400,6 @@ Sub StoreFormInDatabase()
End Sub
Sub StoreForm()
Dim sTargetPath as String
Dim TypeNames(0,2) as String
...
...
@@ -416,7 +415,6 @@ Dim oTypes() as Object
End Sub
Sub EmptyFieldsListboxes()
Dim NullList() as String
ToggleListboxControls(DialogModel, False)
...
...
@@ -438,9 +436,9 @@ dim iSelPos as Integer
sFirstItem = oListBox.getItem(0)
If sFirstItem = DelEntryName Then
iSelPos = oListBox.getSelectedItemPos()
oListBox.removeItems(0, 1)
oListBox.removeItems(0, 1)
If iSelPos
>
0 Then
oListBox.selectItemPos(iSelPos-1, True)
oListBox.selectItemPos(iSelPos-1, True)
End If
End If
End Sub
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment