82 lines
2.9 KiB
ObjectPascal
82 lines
2.9 KiB
ObjectPascal
{$include SHDocVw_defines.inc}
|
|
unit SHDocVwPreg;
|
|
|
|
interface
|
|
|
|
uses
|
|
SHDocVw;
|
|
|
|
procedure Register;
|
|
|
|
implementation
|
|
|
|
uses classes,LResources;
|
|
|
|
|
|
procedure Register;
|
|
begin
|
|
RegisterComponents('ActiveX', [
|
|
{$IFDEF TWebBrowser} TWebBrowser {$ENDIF}
|
|
{$IFDEF TWebBrowser_V1} ,TWebBrowser_V1 {$ENDIF}
|
|
{$IFDEF TInternetExplorer} ,TInternetExplorer {$ENDIF}
|
|
{$IFDEF TInternetExplorerMedium} ,TInternetExplorerMedium {$ENDIF}
|
|
{$IFDEF TShellBrowserWindow} ,TShellBrowserWindow {$ENDIF}
|
|
{$IFDEF TShellWindows} ,TShellWindows {$ENDIF}
|
|
{$IFDEF TShellUIHelper} ,TShellUIHelper {$ENDIF}
|
|
{$IFDEF TShellNameSpace} ,TShellNameSpace {$ENDIF}
|
|
{$IFDEF TCScriptErrorList} ,TCScriptErrorList {$ENDIF}
|
|
]);
|
|
|
|
|
|
end;
|
|
|
|
initialization
|
|
|
|
{$IFDEF TWebBrowser_V1}
|
|
|
|
LazarusResources.Add('TWebBrowser_V1','BMP',[
|
|
#$42#$4D#248#0#0#0#0#0#0#0#120#0#0#0+
|
|
#40#0#0#0#16#0#0#0#16#0+
|
|
#0#0#1#0#4#0#0#0#0#0#0#0#0#0#18#11+
|
|
#0#0#18#11#0#0#0#0#0#0#0#0#0#0#0#0+
|
|
#0#0#0#0#128#0#0#128#0#0#0#128#128#0#128#0+
|
|
#0#0#128#0#128#0#128#128#0#0#128#128#128#0#192#192+
|
|
#192#0#0#0#255#0#0#255#0#0#0#255#255#0#255#0+
|
|
#0#0#255#0#255#0#255#255#0#0#255#255#255#0#102#102+
|
|
#96#0#0#102#102#102#102#103#116#68#68#0#102#102#102#124+
|
|
#196#76#76#68#6#102#103#108#204#194#196#98#64#102#103#44+
|
|
#204#34#44#68#64#102#114#204#200#34#36#204#68#6#118#140+
|
|
#102#34#34#108#196#6#118#143#143#34#34#204#68#6#120#248+
|
|
#248#34#108#108#196#6#127#255#194#44#34#204#198#6#120#248+
|
|
#252#198#204#98#44#6#103#143#34#204#194#98#32#102#103#248+
|
|
#98#34#34#34#32#102#102#127#143#194#34#34#118#102#102#103+
|
|
#120#252#102#119#102#102#102#102#103#119#119#102#102#102#0#0
|
|
]);
|
|
|
|
{$ENDIF TWebBrowser_V1}
|
|
|
|
{$IFDEF TWebBrowser}
|
|
|
|
LazarusResources.Add('TWebBrowser','BMP',[
|
|
#$42#$4D#248#0#0#0#0#0#0#0#120#0#0#0+
|
|
#40#0#0#0#16#0#0#0#16#0+
|
|
#0#0#1#0#4#0#0#0#0#0#0#0#0#0#18#11+
|
|
#0#0#18#11#0#0#0#0#0#0#0#0#0#0#0#0+
|
|
#0#0#0#0#128#0#0#128#0#0#0#128#128#0#128#0+
|
|
#0#0#128#0#128#0#128#128#0#0#128#128#128#0#192#192+
|
|
#192#0#0#0#255#0#0#255#0#0#0#255#255#0#255#0+
|
|
#0#0#255#0#255#0#255#255#0#0#255#255#255#0#102#102+
|
|
#96#0#0#102#102#102#102#103#116#68#68#0#102#102#102#124+
|
|
#196#76#76#68#6#102#103#108#204#194#196#98#64#102#103#44+
|
|
#204#34#44#68#64#102#114#204#200#34#36#204#68#6#118#140+
|
|
#102#34#34#108#196#6#118#143#143#34#34#204#68#6#120#248+
|
|
#248#34#108#108#196#6#127#255#194#44#34#204#198#6#120#248+
|
|
#252#198#204#98#44#6#103#143#34#204#194#98#32#102#103#248+
|
|
#98#34#34#34#32#102#102#127#143#194#34#34#118#102#102#103+
|
|
#120#252#102#119#102#102#102#102#103#119#119#102#102#102#0#0
|
|
]);
|
|
|
|
{$ENDIF TWebBrowser}
|
|
|
|
end.
|