Preview.pas

   1 unit Preview;
   2
   3 interface
   4 uses
   5         Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
   6         ActiveX,
   7 {$IF Defined(DELPRO) }
   8         SHDocVw
   9 {$ELSE}
  10         SHDocVw_TLB
  11 {$IFEND}
  12 ;
  13
  14 type
  15         TPreviewBrowser = class(TWebBrowser)
  16         private
  17         protected
  18                 procedure CreateParams(var Params: TCreateParams); override;
  19         public
  20                 constructor Create(AOwner: TComponent); override;
  21                 destructor Destroy; override;
  22         end;
  23
  24 implementation
  25
  26 constructor TPreviewBrowser.Create(AOwner: TComponent);
  27 var
  28         Style: Longint;
  29 begin
  30         inherited Create(AOwner);
  31 //      Style := GetWindowLong(Self.Handle, GWL_EXSTYLE);
  32 //      SetWindowLong(Self.Handle, GWL_EXSTYLE, Style or WS_EX_APPWINDOW);
  33 end;
  34
  35 destructor TPreviewBrowser.Destroy;
  36 begin
  37         inherited Destroy;
  38 end;
  39
  40 procedure TPreviewBrowser.CreateParams(var Params: TCreateParams);
  41 begin
  42         inherited;
  43 //      Params.Style := WS_POPUP or  {or WS_BORDER};
  44 //      Params.WindowClass.Style := Params.WindowClass.Style or CS_SAVEBITS;
  45 //      Params.ExStyle := WS_EX_TOOLWINDOW;
  46 //      AddBiDiModeExStyle(Params.ExStyle);
  47 end;
  48
  49 end.