Вот скрины:
До:
После:
И код модуля:
- Код: Выделить всё
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.