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.3 - (show annotations) (download) (as text)
Mon Aug 11 14:49:10 2003 UTC (20 years, 8 months ago) by hi_
Branch: MAIN
CVS Tags: b34, b35, b36
Changes since 1.2: +7 -1 lines
File MIME type: text/x-pascal
Delphi6Professional版だとユニット名が違うので条件コンパイルするようにした

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.

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