├── .gitattributes
├── .gitignore
├── HtmlConst.pas
├── HtmlCtrl.pas
├── HtmlDemo.dpr
├── HtmlDemo.res
├── HtmlDll.pas
├── HtmlDom.pas
├── HtmlTypes.pas
├── Unit1.dfm
├── Unit1.pas
├── index.htm
├── readme
└── style
    ├── conv.css
    ├── main.css
    ├── tail_l.png
    ├── tail_r.png
    └── theme.css


/.gitattributes:
--------------------------------------------------------------------------------
 1 | # Auto detect text files and perform LF normalization
 2 | * text=auto
 3 | 
 4 | # Custom for Visual Studio
 5 | *.cs     diff=csharp
 6 | *.sln    merge=union
 7 | *.csproj merge=union
 8 | *.vbproj merge=union
 9 | *.fsproj merge=union
10 | *.dbproj merge=union
11 | 
12 | # Standard to msysgit
13 | *.doc	 diff=astextplain
14 | *.DOC	 diff=astextplain
15 | *.docx diff=astextplain
16 | *.DOCX diff=astextplain
17 | *.dot  diff=astextplain
18 | *.DOT  diff=astextplain
19 | *.pdf  diff=astextplain
20 | *.PDF	 diff=astextplain
21 | *.rtf	 diff=astextplain
22 | *.RTF	 diff=astextplain
23 | 


--------------------------------------------------------------------------------
/.gitignore:
--------------------------------------------------------------------------------
  1 | #################
  2 | ## Eclipse
  3 | #################
  4 | 
  5 | *.pydevproject
  6 | .project
  7 | .metadata
  8 | bin/
  9 | tmp/
 10 | *.tmp
 11 | *.bak
 12 | *.swp
 13 | *~.nib
 14 | local.properties
 15 | .classpath
 16 | .settings/
 17 | .loadpath
 18 | 
 19 | # External tool builders
 20 | .externalToolBuilders/
 21 | 
 22 | # Locally stored "Eclipse launch configurations"
 23 | *.launch
 24 | 
 25 | # CDT-specific
 26 | .cproject
 27 | 
 28 | # PDT-specific
 29 | .buildpath
 30 | 
 31 | 
 32 | #################
 33 | ## Visual Studio
 34 | #################
 35 | 
 36 | ## Ignore Visual Studio temporary files, build results, and
 37 | ## files generated by popular Visual Studio add-ons.
 38 | 
 39 | # User-specific files
 40 | *.suo
 41 | *.user
 42 | *.sln.docstates
 43 | 
 44 | # Build results
 45 | [Dd]ebug/
 46 | [Rr]elease/
 47 | *_i.c
 48 | *_p.c
 49 | *.ilk
 50 | *.meta
 51 | *.obj
 52 | *.pch
 53 | *.pdb
 54 | *.pgc
 55 | *.pgd
 56 | *.rsp
 57 | *.sbr
 58 | *.tlb
 59 | *.tli
 60 | *.tlh
 61 | *.tmp
 62 | *.vspscc
 63 | .builds
 64 | *.dotCover
 65 | 
 66 | ## TODO: If you have NuGet Package Restore enabled, uncomment this
 67 | #packages/
 68 | 
 69 | # Visual C++ cache files
 70 | ipch/
 71 | *.aps
 72 | *.ncb
 73 | *.opensdf
 74 | *.sdf
 75 | 
 76 | # Visual Studio profiler
 77 | *.psess
 78 | *.vsp
 79 | 
 80 | # ReSharper is a .NET coding add-in
 81 | _ReSharper*
 82 | 
 83 | # Installshield output folder
 84 | [Ee]xpress
 85 | 
 86 | # DocProject is a documentation generator add-in
 87 | DocProject/buildhelp/
 88 | DocProject/Help/*.HxT
 89 | DocProject/Help/*.HxC
 90 | DocProject/Help/*.hhc
 91 | DocProject/Help/*.hhk
 92 | DocProject/Help/*.hhp
 93 | DocProject/Help/Html2
 94 | DocProject/Help/html
 95 | 
 96 | # Click-Once directory
 97 | publish
 98 | 
 99 | # Others
100 | [Bb]in
101 | [Oo]bj
102 | sql
103 | TestResults
104 | *.Cache
105 | ClientBin
106 | stylecop.*
107 | ~$*
108 | *.dbmdl
109 | Generated_Code #added for RIA/Silverlight projects
110 | 
111 | # Backup & report files from converting an old project file to a newer
112 | # Visual Studio version. Backup files are not needed, because we have git ;-)
113 | _UpgradeReport_Files/
114 | Backup*/
115 | UpgradeLog*.XML
116 | 
117 | 
118 | 
119 | ############
120 | ## Windows
121 | ############
122 | 
123 | # Windows image file caches
124 | Thumbs.db
125 | 
126 | # Folder config file
127 | Desktop.ini
128 | 
129 | 
130 | #############
131 | ## Python
132 | #############
133 | 
134 | *.py[co]
135 | 
136 | # Packages
137 | *.egg
138 | *.egg-info
139 | dist
140 | build
141 | eggs
142 | parts
143 | bin
144 | var
145 | sdist
146 | develop-eggs
147 | .installed.cfg
148 | 
149 | # Installer logs
150 | pip-log.txt
151 | 
152 | # Unit test / coverage reports
153 | .coverage
154 | .tox
155 | 
156 | #Translations
157 | *.mo
158 | 
159 | #Mr Developer
160 | .mr.developer.cfg
161 | 
162 | # Mac crap
163 | .DS_Store
164 | 


--------------------------------------------------------------------------------
/HtmlConst.pas:
--------------------------------------------------------------------------------
  1 | unit HtmlConst;
  2 | 
  3 | interface
  4 | 
  5 | uses Windows;
  6 | 
  7 | const
  8 |   HLN_CREATE_CONTROL  = $AFF + $01;
  9 |   HLN_LOAD_DATA       = $AFF + $02;
 10 |   HLN_CONTROL_CREATED = $AFF + $03;
 11 |   HLN_DATA_LOADED     = $AFF + $04;
 12 |   HLN_DOCUMENT_COMPLETE = $AFF + $05;
 13 |   HLN_UPDATE_UI       = $AFF + $06;
 14 |   HLN_DESTROY_CONTROL = $AFF + $07;
 15 |   HLN_ATTACH_BEHAVIOR = $AFF + $08;
 16 |   HLN_BEHAVIOR_CHANGED = $AFF + $09;
 17 |   HLN_DIALOG_CREATED = $AFF + $10;
 18 |   HLN_DIALOG_CLOSE_RQ = $AFF + $0A;
 19 |   HLN_DOCUMENT_LOADED = $AFF + $0B;
 20 | 
 21 |   LOAD_OK      = 0;
 22 |   LOAD_DISCARD = 1;
 23 | 
 24 |   HLDOM_OK = 0;
 25 |   HLDOM_INVALID_HWND = 1;
 26 |   HLDOM_INVALID_HANDLE = 2;
 27 |   HLDOM_PASSIVE_HANDLE = 3;
 28 |   HLDOM_INVALID_PARAMETER = 4;
 29 |   HLDOM_OPERATION_FAILED = 5;
 30 |   HLDOM_OK_NOT_HANDLED = -1;
 31 | 
 32 |   SIH_REPLACE_CONTENT    = 0;
 33 |   SIH_INSERT_AT_START    = 1;
 34 |   SIH_APPEND_AFTER_LAST  = 2;
 35 | 
 36 |   SOH_REPLACE       = 3;
 37 |   SOH_INSERT_BEFORE = 4;
 38 |   SOH_INSERT_AFTER  = 5;
 39 | 
 40 |   INSERT_AT_END     = $7FFFFFF;
 41 | 
 42 |   //enum EVENT_GROUPS
 43 |   HANDLE_INITIALIZATION = $0000;     (* attached/detached *)
 44 |   HANDLE_MOUSE = $0001;              (* mouse events *)
 45 |   HANDLE_KEY = $0002;                (* key events *)
 46 |   HANDLE_FOCUS = $0004;              (* focus events, if this flag is set it also means that element it attached to is focusable *)
 47 |   HANDLE_SCROLL = $0008;             (* scroll events *)
 48 |   HANDLE_TIMER = $0010;              (* timer event *)
 49 |   HANDLE_SIZE = $0020;               (* size changed event *)
 50 |   HANDLE_DRAW = $0040;               (* drawing request (event) *)
 51 |   HANDLE_DATA_ARRIVED = $080;        (* requested data () has been delivered *)
 52 |   HANDLE_BEHAVIOR_EVENT = $0100;     (* secondary, synthetic events:
 53 |                                         BUTTON_CLICK, HYPERLINK_CLICK, etc.,
 54 |                                         a.k.a. notifications from intrinsic behaviors *)
 55 |   HANDLE_METHOD_CALL = $0200;        (* behavior specific methods *)
 56 | 
 57 |   HANDLE_EXCHANGE   = $1000;         (* system drag-n-drop *)
 58 |   HANDLE_GESTURE    = $2000;         (* touch input events *)
 59 | 
 60 |   HANDLE_ALL        = $FFFF;         (* all of them *)
 61 | 
 62 |   DISABLE_INITIALIZATION = $80000000; (* disable INITIALIZATION events to be sent.
 63 |                                          normally engine sends
 64 |                                          BEHAVIOR_DETACH / BEHAVIOR_ATTACH events unconditionally,
 65 |                                          this flag allows to disable this behavior
 66 |                                       *)
 67 | 
 68 | type
 69 |   BehaviorEvents = (
 70 |     BUTTON_CLICK = 0,              // click on button
 71 |     BUTTON_PRESS = 1,              // mouse down or key down in button
 72 |     BUTTON_STATE_CHANGED = 2,      // checkbox/radio/slider changed its state/value 
 73 |     EDIT_VALUE_CHANGING = 3,       // before text change
 74 |     EDIT_VALUE_CHANGED = 4,        // after text change
 75 |     SELECT_SELECTION_CHANGED = 5,  // selection in <select> changed
 76 |     SELECT_STATE_CHANGED = 6,      // node in select expanded/collapsed, heTarget is the node
 77 | 
 78 |     POPUP_REQUEST   = 7,           // request to show popup just received, 
 79 |                                    //     here DOM of popup element can be modifed.
 80 |     POPUP_READY     = 8,           // popup element has been measured and ready to be shown on screen,
 81 |                                    //     here you can use functions like ScrollToView.
 82 |     POPUP_DISMISSED = 9,           // popup element is closed,
 83 |                                    //     here DOM of popup element can be modifed again - e.g. some items can be removed
 84 |                                    //     to free memory.
 85 | 
 86 |     MENU_ITEM_ACTIVE = $A,        // menu item activated by mouse hover or by keyboard,
 87 |     MENU_ITEM_CLICK = $B,         // menu item click, 
 88 |                                    //   BEHAVIOR_EVENT_PARAMS structure layout
 89 |                                    //   BEHAVIOR_EVENT_PARAMS.cmd - MENU_ITEM_CLICK/MENU_ITEM_ACTIVE   
 90 |                                    //   BEHAVIOR_EVENT_PARAMS.heTarget - the menu item, presumably <li> element
 91 |                                    //   BEHAVIOR_EVENT_PARAMS.reason - BY_MOUSE_CLICK | BY_KEY_CLICK
 92 | 
 93 |     CONTEXT_MENU_SETUP   = $F,    // evt.he is a menu dom element that is about to be shown. You can disable/enable items in it.      
 94 |     CONTEXT_MENU_REQUEST = $10,   // "right-click", BEHAVIOR_EVENT_PARAMS::he is current popup menu HELEMENT being processed or NULL.
 95 |                                    // application can provide its own HELEMENT here (if it is NULL) or modify current menu element.
 96 |   
 97 |     VISIUAL_STATUS_CHANGED = $11, // broadcast notification, sent to all elements of some container being shown or hidden   
 98 |     DISABLED_STATUS_CHANGED = $12,// broadcast notification, sent to all elements of some container that got new value of :disabled state
 99 | 
100 |     POPUP_DISMISSING = $13,       // popup is about to be closed
101 | 
102 | 
103 |     // "grey" event codes  - notfications from behaviors from this SDK 
104 |     HYPERLINK_CLICK = $80,        // hyperlink click
105 |     TABLE_HEADER_CLICK,            // click on some cell in table header, 
106 |                                    //     target = the cell, 
107 |                                    //     reason = index of the cell (column number, 0..n)
108 |     TABLE_ROW_CLICK,               // click on data row in the table, target is the row
109 |                                    //     target = the row, 
110 |                                    //     reason = index of the row (fixed_rows..n)
111 |     TABLE_ROW_DBL_CLICK,           // mouse dbl click on data row in the table, target is the row
112 |                                    //     target = the row, 
113 |                                    //     reason = index of the row (fixed_rows..n)
114 | 
115 |     ELEMENT_COLLAPSED = $90,      // element was collapsed, so far only behavior:tabs is sending these two to the panels
116 |     ELEMENT_EXPANDED,              // element was expanded,
117 | 
118 |     ACTIVATE_CHILD,                // activate (select) child, 
119 |                                    // used for example by accesskeys behaviors to send activation request, e.g. tab on behavior:tabs. 
120 | 
121 |     DO_SWITCH_TAB = ACTIVATE_CHILD,// command to switch tab programmatically, handled by behavior:tabs 
122 |                                    // use it as HTMLayoutPostEvent(tabsElementOrItsChild, DO_SWITCH_TAB, tabElementToShow, 0),
123 | 
124 |     INIT_DATA_VIEW,                // request to virtual grid to initialize its view
125 |   
126 |     ROWS_DATA_REQUEST,             // request from virtual grid to data source behavior to fill data in the table
127 |                                    // parameters passed throug DATA_ROWS_PARAMS structure.
128 | 
129 |     UI_STATE_CHANGED,              // ui state changed, observers shall update their visual states.
130 |                                    // is sent for example by behavior:richtext when caret position/selection has changed.
131 | 
132 |     FORM_SUBMIT,                   // behavior:form detected submission event. BEHAVIOR_EVENT_PARAMS::data field contains data to be posted.
133 |                                    // BEHAVIOR_EVENT_PARAMS::data is of type T_MAP in this case key/value pairs of data that is about
134 |                                    // to be submitted. You can modify the data or discard submission by returning TRUE from the handler.
135 |     FORM_RESET,                    // behavior:form detected reset event (from button type=reset). BEHAVIOR_EVENT_PARAMS::data field contains data to be reset.
136 |                                    // BEHAVIOR_EVENT_PARAMS::data is of type T_MAP in this case key/value pairs of data that is about 
137 |                                    // to be rest. You can modify the data or discard reset by returning TRUE from the handler.
138 |                                  
139 |     DOCUMENT_COMPLETE,             // behavior:frame have complete document.
140 | 
141 |     HISTORY_PUSH,                  // behavior:history stuff
142 |     HISTORY_DROP,                     
143 |     HISTORY_PRIOR,
144 |     HISTORY_NEXT,
145 | 
146 |     HISTORY_STATE_CHANGED,         // behavior:history notification - history stack has changed
147 | 
148 |     CLOSE_POPUP,                   // close popup request,
149 |     REQUEST_TOOLTIP,               // request tooltip, BEHAVIOR_EVENT_PARAMS.he <- is the tooltip element.
150 | 
151 |     ANIMATION         = $A0,      // animation started (reason=1) or ended(reason=0) on the element.
152 | 
153 | 
154 |     FIRST_APPLICATION_EVENT_CODE = $100, 
155 |     // all custom event codes shall be greater
156 |     // than this number. All codes below this will be used
157 |     // solely by application - HTMLayout will not intrepret it 
158 |     // and will do just dispatching.
159 |     // To send event notifications with  these codes use
160 |     // HTMLayoutSend/PostEvent API.
161 | 
162 |     __DUMMY = $7FFFFFFF
163 |   );
164 | 
165 |   DrawEvents = (
166 |     DRAW_BACKGROUND = 0,
167 |     DRAW_CONTENT = 1,
168 |     DRAW_FOREGROUND = 2
169 |   );
170 | 
171 | implementation
172 | end.


--------------------------------------------------------------------------------
/HtmlCtrl.pas:
--------------------------------------------------------------------------------
  1 | unit HtmlCtrl;
  2 | 
  3 | interface
  4 | 
  5 | uses
  6 |   Windows, Messages, SysUtils, Classes, Controls, HtmlConst, HtmlTypes, HtmlDll, HtmlDOM;
  7 | 
  8 | type
  9 |   THtmlControl = class;
 10 | 
 11 |   THtmlLoadData = function (Sender: THtmlControl; Uri: PWideChar; element: HtmlElement): LRESULT of Object;
 12 |   THtmlDocumentComplete = procedure (Sender: THtmlControl) of Object;
 13 | 
 14 |   THtmlControl = class(TWinControl)
 15 |   private
 16 |     FOnLoadData: THtmlLoadData;
 17 |     FOnDocumentComplete: THtmlDocumentComplete;
 18 |     function HtmlCallback(uMsg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT;
 19 |   protected
 20 |     procedure CreateParams(var Params: TCreateParams); override;
 21 |     procedure WndProc(var Message: TMessage); override;
 22 |   public
 23 |     constructor Create(AOwner: TComponent); override;
 24 | 
 25 |     procedure LoadHtml(pHtml: PByte; cb: Cardinal); overload;
 26 |     procedure LoadHtml(filename: widestring); overload;
 27 | 
 28 |     function GetRootElement(): HtmlElement;
 29 | 
 30 |     function OnDataReady(uri: PWideChar; data: Pointer; length: Cardinal): Boolean;
 31 |   published
 32 |     property Action;
 33 |     property Align;
 34 |     property Anchors;
 35 |     property BiDiMode;
 36 |     property Caption;
 37 |     property Constraints;
 38 |     property DragCursor;
 39 |     property DragKind;
 40 |     property DragMode;
 41 |     property Enabled;
 42 |     property Font;
 43 |     property ParentBiDiMode;
 44 |     property ParentFont;
 45 |     property ParentShowHint;
 46 |     property PopupMenu;
 47 |     property ShowHint;
 48 |     property TabOrder;
 49 |     property TabStop default True;
 50 |     property Visible;
 51 |     property OnClick;
 52 |     property OnContextPopup;
 53 |     property OnDragDrop;
 54 |     property OnDragOver;
 55 |     property OnEndDock;
 56 |     property OnEndDrag;
 57 |     property OnEnter;
 58 |     property OnExit;
 59 |     property OnLoadData: THtmlLoadData read FOnLoadData write FOnLoadData;
 60 |     property OnDocumentComplete: THtmlDocumentComplete read FOnDocumentComplete write FOnDocumentComplete;
 61 |     property OnKeyDown;
 62 |     property OnKeyPress;
 63 |     property OnKeyUp;
 64 | //    property OnMouseActivate;
 65 |     property OnMouseDown;
 66 | //    property OnMouseEnter;
 67 | //    property OnMouseLeave;
 68 |     property OnMouseMove;
 69 |     property OnMouseUp;
 70 |     property OnStartDock;
 71 |     property OnStartDrag;
 72 | end;
 73 | 
 74 | implementation
 75 | 
 76 | { THtmlControl }
 77 | 
 78 | constructor THtmlControl.Create(AOwner: TComponent);
 79 | begin
 80 |   inherited Create(AOwner);
 81 | end;
 82 | 
 83 | procedure THtmlControl.CreateParams(var Params: TCreateParams);
 84 | begin
 85 |   inherited CreateParams(Params);
 86 | end;
 87 | 
 88 | procedure THtmlControl.LoadHtml(pHtml: PByte; cb: Cardinal);
 89 | begin
 90 | end;
 91 | 
 92 | procedure THtmlControl.LoadHtml(filename: widestring);
 93 | begin
 94 |   HTMLayoutLoadFile(Handle, PWideChar(filename));
 95 | end;
 96 | 
 97 | function AHtmlCallbackProxy(uMsg: UINT; wParam: WPARAM; lParam: LPARAM; vParam: Pointer): LRESULT; stdcall;
 98 | begin
 99 |   if vParam <> nil then
100 |     Result := THtmlControl(vParam).HtmlCallback(uMsg, wParam, lParam)
101 |   else
102 |     Result := 0;
103 | end;
104 | 
105 | procedure THtmlControl.WndProc(var Message: TMessage);
106 | var
107 |   Handled: BOOL;
108 |   res: LRESULT;
109 | begin
110 |   res := HTMLayoutProcND(Handle, Message.Msg, Message.WParam, Message.LParam, Handled);
111 |   if Handled then
112 |   begin
113 |     Message.Result := res;
114 |     Exit;
115 |   end;
116 | 
117 |   case Message.Msg of
118 |     WM_CREATE:
119 |       begin
120 |         HTMLayoutSetCallback(Handle, @AHtmlCallbackProxy, Self);
121 |       end;
122 |   end;
123 | 
124 |   inherited WndProc(Message);
125 | end;
126 | 
127 | function THtmlControl.HtmlCallback(uMsg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT;
128 | var
129 |   nmhdr: pNMHDR;
130 | begin
131 |   nmhdr := pNMHDR(lParam);
132 |   case nmhdr^.code of
133 |     HLN_LOAD_DATA:
134 |       begin
135 |         if Assigned(FOnLoadData) then
136 |           Result := FOnLoadData(Self, pNMHL_LOAD_DATA(lParam)^.uri, pNMHL_LOAD_DATA(lParam)^.principal)
137 |         else
138 |           Result := LOAD_OK;
139 |         Exit;
140 |       end;
141 |     HLN_DOCUMENT_COMPLETE:
142 |       if Assigned(FOnLoadData) then
143 |         FOnDocumentComplete(Self);
144 |   end;
145 |   Result := 0;
146 | end;
147 | 
148 | function THtmlControl.GetRootElement: HtmlElement;
149 | begin
150 |   Result := HTMLayoutGetRootElement(Handle);
151 | end;
152 | 
153 | function THtmlControl.OnDataReady(uri: PWideChar; data: Pointer; length: Cardinal): Boolean;
154 | begin
155 |   Result := HTMLayoutDataReady(Handle, uri, data, length);
156 | end;
157 | 
158 | end.
159 | 


--------------------------------------------------------------------------------
/HtmlDemo.dpr:
--------------------------------------------------------------------------------
 1 | program HtmlDemo;
 2 | 
 3 | uses
 4 |   Forms,
 5 |   Unit1 in 'Unit1.pas' {Form1},
 6 |   HtmlCtrl in 'HtmlCtrl.pas';
 7 | 
 8 | {$R *.res}
 9 | 
10 | begin
11 |   Application.Initialize;
12 |   Application.CreateForm(TForm1, Form1);
13 |   Application.Run;
14 | end.
15 | 


--------------------------------------------------------------------------------
/HtmlDemo.res:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/dstd/HtmlayoutDelphi/e358195654e4c2c79e0bfe5866f1a02df4a36dac/HtmlDemo.res


--------------------------------------------------------------------------------
/HtmlDll.pas:
--------------------------------------------------------------------------------
  1 | unit HtmlDll;
  2 | 
  3 | interface
  4 | 
  5 | uses
  6 |   Windows, HtmlConst, HtmlTypes;
  7 | 
  8 | function HTMLayoutProcND(hwnd: HWND; msg: UINT; wParam:WPARAM; lParam: LPARAM; var pbHandled: BOOL): LRESULT; stdcall;
  9 | function HTMLayoutLoadHtml(hwnd: HWND; html: PBYTE; htmlSize: UINT): BOOL; stdcall;
 10 | function HTMLayoutLoadFile(hwnd: HWND; filename: LPCWSTR): BOOL; stdcall;
 11 | function HTMLayoutDataReady(hwnd: HWND; uri: LPCWSTR; data: Pointer; length: DWORD): BOOL; stdcall;
 12 | 
 13 | procedure HTMLayoutSetCallback(hwnd: HWND; cb: THtmlayoutCallback; cbParam: Pointer); stdcall;
 14 | 
 15 | function HTMLayoutGetRootElement(hwnd: HWND): HELEMENT; safecall;
 16 | function HTMLayoutGetChildrenCount(he: HELEMENT): UINT; safecall;
 17 | function HTMLayoutGetNthChild(he: HELEMENT; n: UINT): HELEMENT; safecall;
 18 | 
 19 | function HTMLayoutGetElementText(he: HELEMENT; characters: LPWSTR): UINT; safecall;
 20 | procedure HTMLayoutGetElementHtml(he: HELEMENT; var utf8bytes: PCHAR; outer: BOOL); safecall;
 21 | procedure HTMLayoutSetElementHtml(he: HELEMENT; html: Utf8String; htmlLength: DWord; where:UINT); safecall; overload;
 22 | function HTMLayoutGetElementInnerText16(he: HELEMENT): LPWSTR; safecall;
 23 | procedure HTMLayoutSetElementInnerText16(he: HELEMENT; utf16words: LPCWSTR; length: UINT); safecall;
 24 | 
 25 | function HTMLayoutGetElementType(he: HELEMENT): LPCSTR; safecall;
 26 | 
 27 | procedure HTMLayoutDeleteElement(he: HELEMENT); safecall;
 28 | function HTMLayoutCreateElement(tagname: LPCSTR; textOrNull: LPCWSTR): HELEMENT; safecall;
 29 | procedure HTMLayoutInsertElement(he: HELEMENT; hparent: HELEMENT; index: UINT); safecall;
 30 | procedure HTMLayoutDetachElement(he: HELEMENT); safecall;
 31 | function HTMLayoutCloneElement(he: HELEMENT): HELEMENT; safecall;
 32 | procedure HTMLayout_UseElement(he: HELEMENT); safecall;
 33 | 
 34 | procedure HTMLayoutMoveElement(he: HELEMENT; xView: Integer; yView: Integer); safecall;
 35 | 
 36 | procedure HTMLayoutSelectElements(he: HELEMENT; sel: LPWSTR; cb: THtmlayoutElementCallback; param: Pointer); safecall;
 37 | 
 38 | procedure HTMLayoutAttachEventHandler(he: HELEMENT; cb: THtmlayoutElementEvent; tag: Pointer); safecall;
 39 | procedure HTMLayoutDetachEventHandler(he: HELEMENT; cb: THtmlayoutElementEvent; tag: Pointer); safecall;
 40 | {
 41 | function HTMLayoutSetElementHtml(he: HELEMENT; html: WideString; where: UINT): Boolean; overload;
 42 | function HTMLayoutFindFirst(he: HELEMENT; sel: PWideChar): HELEMENT;
 43 | 
 44 | function GetElementHtml(he: HELEMENT): AnsiString;
 45 | 
 46 | /////
 47 | 
 48 | function HTMLayoutElementSetHandler(he: HELEMENT; cb: IHtmlBehaviorListener): Boolean;
 49 | function HTMLayoutElementRemoveHandler(he: HELEMENT; cb: IHtmlBehaviorListener): Boolean;
 50 | }
 51 | 
 52 | //*****************************************************************************************************
 53 | 
 54 | implementation
 55 | 
 56 | uses
 57 |   SysUtils;
 58 | 
 59 | const
 60 |   engineDLL = 'htmlayout.dll';
 61 | 
 62 | function HTMLayoutProcND (hwnd: HWND; msg:UINT; wParam:WPARAM; lParam:LPARAM; var pbHandled: BOOL): LRESULT; external engineDLL; stdcall;
 63 | 
 64 | function HTMLayoutLoadHtml(hwnd: HWND; html:PBYTE; htmlSize:UINT): BOOL; external engineDLL; stdcall;
 65 | function HTMLayoutLoadFile(hwnd: HWND; filename:LPCWSTR): BOOL;  external engineDLL; stdcall;
 66 | function HTMLayoutDataReady(hwnd: HWND; uri: LPCWSTR; data: Pointer; length: DWORD): BOOL; external engineDLL; stdcall;
 67 | 
 68 | procedure HTMLayoutSetCallback(hwnd: HWND; cb: THtmlayoutCallback; cbParam: Pointer); external engineDLL; stdcall;
 69 | 
 70 | function HTMLayoutGetRootElement(hwnd: HWND): HELEMENT; external engineDLL; safecall;
 71 | function HTMLayoutGetChildrenCount(he: HELEMENT): UINT; external engineDLL; safecall;
 72 | function HTMLayoutGetNthChild(he: HELEMENT; n: UINT): HELEMENT; external engineDLL; safecall;
 73 | 
 74 | function HTMLayoutGetElementText(he: HELEMENT; characters: LPWSTR): UINT; external engineDLL; safecall;
 75 | procedure HTMLayoutGetElementHtml(he: HELEMENT; var utf8bytes: PCHAR; outer: BOOL); external engineDLL; safecall;
 76 | procedure HTMLayoutSetElementHtml(he: HELEMENT; html: Utf8String; htmlLength: DWord; where:UINT); external engineDLL; safecall; overload;
 77 | function HTMLayoutGetElementInnerText16(he: HELEMENT): LPWSTR; external engineDLL; safecall;
 78 | procedure HTMLayoutSetElementInnerText16(he: HELEMENT; utf16words: LPCWSTR; length: UINT); external engineDLL; safecall;
 79 | 
 80 | function HTMLayoutGetElementType(he: HELEMENT): LPCSTR; external engineDLL; safecall;
 81 | 
 82 | procedure HTMLayoutDeleteElement(he: HELEMENT); external engineDLL; safecall;
 83 | function HTMLayoutCreateElement(tagname: LPCSTR; textOrNull: LPCWSTR): HELEMENT; external engineDLL; safecall;
 84 | procedure HTMLayoutInsertElement(he: HELEMENT; hparent: HELEMENT; index: UINT); external engineDLL; safecall;
 85 | procedure HTMLayoutDetachElement(he: HELEMENT); external engineDLL; safecall;
 86 | function HTMLayoutCloneElement(he: HELEMENT): HELEMENT; external engineDLL; safecall;
 87 | procedure HTMLayout_UseElement(he: HELEMENT); external engineDLL; safecall;
 88 | 
 89 | procedure HTMLayoutMoveElement(he: HELEMENT; xView: Integer; yView: Integer); external engineDLL; safecall;
 90 | 
 91 | procedure HTMLayoutSelectElements(he: HELEMENT; sel: LPWSTR; cb: THtmlayoutElementCallback; param: Pointer); external engineDLL name 'HTMLayoutSelectElementsW'; safecall;
 92 | 
 93 | procedure HTMLayoutAttachEventHandler(he: HELEMENT; cb: THtmlayoutElementEvent; tag: Pointer); external engineDLL; safecall;
 94 | procedure HTMLayoutDetachEventHandler(he: HELEMENT; cb: THtmlayoutElementEvent; tag: Pointer); external engineDLL; safecall;
 95 | 
 96 | {
 97 | function HTMLayoutSetElementHtml(he: HELEMENT; html: WideString; where: UINT): Boolean;
 98 | var
 99 |   u8: Utf8String;
100 | begin
101 |   u8 := Utf8Encode(html);
102 |   Result := HTMLayoutSetElementHtml(he, u8, Length(u8), where) = HLDOM_OK;
103 | end;
104 | 
105 | function GetElementHtml(he: HELEMENT): AnsiString;
106 | var
107 |   w: PChar;
108 | begin
109 |   w := nil;
110 |   HTMLayoutGetElementHtml(he, w, True);
111 |   Result := w;
112 | end;
113 | 
114 | function HTMLayoutFindFirst(he: HELEMENT; sel: PWideChar): HELEMENT;
115 |   function FirstCallback(he: HELEMENT; param: Pointer): BOOL stdcall;
116 |   begin
117 |     GetElementHtml(he);
118 |     pHELEMENT(param)^ := he;
119 |     Result := True; // stop enum
120 |   end;
121 | begin
122 |   Result := nil;
123 |   HTMLayoutSelectElements(he, sel, @FirstCallback, @Result);
124 | end;
125 | 
126 | function HTMLayoutEventThunk(tag: Pointer; he: HELEMENT; event: UINT; params: Pointer): BOOL stdcall;
127 | begin
128 |   Result := False;
129 |   if tag = nil then Exit;
130 |   case event of
131 |     HANDLE_BEHAVIOR_EVENT:
132 |       Result := IHtmlBehaviorListener(tag).OnBehaviorEvent(he, pBehaviorEventParams(params));
133 |     HANDLE_DRAW:
134 |       Result := IHtmlBehaviorListener(tag).OnBehaviorDraw(he, pBehaviorDrawParams(params));
135 |   end;
136 | end;
137 | 
138 | function HTMLayoutElementSetHandler(he: HELEMENT; cb: IHtmlBehaviorListener): Boolean;
139 | begin
140 |   Result := HTMLayoutAttachEventHandler(he, HTMLayoutEventThunk, Pointer(cb)) = HLDOM_OK;
141 | end;
142 | 
143 | function HTMLayoutElementRemoveHandler(he: HELEMENT; cb: IHtmlBehaviorListener): Boolean;
144 | begin
145 |   Result := HTMLayoutDetachEventHandler(he, HTMLayoutEventThunk, Pointer(cb)) = HLDOM_OK;
146 | end;
147 | }
148 | 
149 | end.
150 | 
151 | 


--------------------------------------------------------------------------------
/HtmlDom.pas:
--------------------------------------------------------------------------------
  1 | unit HtmlDOM;
  2 | 
  3 | interface
  4 | 
  5 | uses
  6 |   Windows, HtmlConst, HtmlTypes, HtmlDll;
  7 | 
  8 | type
  9 |   HtmlElement = class;
 10 | 
 11 |   IHtmlBehaviorListener = interface
 12 |   {
 13 |     procedure OnBehaviorAttach(he: HtmlElement; attached: Boolean);
 14 |     function OnBehaviorMouse(he: HtmlElement; params: MouseParams): Boolean;
 15 |     function OnBehaviorKey(he: HtmlElement; params: KeyParams): Boolean;
 16 |     function OnBehaviorFocus(he: HtmlElement; params: FocusParams): Boolean;
 17 |     function OnBehaviorTimer(he: HtmlElement; params: TimerParams): Boolean;
 18 |     function OnBehaviorSize(he: HtmlElement): Boolean;
 19 |     function OnBehaviorScroll(he: HtmlElement; params: ScrollParams): Boolean;
 20 |   }
 21 |     function OnBehaviorDraw(he: HtmlElement; params: pBehaviorDrawParams): Boolean;
 22 |   {
 23 |     function OnBehaviorMethodCall(he: HtmlElement; params: MethodParams): Boolean;
 24 |     function OnBehaviorScriptCall(he: HtmlElement; params: XCallParams): Boolean;
 25 |   }
 26 |     function OnBehaviorEvent(he: HtmlElement; params: pBehaviorEventParams): Boolean;
 27 |   {
 28 |     function OnBehaviorDataArrived(he: HtmlElement; params: DataArrivedParams): Boolean;
 29 |     function OnBehaviorExchange(he: HtmlElement; params: ExchangeParams): Boolean;
 30 |   }
 31 |   end;
 32 | 
 33 |   HtmlElement = class
 34 |   public
 35 |     class function Create(tag: PAnsiChar; text: PWideChar = nil): HtmlElement;
 36 | 
 37 |     function FindFirst(sel: PWideChar): HtmlElement;
 38 | 
 39 |     procedure Insert(e: HtmlElement; index: UINT);
 40 | 
 41 |     function GetHtml(): AnsiString;
 42 |     procedure SetHtml(html: WideString; where: UINT);
 43 | 
 44 |     procedure SetBehaviorHandler(cb: IHtmlBehaviorListener);
 45 |     procedure RemoveBehaviorHandler(cb: IHtmlBehaviorListener);
 46 |   end;
 47 | 
 48 | implementation
 49 | 
 50 | { HtmlElement }
 51 | 
 52 | class function HtmlElement.Create(tag: PAnsiChar; text: PWideChar): HtmlElement;
 53 | begin
 54 |   Result := HTMLayoutCreateElement(tag, text);
 55 | end;
 56 | 
 57 | function HtmlElement.FindFirst(sel: PWideChar): HtmlElement;
 58 |   function FirstCallback(he: HELEMENT; param: Pointer): BOOL stdcall;
 59 |   begin
 60 |     pHELEMENT(param)^ := he;
 61 |     Result := True; // stop enum
 62 |   end;
 63 | begin
 64 |   Result := nil;
 65 |   HTMLayoutSelectElements(self, sel, @FirstCallback, @Result);
 66 | end;
 67 | 
 68 | function HtmlElement.GetHtml: AnsiString;
 69 | var
 70 |   w: PChar;
 71 | begin
 72 |   w := nil;
 73 |   HTMLayoutGetElementHtml(self, w, True);
 74 |   Assert(false, 'who the hell will free the results?');
 75 |   Result := w;
 76 | end;
 77 | 
 78 | procedure HtmlElement.Insert(e: HtmlElement; index: UINT);
 79 | begin
 80 |   HTMLayoutInsertElement(e, self, index);
 81 | end;
 82 | 
 83 | function HTMLayoutEventThunk(tag: Pointer; he: HELEMENT; event: UINT; params: Pointer): BOOL stdcall;
 84 | begin
 85 |   Result := False;
 86 |   if tag = nil then Exit;
 87 |   case event of
 88 |     HANDLE_BEHAVIOR_EVENT:
 89 |       Result := IHtmlBehaviorListener(tag).OnBehaviorEvent(he, pBehaviorEventParams(params));
 90 |     HANDLE_DRAW:
 91 |       Result := IHtmlBehaviorListener(tag).OnBehaviorDraw(he, pBehaviorDrawParams(params));
 92 |   end;
 93 | end;
 94 | 
 95 | procedure HtmlElement.SetBehaviorHandler(cb: IHtmlBehaviorListener);
 96 | begin
 97 |   HTMLayoutAttachEventHandler(self, HTMLayoutEventThunk, Pointer(cb));
 98 | end;
 99 | 
100 | procedure HtmlElement.RemoveBehaviorHandler(cb: IHtmlBehaviorListener);
101 | begin
102 |   HTMLayoutDetachEventHandler(self, HTMLayoutEventThunk, Pointer(cb));;
103 | end;
104 | 
105 | procedure HtmlElement.SetHtml(html: WideString; where: UINT);
106 | var
107 |   u8: Utf8String;
108 | begin
109 |   u8 := Utf8Encode(html);
110 |   HTMLayoutSetElementHtml(self, u8, Length(u8), where);
111 | end;
112 | 
113 | end.
114 | 
115 | 


--------------------------------------------------------------------------------
/HtmlTypes.pas:
--------------------------------------------------------------------------------
 1 | unit HtmlTypes;
 2 | 
 3 | interface
 4 | 
 5 | uses Windows, HtmlConst;
 6 | 
 7 | type
 8 |   HELEMENT = Pointer;
 9 |   //HELEMENT = HtmlElement;
10 |   pHELEMENT = ^HELEMENT;
11 | 
12 |   NMHL_LOAD_DATA = record
13 |     Hdr: NMHDR;
14 |     Uri: LPCWSTR;
15 | 
16 |     OutData: PBYTE;
17 |     OutDataSize: UINT;
18 |     DataType: UINT;
19 | 
20 |     Principal: HELEMENT;
21 |     Initiator: HELEMENT;
22 |   end;
23 |   PNMHL_LOAD_DATA = ^NMHL_LOAD_DATA;
24 | {
25 |   NMHL_DATA_LOADED = record
26 |     Hdr: NMHDR;
27 |     Uri: LPCWSTR;
28 |     Data: LPCBYTE;
29 |     DataSize: DWORD;
30 |     DataType: UINT;
31 |     Status: UINT;
32 |   end;
33 |   PNMHL_DATA_LOADED = ^NMHL_DATA_LOADED;
34 | }
35 | 
36 |   HtmlValue = record
37 |     t, u: UINT;
38 |     d: UINT64;
39 |   end;
40 | 
41 |   BehaviorEventParams = record
42 |     Cmd: BehaviorEvents;
43 |     Target: HELEMENT;
44 |     Source: HELEMENT;
45 |     Reason: UINT;
46 |     Data: HtmlValue;
47 |   end;
48 |   pBehaviorEventParams = ^BehaviorEventParams;
49 | 
50 |   BehaviorDrawParams = record
51 |     Cmd: DrawEvents;
52 |     dc: HDC;
53 |     area: TRect;
54 |     reserverd: UINT;
55 |   end;
56 |   pBehaviorDrawParams = ^BehaviorDrawParams;
57 | 
58 |   THtmlayoutCallback = function(uMsg: UINT; wParam: WPARAM; lParam: LPARAM; vParam: Pointer): LRESULT stdcall;
59 |   THtmlayoutElementCallback = function(he: HELEMENT; param: Pointer): BOOL stdcall;
60 |   THtmlayoutElementEvent = function(tag: Pointer; he: HELEMENT; event: UINT; params: Pointer): BOOL stdcall;
61 | 
62 | implementation
63 | 
64 | end.


--------------------------------------------------------------------------------
/Unit1.dfm:
--------------------------------------------------------------------------------
 1 | object Form1: TForm1
 2 |   Left = 149
 3 |   Top = 190
 4 |   Width = 979
 5 |   Height = 563
 6 |   Caption = 'Form1'
 7 |   Color = clBtnFace
 8 |   Font.Charset = DEFAULT_CHARSET
 9 |   Font.Color = clWindowText
10 |   Font.Height = -11
11 |   Font.Name = 'Tahoma'
12 |   Font.Style = []
13 |   OldCreateOrder = False
14 |   PixelsPerInch = 96
15 |   TextHeight = 13
16 |   object StatusBar1: TStatusBar
17 |     Left = 0
18 |     Top = 506
19 |     Width = 963
20 |     Height = 19
21 |     Panels = <>
22 |   end
23 |   object TabControl1: TTabControl
24 |     Left = 0
25 |     Top = 0
26 |     Width = 963
27 |     Height = 506
28 |     Align = alClient
29 |     MultiLine = True
30 |     TabOrder = 1
31 |     TabPosition = tpLeft
32 |     Tabs.Strings = (
33 |       'a'
34 |       'b'
35 |       'c'
36 |       'e'
37 |       'f')
38 |     TabIndex = 0
39 |     object Button1: TButton
40 |       Left = 432
41 |       Top = 88
42 |       Width = 75
43 |       Height = 25
44 |       Caption = 'Button1'
45 |       TabOrder = 0
46 |       OnClick = Button1Click
47 |     end
48 |   end
49 | end
50 | 


--------------------------------------------------------------------------------
/Unit1.pas:
--------------------------------------------------------------------------------
  1 | unit Unit1;
  2 | 
  3 | interface
  4 | 
  5 | uses
  6 |   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7 |   Dialogs, StdCtrls, HtmlConst, HtmlTypes, HtmlCtrl, HtmlDll, HtmlDom, ComCtrls;
  8 | 
  9 | type
 10 |   TForm1 = class(TForm, IHtmlBehaviorListener)
 11 |     StatusBar1: TStatusBar;
 12 |     TabControl1: TTabControl;
 13 |     Button1: TButton;
 14 |     procedure Button1Click(Sender: TObject);
 15 |   private
 16 |     Html: THtmlControl;
 17 |     btn1, area1: HtmlElement;
 18 |     function OnHtmlLoadData(Sender: THtmlControl; Uri: PWideChar; element: HtmlElement): LRESULT;
 19 |     procedure OnHtmlDocumentComplete(Sender: THtmlControl);
 20 | 
 21 |     function OnBehaviorDraw(he: HtmlElement; params: pBehaviorDrawParams): Boolean;
 22 |     function OnBehaviorEvent(he: HtmlElement; params: pBehaviorEventParams): Boolean;
 23 |   public
 24 |     { Public declarations }
 25 |   end;
 26 | 
 27 | var
 28 |   Form1: TForm1;
 29 | 
 30 | implementation
 31 | 
 32 | {$R *.dfm}
 33 | 
 34 | procedure TForm1.Button1Click(Sender: TObject);
 35 | begin
 36 |   Html := THtmlControl.Create(TabControl1);
 37 |   Html.Parent := TabControl1;
 38 |   Html.Align := alClient;
 39 |   Html.OnLoadData := OnHtmlLoadData;
 40 |   Html.OnDocumentComplete := OnHtmlDocumentComplete;
 41 |   Html.Visible := True;
 42 |   Html.LoadHtml('index.htm');
 43 | end;
 44 | 
 45 | function AppendHtmlElement(parent: HtmlElement; html: WideString): HtmlElement;
 46 | var
 47 |   e: HtmlElement;
 48 | begin
 49 |   e := HtmlElement.Create('div');
 50 |   parent.Insert(e, INSERT_AT_END);
 51 |   e.SetHtml(html, SOH_REPLACE);
 52 |   Result := e;
 53 | end;
 54 | procedure AddMessage(root: HtmlElement; from, ava, time, msg: WideString; incoming: Boolean);
 55 | var
 56 |   t: WideString;
 57 |   html: WideString;
 58 | begin
 59 |   if incoming then begin
 60 |     t := 'incoming';
 61 |   end else begin
 62 |     t := 'outgoing';
 63 |   end;
 64 |   html := WideFormat(
 65 |     '<div class="bubble message %s" sendercolor="color: hsl(21, 100%%, 40%%);">'+
 66 |     '<div class="indicator">'+
 67 |     '<p class="pseudo"><span class="sender">%s<span class="time"> - %s</span></span></p>'+
 68 |     '<p class="message %s" title="%s">'+
 69 |     '<img width=32 height=32 src="skin://%s"/>'+
 70 |     ' <span class="ib-msg-txt">%s</span></p>'+
 71 |     '</div>',
 72 |     [t, from, time, t, time, ava, msg]);
 73 |   AppendHtmlElement(root, html);
 74 | end;
 75 | 
 76 | function TForm1.OnBehaviorDraw(he: HtmlElement; params: pBehaviorDrawParams): Boolean;
 77 | var
 78 |   cnv: TCanvas;
 79 | begin
 80 |   Result := False;
 81 |   if he <> area1 then Exit;
 82 | 
 83 |   cnv := TCanvas.Create;
 84 | 
 85 |   cnv.Handle := params^.dc;
 86 |   cnv.Brush.Color := RGB(Random(255),Random(255),Random(255));
 87 |   cnv.FillRect(params^.area);
 88 | 
 89 |   cnv.TextOut(params^.area.Left + Random(10), params^.area.Top + Random(10) + 20, 'Some text!');
 90 | 
 91 |   cnv.Free;
 92 | 
 93 |   Result := True;
 94 | end;
 95 | 
 96 | function TForm1.OnBehaviorEvent(he: HtmlElement; params: pBehaviorEventParams): Boolean;
 97 | begin
 98 |   if (he = btn1) and (params^.Cmd = BUTTON_CLICK) then
 99 |     MessageBox(0, 'event!', nil, 0);
100 |   Result := False;
101 | end;
102 | 
103 | procedure TForm1.OnHtmlDocumentComplete(Sender: THtmlControl);
104 | var
105 |   root: HtmlELement;
106 |   i: integer;
107 | begin
108 |   root := sender.GetRootElement();
109 |   root := root.FindFirst('#chat');
110 | 
111 |   AppendHtmlElement(root, '<button id="du1">click me!</button>');
112 |   btn1 := root.FindFirst('#du1');
113 |   btn1.SetBehaviorHandler(self);
114 | 
115 |   AppendHtmlElement(root,'<widget id="du2" width=128 height=48 />');
116 |   area1 := root.FindFirst('#du2');
117 |   area1.SetBehaviorHandler(self);
118 | 
119 |   for i := 1 to 100 do
120 |     AddMessage(root, 'username', WideFormat('ava%d.jpg', [Random(5)+1]), '12:12', IntToStr(i) + ', Ho-ho-hoooly shit!', Random(2) = 1);
121 | end;
122 | 
123 | function TForm1.OnHtmlLoadData(Sender: THtmlControl; Uri: PWideChar; element: HtmlElement): LRESULT;
124 | var
125 |   s: TStream;
126 |   filename: WideString;
127 |   buf: Pointer;
128 |   size: DWORD;
129 |   i: Integer;
130 | begin
131 |   Result := LOAD_OK;
132 |   if Pos('skin://', Uri) <> 1 then
133 |     Exit;
134 |   I := Length(Uri);
135 |   if( Uri[I-1] = '/' ) then
136 |     filename := Copy(Uri, 8, I-1-7)
137 |   else
138 |     filename := Uri+7;
139 |   try
140 |     s := TFileStream.Create(filename, fmOpenRead);
141 |   except
142 |     Result := LOAD_DISCARD;
143 |     Exit;
144 |   end;
145 |   buf := nil;
146 |   try
147 |     size := s.Size;
148 |     GetMem(buf, size);
149 |     s.Read(buf^, size);
150 |     s.Free;
151 |     Sender.OnDataReady(Uri, buf, size);
152 |     FreeMem(buf);
153 |     Result := LOAD_DISCARD;
154 |   except
155 |   end;
156 | end;
157 | 
158 | end.
159 | 


--------------------------------------------------------------------------------
/index.htm:
--------------------------------------------------------------------------------
 1 | <html>
 2 | <head>
 3 | <link rel="stylesheet" href="skin://style/conv.css" type="text/css">
 4 | <link rel="stylesheet" href="skin://style/main.css" type="text/css">
 5 | <link rel="stylesheet" href="skin://style/theme.css" type="text/css">
 6 | </head>
 7 | <body>
 8 | <div id="chat">
 9 | </div>
10 | </body>
11 | </html>


--------------------------------------------------------------------------------
/readme:
--------------------------------------------------------------------------------
1 | 
2 |  Delphi binding for HTMLayout
3 |  ============================
4 |  
5 |  Simple wrappers made for demonstration of piece of HTMLayout to antiquated Delphi developers.
6 | 
7 |  Implemented a tiny piece of DOM-manipulation methods and behavior event handling.
8 | 


--------------------------------------------------------------------------------
/style/conv.css:
--------------------------------------------------------------------------------
 1 | /* This Source Code Form is subject to the terms of the Mozilla Public
 2 |  * License, v. 2.0. If a copy of the MPL was not distributed with this
 3 |  * file, You can obtain one at http://mozilla.org/MPL/2.0/. */
 4 | 
 5 | .ib-msg-txt {
 6 |   white-space: pre-wrap;
 7 |   word-wrap: break-word;
 8 | }
 9 | 
10 | .ib-img-smile {
11 |   vertical-align: text-bottom;
12 | }
13 | 
14 | *:-moz-any-link .ib-img-smile {
15 |   border: none;
16 |   border-bottom: solid 1px;
17 |   margin-bottom: 1px;
18 | }
19 | 
20 | .moz-txt-underscore {
21 |   text-decoration: underline;
22 | }
23 | 
24 | /* disable overflow in themes until bug 42676 is fixed in Mozilla */
25 | #Chat {
26 |   overflow: hidden !important;
27 | }
28 | 
29 | #Chat * {
30 |   overflow: visible !important;
31 | }
32 | 
33 | #unread-ruler {
34 |   margin: 0;
35 |   width: 100%;
36 |   border: none;
37 |   border-top: 1px dashed red;
38 | }
39 | 
40 | .ib-nick {
41 |   font-weight: bold;
42 | }
43 | 
44 | .ib-nick[left] {
45 |   color: grey;
46 | }
47 | 


--------------------------------------------------------------------------------
/style/main.css:
--------------------------------------------------------------------------------
  1 | /* This Source Code Form is subject to the terms of the Mozilla Public
  2 |  * License, v. 2.0. If a copy of the MPL was not distributed with this
  3 |  * file, You can obtain one at http://mozilla.org/MPL/2.0/. */
  4 | 
  5 | body {
  6 |   margin: 0;
  7 |   padding: 0;
  8 |   background: -moz-linear-gradient(top, -moz-dialog, -moz-default-background-color) fixed;
  9 |   behavior: htmlarea;
 10 | }
 11 | 
 12 | p {
 13 |   font-family: sans-serif;
 14 |   margin: 0;
 15 |   padding: 0;
 16 | }
 17 | 
 18 | div.bubble {
 19 |   margin: 20px 20px 3px 20px;
 20 |   padding: 0;
 21 |   border-width: 2px;
 22 |   border-style: solid;
 23 |   border-radius: 10px;
 24 |   box-shadow: rgba(0, 0, 0, 0.3) 1px 1px 3px;
 25 | }
 26 | 
 27 | div.bubble:not(.context):not(.event) {
 28 |   -moz-animation-duration: 0.5s;
 29 |   -moz-animation-name: fadein;
 30 |   -moz-animation-iteration-count: 1;
 31 | }
 32 | 
 33 | @-moz-keyframes fadein {
 34 |   from {
 35 |     opacity: 0;
 36 |   }
 37 | 
 38 |   to {
 39 |     opacity: 1.0;
 40 |   }
 41 | }
 42 | /*
 43 | div.bubble.context:not(:hover) {
 44 |   filter: url("bubbles.svg#desaturate");
 45 | }
 46 | */
 47 | 
 48 | div.bubble>div.indicator {
 49 |   margin: 0;
 50 |   padding: 9px 15px 10px 15px;
 51 | }
 52 | 
 53 | div.bubble.event {
 54 |   padding: 4px 15px 4px 15px;
 55 |   background-color: hsl(0, 0%, 99%);
 56 |   border-color: hsl(0, 0%, 85%);
 57 |   box-shadow: rgba(0, 0, 0, 0.1) 1px 1px 3px;
 58 | }
 59 | 
 60 | div.bubble p.pseudo {
 61 |   font-size: smaller;
 62 |   font-weight: bold;
 63 |   margin: -9px 0px 3px -15px;
 64 | }
 65 | 
 66 | div.bubble p.pseudo>span {
 67 |   padding: 0px 15px 1px 15px;
 68 |   /* border-top-left-radius = (border-radius - border-width) of div.bubble,
 69 |      see bug 1775 for an explanation */
 70 |   border-top-left-radius: 8px;
 71 |   border-bottom-right-radius: 10px;
 72 | }
 73 | /*
 74 | div.bubble p.pseudo>span>span.time {
 75 |   display: none;
 76 | }
 77 | 
 78 | div.bubble:hover p.pseudo>span>span.time {
 79 |   display: inline;
 80 | }
 81 | */
 82 | div.bubble hr {
 83 |   margin: 3px 0px 1px 0px;
 84 |   height: 2px;
 85 |   border-style: none;
 86 |   border-top: 1px solid rgba(0, 0, 0, 0.07);
 87 |   border-bottom: 1px solid rgba(255, 255, 255, 0.5);
 88 | }
 89 | 
 90 | p.interval {
 91 |   text-align: center;
 92 |   color: hsl(0, 0%, 60%);
 93 | }
 94 | 
 95 | #lastMessage {
 96 |   line-height: 20px;
 97 |   text-align: center;
 98 |   color: hsl(0, 0%, 60%);
 99 | }
100 | 
101 | p.nick {
102 |   font-weight: bold;
103 | }
104 | 
105 | p.action {
106 |   font-style: italic;
107 | }
108 | 
109 | p.action:before {
110 |   content: "*** ";
111 | }
112 | 
113 | p.event {
114 |   color: hsl(0, 0%, 60%);
115 | }
116 | /*
117 | p.event *:-moz-any-link:not(:hover) {
118 |   color: hsl(0, 0%, 60%);
119 |   text-decoration: none;
120 | }
121 | 
122 | p.event *:-moz-any-link:hover {
123 |   color: hsl(0, 0%, 25%);
124 | }
125 | */
126 | 
127 | #Chat {
128 |   white-space: normal;
129 | }
130 | 
131 | p *:-moz-any-link img {
132 |   margin-bottom: 1px;
133 |   border-bottom: solid 1px;
134 | }
135 | 
136 | #unread-ruler {
137 |   border-top: 1px solid rgba(0, 0, 0, 0.16) !important;
138 |   border-bottom: 1px solid rgb(255,255,255) !important;
139 | }
140 | 
141 | 
142 | /* used by javascript */
143 | p.button {
144 |   cursor: pointer;
145 |   min-height: 20px;
146 |   margin-left: -24px;
147 |   margin-bottom: -3px;
148 |   padding-left: 24px;
149 | }
150 | /*
151 | p.hide {
152 |   background: url('Bitmaps/plus.png') no-repeat left top;
153 | }
154 | 
155 | p.hide:hover {
156 |   background: url('Bitmaps/plus-hover.png') no-repeat left top;
157 | }
158 | 
159 | p.hide:after {
160 |   content: "...";
161 |   color: hsl(0, 0%, 60%);
162 | }
163 | 
164 | p.show {
165 |   background: url('Bitmaps/minus.png') no-repeat left top;
166 |   margin-bottom: -20px;
167 |   width: 0;
168 | }
169 | 
170 | p.show:hover {
171 |   background: url('Bitmaps/minus-hover.png') no-repeat left top;
172 | }
173 | */
174 | .ib-nick {
175 |   font-size: smaller;
176 |   border: 1px solid;
177 |   border-radius: 6px;
178 |   padding: 0 0.3em;
179 | }
180 | 
181 | .ib-nick[left] {
182 |   color: hsl(0, 0%, 60%);
183 |   background-color: hsl(0, 0%, 99%);
184 |   border-color: hsl(0, 0%, 85%);
185 | }
186 | 


--------------------------------------------------------------------------------
/style/tail_l.png:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/dstd/HtmlayoutDelphi/e358195654e4c2c79e0bfe5866f1a02df4a36dac/style/tail_l.png


--------------------------------------------------------------------------------
/style/tail_r.png:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/dstd/HtmlayoutDelphi/e358195654e4c2c79e0bfe5866f1a02df4a36dac/style/tail_r.png


--------------------------------------------------------------------------------
/style/theme.css:
--------------------------------------------------------------------------------
 1 | /* This Source Code Form is subject to the terms of the Mozilla Public
 2 |  * License, v. 2.0. If a copy of the MPL was not distributed with this
 3 |  * file, You can obtain one at http://mozilla.org/MPL/2.0/. */
 4 | 
 5 | div.bubble.outgoing {
 6 |   background-color: hsl(240, 100%, 97%);
 7 |   border-color: hsl(240, 100%, 80%);
 8 | }
 9 | 
10 | div.bubble.outgoing p.pseudo>span {
11 |   color: hsl(240, 100%, 75%);
12 |   background-color: hsl(240, 100%, 94%);
13 | }
14 | 
15 | div.bubble.outgoing>div.indicator {
16 |   margin-left: -17px;
17 |   padding-left: 32px;
18 |   background: url('tail_l.png') no-repeat center left;
19 | }
20 | 
21 | 
22 | div.bubble.incoming {
23 |   background-color: hsl(0, 100%, 97%);
24 |   border-color: hsl(0, 100%, 80%);
25 | }
26 | 
27 | div.bubble.incoming p.pseudo>span {
28 |   color: hsl(0, 100%, 75%);
29 |   background-color: hsl(0, 100%, 94%);
30 | }
31 | 
32 | div.bubble.incoming>div.indicator {
33 |   margin-right: -19px;
34 |   padding-right: 34px;
35 |   background: url('tail_r.png') no-repeat center right;
36 | }
37 | 


--------------------------------------------------------------------------------