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 {
  28 var
  29 //      Style: Longint;
  30 }
  31 begin
  32         inherited Create(AOwner);
  33 //      Style := GetWindowLong(Self.Handle, GWL_EXSTYLE);
  34 //      SetWindowLong(Self.Handle, GWL_EXSTYLE, Style or WS_EX_APPWINDOW);
  35 end;
  36
  37 destructor TPreviewBrowser.Destroy;
  38 begin
  39         inherited Destroy;
  40 end;
  41
  42 procedure TPreviewBrowser.CreateParams(var Params: TCreateParams);
  43 begin
  44         inherited;
  45 //      Params.Style := WS_POPUP or  {or WS_BORDER};
  46 //      Params.WindowClass.Style := Params.WindowClass.Style or CS_SAVEBITS;
  47 //      Params.ExStyle := WS_EX_TOOLWINDOW;
  48 //      AddBiDiModeExStyle(Params.ExStyle);
  49 end;
  50
  51 end.