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 ...@@ -189,7 +189,7 @@ Dim LocList() as String
ControlCaptionsToStandardLayout() ControlCaptionsToStandardLayout()
oDocument.GetCurrentController().Frame.ComponentWindow.Enable = True oDocument.GetCurrentController().Frame.ComponentWindow.Enable = True
oProgressBar.Value = 90 oProgressBar.Value = 90
DialogModel.imgTheme.ImageURL = FormPath & "FormWizard_1.bmp" DialogModel.imgTheme.ImageURL = FormPath & "FormWizard_1.png"
DialogModel.imgTheme.BackGroundColor = RGB(0,60,126) DialogModel.imgTheme.BackGroundColor = RGB(0,60,126)
ToggleDatabasePage(True) ToggleDatabasePage(True)
oProgressBar.Value = 100 oProgressBar.Value = 100
...@@ -292,7 +292,7 @@ Sub PreviousStep() ...@@ -292,7 +292,7 @@ Sub PreviousStep()
.cmdGoOn.Enabled = True .cmdGoOn.Enabled = True
.lstSelFields.Tag = Not bControlsareCreated .lstSelFields.Tag = Not bControlsareCreated
.cmdGoOn.Label = sGoOn .cmdGoOn.Label = sGoOn
.imgTheme.ImageUrl = FormPath & "FormWizard_1.bmp" .imgTheme.ImageUrl = FormPath & "FormWizard_1.png"
End With End With
FormSetMoveRights() FormSetMoveRights()
WIZARDERROR: WIZARDERROR:
...@@ -327,7 +327,7 @@ Sub NextStep() ...@@ -327,7 +327,7 @@ Sub NextStep()
DlgFormDB.EndExecute() DlgFormDB.EndExecute()
exit Sub exit Sub
End Select End Select
DialogModel.imgTheme.ImageUrl = FormPath & "FormWizard_" & DialogModel.Step & ".bmp" DialogModel.imgTheme.ImageUrl = FormPath & "FormWizard_" & DialogModel.Step & ".png"
DlgFormDB.Title = WizardTitle(DialogModel.Step) DlgFormDB.Title = WizardTitle(DialogModel.Step)
WIZARDERROR: WIZARDERROR:
If Err <> 0 Then If Err <> 0 Then
...@@ -400,7 +400,6 @@ Sub StoreFormInDatabase() ...@@ -400,7 +400,6 @@ Sub StoreFormInDatabase()
End Sub End Sub
Sub StoreForm() Sub StoreForm()
Dim sTargetPath as String Dim sTargetPath as String
Dim TypeNames(0,2) as String Dim TypeNames(0,2) as String
...@@ -416,7 +415,6 @@ Dim oTypes() as Object ...@@ -416,7 +415,6 @@ Dim oTypes() as Object
End Sub End Sub
Sub EmptyFieldsListboxes() Sub EmptyFieldsListboxes()
Dim NullList() as String Dim NullList() as String
ToggleListboxControls(DialogModel, False) 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