Здравствуйте, CSS, Вы писали:
CSS>Здравствуйте, Denis_TST, Вы писали:
D_T>>Другое дело мне — для Delphi приходится заново все обертки писать
CSS>А не мог бы ты их выложить?
Конечно.
Здесь (Настрой otput для exe в каталог с HTMLLayout.dll из SDK)
Только там далко не полный перевод, я сделал только заголовочные файлы, и частичные
аналоги врапперов, фактически только то что мне нужно на момент. Остальное переношу по необходимости,
например у Behaviour реализовал только HANDLE_MOUSE и HANDLE_BEHAVIOR_EVENT:
function TElementBehaviour.ElementEventProc(he: HElement; evtg: UINT; prms: pointer): boolean;
var
MouseData: PMouseParams;
EventParams: PBEHAVIOR_EVENT_PARAMS;
begin
case evtg of
HANDLE_INITIALIZATION: ;
HANDLE_MOUSE:
begin
MouseData := PMouseParams(prms);
Result := OnMouse(he, MouseData);
end;
HANDLE_KEY: ;
HANDLE_FOCUS:
begin
end;
HANDLE_SCROLL: ;
HANDLE_TIMER: ;
HANDLE_SIZE: ;
HANDLE_BEHAVIOR_EVENT:
begin
EventParams := PBEHAVIOR_EVENT_PARAMS(prms);
Result := OnHandleEvent(he, EventParams);
end;
HANDLE_DRAW: ;
HANDLE_DATA_ARRIVED: ;
HANDLE_METHOD_CALL: ;
end;
end;
Вообще, обертку нужно было делать для Sciter — тк изза поддержки можно уменьшь объем кода котрый нужно переносить из С.
... << RSDN@Home 1.2.0 alpha rev. 648>>