I was trying to make some sort of Facebook application, which opens facebook page. I added TChromium, made all it says on page, but when i start project this window appears: (pic. 1)
My form code:
unit Unit1;
{$mode delphi}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, BCPanel,
BCButton, cef3lcl, EditBtn, cef3intf, cef3types, cef3lib, gettext;
{ TForm1 }
type
TForm1 = class(TForm)
Back: TBCButton;
Chromium: TChromium;
Forward: TBCButton;
facebook: TBCPanel;
Reload: TBCButton;
procedure FormCreate(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
PrjPath: string;
Lang, FallbackLang: string;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
begin
PrjPath := UTF8Decode(GetCurrentDir + PathDelim);
CefLocalesDirPath := PrjPath + 'locales';
GetLanguageIDs(Lang, FallbackLang);
CefLocale := UTF8Decode(FallbackLang);
Chromium.Load(UTF8Decode('http://www.facebook.com/'));
end;
end
Files in project folder: (pic. 2)