Changeset 830 for cprs/trunk/CPRS-Chart/fDefaultEvent.pas

Timestamp:

Jul 7, 2010, 4:51:54 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Upgrading to version 27

File:

• cprs/trunk/CPRS-Chart/fDefaultEvent.pas (modified) (5 diffs)

cprs/trunk/CPRS-Chart/fDefaultEvent.pas

@@ -5 +5 @@
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  StdCtrls, ORCtrls, ExtCtrls, rOrders, ORFn, uCore;
+  StdCtrls, ORCtrls, ExtCtrls, rOrders, ORFn, uCore, fBase508Form,
+  VA508AccessibilityManager;
 
 type
-  TfrmDefaultEvent = class(TForm)
+  TfrmDefaultEvent = class(TfrmBase508Form)
     pnlTop: TPanel;
     lblCaption: TLabel;
@@ -33 +34 @@
 
 implementation
+
+uses VAUtils;
 
 {$R *.DFM}
@@ -91 +94 @@
   if cboEvents.ItemIndex < 0 then
   begin
-    ShowMessage('You have to select an event first!');
+    ShowMsg('You have to select an event first!');
     Exit;
   end;
@@ -101 +104 @@
       SetDefaultEvent(errMsg, Piece(cboEvents.Items[cboEvents.ItemIndex],'^',1));
       if length(errMsg)>0 then
-        ShowMessage(errMsg)
+        ShowMsg(errMsg)
       else
-        ShowMessage('The default release event "' + cboEvents.Text + '" has been set successfully!');
+        ShowMsg('The default release event "' + cboEvents.Text + '" has been set successfully!');
       FDefaultEvtName := cboEvents.Text;
       OKPressed := True;
@@ -116 +119 @@
       SetDefaultEvent(errMsg, Piece(cboEvents.Items[cboEvents.ItemIndex],'^',1));
       if length(errMsg)>0 then
-        ShowMessage(errMsg)
+        ShowMsg(errMsg)
       else
-        ShowMessage('The default release event "' + cboEvents.Text + '" has been set successfully!');
+        ShowMsg('The default release event "' + cboEvents.Text + '" has been set successfully!');
      FDefaultEvtName := cboEvents.Text;
      OKPressed := True;