TWebbrowser - MSHTML - Auslesen, ob "Bullets" gesetzt sind...

[MuTzE.Y85]

Danke erstmal für die Antwort.

Aber ich glaube, ich habe mich doch etwas unverständlich ausgedrückt.


Es soll ja nicht der Quelltext durchforstet werden.
Das ganze läuft über einen ActionManager, der jeweils an der aktuellen Position das Format ausliest. Halt wie bei jedem anderen HTML Editor auch. Das muss über die oben genannte Funktion gehen, aber ich weiß nicht wie.

[Popov]

Du suchst also in etwa das was RichEdit mit SelAttributes.ConsistentAttributes anbietet?

[MuTzE.Y85]

Ja so in der Art.

Wie schon gesagt, normalerweise geht das mit "queryCommandValue". Aber leider nur solange kein H2 Tag oder Ähnliches gesetzt ist.

Ich habe ja auch die Methode um Bullets zu togglen. Also muss es doch auch möglich sein sie einfach nur zu "ermitteln".

[Codehunter]

Auch wenn es ein ganz klein bissl spät kommt, vielleicht ist die Lösung ja mal für jemanden nützlich:

Delphi-Quellcode:

function THTMLEditor.GetProperty(ACommand: OleVariant): OleVariant;
var
  V: OleVariant;
begin
  V:= Document as IHTMLDocument2;
  Result:= V.queryCommandValue(ACommand);
end;

function THTMLEditor.GetUnorderedList: Boolean;
begin
  Result:= GetProperty('InsertUnorderedList');
end;