diff --git a/.gitattributes b/.gitattributes
new file mode 100644
index 0000000..412eeda
--- /dev/null
+++ b/.gitattributes
@@ -0,0 +1,22 @@
+# Auto detect text files and perform LF normalization
+* text=auto
+
+# Custom for Visual Studio
+*.cs     diff=csharp
+*.sln    merge=union
+*.csproj merge=union
+*.vbproj merge=union
+*.fsproj merge=union
+*.dbproj merge=union
+
+# Standard to msysgit
+*.doc	 diff=astextplain
+*.DOC	 diff=astextplain
+*.docx diff=astextplain
+*.DOCX diff=astextplain
+*.dot  diff=astextplain
+*.DOT  diff=astextplain
+*.pdf  diff=astextplain
+*.PDF	 diff=astextplain
+*.rtf	 diff=astextplain
+*.RTF	 diff=astextplain
diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..5ebd21a
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,163 @@
+#################
+## Eclipse
+#################
+
+*.pydevproject
+.project
+.metadata
+bin/
+tmp/
+*.tmp
+*.bak
+*.swp
+*~.nib
+local.properties
+.classpath
+.settings/
+.loadpath
+
+# External tool builders
+.externalToolBuilders/
+
+# Locally stored "Eclipse launch configurations"
+*.launch
+
+# CDT-specific
+.cproject
+
+# PDT-specific
+.buildpath
+
+
+#################
+## Visual Studio
+#################
+
+## Ignore Visual Studio temporary files, build results, and
+## files generated by popular Visual Studio add-ons.
+
+# User-specific files
+*.suo
+*.user
+*.sln.docstates
+
+# Build results
+[Dd]ebug/
+[Rr]elease/
+*_i.c
+*_p.c
+*.ilk
+*.meta
+*.obj
+*.pch
+*.pdb
+*.pgc
+*.pgd
+*.rsp
+*.sbr
+*.tlb
+*.tli
+*.tlh
+*.tmp
+*.vspscc
+.builds
+*.dotCover
+
+## TODO: If you have NuGet Package Restore enabled, uncomment this
+#packages/
+
+# Visual C++ cache files
+ipch/
+*.aps
+*.ncb
+*.opensdf
+*.sdf
+
+# Visual Studio profiler
+*.psess
+*.vsp
+
+# ReSharper is a .NET coding add-in
+_ReSharper*
+
+# Installshield output folder
+[Ee]xpress
+
+# DocProject is a documentation generator add-in
+DocProject/buildhelp/
+DocProject/Help/*.HxT
+DocProject/Help/*.HxC
+DocProject/Help/*.hhc
+DocProject/Help/*.hhk
+DocProject/Help/*.hhp
+DocProject/Help/Html2
+DocProject/Help/html
+
+# Click-Once directory
+publish
+
+# Others
+[Bb]in
+[Oo]bj
+sql
+TestResults
+*.Cache
+ClientBin
+stylecop.*
+~$*
+*.dbmdl
+Generated_Code #added for RIA/Silverlight projects
+
+# Backup & report files from converting an old project file to a newer
+# Visual Studio version. Backup files are not needed, because we have git ;-)
+_UpgradeReport_Files/
+Backup*/
+UpgradeLog*.XML
+
+
+
+############
+## Windows
+############
+
+# Windows image file caches
+Thumbs.db
+
+# Folder config file
+Desktop.ini
+
+
+#############
+## Python
+#############
+
+*.py[co]
+
+# Packages
+*.egg
+*.egg-info
+dist
+build
+eggs
+parts
+bin
+var
+sdist
+develop-eggs
+.installed.cfg
+
+# Installer logs
+pip-log.txt
+
+# Unit test / coverage reports
+.coverage
+.tox
+
+#Translations
+*.mo
+
+#Mr Developer
+.mr.developer.cfg
+
+# Mac crap
+.DS_Store
diff --git a/HtmlConst.pas b/HtmlConst.pas
new file mode 100644
index 0000000..e0faf6e
--- /dev/null
+++ b/HtmlConst.pas
@@ -0,0 +1,172 @@
+unit HtmlConst;
+
+interface
+
+uses Windows;
+
+const
+  HLN_CREATE_CONTROL  = $AFF + $01;
+  HLN_LOAD_DATA       = $AFF + $02;
+  HLN_CONTROL_CREATED = $AFF + $03;
+  HLN_DATA_LOADED     = $AFF + $04;
+  HLN_DOCUMENT_COMPLETE = $AFF + $05;
+  HLN_UPDATE_UI       = $AFF + $06;
+  HLN_DESTROY_CONTROL = $AFF + $07;
+  HLN_ATTACH_BEHAVIOR = $AFF + $08;
+  HLN_BEHAVIOR_CHANGED = $AFF + $09;
+  HLN_DIALOG_CREATED = $AFF + $10;
+  HLN_DIALOG_CLOSE_RQ = $AFF + $0A;
+  HLN_DOCUMENT_LOADED = $AFF + $0B;
+
+  LOAD_OK      = 0;
+  LOAD_DISCARD = 1;
+
+  HLDOM_OK = 0;
+  HLDOM_INVALID_HWND = 1;
+  HLDOM_INVALID_HANDLE = 2;
+  HLDOM_PASSIVE_HANDLE = 3;
+  HLDOM_INVALID_PARAMETER = 4;
+  HLDOM_OPERATION_FAILED = 5;
+  HLDOM_OK_NOT_HANDLED = -1;
+
+  SIH_REPLACE_CONTENT    = 0;
+  SIH_INSERT_AT_START    = 1;
+  SIH_APPEND_AFTER_LAST  = 2;
+
+  SOH_REPLACE       = 3;
+  SOH_INSERT_BEFORE = 4;
+  SOH_INSERT_AFTER  = 5;
+
+  INSERT_AT_END     = $7FFFFFF;
+
+  //enum EVENT_GROUPS
+  HANDLE_INITIALIZATION = $0000;     (* attached/detached *)
+  HANDLE_MOUSE = $0001;              (* mouse events *)
+  HANDLE_KEY = $0002;                (* key events *)
+  HANDLE_FOCUS = $0004;              (* focus events, if this flag is set it also means that element it attached to is focusable *)
+  HANDLE_SCROLL = $0008;             (* scroll events *)
+  HANDLE_TIMER = $0010;              (* timer event *)
+  HANDLE_SIZE = $0020;               (* size changed event *)
+  HANDLE_DRAW = $0040;               (* drawing request (event) *)
+  HANDLE_DATA_ARRIVED = $080;        (* requested data () has been delivered *)
+  HANDLE_BEHAVIOR_EVENT = $0100;     (* secondary, synthetic events:
+                                        BUTTON_CLICK, HYPERLINK_CLICK, etc.,
+                                        a.k.a. notifications from intrinsic behaviors *)
+  HANDLE_METHOD_CALL = $0200;        (* behavior specific methods *)
+
+  HANDLE_EXCHANGE   = $1000;         (* system drag-n-drop *)
+  HANDLE_GESTURE    = $2000;         (* touch input events *)
+
+  HANDLE_ALL        = $FFFF;         (* all of them *)
+
+  DISABLE_INITIALIZATION = $80000000; (* disable INITIALIZATION events to be sent.
+                                         normally engine sends
+                                         BEHAVIOR_DETACH / BEHAVIOR_ATTACH events unconditionally,
+                                         this flag allows to disable this behavior
+                                      *)
+
+type
+  BehaviorEvents = (
+    BUTTON_CLICK = 0,              // click on button
+    BUTTON_PRESS = 1,              // mouse down or key down in button
+    BUTTON_STATE_CHANGED = 2,      // checkbox/radio/slider changed its state/value 
+    EDIT_VALUE_CHANGING = 3,       // before text change
+    EDIT_VALUE_CHANGED = 4,        // after text change
+    SELECT_SELECTION_CHANGED = 5,  // selection in <select> changed
+    SELECT_STATE_CHANGED = 6,      // node in select expanded/collapsed, heTarget is the node
+
+    POPUP_REQUEST   = 7,           // request to show popup just received, 
+                                   //     here DOM of popup element can be modifed.
+    POPUP_READY     = 8,           // popup element has been measured and ready to be shown on screen,
+                                   //     here you can use functions like ScrollToView.
+    POPUP_DISMISSED = 9,           // popup element is closed,
+                                   //     here DOM of popup element can be modifed again - e.g. some items can be removed
+                                   //     to free memory.
+
+    MENU_ITEM_ACTIVE = $A,        // menu item activated by mouse hover or by keyboard,
+    MENU_ITEM_CLICK = $B,         // menu item click, 
+                                   //   BEHAVIOR_EVENT_PARAMS structure layout
+                                   //   BEHAVIOR_EVENT_PARAMS.cmd - MENU_ITEM_CLICK/MENU_ITEM_ACTIVE   
+                                   //   BEHAVIOR_EVENT_PARAMS.heTarget - the menu item, presumably <li> element
+                                   //   BEHAVIOR_EVENT_PARAMS.reason - BY_MOUSE_CLICK | BY_KEY_CLICK
+
+    CONTEXT_MENU_SETUP   = $F,    // evt.he is a menu dom element that is about to be shown. You can disable/enable items in it.      
+    CONTEXT_MENU_REQUEST = $10,   // "right-click", BEHAVIOR_EVENT_PARAMS::he is current popup menu HELEMENT being processed or NULL.
+                                   // application can provide its own HELEMENT here (if it is NULL) or modify current menu element.
+  
+    VISIUAL_STATUS_CHANGED = $11, // broadcast notification, sent to all elements of some container being shown or hidden   
+    DISABLED_STATUS_CHANGED = $12,// broadcast notification, sent to all elements of some container that got new value of :disabled state
+
+    POPUP_DISMISSING = $13,       // popup is about to be closed
+
+
+    // "grey" event codes  - notfications from behaviors from this SDK 
+    HYPERLINK_CLICK = $80,        // hyperlink click
+    TABLE_HEADER_CLICK,            // click on some cell in table header, 
+                                   //     target = the cell, 
+                                   //     reason = index of the cell (column number, 0..n)
+    TABLE_ROW_CLICK,               // click on data row in the table, target is the row
+                                   //     target = the row, 
+                                   //     reason = index of the row (fixed_rows..n)
+    TABLE_ROW_DBL_CLICK,           // mouse dbl click on data row in the table, target is the row
+                                   //     target = the row, 
+                                   //     reason = index of the row (fixed_rows..n)
+
+    ELEMENT_COLLAPSED = $90,      // element was collapsed, so far only behavior:tabs is sending these two to the panels
+    ELEMENT_EXPANDED,              // element was expanded,
+
+    ACTIVATE_CHILD,                // activate (select) child, 
+                                   // used for example by accesskeys behaviors to send activation request, e.g. tab on behavior:tabs. 
+
+    DO_SWITCH_TAB = ACTIVATE_CHILD,// command to switch tab programmatically, handled by behavior:tabs 
+                                   // use it as HTMLayoutPostEvent(tabsElementOrItsChild, DO_SWITCH_TAB, tabElementToShow, 0),
+
+    INIT_DATA_VIEW,                // request to virtual grid to initialize its view
+  
+    ROWS_DATA_REQUEST,             // request from virtual grid to data source behavior to fill data in the table
+                                   // parameters passed throug DATA_ROWS_PARAMS structure.
+
+    UI_STATE_CHANGED,              // ui state changed, observers shall update their visual states.
+                                   // is sent for example by behavior:richtext when caret position/selection has changed.
+
+    FORM_SUBMIT,                   // behavior:form detected submission event. BEHAVIOR_EVENT_PARAMS::data field contains data to be posted.
+                                   // BEHAVIOR_EVENT_PARAMS::data is of type T_MAP in this case key/value pairs of data that is about
+                                   // to be submitted. You can modify the data or discard submission by returning TRUE from the handler.
+    FORM_RESET,                    // behavior:form detected reset event (from button type=reset). BEHAVIOR_EVENT_PARAMS::data field contains data to be reset.
+                                   // BEHAVIOR_EVENT_PARAMS::data is of type T_MAP in this case key/value pairs of data that is about 
+                                   // to be rest. You can modify the data or discard reset by returning TRUE from the handler.
+                                 
+    DOCUMENT_COMPLETE,             // behavior:frame have complete document.
+
+    HISTORY_PUSH,                  // behavior:history stuff
+    HISTORY_DROP,                     
+    HISTORY_PRIOR,
+    HISTORY_NEXT,
+
+    HISTORY_STATE_CHANGED,         // behavior:history notification - history stack has changed
+
+    CLOSE_POPUP,                   // close popup request,
+    REQUEST_TOOLTIP,               // request tooltip, BEHAVIOR_EVENT_PARAMS.he <- is the tooltip element.
+
+    ANIMATION         = $A0,      // animation started (reason=1) or ended(reason=0) on the element.
+
+
+    FIRST_APPLICATION_EVENT_CODE = $100, 
+    // all custom event codes shall be greater
+    // than this number. All codes below this will be used
+    // solely by application - HTMLayout will not intrepret it 
+    // and will do just dispatching.
+    // To send event notifications with  these codes use
+    // HTMLayoutSend/PostEvent API.
+
+    __DUMMY = $7FFFFFFF
+  );
+
+  DrawEvents = (
+    DRAW_BACKGROUND = 0,
+    DRAW_CONTENT = 1,
+    DRAW_FOREGROUND = 2
+  );
+
+implementation
+end.
\ No newline at end of file
diff --git a/HtmlCtrl.pas b/HtmlCtrl.pas
new file mode 100644
index 0000000..3cb2f96
--- /dev/null
+++ b/HtmlCtrl.pas
@@ -0,0 +1,158 @@
+unit HtmlCtrl;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Controls, HtmlConst, HtmlTypes, HtmlDll, HtmlDOM;
+
+type
+  THtmlControl = class;
+
+  THtmlLoadData = function (Sender: THtmlControl; Uri: PWideChar; element: HtmlElement): LRESULT of Object;
+  THtmlDocumentComplete = procedure (Sender: THtmlControl) of Object;
+
+  THtmlControl = class(TWinControl)
+  private
+    FOnLoadData: THtmlLoadData;
+    FOnDocumentComplete: THtmlDocumentComplete;
+    function HtmlCallback(uMsg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT;
+  protected
+    procedure CreateParams(var Params: TCreateParams); override;
+    procedure WndProc(var Message: TMessage); override;
+  public
+    constructor Create(AOwner: TComponent); override;
+
+    procedure LoadHtml(pHtml: PByte; cb: Cardinal); overload;
+    procedure LoadHtml(filename: widestring); overload;
+
+    function GetRootElement(): HtmlElement;
+
+    function OnDataReady(uri: PWideChar; data: Pointer; length: Cardinal): Boolean;
+  published
+    property Action;
+    property Align;
+    property Anchors;
+    property BiDiMode;
+    property Caption;
+    property Constraints;
+    property DragCursor;
+    property DragKind;
+    property DragMode;
+    property Enabled;
+    property Font;
+    property ParentBiDiMode;
+    property ParentFont;
+    property ParentShowHint;
+    property PopupMenu;
+    property ShowHint;
+    property TabOrder;
+    property TabStop default True;
+    property Visible;
+    property OnClick;
+    property OnContextPopup;
+    property OnDragDrop;
+    property OnDragOver;
+    property OnEndDock;
+    property OnEndDrag;
+    property OnEnter;
+    property OnExit;
+    property OnLoadData: THtmlLoadData read FOnLoadData write FOnLoadData;
+    property OnDocumentComplete: THtmlDocumentComplete read FOnDocumentComplete write FOnDocumentComplete;
+    property OnKeyDown;
+    property OnKeyPress;
+    property OnKeyUp;
+//    property OnMouseActivate;
+    property OnMouseDown;
+//    property OnMouseEnter;
+//    property OnMouseLeave;
+    property OnMouseMove;
+    property OnMouseUp;
+    property OnStartDock;
+    property OnStartDrag;
+end;
+
+implementation
+
+{ THtmlControl }
+
+constructor THtmlControl.Create(AOwner: TComponent);
+begin
+  inherited Create(AOwner);
+end;
+
+procedure THtmlControl.CreateParams(var Params: TCreateParams);
+begin
+  inherited CreateParams(Params);
+end;
+
+procedure THtmlControl.LoadHtml(pHtml: PByte; cb: Cardinal);
+begin
+end;
+
+procedure THtmlControl.LoadHtml(filename: widestring);
+begin
+  HTMLayoutLoadFile(Handle, PWideChar(filename));
+end;
+
+function AHtmlCallbackProxy(uMsg: UINT; wParam: WPARAM; lParam: LPARAM; vParam: Pointer): LRESULT; stdcall;
+begin
+  if vParam <> nil then
+    Result := THtmlControl(vParam).HtmlCallback(uMsg, wParam, lParam)
+  else
+    Result := 0;
+end;
+
+procedure THtmlControl.WndProc(var Message: TMessage);
+var
+  Handled: BOOL;
+  res: LRESULT;
+begin
+  res := HTMLayoutProcND(Handle, Message.Msg, Message.WParam, Message.LParam, Handled);
+  if Handled then
+  begin
+    Message.Result := res;
+    Exit;
+  end;
+
+  case Message.Msg of
+    WM_CREATE:
+      begin
+        HTMLayoutSetCallback(Handle, @AHtmlCallbackProxy, Self);
+      end;
+  end;
+
+  inherited WndProc(Message);
+end;
+
+function THtmlControl.HtmlCallback(uMsg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT;
+var
+  nmhdr: pNMHDR;
+begin
+  nmhdr := pNMHDR(lParam);
+  case nmhdr^.code of
+    HLN_LOAD_DATA:
+      begin
+        if Assigned(FOnLoadData) then
+          Result := FOnLoadData(Self, pNMHL_LOAD_DATA(lParam)^.uri, pNMHL_LOAD_DATA(lParam)^.principal)
+        else
+          Result := LOAD_OK;
+        Exit;
+      end;
+    HLN_DOCUMENT_COMPLETE:
+      if Assigned(FOnLoadData) then
+        FOnDocumentComplete(Self);
+  end;
+  Result := 0;
+end;
+
+function THtmlControl.GetRootElement: HtmlElement;
+begin
+  Result := HTMLayoutGetRootElement(Handle);
+end;
+
+function THtmlControl.OnDataReady(uri: PWideChar; data: Pointer; length: Cardinal): Boolean;
+begin
+  Result := HTMLayoutDataReady(Handle, uri, data, length);
+end;
+
+end.
diff --git a/HtmlDemo.dpr b/HtmlDemo.dpr
new file mode 100644
index 0000000..e919f86
--- /dev/null
+++ b/HtmlDemo.dpr
@@ -0,0 +1,14 @@
+program HtmlDemo;
+
+uses
+  Forms,
+  Unit1 in 'Unit1.pas' {Form1},
+  HtmlCtrl in 'HtmlCtrl.pas';
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TForm1, Form1);
+  Application.Run;
+end.
diff --git a/HtmlDemo.res b/HtmlDemo.res
new file mode 100644
index 0000000..1228533
Binary files /dev/null and b/HtmlDemo.res differ
diff --git a/HtmlDll.pas b/HtmlDll.pas
new file mode 100644
index 0000000..86aca82
--- /dev/null
+++ b/HtmlDll.pas
@@ -0,0 +1,150 @@
+unit HtmlDll;
+
+interface
+
+uses
+  Windows, HtmlConst, HtmlTypes;
+
+function HTMLayoutProcND(hwnd: HWND; msg: UINT; wParam:WPARAM; lParam: LPARAM; var pbHandled: BOOL): LRESULT; stdcall;
+function HTMLayoutLoadHtml(hwnd: HWND; html: PBYTE; htmlSize: UINT): BOOL; stdcall;
+function HTMLayoutLoadFile(hwnd: HWND; filename: LPCWSTR): BOOL; stdcall;
+function HTMLayoutDataReady(hwnd: HWND; uri: LPCWSTR; data: Pointer; length: DWORD): BOOL; stdcall;
+
+procedure HTMLayoutSetCallback(hwnd: HWND; cb: THtmlayoutCallback; cbParam: Pointer); stdcall;
+
+function HTMLayoutGetRootElement(hwnd: HWND): HELEMENT; safecall;
+function HTMLayoutGetChildrenCount(he: HELEMENT): UINT; safecall;
+function HTMLayoutGetNthChild(he: HELEMENT; n: UINT): HELEMENT; safecall;
+
+function HTMLayoutGetElementText(he: HELEMENT; characters: LPWSTR): UINT; safecall;
+procedure HTMLayoutGetElementHtml(he: HELEMENT; var utf8bytes: PCHAR; outer: BOOL); safecall;
+procedure HTMLayoutSetElementHtml(he: HELEMENT; html: Utf8String; htmlLength: DWord; where:UINT); safecall; overload;
+function HTMLayoutGetElementInnerText16(he: HELEMENT): LPWSTR; safecall;
+procedure HTMLayoutSetElementInnerText16(he: HELEMENT; utf16words: LPCWSTR; length: UINT); safecall;
+
+function HTMLayoutGetElementType(he: HELEMENT): LPCSTR; safecall;
+
+procedure HTMLayoutDeleteElement(he: HELEMENT); safecall;
+function HTMLayoutCreateElement(tagname: LPCSTR; textOrNull: LPCWSTR): HELEMENT; safecall;
+procedure HTMLayoutInsertElement(he: HELEMENT; hparent: HELEMENT; index: UINT); safecall;
+procedure HTMLayoutDetachElement(he: HELEMENT); safecall;
+function HTMLayoutCloneElement(he: HELEMENT): HELEMENT; safecall;
+procedure HTMLayout_UseElement(he: HELEMENT); safecall;
+
+procedure HTMLayoutMoveElement(he: HELEMENT; xView: Integer; yView: Integer); safecall;
+
+procedure HTMLayoutSelectElements(he: HELEMENT; sel: LPWSTR; cb: THtmlayoutElementCallback; param: Pointer); safecall;
+
+procedure HTMLayoutAttachEventHandler(he: HELEMENT; cb: THtmlayoutElementEvent; tag: Pointer); safecall;
+procedure HTMLayoutDetachEventHandler(he: HELEMENT; cb: THtmlayoutElementEvent; tag: Pointer); safecall;
+{
+function HTMLayoutSetElementHtml(he: HELEMENT; html: WideString; where: UINT): Boolean; overload;
+function HTMLayoutFindFirst(he: HELEMENT; sel: PWideChar): HELEMENT;
+
+function GetElementHtml(he: HELEMENT): AnsiString;
+
+/////
+
+function HTMLayoutElementSetHandler(he: HELEMENT; cb: IHtmlBehaviorListener): Boolean;
+function HTMLayoutElementRemoveHandler(he: HELEMENT; cb: IHtmlBehaviorListener): Boolean;
+}
+
+//*****************************************************************************************************
+
+implementation
+
+uses
+  SysUtils;
+
+const
+  engineDLL = 'htmlayout.dll';
+
+function HTMLayoutProcND (hwnd: HWND; msg:UINT; wParam:WPARAM; lParam:LPARAM; var pbHandled: BOOL): LRESULT; external engineDLL; stdcall;
+
+function HTMLayoutLoadHtml(hwnd: HWND; html:PBYTE; htmlSize:UINT): BOOL; external engineDLL; stdcall;
+function HTMLayoutLoadFile(hwnd: HWND; filename:LPCWSTR): BOOL;  external engineDLL; stdcall;
+function HTMLayoutDataReady(hwnd: HWND; uri: LPCWSTR; data: Pointer; length: DWORD): BOOL; external engineDLL; stdcall;
+
+procedure HTMLayoutSetCallback(hwnd: HWND; cb: THtmlayoutCallback; cbParam: Pointer); external engineDLL; stdcall;
+
+function HTMLayoutGetRootElement(hwnd: HWND): HELEMENT; external engineDLL; safecall;
+function HTMLayoutGetChildrenCount(he: HELEMENT): UINT; external engineDLL; safecall;
+function HTMLayoutGetNthChild(he: HELEMENT; n: UINT): HELEMENT; external engineDLL; safecall;
+
+function HTMLayoutGetElementText(he: HELEMENT; characters: LPWSTR): UINT; external engineDLL; safecall;
+procedure HTMLayoutGetElementHtml(he: HELEMENT; var utf8bytes: PCHAR; outer: BOOL); external engineDLL; safecall;
+procedure HTMLayoutSetElementHtml(he: HELEMENT; html: Utf8String; htmlLength: DWord; where:UINT); external engineDLL; safecall; overload;
+function HTMLayoutGetElementInnerText16(he: HELEMENT): LPWSTR; external engineDLL; safecall;
+procedure HTMLayoutSetElementInnerText16(he: HELEMENT; utf16words: LPCWSTR; length: UINT); external engineDLL; safecall;
+
+function HTMLayoutGetElementType(he: HELEMENT): LPCSTR; external engineDLL; safecall;
+
+procedure HTMLayoutDeleteElement(he: HELEMENT); external engineDLL; safecall;
+function HTMLayoutCreateElement(tagname: LPCSTR; textOrNull: LPCWSTR): HELEMENT; external engineDLL; safecall;
+procedure HTMLayoutInsertElement(he: HELEMENT; hparent: HELEMENT; index: UINT); external engineDLL; safecall;
+procedure HTMLayoutDetachElement(he: HELEMENT); external engineDLL; safecall;
+function HTMLayoutCloneElement(he: HELEMENT): HELEMENT; external engineDLL; safecall;
+procedure HTMLayout_UseElement(he: HELEMENT); external engineDLL; safecall;
+
+procedure HTMLayoutMoveElement(he: HELEMENT; xView: Integer; yView: Integer); external engineDLL; safecall;
+
+procedure HTMLayoutSelectElements(he: HELEMENT; sel: LPWSTR; cb: THtmlayoutElementCallback; param: Pointer); external engineDLL name 'HTMLayoutSelectElementsW'; safecall;
+
+procedure HTMLayoutAttachEventHandler(he: HELEMENT; cb: THtmlayoutElementEvent; tag: Pointer); external engineDLL; safecall;
+procedure HTMLayoutDetachEventHandler(he: HELEMENT; cb: THtmlayoutElementEvent; tag: Pointer); external engineDLL; safecall;
+
+{
+function HTMLayoutSetElementHtml(he: HELEMENT; html: WideString; where: UINT): Boolean;
+var
+  u8: Utf8String;
+begin
+  u8 := Utf8Encode(html);
+  Result := HTMLayoutSetElementHtml(he, u8, Length(u8), where) = HLDOM_OK;
+end;
+
+function GetElementHtml(he: HELEMENT): AnsiString;
+var
+  w: PChar;
+begin
+  w := nil;
+  HTMLayoutGetElementHtml(he, w, True);
+  Result := w;
+end;
+
+function HTMLayoutFindFirst(he: HELEMENT; sel: PWideChar): HELEMENT;
+  function FirstCallback(he: HELEMENT; param: Pointer): BOOL stdcall;
+  begin
+    GetElementHtml(he);
+    pHELEMENT(param)^ := he;
+    Result := True; // stop enum
+  end;
+begin
+  Result := nil;
+  HTMLayoutSelectElements(he, sel, @FirstCallback, @Result);
+end;
+
+function HTMLayoutEventThunk(tag: Pointer; he: HELEMENT; event: UINT; params: Pointer): BOOL stdcall;
+begin
+  Result := False;
+  if tag = nil then Exit;
+  case event of
+    HANDLE_BEHAVIOR_EVENT:
+      Result := IHtmlBehaviorListener(tag).OnBehaviorEvent(he, pBehaviorEventParams(params));
+    HANDLE_DRAW:
+      Result := IHtmlBehaviorListener(tag).OnBehaviorDraw(he, pBehaviorDrawParams(params));
+  end;
+end;
+
+function HTMLayoutElementSetHandler(he: HELEMENT; cb: IHtmlBehaviorListener): Boolean;
+begin
+  Result := HTMLayoutAttachEventHandler(he, HTMLayoutEventThunk, Pointer(cb)) = HLDOM_OK;
+end;
+
+function HTMLayoutElementRemoveHandler(he: HELEMENT; cb: IHtmlBehaviorListener): Boolean;
+begin
+  Result := HTMLayoutDetachEventHandler(he, HTMLayoutEventThunk, Pointer(cb)) = HLDOM_OK;
+end;
+}
+
+end.
+
diff --git a/HtmlDom.pas b/HtmlDom.pas
new file mode 100644
index 0000000..a4a4468
--- /dev/null
+++ b/HtmlDom.pas
@@ -0,0 +1,114 @@
+unit HtmlDOM;
+
+interface
+
+uses
+  Windows, HtmlConst, HtmlTypes, HtmlDll;
+
+type
+  HtmlElement = class;
+
+  IHtmlBehaviorListener = interface
+  {
+    procedure OnBehaviorAttach(he: HtmlElement; attached: Boolean);
+    function OnBehaviorMouse(he: HtmlElement; params: MouseParams): Boolean;
+    function OnBehaviorKey(he: HtmlElement; params: KeyParams): Boolean;
+    function OnBehaviorFocus(he: HtmlElement; params: FocusParams): Boolean;
+    function OnBehaviorTimer(he: HtmlElement; params: TimerParams): Boolean;
+    function OnBehaviorSize(he: HtmlElement): Boolean;
+    function OnBehaviorScroll(he: HtmlElement; params: ScrollParams): Boolean;
+  }
+    function OnBehaviorDraw(he: HtmlElement; params: pBehaviorDrawParams): Boolean;
+  {
+    function OnBehaviorMethodCall(he: HtmlElement; params: MethodParams): Boolean;
+    function OnBehaviorScriptCall(he: HtmlElement; params: XCallParams): Boolean;
+  }
+    function OnBehaviorEvent(he: HtmlElement; params: pBehaviorEventParams): Boolean;
+  {
+    function OnBehaviorDataArrived(he: HtmlElement; params: DataArrivedParams): Boolean;
+    function OnBehaviorExchange(he: HtmlElement; params: ExchangeParams): Boolean;
+  }
+  end;
+
+  HtmlElement = class
+  public
+    class function Create(tag: PAnsiChar; text: PWideChar = nil): HtmlElement;
+
+    function FindFirst(sel: PWideChar): HtmlElement;
+
+    procedure Insert(e: HtmlElement; index: UINT);
+
+    function GetHtml(): AnsiString;
+    procedure SetHtml(html: WideString; where: UINT);
+
+    procedure SetBehaviorHandler(cb: IHtmlBehaviorListener);
+    procedure RemoveBehaviorHandler(cb: IHtmlBehaviorListener);
+  end;
+
+implementation
+
+{ HtmlElement }
+
+class function HtmlElement.Create(tag: PAnsiChar; text: PWideChar): HtmlElement;
+begin
+  Result := HTMLayoutCreateElement(tag, text);
+end;
+
+function HtmlElement.FindFirst(sel: PWideChar): HtmlElement;
+  function FirstCallback(he: HELEMENT; param: Pointer): BOOL stdcall;
+  begin
+    pHELEMENT(param)^ := he;
+    Result := True; // stop enum
+  end;
+begin
+  Result := nil;
+  HTMLayoutSelectElements(self, sel, @FirstCallback, @Result);
+end;
+
+function HtmlElement.GetHtml: AnsiString;
+var
+  w: PChar;
+begin
+  w := nil;
+  HTMLayoutGetElementHtml(self, w, True);
+  Assert(false, 'who the hell will free the results?');
+  Result := w;
+end;
+
+procedure HtmlElement.Insert(e: HtmlElement; index: UINT);
+begin
+  HTMLayoutInsertElement(e, self, index);
+end;
+
+function HTMLayoutEventThunk(tag: Pointer; he: HELEMENT; event: UINT; params: Pointer): BOOL stdcall;
+begin
+  Result := False;
+  if tag = nil then Exit;
+  case event of
+    HANDLE_BEHAVIOR_EVENT:
+      Result := IHtmlBehaviorListener(tag).OnBehaviorEvent(he, pBehaviorEventParams(params));
+    HANDLE_DRAW:
+      Result := IHtmlBehaviorListener(tag).OnBehaviorDraw(he, pBehaviorDrawParams(params));
+  end;
+end;
+
+procedure HtmlElement.SetBehaviorHandler(cb: IHtmlBehaviorListener);
+begin
+  HTMLayoutAttachEventHandler(self, HTMLayoutEventThunk, Pointer(cb));
+end;
+
+procedure HtmlElement.RemoveBehaviorHandler(cb: IHtmlBehaviorListener);
+begin
+  HTMLayoutDetachEventHandler(self, HTMLayoutEventThunk, Pointer(cb));;
+end;
+
+procedure HtmlElement.SetHtml(html: WideString; where: UINT);
+var
+  u8: Utf8String;
+begin
+  u8 := Utf8Encode(html);
+  HTMLayoutSetElementHtml(self, u8, Length(u8), where);
+end;
+
+end.
+
diff --git a/HtmlTypes.pas b/HtmlTypes.pas
new file mode 100644
index 0000000..f44f3db
--- /dev/null
+++ b/HtmlTypes.pas
@@ -0,0 +1,64 @@
+unit HtmlTypes;
+
+interface
+
+uses Windows, HtmlConst;
+
+type
+  HELEMENT = Pointer;
+  //HELEMENT = HtmlElement;
+  pHELEMENT = ^HELEMENT;
+
+  NMHL_LOAD_DATA = record
+    Hdr: NMHDR;
+    Uri: LPCWSTR;
+
+    OutData: PBYTE;
+    OutDataSize: UINT;
+    DataType: UINT;
+
+    Principal: HELEMENT;
+    Initiator: HELEMENT;
+  end;
+  PNMHL_LOAD_DATA = ^NMHL_LOAD_DATA;
+{
+  NMHL_DATA_LOADED = record
+    Hdr: NMHDR;
+    Uri: LPCWSTR;
+    Data: LPCBYTE;
+    DataSize: DWORD;
+    DataType: UINT;
+    Status: UINT;
+  end;
+  PNMHL_DATA_LOADED = ^NMHL_DATA_LOADED;
+}
+
+  HtmlValue = record
+    t, u: UINT;
+    d: UINT64;
+  end;
+
+  BehaviorEventParams = record
+    Cmd: BehaviorEvents;
+    Target: HELEMENT;
+    Source: HELEMENT;
+    Reason: UINT;
+    Data: HtmlValue;
+  end;
+  pBehaviorEventParams = ^BehaviorEventParams;
+
+  BehaviorDrawParams = record
+    Cmd: DrawEvents;
+    dc: HDC;
+    area: TRect;
+    reserverd: UINT;
+  end;
+  pBehaviorDrawParams = ^BehaviorDrawParams;
+
+  THtmlayoutCallback = function(uMsg: UINT; wParam: WPARAM; lParam: LPARAM; vParam: Pointer): LRESULT stdcall;
+  THtmlayoutElementCallback = function(he: HELEMENT; param: Pointer): BOOL stdcall;
+  THtmlayoutElementEvent = function(tag: Pointer; he: HELEMENT; event: UINT; params: Pointer): BOOL stdcall;
+
+implementation
+
+end.
\ No newline at end of file
diff --git a/Unit1.dfm b/Unit1.dfm
new file mode 100644
index 0000000..de3c037
--- /dev/null
+++ b/Unit1.dfm
@@ -0,0 +1,49 @@
+object Form1: TForm1
+  Left = 149
+  Top = 190
+  Width = 979
+  Height = 563
+  Caption = 'Form1'
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  PixelsPerInch = 96
+  TextHeight = 13
+  object StatusBar1: TStatusBar
+    Left = 0
+    Top = 506
+    Width = 963
+    Height = 19
+    Panels = <>
+  end
+  object TabControl1: TTabControl
+    Left = 0
+    Top = 0
+    Width = 963
+    Height = 506
+    Align = alClient
+    MultiLine = True
+    TabOrder = 1
+    TabPosition = tpLeft
+    Tabs.Strings = (
+      'a'
+      'b'
+      'c'
+      'e'
+      'f')
+    TabIndex = 0
+    object Button1: TButton
+      Left = 432
+      Top = 88
+      Width = 75
+      Height = 25
+      Caption = 'Button1'
+      TabOrder = 0
+      OnClick = Button1Click
+    end
+  end
+end
diff --git a/Unit1.pas b/Unit1.pas
new file mode 100644
index 0000000..886f9f6
--- /dev/null
+++ b/Unit1.pas
@@ -0,0 +1,158 @@
+unit Unit1;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, HtmlConst, HtmlTypes, HtmlCtrl, HtmlDll, HtmlDom, ComCtrls;
+
+type
+  TForm1 = class(TForm, IHtmlBehaviorListener)
+    StatusBar1: TStatusBar;
+    TabControl1: TTabControl;
+    Button1: TButton;
+    procedure Button1Click(Sender: TObject);
+  private
+    Html: THtmlControl;
+    btn1, area1: HtmlElement;
+    function OnHtmlLoadData(Sender: THtmlControl; Uri: PWideChar; element: HtmlElement): LRESULT;
+    procedure OnHtmlDocumentComplete(Sender: THtmlControl);
+
+    function OnBehaviorDraw(he: HtmlElement; params: pBehaviorDrawParams): Boolean;
+    function OnBehaviorEvent(he: HtmlElement; params: pBehaviorEventParams): Boolean;
+  public
+    { Public declarations }
+  end;
+
+var
+  Form1: TForm1;
+
+implementation
+
+{$R *.dfm}
+
+procedure TForm1.Button1Click(Sender: TObject);
+begin
+  Html := THtmlControl.Create(TabControl1);
+  Html.Parent := TabControl1;
+  Html.Align := alClient;
+  Html.OnLoadData := OnHtmlLoadData;
+  Html.OnDocumentComplete := OnHtmlDocumentComplete;
+  Html.Visible := True;
+  Html.LoadHtml('index.htm');
+end;
+
+function AppendHtmlElement(parent: HtmlElement; html: WideString): HtmlElement;
+var
+  e: HtmlElement;
+begin
+  e := HtmlElement.Create('div');
+  parent.Insert(e, INSERT_AT_END);
+  e.SetHtml(html, SOH_REPLACE);
+  Result := e;
+end;
+procedure AddMessage(root: HtmlElement; from, ava, time, msg: WideString; incoming: Boolean);
+var
+  t: WideString;
+  html: WideString;
+begin
+  if incoming then begin
+    t := 'incoming';
+  end else begin
+    t := 'outgoing';
+  end;
+  html := WideFormat(
+    '<div class="bubble message %s" sendercolor="color: hsl(21, 100%%, 40%%);">'+
+    '<div class="indicator">'+
+    '<p class="pseudo"><span class="sender">%s<span class="time"> - %s</span></span></p>'+
+    '<p class="message %s" title="%s">'+
+    '<img width=32 height=32 src="skin://%s"/>'+
+    ' <span class="ib-msg-txt">%s</span></p>'+
+    '</div>',
+    [t, from, time, t, time, ava, msg]);
+  AppendHtmlElement(root, html);
+end;
+
+function TForm1.OnBehaviorDraw(he: HtmlElement; params: pBehaviorDrawParams): Boolean;
+var
+  cnv: TCanvas;
+begin
+  Result := False;
+  if he <> area1 then Exit;
+
+  cnv := TCanvas.Create;
+
+  cnv.Handle := params^.dc;
+  cnv.Brush.Color := RGB(Random(255),Random(255),Random(255));
+  cnv.FillRect(params^.area);
+
+  cnv.TextOut(params^.area.Left + Random(10), params^.area.Top + Random(10) + 20, 'Some text!');
+
+  cnv.Free;
+
+  Result := True;
+end;
+
+function TForm1.OnBehaviorEvent(he: HtmlElement; params: pBehaviorEventParams): Boolean;
+begin
+  if (he = btn1) and (params^.Cmd = BUTTON_CLICK) then
+    MessageBox(0, 'event!', nil, 0);
+  Result := False;
+end;
+
+procedure TForm1.OnHtmlDocumentComplete(Sender: THtmlControl);
+var
+  root: HtmlELement;
+  i: integer;
+begin
+  root := sender.GetRootElement();
+  root := root.FindFirst('#chat');
+
+  AppendHtmlElement(root, '<button id="du1">click me!</button>');
+  btn1 := root.FindFirst('#du1');
+  btn1.SetBehaviorHandler(self);
+
+  AppendHtmlElement(root,'<widget id="du2" width=128 height=48 />');
+  area1 := root.FindFirst('#du2');
+  area1.SetBehaviorHandler(self);
+
+  for i := 1 to 100 do
+    AddMessage(root, 'username', WideFormat('ava%d.jpg', [Random(5)+1]), '12:12', IntToStr(i) + ', Ho-ho-hoooly shit!', Random(2) = 1);
+end;
+
+function TForm1.OnHtmlLoadData(Sender: THtmlControl; Uri: PWideChar; element: HtmlElement): LRESULT;
+var
+  s: TStream;
+  filename: WideString;
+  buf: Pointer;
+  size: DWORD;
+  i: Integer;
+begin
+  Result := LOAD_OK;
+  if Pos('skin://', Uri) <> 1 then
+    Exit;
+  I := Length(Uri);
+  if( Uri[I-1] = '/' ) then
+    filename := Copy(Uri, 8, I-1-7)
+  else
+    filename := Uri+7;
+  try
+    s := TFileStream.Create(filename, fmOpenRead);
+  except
+    Result := LOAD_DISCARD;
+    Exit;
+  end;
+  buf := nil;
+  try
+    size := s.Size;
+    GetMem(buf, size);
+    s.Read(buf^, size);
+    s.Free;
+    Sender.OnDataReady(Uri, buf, size);
+    FreeMem(buf);
+    Result := LOAD_DISCARD;
+  except
+  end;
+end;
+
+end.
diff --git a/index.htm b/index.htm
new file mode 100644
index 0000000..f42b77e
--- /dev/null
+++ b/index.htm
@@ -0,0 +1,11 @@
+<html>
+<head>
+<link rel="stylesheet" href="skin://style/conv.css" type="text/css">
+<link rel="stylesheet" href="skin://style/main.css" type="text/css">
+<link rel="stylesheet" href="skin://style/theme.css" type="text/css">
+</head>
+<body>
+<div id="chat">
+</div>
+</body>
+</html>
\ No newline at end of file
diff --git a/readme b/readme
new file mode 100644
index 0000000..24fc086
--- /dev/null
+++ b/readme
@@ -0,0 +1,7 @@
+
+ Delphi binding for HTMLayout
+ ============================
+ 
+ Simple wrappers made for demonstration of piece of HTMLayout to antiquated Delphi developers.
+
+ Implemented a tiny piece of DOM-manipulation methods and behavior event handling.
diff --git a/style/conv.css b/style/conv.css
new file mode 100644
index 0000000..6c1b092
--- /dev/null
+++ b/style/conv.css
@@ -0,0 +1,46 @@
+/* This Source Code Form is subject to the terms of the Mozilla Public
+ * License, v. 2.0. If a copy of the MPL was not distributed with this
+ * file, You can obtain one at http://mozilla.org/MPL/2.0/. */
+
+.ib-msg-txt {
+  white-space: pre-wrap;
+  word-wrap: break-word;
+}
+
+.ib-img-smile {
+  vertical-align: text-bottom;
+}
+
+*:-moz-any-link .ib-img-smile {
+  border: none;
+  border-bottom: solid 1px;
+  margin-bottom: 1px;
+}
+
+.moz-txt-underscore {
+  text-decoration: underline;
+}
+
+/* disable overflow in themes until bug 42676 is fixed in Mozilla */
+#Chat {
+  overflow: hidden !important;
+}
+
+#Chat * {
+  overflow: visible !important;
+}
+
+#unread-ruler {
+  margin: 0;
+  width: 100%;
+  border: none;
+  border-top: 1px dashed red;
+}
+
+.ib-nick {
+  font-weight: bold;
+}
+
+.ib-nick[left] {
+  color: grey;
+}
diff --git a/style/main.css b/style/main.css
new file mode 100644
index 0000000..34c0f7d
--- /dev/null
+++ b/style/main.css
@@ -0,0 +1,185 @@
+/* This Source Code Form is subject to the terms of the Mozilla Public
+ * License, v. 2.0. If a copy of the MPL was not distributed with this
+ * file, You can obtain one at http://mozilla.org/MPL/2.0/. */
+
+body {
+  margin: 0;
+  padding: 0;
+  background: -moz-linear-gradient(top, -moz-dialog, -moz-default-background-color) fixed;
+  behavior: htmlarea;
+}
+
+p {
+  font-family: sans-serif;
+  margin: 0;
+  padding: 0;
+}
+
+div.bubble {
+  margin: 20px 20px 3px 20px;
+  padding: 0;
+  border-width: 2px;
+  border-style: solid;
+  border-radius: 10px;
+  box-shadow: rgba(0, 0, 0, 0.3) 1px 1px 3px;
+}
+
+div.bubble:not(.context):not(.event) {
+  -moz-animation-duration: 0.5s;
+  -moz-animation-name: fadein;
+  -moz-animation-iteration-count: 1;
+}
+
+@-moz-keyframes fadein {
+  from {
+    opacity: 0;
+  }
+
+  to {
+    opacity: 1.0;
+  }
+}
+/*
+div.bubble.context:not(:hover) {
+  filter: url("bubbles.svg#desaturate");
+}
+*/
+
+div.bubble>div.indicator {
+  margin: 0;
+  padding: 9px 15px 10px 15px;
+}
+
+div.bubble.event {
+  padding: 4px 15px 4px 15px;
+  background-color: hsl(0, 0%, 99%);
+  border-color: hsl(0, 0%, 85%);
+  box-shadow: rgba(0, 0, 0, 0.1) 1px 1px 3px;
+}
+
+div.bubble p.pseudo {
+  font-size: smaller;
+  font-weight: bold;
+  margin: -9px 0px 3px -15px;
+}
+
+div.bubble p.pseudo>span {
+  padding: 0px 15px 1px 15px;
+  /* border-top-left-radius = (border-radius - border-width) of div.bubble,
+     see bug 1775 for an explanation */
+  border-top-left-radius: 8px;
+  border-bottom-right-radius: 10px;
+}
+/*
+div.bubble p.pseudo>span>span.time {
+  display: none;
+}
+
+div.bubble:hover p.pseudo>span>span.time {
+  display: inline;
+}
+*/
+div.bubble hr {
+  margin: 3px 0px 1px 0px;
+  height: 2px;
+  border-style: none;
+  border-top: 1px solid rgba(0, 0, 0, 0.07);
+  border-bottom: 1px solid rgba(255, 255, 255, 0.5);
+}
+
+p.interval {
+  text-align: center;
+  color: hsl(0, 0%, 60%);
+}
+
+#lastMessage {
+  line-height: 20px;
+  text-align: center;
+  color: hsl(0, 0%, 60%);
+}
+
+p.nick {
+  font-weight: bold;
+}
+
+p.action {
+  font-style: italic;
+}
+
+p.action:before {
+  content: "*** ";
+}
+
+p.event {
+  color: hsl(0, 0%, 60%);
+}
+/*
+p.event *:-moz-any-link:not(:hover) {
+  color: hsl(0, 0%, 60%);
+  text-decoration: none;
+}
+
+p.event *:-moz-any-link:hover {
+  color: hsl(0, 0%, 25%);
+}
+*/
+
+#Chat {
+  white-space: normal;
+}
+
+p *:-moz-any-link img {
+  margin-bottom: 1px;
+  border-bottom: solid 1px;
+}
+
+#unread-ruler {
+  border-top: 1px solid rgba(0, 0, 0, 0.16) !important;
+  border-bottom: 1px solid rgb(255,255,255) !important;
+}
+
+
+/* used by javascript */
+p.button {
+  cursor: pointer;
+  min-height: 20px;
+  margin-left: -24px;
+  margin-bottom: -3px;
+  padding-left: 24px;
+}
+/*
+p.hide {
+  background: url('Bitmaps/plus.png') no-repeat left top;
+}
+
+p.hide:hover {
+  background: url('Bitmaps/plus-hover.png') no-repeat left top;
+}
+
+p.hide:after {
+  content: "...";
+  color: hsl(0, 0%, 60%);
+}
+
+p.show {
+  background: url('Bitmaps/minus.png') no-repeat left top;
+  margin-bottom: -20px;
+  width: 0;
+}
+
+p.show:hover {
+  background: url('Bitmaps/minus-hover.png') no-repeat left top;
+}
+*/
+.ib-nick {
+  font-size: smaller;
+  border: 1px solid;
+  border-radius: 6px;
+  padding: 0 0.3em;
+}
+
+.ib-nick[left] {
+  color: hsl(0, 0%, 60%);
+  background-color: hsl(0, 0%, 99%);
+  border-color: hsl(0, 0%, 85%);
+}
diff --git a/style/tail_l.png b/style/tail_l.png
new file mode 100644
index 0000000..8bb8757
Binary files /dev/null and b/style/tail_l.png differ
diff --git a/style/tail_r.png b/style/tail_r.png
new file mode 100644
index 0000000..9c5890b
Binary files /dev/null and b/style/tail_r.png differ
diff --git a/style/theme.css b/style/theme.css
new file mode 100644
index 0000000..10ecbb1
--- /dev/null
+++ b/style/theme.css
@@ -0,0 +1,36 @@
+/* This Source Code Form is subject to the terms of the Mozilla Public
+ * License, v. 2.0. If a copy of the MPL was not distributed with this
+ * file, You can obtain one at http://mozilla.org/MPL/2.0/. */
+
+div.bubble.outgoing {
+  background-color: hsl(240, 100%, 97%);
+  border-color: hsl(240, 100%, 80%);
+}
+
+div.bubble.outgoing p.pseudo>span {
+  color: hsl(240, 100%, 75%);
+  background-color: hsl(240, 100%, 94%);
+}
+
+div.bubble.outgoing>div.indicator {
+  margin-left: -17px;
+  padding-left: 32px;
+  background: url('tail_l.png') no-repeat center left;
+}
+
+
+div.bubble.incoming {
+  background-color: hsl(0, 100%, 97%);
+  border-color: hsl(0, 100%, 80%);
+}
+
+div.bubble.incoming p.pseudo>span {
+  color: hsl(0, 100%, 75%);
+  background-color: hsl(0, 100%, 94%);
+}
+
+div.bubble.incoming>div.indicator {
+  margin-right: -19px;
+  padding-right: 34px;
+  background: url('tail_r.png') no-repeat center right;
+}