Вот скрины:
До:
После:
И код модуля:
- Код: Выделить всё
- unit hc_main;
 {$mode DELPHI}
 interface
 uses
 Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
 ExtCtrls, ActnList, Menus, IpHtml, Ipfilebroker, SMNetGradient;
 type
 { THMain }
 THMain = class(TForm)
 FileOpen: TAction;
 ActionList: TActionList;
 HBrowser: TIpHtmlPanel;
 IpFileDataProvider: TIpFileDataProvider;
 HBrowserDP: TIpFileDataProvider;
 LeftPanel: TPanel;
 CentralPanel: TPanel;
 HelpTitle: TNetGradient;
 MainMenu: TMainMenu;
 FileM: TMenuItem;
 FileOpenM: TMenuItem;
 procedure FormCreate(Sender: TObject);
 private
 public
 end;
 var
 HMain: THMain;
 implementation
 { THMain }
 procedure THMain.FormCreate(Sender: TObject);
 begin
 HBrowser.OpenURL(Utf8ToSys(IncludeTrailingBackslash(ExtractFileDir(Application.ExeName)) + 'test_page.html'));
 end;
 initialization
 {$I hc_main.lrs}
 end.



