TWebbrowser Gridshow und Snap-to-grid CtoPas

[Mavarik]

Hallo Zusammen...

Ein Problem habe ich noch vielleicht kann ja einer von Euch besser C.

Ich würde gerne im TWebbrowser ein Grid anzeigen...

error := ((HTMLDocument2Ifc as IHTMLDocument2).body as IHTMLElement2).addBehavior('',vFactory); Hierbei müsste "nur" noch VFactory richtig gesetzt werden. Als Interface Procedure auf eine IHTMLPainter Routinen...

In C sieht die so aus:

Delphi-Quellcode:

STDMETHODIMP CHTMLEditControlSite::XHTMLPainter::Draw(RECT rcBounds, RECT /*rcUpdate*/, LONG /*lDrawFlags*/, HDC hdc, LPVOID /*pvDrawObject*/)
{
   if (m_bGrid != FALSE)
   {
      HPEN redPen   = (HPEN) CreatePen(PS_DOT, 0, RGB(0xff, 0x99, 0x99));
      HPEN oldPen = (HPEN) SelectObject(hdc, redPen);

      long lFirstLine = rcBounds.left + m_iGrid;

      for (int i = lFirstLine; i <= rcBounds.right; i += m_iGrid)
      {
         MoveToEx(hdc, i, rcBounds.top, NULL);
         LineTo(hdc, i, rcBounds.bottom);
      }

      lFirstLine = rcBounds.top + m_iGrid;

      for (i = lFirstLine ; i <= rcBounds.bottom; i += m_iGrid)
      {
         MoveToEx(hdc, rcBounds.left, i,  NULL);
         LineTo(hdc, rcBounds.right, i);
      }

      SelectObject(hdc, oldPen);
      DeleteObject(redPen);
   }

   return S_OK;
}

Auf ähnliche Weise muss die SnaptoGrid eingebunden werden...

Hat einer von Euch das als Delphi Source?

Ich habe auch noch 2* Source und Demo in C gefunden:

Einmal hier
und hier (msdn)

Danke im Voraus

Frank