Delphi Chromium Embedded, ajuda com unit

[danicarla]

Oi pessoas, sou nova usando o Delphi... estou tentando usar o Delphi Chromium Embedded ao invés do TWebBrowser, mas não tenho conhecimentos nas estrutura de uma Unit. Será que alguém consegue me ajudar?

Esse meu código está funcionando corretamente:

unidade Unit1;
interface
usos
Windows, Mensagens, SysUtils, variantes, Classes, Graphics, Controls, Forms,
Diálogos, cefvcl;

tipo
TForm1 = class (TForm)
Chromium1: TChromium;
privado
{declarações privados}
público
{As declarações públicas}
fim;

var
Form1: TForm1;
implementação
{$ R * .dfm}
fim.

Estou tentando habilitar o Zoom através da tecla de atalho CTRL + e CTRL - Eu encontrei o seguinte código no fórum do Delphi Chromium Embedded:

procedure TfmChromiumWrapper.Chromium3KeyEvent(Sender: TObject;
  const browser: ICefBrowser; const event: PCefKeyEvent;
  osEvent: TCefEventHandle; out Result: Boolean);
begin

  case event.windows_key_code of
    123: begin ProcessKey_F12; Result := True; end;
     48:
    begin
      if (EVENTFLAG_CONTROL_DOWN in event.modifiers) then  // Ctrl Zero
      begin
        browser.Host.ZoomLevel := 1.0;  // default 100%
        Result := True;
      end;
    end;
    187:
    begin
      if (EVENTFLAG_CONTROL_DOWN in event.modifiers) then  // Ctrl Plus
      begin
        browser.Host.ZoomLevel := browser.Host.ZoomLevel + 0.2;
        Result := True;
      end;
    end;
    189:
    begin
      if (EVENTFLAG_CONTROL_DOWN in event.modifiers) then  // Ctrl Minus
      begin
        browser.Host.ZoomLevel := browser.Host.ZoomLevel - 0.2;
        Result := True;
      end;
    end;
  end;

end;

Mas não sei como fazer para "misturar" os dois já estou tentando a dias e não consegui, será que alguém pode me ajudar?

[Jhonas]

nesse link tem os Demos do delphichromium

http://delphichromiumembedded.googlecode.com/svn/trunk/demos/

abraço

[danicarla]

Eu já tinha visto os exemplos, mas não consegui usar :/

[Jhonas]

não é somente o código que voce tem que usar ... deve instalar o componente para poder usar o código

procedure TfmChromiumWrapper.Chromium3KeyEvent(Sender: TObject;
const browser: ICefBrowser; const event: PCefKeyEvent;
osEvent: TCefEventHandle; out Result: Boolean);

isso é um evento do componente ( Chromium3KeyEvent ) ... o seu uso é igual aos outros componentes do delphi

abraço

[danicarla]

  Em 28/11/2014 em 13:36, Jhonas disse:

não é somente o código que voce tem que usar ... deve instalar o componente para poder usar o código

isso é um evento do componente ( Chromium3KeyEvent ) ... o seu uso é igual aos outros componentes do delphi

Já tinha instalado o Chromium Embedded não sabia que precisava instalar mais um componente, vou pesquisar como faço para instalar isso.

Obrigada!