From 42a5671a81a1e6d7848de872fcd059ab98b3e54a Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Thu, 8 Sep 2011 14:41:21 +0000
Subject: [PATCH] fpbrowser: Adds link click support

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1926 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 applications/fpbrowser/mainform.lfm |  16 ++--
 applications/fpbrowser/mainform.lrs | 142 ++++++++++++++--------------
 applications/fpbrowser/mainform.pas |  58 ++++++------
 3 files changed, 108 insertions(+), 108 deletions(-)

diff --git a/applications/fpbrowser/mainform.lfm b/applications/fpbrowser/mainform.lfm
index bfe4b0e20..8e8544f89 100644
--- a/applications/fpbrowser/mainform.lfm
+++ b/applications/fpbrowser/mainform.lfm
@@ -15,7 +15,7 @@ object formBrowser: TformBrowser
   OnShow = FormShow
   Position = poScreenCenter
   LCLVersion = '0.9.31'
-  object Panel1: TPanel
+  object panelBottom: TPanel
     Left = 0
     Height = 18
     Top = 394
@@ -37,7 +37,7 @@ object formBrowser: TformBrowser
       Visible = False
     end
   end
-  object Panel2: TPanel
+  object panelTop: TPanel
     Left = 0
     Height = 33
     Top = 0
@@ -102,7 +102,7 @@ object formBrowser: TformBrowser
       Caption = 'Browser'
       ClientHeight = 359
       ClientWidth = 619
-      object Panel3: TPanel
+      object panelBrowser: TPanel
         Left = 0
         Height = 359
         Top = 0
@@ -110,7 +110,7 @@ object formBrowser: TformBrowser
         Align = alClient
         BevelInner = bvLowered
         BevelOuter = bvNone
-        Caption = 'Panel3'
+        Caption = 'panelBrowser'
         TabOrder = 0
       end
     end
@@ -120,9 +120,9 @@ object formBrowser: TformBrowser
       ClientWidth = 619
       object memoDebug: TMemo
         Left = 0
-        Height = 360
+        Height = 359
         Top = 0
-        Width = 613
+        Width = 619
         Align = alClient
         Lines.Strings = (
           'memoDebug'
@@ -136,9 +136,9 @@ object formBrowser: TformBrowser
       ClientWidth = 619
       object memoSource: TMemo
         Left = 0
-        Height = 360
+        Height = 359
         Top = 0
-        Width = 613
+        Width = 619
         Align = alClient
         Lines.Strings = (
           'memoSource'
diff --git a/applications/fpbrowser/mainform.lrs b/applications/fpbrowser/mainform.lrs
index 0b337294b..ed248754c 100644
--- a/applications/fpbrowser/mainform.lrs
+++ b/applications/fpbrowser/mainform.lrs
@@ -6,75 +6,75 @@ LazarusResources.Add('TformBrowser','FORMDATA',[
   +'Color'#7#9'clBtnFace'#10'Font.Color'#7#12'clWindowText'#11'Font.Height'#2
   +#243#9'Font.Name'#6#5'Arial'#4'Menu'#7#8'MainMenu'#8'OnCreate'#7#10'FormCrea'
   +'te'#9'OnDestroy'#7#11'FormDestroy'#6'OnShow'#7#8'FormShow'#8'Position'#7#14
-  +'poScreenCenter'#10'LCLVersion'#6#6'0.9.31'#0#6'TPanel'#6'Panel1'#4'Left'#2#0
-  +#6'Height'#2#18#3'Top'#3#138#1#5'Width'#3'm'#2#5'Align'#7#8'alBottom'#9'Alig'
-  +'nment'#7#13'taLeftJustify'#10'BevelInner'#7#9'bvLowered'#10'BevelOuter'#7#6
-  +'bvNone'#12'ClientHeight'#2#18#11'ClientWidth'#3'm'#2#8'TabOrder'#2#0#0#12'T'
-  +'ProgressBar'#11'ProgressBar'#4'Left'#3#214#1#6'Height'#2#16#3'Top'#2#1#5'Wi'
-  +'dth'#3#150#0#5'Align'#7#7'alRight'#8'TabOrder'#2#0#7'Visible'#8#0#0#0#6'TPa'
-  +'nel'#6'Panel2'#4'Left'#2#0#6'Height'#2'!'#3'Top'#2#0#5'Width'#3'm'#2#5'Alig'
-  +'n'#7#5'alTop'#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#2'!'#11'ClientWid'
-  +'th'#3'm'#2#8'TabOrder'#2#1#0#5'TEdit'#7'editURL'#4'Left'#3#190#0#6'Height'#2
-  +#24#3'Top'#2#4#5'Width'#3'Q'#1#8'AutoSize'#8#9'OnKeyDown'#7#14'editURLKeyDow'
-  +'n'#7'TabStop'#8#8'TabOrder'#2#3#0#0#7'TButton'#12'ReloadButton'#4'Left'#2#10
-  +#6'Height'#2#24#3'Top'#2#4#5'Width'#2';'#7'Caption'#6#7'&Reload'#7'Enabled'#8
-  +#7'OnClick'#7#17'ReloadButtonClick'#8'TabOrder'#2#0#0#0#7'TButton'#10'BackBu'
-  +'tton'#4'Left'#2'E'#6'Height'#2#24#3'Top'#2#4#5'Width'#2';'#7'Caption'#6#5'&'
-  +'Back'#7'Enabled'#8#7'OnClick'#7#12'FwdBackClick'#8'TabOrder'#2#1#0#0#7'TBut'
-  +'ton'#9'FwdButton'#4'Left'#3#128#0#6'Height'#2#24#3'Top'#2#4#5'Width'#2';'#7
-  +'Caption'#6#8'&Forward'#7'Enabled'#8#7'OnClick'#7#12'FwdBackClick'#8'TabOrde'
-  +'r'#2#2#0#0#0#12'TPageControl'#11'pageBrowser'#4'Left'#2#0#6'Height'#3'i'#1#3
-  +'Top'#2'!'#5'Width'#3'm'#2#10'ActivePage'#7#10'tabBrowser'#5'Align'#7#8'alCl'
-  +'ient'#8'ShowTabs'#8#8'TabIndex'#2#0#8'TabOrder'#2#2#0#9'TTabSheet'#10'tabBr'
-  +'owser'#7'Caption'#6#7'Browser'#12'ClientHeight'#3'g'#1#11'ClientWidth'#3'k'
-  +#2#0#6'TPanel'#6'Panel3'#4'Left'#2#0#6'Height'#3'g'#1#3'Top'#2#0#5'Width'#3
-  +'k'#2#5'Align'#7#8'alClient'#10'BevelInner'#7#9'bvLowered'#10'BevelOuter'#7#6
-  +'bvNone'#7'Caption'#6#6'Panel3'#8'TabOrder'#2#0#0#0#0#9'TTabSheet'#8'tabDebu'
-  +'g'#7'Caption'#6#5'Debug'#12'ClientHeight'#3'g'#1#11'ClientWidth'#3'k'#2#0#5
-  +'TMemo'#9'memoDebug'#4'Left'#2#0#6'Height'#3'h'#1#3'Top'#2#0#5'Width'#3'e'#2
-  +#5'Align'#7#8'alClient'#13'Lines.Strings'#1#6#9'memoDebug'#0#8'TabOrder'#2#0
-  +#0#0#0#9'TTabSheet'#9'tabSource'#7'Caption'#6#9'tabSource'#12'ClientHeight'#3
-  +'g'#1#11'ClientWidth'#3'k'#2#0#5'TMemo'#10'memoSource'#4'Left'#2#0#6'Height'
-  +#3'h'#1#3'Top'#2#0#5'Width'#3'e'#2#5'Align'#7#8'alClient'#13'Lines.Strings'#1
-  +#6#10'memoSource'#0#8'TabOrder'#2#0#0#0#0#0#11'TOpenDialog'#10'OpenDialog'#10
-  +'DefaultExt'#6#4'.htm'#6'Filter'#6'%html files|*.htm;*.html|all files|*.*'#7
-  +'Options'#11#14'ofHideReadOnly'#15'ofPathMustExist'#15'ofFileMustExist'#0#4
-  +'left'#3'I'#1#3'top'#2#2#0#0#9'TMainMenu'#8'MainMenu'#4'left'#3'#'#1#3'top'#2
-  +#4#0#9'TMenuItem'#5'File1'#7'Caption'#6#5'&File'#0#9'TMenuItem'#4'Open'#7'Ca'
-  +'ption'#6#5'&Open'#8'ShortCut'#2'r'#7'OnClick'#7#13'OpenFileClick'#0#0#9'TMe'
-  +'nuItem'#12'OpenTextFile'#7'Caption'#6#15'Open &Text File'#7'OnClick'#7#17'O'
-  +'penTextFileClick'#0#0#9'TMenuItem'#13'OpenImageFile'#7'Caption'#6#16'Open &'
-  +'Image File'#7'OnClick'#7#18'OpenImageFileClick'#0#0#9'TMenuItem'#13'Printer'
-  +'Setup1'#7'Caption'#6#16'Printer Setup...'#7'OnClick'#7#18'PrinterSetup1Clic'
-  +'k'#0#0#9'TMenuItem'#12'Printpreview'#7'Caption'#6#14'Print pre&view'#7'Enab'
-  +'led'#8#7'OnClick'#7#17'PrintpreviewClick'#0#0#9'TMenuItem'#6'Print1'#7'Capt'
-  +'ion'#6#9'&Print...'#7'Enabled'#8#7'OnClick'#7#11'Print1Click'#0#0#9'TMenuIt'
-  +'em'#2'N1'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#5'Exit1'#7'Caption'#6#5'E&xit'
-  +#7'OnClick'#7#10'Exit1Click'#0#0#0#9'TMenuItem'#5'Edit2'#7'Caption'#6#5'&Edi'
-  +'t'#7'OnClick'#7#10'Edit2Click'#0#9'TMenuItem'#5'Find1'#7'Caption'#6#5'&Find'
-  +#7'Enabled'#8#7'OnClick'#7#10'Find1Click'#0#0#9'TMenuItem'#8'CopyItem'#7'Cap'
-  +'tion'#6#5'&Copy'#8'ShortCut'#3'C@'#7'OnClick'#7#13'CopyItemClick'#0#0#9'TMe'
-  +'nuItem'#2'N2'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#13'SelectAllItem'#7'Captio'
-  +'n'#6#11'Select &All'#7'Enabled'#8#7'OnClick'#7#18'SelectAllItemClick'#0#0#0
-  +#9'TMenuItem'#8'options1'#7'Caption'#6#6'&Tools'#0#9'TMenuItem'#10'ShowImage'
-  +'s'#7'Caption'#6#12'&Show images'#7'OnClick'#7#15'ShowImagesClick'#0#0#9'TMe'
-  +'nuItem'#5'Fonts'#7'Caption'#6#23'Default &Font/Colors...'#7'OnClick'#7#15'F'
-  +'ontColorsClick'#0#0#9'TMenuItem'#13'menuViewDebug'#7'Caption'#6#26'View Sou'
-  +'rce and Debug info'#7'OnClick'#7#18'menuViewDebugClick'#0#0#0#9'TMenuItem'
-  +#15'HistoryMenuItem'#7'Caption'#6#8'&History'#7'Visible'#8#0#0#9'TMenuItem'#6
-  +'About1'#7'Caption'#6#6'&About'#7'OnClick'#7#11'About1Click'#0#0#0#12'TPrint'
-  +'Dialog'#11'PrintDialog'#8'FromPage'#2#1#7'MinPage'#2#1#7'MaxPage'#3#15''''#7
-  +'Options'#11#10'poPageNums'#0#6'ToPage'#2#1#4'left'#3'j'#1#3'top'#2#1#0#0#11
-  ,'TFindDialog'#10'FindDialog'#7'Options'#11#6'frDown'#15'frHideWholeWord'#18
-  +'frDisableWholeWord'#0#6'OnFind'#7#14'FindDialogFind'#4'left'#3#248#0#3'top'
-  +#2#4#0#0#10'TPopupMenu'#9'PopupMenu'#4'left'#3#144#1#3'top'#2#1#0#9'TMenuIte'
-  +'m'#9'Viewimage'#7'Caption'#6#11'&View image'#7'OnClick'#7#14'ViewimageClick'
-  +#0#0#9'TMenuItem'#20'CopyImageToClipboard'#7'Caption'#6#24'&Copy image to cl'
-  +'ipboard'#7'OnClick'#7#25'CopyImageToClipboardClick'#0#0#9'TMenuItem'#2'N3'#7
-  +'Caption'#6#1'-'#0#0#9'TMenuItem'#15'OpenInNewWindow'#7'Caption'#6#19'&Open '
-  +'in new window'#7'OnClick'#7#20'OpenInNewWindowClick'#0#0#0#6'TTimer'#9'Meta'
-  +'Timer'#7'Enabled'#8#7'OnTimer'#7#14'MetaTimerTimer'#4'left'#3#242#0#3'top'#2
-  +'K'#0#0#6'TTimer'#6'Timer1'#8'Interval'#3#200#0#7'OnTimer'#7#11'Timer1Timer'
-  +#4'left'#3'#'#1#3'top'#2'G'#0#0#19'TPrinterSetupDialog'#18'PrinterSetupDialo'
-  +'g'#4'left'#3#192#1#0#0#0
+  +'poScreenCenter'#10'LCLVersion'#6#6'0.9.31'#0#6'TPanel'#11'panelBottom'#4'Le'
+  +'ft'#2#0#6'Height'#2#18#3'Top'#3#138#1#5'Width'#3'm'#2#5'Align'#7#8'alBottom'
+  +#9'Alignment'#7#13'taLeftJustify'#10'BevelInner'#7#9'bvLowered'#10'BevelOute'
+  +'r'#7#6'bvNone'#12'ClientHeight'#2#18#11'ClientWidth'#3'm'#2#8'TabOrder'#2#0
+  +#0#12'TProgressBar'#11'ProgressBar'#4'Left'#3#214#1#6'Height'#2#16#3'Top'#2#1
+  +#5'Width'#3#150#0#5'Align'#7#7'alRight'#8'TabOrder'#2#0#7'Visible'#8#0#0#0#6
+  +'TPanel'#8'panelTop'#4'Left'#2#0#6'Height'#2'!'#3'Top'#2#0#5'Width'#3'm'#2#5
+  +'Align'#7#5'alTop'#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#2'!'#11'Clien'
+  +'tWidth'#3'm'#2#8'TabOrder'#2#1#0#5'TEdit'#7'editURL'#4'Left'#3#190#0#6'Heig'
+  +'ht'#2#24#3'Top'#2#4#5'Width'#3'Q'#1#8'AutoSize'#8#9'OnKeyDown'#7#14'editURL'
+  +'KeyDown'#7'TabStop'#8#8'TabOrder'#2#3#0#0#7'TButton'#12'ReloadButton'#4'Lef'
+  +'t'#2#10#6'Height'#2#24#3'Top'#2#4#5'Width'#2';'#7'Caption'#6#7'&Reload'#7'E'
+  +'nabled'#8#7'OnClick'#7#17'ReloadButtonClick'#8'TabOrder'#2#0#0#0#7'TButton'
+  +#10'BackButton'#4'Left'#2'E'#6'Height'#2#24#3'Top'#2#4#5'Width'#2';'#7'Capti'
+  +'on'#6#5'&Back'#7'Enabled'#8#7'OnClick'#7#12'FwdBackClick'#8'TabOrder'#2#1#0
+  +#0#7'TButton'#9'FwdButton'#4'Left'#3#128#0#6'Height'#2#24#3'Top'#2#4#5'Width'
+  +#2';'#7'Caption'#6#8'&Forward'#7'Enabled'#8#7'OnClick'#7#12'FwdBackClick'#8
+  +'TabOrder'#2#2#0#0#0#12'TPageControl'#11'pageBrowser'#4'Left'#2#0#6'Height'#3
+  +'i'#1#3'Top'#2'!'#5'Width'#3'm'#2#10'ActivePage'#7#10'tabBrowser'#5'Align'#7
+  +#8'alClient'#8'ShowTabs'#8#8'TabIndex'#2#0#8'TabOrder'#2#2#0#9'TTabSheet'#10
+  +'tabBrowser'#7'Caption'#6#7'Browser'#12'ClientHeight'#3'g'#1#11'ClientWidth'
+  +#3'k'#2#0#6'TPanel'#12'panelBrowser'#4'Left'#2#0#6'Height'#3'g'#1#3'Top'#2#0
+  +#5'Width'#3'k'#2#5'Align'#7#8'alClient'#10'BevelInner'#7#9'bvLowered'#10'Bev'
+  +'elOuter'#7#6'bvNone'#7'Caption'#6#12'panelBrowser'#8'TabOrder'#2#0#0#0#0#9
+  +'TTabSheet'#8'tabDebug'#7'Caption'#6#5'Debug'#12'ClientHeight'#3'g'#1#11'Cli'
+  +'entWidth'#3'k'#2#0#5'TMemo'#9'memoDebug'#4'Left'#2#0#6'Height'#3'g'#1#3'Top'
+  +#2#0#5'Width'#3'k'#2#5'Align'#7#8'alClient'#13'Lines.Strings'#1#6#9'memoDebu'
+  +'g'#0#8'TabOrder'#2#0#0#0#0#9'TTabSheet'#9'tabSource'#7'Caption'#6#9'tabSour'
+  +'ce'#12'ClientHeight'#3'g'#1#11'ClientWidth'#3'k'#2#0#5'TMemo'#10'memoSource'
+  +#4'Left'#2#0#6'Height'#3'g'#1#3'Top'#2#0#5'Width'#3'k'#2#5'Align'#7#8'alClie'
+  +'nt'#13'Lines.Strings'#1#6#10'memoSource'#0#8'TabOrder'#2#0#0#0#0#0#11'TOpen'
+  +'Dialog'#10'OpenDialog'#10'DefaultExt'#6#4'.htm'#6'Filter'#6'%html files|*.h'
+  +'tm;*.html|all files|*.*'#7'Options'#11#14'ofHideReadOnly'#15'ofPathMustExis'
+  +'t'#15'ofFileMustExist'#0#4'left'#3'I'#1#3'top'#2#2#0#0#9'TMainMenu'#8'MainM'
+  +'enu'#4'left'#3'#'#1#3'top'#2#4#0#9'TMenuItem'#5'File1'#7'Caption'#6#5'&File'
+  +#0#9'TMenuItem'#4'Open'#7'Caption'#6#5'&Open'#8'ShortCut'#2'r'#7'OnClick'#7
+  +#13'OpenFileClick'#0#0#9'TMenuItem'#12'OpenTextFile'#7'Caption'#6#15'Open &T'
+  +'ext File'#7'OnClick'#7#17'OpenTextFileClick'#0#0#9'TMenuItem'#13'OpenImageF'
+  +'ile'#7'Caption'#6#16'Open &Image File'#7'OnClick'#7#18'OpenImageFileClick'#0
+  +#0#9'TMenuItem'#13'PrinterSetup1'#7'Caption'#6#16'Printer Setup...'#7'OnClic'
+  +'k'#7#18'PrinterSetup1Click'#0#0#9'TMenuItem'#12'Printpreview'#7'Caption'#6
+  +#14'Print pre&view'#7'Enabled'#8#7'OnClick'#7#17'PrintpreviewClick'#0#0#9'TM'
+  +'enuItem'#6'Print1'#7'Caption'#6#9'&Print...'#7'Enabled'#8#7'OnClick'#7#11'P'
+  +'rint1Click'#0#0#9'TMenuItem'#2'N1'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#5'Exi'
+  +'t1'#7'Caption'#6#5'E&xit'#7'OnClick'#7#10'Exit1Click'#0#0#0#9'TMenuItem'#5
+  +'Edit2'#7'Caption'#6#5'&Edit'#7'OnClick'#7#10'Edit2Click'#0#9'TMenuItem'#5'F'
+  +'ind1'#7'Caption'#6#5'&Find'#7'Enabled'#8#7'OnClick'#7#10'Find1Click'#0#0#9
+  +'TMenuItem'#8'CopyItem'#7'Caption'#6#5'&Copy'#8'ShortCut'#3'C@'#7'OnClick'#7
+  +#13'CopyItemClick'#0#0#9'TMenuItem'#2'N2'#7'Caption'#6#1'-'#0#0#9'TMenuItem'
+  +#13'SelectAllItem'#7'Caption'#6#11'Select &All'#7'Enabled'#8#7'OnClick'#7#18
+  +'SelectAllItemClick'#0#0#0#9'TMenuItem'#8'options1'#7'Caption'#6#6'&Tools'#0
+  +#9'TMenuItem'#10'ShowImages'#7'Caption'#6#12'&Show images'#7'OnClick'#7#15'S'
+  +'howImagesClick'#0#0#9'TMenuItem'#5'Fonts'#7'Caption'#6#23'Default &Font/Col'
+  +'ors...'#7'OnClick'#7#15'FontColorsClick'#0#0#9'TMenuItem'#13'menuViewDebug'
+  +#7'Caption'#6#26'View Source and Debug info'#7'OnClick'#7#18'menuViewDebugCl'
+  +'ick'#0#0#0#9'TMenuItem'#15'HistoryMenuItem'#7'Caption'#6#8'&History'#7'Visi'
+  +'ble'#8#0#0#9'TMenuItem'#6'About1'#7'Caption'#6#6'&About'#7'OnClick'#7#11'Ab'
+  +'out1Click'#0#0#0#12'TPrintDialog'#11'PrintDialog'#8'FromPage'#2#1#7'MinPage'
+  +#2#1#7'MaxPage'#3#15''''#7'Options'#11#10'poPageNums'#0#6'ToPage'#2#1#4'left'
+  ,#3'j'#1#3'top'#2#1#0#0#11'TFindDialog'#10'FindDialog'#7'Options'#11#6'frDown'
+  +#15'frHideWholeWord'#18'frDisableWholeWord'#0#6'OnFind'#7#14'FindDialogFind'
+  +#4'left'#3#248#0#3'top'#2#4#0#0#10'TPopupMenu'#9'PopupMenu'#4'left'#3#144#1#3
+  +'top'#2#1#0#9'TMenuItem'#9'Viewimage'#7'Caption'#6#11'&View image'#7'OnClick'
+  +#7#14'ViewimageClick'#0#0#9'TMenuItem'#20'CopyImageToClipboard'#7'Caption'#6
+  +#24'&Copy image to clipboard'#7'OnClick'#7#25'CopyImageToClipboardClick'#0#0
+  +#9'TMenuItem'#2'N3'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#15'OpenInNewWindow'#7
+  +'Caption'#6#19'&Open in new window'#7'OnClick'#7#20'OpenInNewWindowClick'#0#0
+  +#0#6'TTimer'#9'MetaTimer'#7'Enabled'#8#7'OnTimer'#7#14'MetaTimerTimer'#4'lef'
+  +'t'#3#242#0#3'top'#2'K'#0#0#6'TTimer'#6'Timer1'#8'Interval'#3#200#0#7'OnTime'
+  +'r'#7#11'Timer1Timer'#4'left'#3'#'#1#3'top'#2'G'#0#0#19'TPrinterSetupDialog'
+  +#18'PrinterSetupDialog'#4'left'#3#192#1#0#0#0
 ]);
diff --git a/applications/fpbrowser/mainform.pas b/applications/fpbrowser/mainform.pas
index ddf933c96..e436865f1 100644
--- a/applications/fpbrowser/mainform.pas
+++ b/applications/fpbrowser/mainform.pas
@@ -44,12 +44,12 @@ type
     OpenDialog: TOpenDialog;   
     MainMenu: TMainMenu;
     pageBrowser: TPageControl;
-    Panel1: TPanel;
-    Panel2: TPanel;
+    panelBottom: TPanel;
+    panelTop: TPanel;
     File1: TMenuItem;
     Open: TMenuItem;
     options1: TMenuItem;
-    Panel3: TPanel;
+    panelBrowser: TPanel;
     ShowImages: TMenuItem;
     Fonts: TMenuItem;
     editURL: TEdit;
@@ -198,7 +198,7 @@ var
   ms: TMemoryStream;
 begin
   Result:=nil;
-  //debugln(['TMyIpHtmlDataProvider.DoGetStream ',URL]);
+  WriteLn('TMyIpHtmlDataProvider.DoGetStream '+URL);
 
   if URL='fpdoc.css' then begin
     //debugln(['TMyIpHtmlDataProvider.DoGetStream ',FileExists(URL)]);
@@ -216,23 +216,26 @@ end;
 function TformBrowser.DataProvider1CanHandle(Sender: TObject; const URL: string
   ): Boolean;
 begin
-  //debugln(['TForm1.DataProvider1CanHandle ',URL]);
-  Result:=false;
+  WriteLn('TForm1.DataProvider1CanHandle ',URL);
+  Result:=True;
 end;
 
 procedure TformBrowser.DataProvider1CheckURL(Sender: TObject; const URL: string;
   var Available: Boolean; var ContentType: string);
 begin
-  //debugln(['TForm1.DataProvider1CheckURL ',URL]);
-  Available:=false;
-  ContentType:='';
+  WriteLn('TForm1.DataProvider1CheckURL ',URL);
+  Available:=True;
+  ContentType:='text/html';
 end;
 
 procedure TformBrowser.DataProvider1GetHtml(Sender: TObject; const URL: string;
   const PostData: TIpFormDataEntity; var Stream: TStream);
+var
+  lStream: TMemoryStream;
 begin
-  //debugln(['TForm1.DataProvider1GetHtml ',URL]);
-  Stream:=nil;
+  WriteLn('TForm1.DataProvider1GetHtml ',URL);
+  MyPageLoader.LoadBinaryResource(URL, lStream);
+  Stream := lStream;
 end;
 
 procedure TformBrowser.DataProvider1GetImage(Sender: TIpHtmlNode; const URL: string;
@@ -280,23 +283,20 @@ begin
 
   {$ifdef FPBROWSER_TURBOPOWERIPRO}
   DataProvider1:=TMyIpHtmlDataProvider.Create(Self);
-  with DataProvider1 do begin
-    Name:='DataProvider1';
-    OnCanHandle:=DataProvider1CanHandle;
-    OnGetHtml:=DataProvider1GetHtml;
-    OnGetImage:=DataProvider1GetImage;
-    OnLeave:=DataProvider1Leave;
-    OnCheckURL:=DataProvider1CheckURL;
-    OnReportReference:=DataProvider1ReportReference;
-  end;
+  DataProvider1.Name:='DataProvider1';
+  DataProvider1.OnCanHandle:=DataProvider1CanHandle;
+  DataProvider1.OnGetHtml:=DataProvider1GetHtml;
+  DataProvider1.OnGetImage:=DataProvider1GetImage;
+  DataProvider1.OnLeave:=DataProvider1Leave;
+  DataProvider1.OnCheckURL:=DataProvider1CheckURL;
+  DataProvider1.OnReportReference:=DataProvider1ReportReference;
+
   IpHtmlPanel1:=TIpHtmlPanel.Create(Self);
-  with IpHtmlPanel1 do begin
-    Name:='IpHtmlPanel1';
-    Parent:=Self;
-    Align:=alClient;
-    DefaultFontSize:=10;
-    DataProvider:=DataProvider1;
-  end;
+  IpHtmlPanel1.Name:='IpHtmlPanel1';
+  IpHtmlPanel1.Parent:=panelBrowser;
+  IpHtmlPanel1.Align:=alClient;
+  IpHtmlPanel1.DefaultFontSize:=10;
+  IpHtmlPanel1.DataProvider:=DataProvider1;
   {$endif}
 
   {$ifdef FPBROWSER_THTMLCOMP}
@@ -338,7 +338,7 @@ begin
   Viewer.OnMetaRefresh := MetaRefreshEvent;
   Viewer.OnObjectClick := ObjectClick;
   Viewer.OnRightClick := RightClick;
-  Viewer.Parent := Panel3;
+  Viewer.Parent := panelBrowser;
 
   ShowImages.Checked := Viewer.ViewImages;
   Viewer.HistoryMaxCount := MaxHistories;  {defines size of history list}
@@ -443,7 +443,7 @@ begin
     Caption := Caption+'URL: '+URL+'     ';
   if Viewer.TitleAttr <> '' then
     Caption := Caption+'Title: '+Viewer.TitleAttr;
-  Panel1.Caption := Caption;
+  panelBottom.Caption := Caption;
 end;
 
 {This routine handles what happens when a hot spot is clicked.  The assumption