source: cprs/branches/HealthSevak-CPRS/CPRS-Lib/OR2006Compatibility.pas@ 1715

Last change on this file since 1715 was 829, checked in by Kevin Toppenberg, 14 years ago

Upgrade to version 27

File size: 756 bytes
Line 
1unit OR2006Compatibility;
2
3interface
4
5uses
6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7 Dialogs;
8
9{$IFDEF VER140}
10 Compile Error // should not be used in Delphi 6!
11{$ENDIF}
12
13type
14 Tfrm2006Compatibility = class(TForm)
15 public
16 constructor CreateNew(AOwner: TComponent; Dummy: Integer = 0); override;
17 end;
18
19var
20 frm2006Compatibility: Tfrm2006Compatibility;
21
22implementation
23
24{$R *.dfm}
25
26{ Tfrm2006Compatibility }
27
28constructor Tfrm2006Compatibility.CreateNew(AOwner: TComponent; Dummy: Integer);
29begin
30 inherited CreateNew(AOwner, Dummy);
31// - if Form is pulled up in Delphi 6, the value stored in the DFM will be erased
32 position := poDesigned;
33 AutoScroll := True;
34end;
35
36end.
Note: See TracBrowser for help on using the repository browser.