Preview.pas

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