diff --git a/VECTO/GUI/MainForm.vb b/VECTO/GUI/MainForm.vb index 59bef9cd89ea77b40b6a03208d9b53246cbd91ad..1f35cdf96216749aa838507b9ed418e782f4c0c2 100644 --- a/VECTO/GUI/MainForm.vb +++ b/VECTO/GUI/MainForm.vb @@ -1105,6 +1105,20 @@ Imports TUGraz.VectoCore.Utils sender.ReportProgress(100, New VectoProgress With {.Target = "ListBox", .Message = String.Format("Simulation Finished in {0:0}s", (DateTime.Now() - start).TotalSeconds)}) + +#if CERTIFICATION_RELEASE + dim message as string = nothing +#else +#if RELEASE_CANDIDATE + dim message as string = "RELEASE CANDIDATE - NOT FOR CERTIFICATION!" +#else + dim message as string = "DEVELOPMENT VERSION - NOT FOR CERTIFICATION!" +#End If +#end if + if Not string.IsNullOrWhitespace(message) then + sender.ReportProgress(100, New VectoProgress With {.Target = "ListBoxWarning", + .Message = message}) + End If End Sub