Develop and Download Open Source Software

Browse CVS Repository

Contents of /gikonavigoeson/gikonavi/Preview.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.1 - (show annotations) (download) (as text)
Sat Aug 9 13:51:09 2003 UTC (20 years, 8 months ago) by hi_
Branch: MAIN
Branch point for: hi
File MIME type: text/x-pascal
Initial revision

1 unit Preview;
2
3 interface
4 uses
5 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
6 ActiveX, ShDocVw;
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.

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26