Browse CVS Repository
Contents of /gikonavigoeson/gikonavi/Preview.pas
Parent Directory
| Revision Log
| 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. |
| |