Summary Table
Categories |
Total Count |
PII |
0 |
URL |
0 |
DNS |
0 |
EKL |
0 |
IP |
0 |
PORT |
0 |
VsID |
0 |
CF |
0 |
AI |
0 |
VPD |
0 |
PL |
0 |
Other |
0 |
File Content
unit OR2006Compatibility;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
{$IFDEF VER140}
Compile Error // should not be used in Delphi 6!
{$ENDIF}
type
Tfrm2006Compatibility = class(TForm)
public
constructor CreateNew(AOwner: TComponent; Dummy: Integer = 0); override;
end;
var
frm2006Compatibility: Tfrm2006Compatibility;
implementation
{$R *.dfm}
{ Tfrm2006Compatibility }
constructor Tfrm2006Compatibility.CreateNew(AOwner: TComponent; Dummy: Integer);
begin
inherited CreateNew(AOwner, Dummy);
// - if Form is pulled up in Delphi 6, the value stored in the DFM will be erased
position := poDesigned;
AutoScroll := True;
end;
end.