Merge pull request #2 from lbutler/dev-disclaimer

Add disclaimer
OpenWaterAnalytics · Apr 20, 2023 · 5020dec · 5020dec
2 parents cd64a66 + 34ec3b3
commit 5020dec
Show file tree

Hide file tree

Showing 3 changed files with 295 additions and 2 deletions.
diff --git a/epanet2w/Ddisclaimer.dfm b/epanet2w/Ddisclaimer.dfm
@@ -0,0 +1,251 @@
+object DisclaimerForm: TDisclaimerForm
+  Left = 238
+  Top = 104
+  BorderStyle = bsDialog
+  Caption = 'EPANET Development Version Disclaimer'
+  ClientHeight = 329
+  ClientWidth = 377
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = 'Segoe UI'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poMainFormCenter
+  PixelsPerInch = 96
+  TextHeight = 15
+  object Panel1: TPanel
+    Left = 24
+    Top = 8
+    Width = 337
+    Height = 281
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    TabOrder = 0
+    object ProductName: TLabel
+      Left = 133
+      Top = 10
+      Width = 112
+      Height = 32
+      Alignment = taCenter
+      Caption = 'EPANET'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clBlue
+      Font.Height = -28
+      Font.Name = 'Arial'
+      Font.Style = [fsBold, fsItalic]
+      ParentFont = False
+      Transparent = True
+      IsControl = True
+    end
+    object Version: TLabel
+      Left = 146
+      Top = 45
+      Width = 74
+      Height = 14
+      Alignment = taCenter
+      Caption = '2023-04-20'
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = 'Tahoma'
+      Font.Style = [fsBold]
+      ParentFont = False
+      IsControl = True
+    end
+    object Label3: TLabel
+      Left = 131
+      Top = 7
+      Width = 112
+      Height = 32
+      Alignment = taCenter
+      Caption = 'EPANET'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clAqua
+      Font.Height = -28
+      Font.Name = 'Arial'
+      Font.Style = [fsBold, fsItalic]
+      ParentFont = False
+      Transparent = True
+      IsControl = True
+    end
+    object Build: TLabel
+      Left = 133
+      Top = 65
+      Width = 102
+      Height = 14
+      Alignment = taCenter
+      Caption = 'Development Build'
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clBlack
+      Font.Height = -12
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      ParentFont = False
+      IsControl = True
+    end
+    object Panel2: TPanel
+      Left = 8
+      Top = 8
+      Width = 41
+      Height = 41
+      BevelOuter = bvLowered
+      TabOrder = 0
+      object ProgramIcon: TImage
+        Left = 1
+        Top = 1
+        Width = 39
+        Height = 39
+        Align = alClient
+        AutoSize = True
+        Picture.Data = {
+          07544269746D6170360D0000424D360D00000000000036040000280000003000
+          0000300000000100080000000000000900000000000000000000000100000000
+          0000FFFFFF00313131003939390042424200525252005A5A5A00636363006B6B
+          6B00737373007B7B7B00848484008C8C8C00A5A5A500ADADAD007B7B73004A4A
+          4200848473005A5A4A00F7EF8C00CEC69C00948C6300FFEFA5008C7B3100EFDE
+          9C00CEBD7B00B5A56B00AD9C6300EFD684007B6B3100A58C3900B5AD9400FFEF
+          BD006B634A00AD9C6B00FFDE7B00F7D67300B59C5200EFCE6B00DEBD5A00D6B5
+          52009C843900CEB57300BDA56300E7C66B00F7CE6300CEAD5200947B3900EFC6
+          5A00C6A54A008C733100AD9C73008C7B520084734A00AD945A00CEAD5A00BD9C
+          4A00E7BD5A00846B3100B5944200CEA542009C8C6B00BDA573007B6B4A007363
+          42009C845200B5944A007B633100D6AD5200AD8C4200A5843900EFBD5200C69C
+          420084735200B59C6B00CEAD7300AD8C5200EFB552007B6B5200A58C6300FFCE
+          8400EFAD4A0094632900FFBD73007B736B00F7DEC600F79C4200D67B2100D684
+          3900B5631800F79C5200EF8C42008C4A1800DE732100C6631800CE6310007B39
+          080094634200EF8C4A0073422100F7843900E77B3100D66B2100BD5A1800D663
+          1800C65A100084390800E78C5200DE733100CE63210094421000AD4A1000BD52
+          1000B54A0800CE520800D65A18009C421000E7631800FFEFE700F7C6AD00DE52
+          100084310800BD522100DE5A2100E74A10007B210000FF523900CE291800F718
+          0000A5100800B5ADAD00AD9C9C00A59494007B6B6B00AD949400A58C8C00F7CE
+          CE0063525200947B7B00BD9C9C005A4A4A008C737300E7BDBD00DEB5B500846B
+          6B00AD8C8C0052424200FFCECE009C7B7B00735A5A00FFC6C6004A393900D6A5
+          A5006B5252008C6B6B00F7BDBD00EFB5B500634A4A00DEA5A500BD8C8C00FFB5
+          B500BD848400B57B7B00FFADAD007B525200AD737300EF9C9C00A56B6B00FFA5
+          A5008C5A5A009C636300DE8C8C004229290084525200D68484008C525200FF94
+          94009C5A5A00F78C8C004A292900FF8C8C007B424200D67373006B393900F784
+          840052292900844242006331310073393900FF7B7B00CE5A5A00F76B6B007331
+          3100D65A5A00FF6B6B00EF636300FF636300D6525200E7525200FF5A5A00D64A
+          4A00FF525200D6424200FF4A4A00F7424200FF424200E7393900CE3131009421
+          2100B5292900FF393900DE3131009C212100E7313100CE292900F7313100D629
+          2900FF313100AD212100B5212100F7292900CE2121009C181800AD181800EF21
+          21007B101000FF212100BD181800C6181800DE181800E7181800F7181800FF18
+          1800AD101000B5101000C6101000D610100073080800EF101000F71010008C08
+          0800D6080800E7080800EF080800FF0808007B00000084000000940000009C00
+          0000AD000000C6000000CE000000D6000000E7000000F7000000FF0000000000
+          00000D0D0D0D0D0D0D0D0D0D0D0D0D0C0C82830B0A0A09090909090909090909
+          0808090A0A0B8382820C0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0C82
+          830B0A090807060606070707080707070606060708090A0B83820C0C0D0D0D0D
+          0D0D0D0D0D0D0D0D0D0D0D0D0C0C820B0A0908070605048BECF506F7EC880605
+          04040405050608090A0B83820C0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C82830B0A
+          0807059CF5F5F7FBFCF705FAFCFBF8F5F4B8030F0F04050708090B83820C0D0D
+          0D0D0D0D0D0D0D0D0D0D0C82830A090788F5F8FCFEFEFEFEFDF704F9FDFEFEFE
+          FEFCF7F4AB030F040507080A0B820C0D0D0D0D0D0D0D0D0D0D0C82830A0806F5
+          F8FEFEFEFEFEFEFEFCB605B9FCFEFEFEFEFEFEFEF8F402030F0406080A0B820C
+          0D0D0D0D0D0D0D0D0C82830A08DDF8FDFEFEFEFEFEFEFEFEFA910594FCFEFEFE
+          FEFEFEFEFEFEF7F4030F0406080A0B820C0D0D0D0D0D0D0C82830A08F7FCFEFE
+          FEFEFEFEFEFEFEFEF8040708FBFEFEFEFEFEFEFEFEFEFEFDF502030406080A83
+          820C0D0D0D0D0D0C820B84F7FEFEFEFEFEFEFEFEFEFEFEFEF8050809FBFEFEFE
+          FEFEFEFEFEFEFEFEFEF6AB030406080A830C0D0D0D0D0C820B0AF8FEFEFEFEFE
+          FEFEFEFEFEFEFEFD8006080AEAFDFEFEFEFEFEFEFEFEFEFEFEFEF6020F040709
+          0B820D0D0D0D0C830AF8FEFEFEFEFEFEFEFEFEFEFEFEFEF90406080A0AFCFEFE
+          FEFEFEFEFEFEFEFEFEFEFEF6020F05070A830D0D0D0C820BF7FCFEFEFEFEFEFE
+          FEFEFEFEFEFEFEF80506080909FCFEFEFEFEFEFEFEFEFEFEFEFEFEFCF5030406
+          090B0D0D0D0C83A9F9FEFEFEFEFEFEFEFEFEFEFEFEFEFA91050607080808FCFE
+          FEFEFEFEFEFEFEFEFEFEFEFEF8AB0F05070A0D0D0C820BF8FEFEFEFEFEFEFEFE
+          FEFEFEFEFEFEF904040506060606EEFEFEFEFEFEFEFEFEFEFEFEFEFEFEF60304
+          06090D0D0C8299FBFEFEFEFEFEFEFEFEFEFEFEFEFEFA0F0404040404040404F2
+          FEFEFEFEFEFEFEFEFEFEFEFEFEFBAB0F05080D0D0C83F8FEFEFEFEFEFEFEFEFE
+          FEFEFEFEFCE90F0F391C3942420303E5FDFEFEFEFEFEFEFEFEFEFEFEFEFEF503
+          05070D0D8283FAFEFEFEFEFEFEFEFEFEFEFEFEFCF90F33442F2C2C2C2F3A3E02
+          D8FDFEFEFEFEFEFEFEFEFEFEFEFEF70304060D0C82A6FDFEFEFEFEFEFEFEFEFE
+          FEFEFCFA0F11302C2C2C2C2C2C2C440F02CAFEFEFEFEFEFEFEFEFEFEFEFEFBB8
+          04060D0C82F9FEFEFEFEFEFEFEFEFEFEFEFDFA040F442C2C2C2C2C2C2C2C2C31
+          0102C1FDFEFEFEFEFEFEFEFEFEFEFEF604060D0C82F9FEFEFEFEFEFEFEFEFEFE
+          FCFB04040F3A67676767676767676737020102C3F3FEFEFEFEFEFEFEFEFEFEF7
+          04060D0C82FAFEFEFEFEFEFEFEFEFCFBB40504F6F86767676767676767676767
+          6DF4010294AFFEFEFEFEFEFEFEFEFEF805070D0C82FBFEFEFEFEFEFEFEFCF007
+          069CF7FCFE6767676767676767676B6777FDF502030F9FC8FEFEFEFEFEFEFEFB
+          94080D0D85FCFEFEFEFEFCF1F2990908A3F8FEFEFE6767676767676767677567
+          FEFEFEF50203040592BCFEFEFEFEFEFCDD0A0D0DEAFDFDF2F2F20B0B0B0B0AA8
+          F8FEFEFEFE6767676767676767676A67FEFEFEFEF796040607098295AFE1FEFD
+          F7830D0DE7CAA0828282828282830BF8FEFEFEFEFE6767676767676767676767
+          FEFEFEFEFEF50507080A0B83820CA2C1F9820D0D0D0D0D0C0C0C0C0C0C82F8FE
+          FEFEFEFEFEF36767676767676700677FFEFEFEFEFEFDEF08090B83820C0C0C0C
+          0C0C0D0D0D0D0D0D0D0D0D0D0C86FCFEFEFEFEFEFEFE676767676767756767FE
+          FEFEFEFEFEFEF7090A0B820C0C0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0CF9FEF2
+          CCCCFEFEFEFCD15C676767676768CCE1FEFEFEFCD8CAFDEF0B83820C0C0D0D0D
+          0D0D0D0D0D0D0D0D0D0D0D0D0CFCEB0B0A0AA7E7FB9909103867676727080707
+          A2E7FB0909098EFA0B83820C0C0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0CA1830B
+          0A0908C0080808084A2F2F2F3A08080808BD0808080809090A0B83820C0D0D0D
+          0D0D0D0D0D0D0D0D0D0D0D0D0C820B0A090807070707070808272C3010090908
+          0808070707070708090A0B820C0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C830A09
+          070605050505060708362F410A0A0908080706050505050607090B830C0D0D0D
+          0D0D0D0D0D0D0D0D0D0D0D0C82898C94888B919691918B88940E380B93898C94
+          94888B919196918B06070A83820C0D0D0D0D0D0D0D0D0D0D0D0D0D0C86F9FBFB
+          FBFBFBFBFBFBFCF90608260B0BFBFCFBFBFBFBFBFBFBFBF70507090B820C0D0D
+          0D0D0D0D0D0D0D0D0D0D0D0D86FCFEFEFEFEFEFEFEFEF90F0507380B0B0BFCFE
+          FEFEFEFEFEFEFEF90407090B820C0D0D0D0D0D0D0D0D0D0D0D0D0D0D0CFBFEFE
+          FEFEFEFEFEFEF70F0406190A0A0AFBFEFEFEFEFEFEFEFEF905070A83820D0D0D
+          0D0D0D0D0D0D0D0D0D0D0D0D0CFBFEFEFEFEFEFEFEFDAB03040507080908F9FE
+          FEFEFEFEFEFEFEF806080B820C0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0CFBFEFE
+          FEFEFEFEFEFEF502030405060706F9FEFEFEFEFEFEFEFDF807090B820C0D0D0D
+          0D0D0D0D0D0D0D0D0D0D0D0D0D85FDFEFEFEFEFEFEFEF602030304040404FBFE
+          FEFEFEFEFEFEFA98080A830C0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0CF2FE
+          FEFEFEFEFEFEFDF502020303B8F7FEFEFEFEFEFEFEFEF9080A83820C0D0D0D0D
+          0D0D0D0D0D0D0D0D0D0D0D0D0D0DA0F2FEFEFEFEFEFEFEFEF7F5F5F5F9FEFEFE
+          FEFEFEFEFEFA080A0B820C0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0DCC
+          F3FEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFBE90A0B820C0D0D0D0D0D0D
+          0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0DC2E7FEFEFEFEFEFEFEFEFEFEFEFEFEFE
+          FEFEFEFBE20A83820C0C0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+          0DBEE7FEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFBA80B83820C0D0D0D0D0D0D0D0D
+          0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0DA5A2EEFEFEFEFEFEFEFEFEFEFEFE
+          FCFB0A0B83820C0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+          0D0D0D0C0C92BCEEFEFEFEFEFEFDF2F20B8382820C0C0D0D0D0D0D0D0D0D0D0D
+          0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0C0CAFB1C8CACB868382
+          82820C0C0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+          0D0D0D0D0D0D0D0D0C0C0C0C0C0C0C0C0C0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+          0D0D}
+        Stretch = True
+        IsControl = True
+      end
+    end
+    object Memo1: TMemo
+      Left = 9
+      Top = 85
+      Width = 321
+      Height = 185
+      BorderStyle = bsNone
+      Color = clMenu
+      Lines.Strings = (
+        'Disclaimer: This is a development version of EPANET, '
+        'intended for evaluating new features and testing the latest '
+        'version of the toolkit.'
+        ''
+        'This version may contain bugs or other issues that could '
+        'impact its performance and accuracy. '
+        ''
+        'We recommend that this version be used only for testing '
+        'and not for any other purposes.'
+        ''
+        'If you require a stable and reliable version of EPANET, please '
+        'use the standard release of the software.'
+        ''
+        'The developers of this software are not responsible for any '
+        'damage or loss caused by the use of this development '
+        'version.')
+      TabOrder = 1
+    end
+  end
+  object Button1: TButton
+    Left = 157
+    Top = 295
+    Width = 75
+    Height = 25
+    Caption = 'OK'
+    Default = True
+    ModalResult = 1
+    TabOrder = 1
+  end
+end
diff --git a/epanet2w/Ddisclaimer.pas b/epanet2w/Ddisclaimer.pas
@@ -0,0 +1,34 @@
+unit Ddisclaimer;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls;
+
+type
+  TDisclaimerForm = class(TForm)
+    Panel1: TPanel;
+    ProductName: TLabel;
+    Version: TLabel;
+    Label3: TLabel;
+    Build: TLabel;
+    Panel2: TPanel;
+    ProgramIcon: TImage;
+    Button1: TButton;
+    Memo1: TMemo;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  DisclaimerForm: TDisclaimerForm;
+
+implementation
+
+{$R *.dfm}
+
+
+end.
diff --git a/epanet2w/Fmain.pas b/epanet2w/Fmain.pas
@@ -41,7 +41,7 @@ interface
   MSG_NO_BACKDROP = 'Could not find backdrop file ';
   MSG_FIND_BACKDROP = '. Do you want to search for it?';
 
-  TXT_MAIN_CAPTION = 'EPANET (DEV BRANCH)';
+  TXT_MAIN_CAPTION = 'EPANET [DEV 2023-04-20]';
   TXT_AUTOLENGTH = 'Auto-Length ';
   TXT_STATUS_REPORT = 'Status Report';
   TXT_SAVE_CHANGES = 'Save changes made to current project?';
@@ -359,7 +359,7 @@ implementation
 uses
   Fbrowser, Fcalib, Fcontour, Fenergy, Fgraph, Fmap, Fovmap, Fproped,
   Fsimul, Fstatus, Fsummary, Ftable, Dabout, Dcalib1, Dcalib2, Ddefault,
-  Ddataexp, Dfind, Dgraph, Dgrouped, Dmapexp, Dprefers, Dquery,
+  Ddataexp, Dfind, Dgraph, Dgrouped, Dmapexp, Dprefers, Dquery, Ddisclaimer,
   Dtable, Uexport, Ufileio, Uimport, Uinifile, Uinput, Uoutput, Ureport;
 
 
@@ -466,6 +466,14 @@ procedure TMainForm.FormCreate(Sender: TObject);
 // Prevent form from repainting itself for now
   LockWindowUpdate(Handle);
 
+// Display development version disclaimer
+  with TdisclaimerForm.Create(self) do
+  try
+    ShowModal;
+  finally
+    Free;
+  end;
+
 // Enable only for testing
   //ReportMemoryLeaksOnShutdown := True;
 end;