Changeset 830 for cprs/trunk/CPRS-Chart/fDeviceSelect.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/fDeviceSelect.pas (modified) (5 diffs)

cprs/trunk/CPRS-Chart/fDeviceSelect.pas

@@ -5 +5 @@
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  StdCtrls, fAutoSz, ORCtrls, ORNet, Mask, ExtCtrls;
+  StdCtrls, fAutoSz, ORCtrls, ORNet, Mask, ExtCtrls, VA508AccessibilityManager;
 
 type
@@ -25 +25 @@
     procedure cboDeviceNeedData(Sender: TObject; const StartFrom: String;
       Direction, InsertAt: Integer);
-    procedure FormShow(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure FormCreate(Sender: TObject);
   private
     FWinPrint: Boolean;
@@ -56 +56 @@
   frmDeviceSelect := TfrmDeviceSelect.Create(Application);
   try
-    ResizeFormToFont(TForm(frmDeviceSelect));
     with frmDeviceSelect do
       begin
@@ -147 +146 @@
 end;
 
-procedure TfrmDeviceSelect.FormShow(Sender: TObject);
-begin
-  SetFormPosition(Self);
-  inherited;
-end;
-
 procedure TfrmDeviceSelect.FormClose(Sender: TObject;
   var Action: TCloseAction);
@@ -160 +153 @@
 end;
 
+procedure TfrmDeviceSelect.FormCreate(Sender: TObject);
+begin
+  inherited;
+  ResizeFormToFont(Self);
+  SetFormPosition(Self);
+end;
+
 end.