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