Skip to content

C
core
Kaydet (Commit) 6e5c06d0 authored tarafından Matthias Seidel's avatar Matthias Seidel
Dosyalara gözat
Seçenekler

Cleaning up FormWizard, moving graphics from bmp to png

üst 31df7841
Show whitespace changes
Inline Side-by-side
Showing with 3 additions and 5 deletions
wizards/source/formwizard/FormWizard.xba
Dosyayı görüntüle @ 6e5c06d0
......@@ -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
......@@ -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
......@@ -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)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment