From dd89dc8df8d82ab43f34a0c8fcfa67f93aefcb99 Mon Sep 17 00:00:00 2001 From: Matthias Seidel Date: Sat, 8 Dec 2018 00:00:11 +0000 Subject: Cleaning up FormWizard, moving graphics from bmp to png MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit (cherry picked from commit 6e5c06d0fe430c9e71c6705c14b160c950fc2c59) Change-Id: Ib805072d371a6a57d7406d955a173d7d7f5ab626 Reviewed-on: https://gerrit.libreoffice.org/64851 Reviewed-by: Caolán McNamara Tested-by: Caolán McNamara --- wizards/source/formwizard/FormWizard.xba | 24 +++++++++++------------- 1 file changed, 11 insertions(+), 13 deletions(-) (limited to 'wizards') diff --git a/wizards/source/formwizard/FormWizard.xba b/wizards/source/formwizard/FormWizard.xba index a744014634a5..68a80ff88eff 100644 --- a/wizards/source/formwizard/FormWizard.xba +++ b/wizards/source/formwizard/FormWizard.xba @@ -184,7 +184,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 @@ -197,11 +197,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 @@ -222,7 +222,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()) @@ -257,7 +257,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 @@ -287,7 +287,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: @@ -322,7 +322,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 @@ -386,7 +386,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()) @@ -395,7 +395,6 @@ Sub StoreFormInDatabase() End Sub - Sub StoreForm() Dim sTargetPath as String Dim TypeNames(0,2) as String @@ -411,7 +410,6 @@ Dim oTypes() as Object End Sub - Sub EmptyFieldsListboxes() Dim NullList() as String ToggleListboxControls(DialogModel, False) @@ -433,9 +431,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 -- cgit