Einzelnen Beitrag anzeigen

Chefx

Registriert seit: 13. Jun 2009
Ort: Radebeul
241 Beiträge
 
Turbo Delphi für Win32
 
#5

AW: Jvrichedit - wieviel Bilder in JvRichedit?

  Alt 3. Jul 2010, 23:31
Hey,

okay danke, also mit den code funzt es bloß er springt nicht auf das zweite bild.
Hab auch das hier probiert funktioniert auch irgendwie nicht richtig:
Delphi-Quellcode:
procedure ..
var
  u: IUnknown;
  reole: IRichEditOle;
  i, n: Integer;
  obj: TREObject;
begin
  FillChar(obj, SizeOf(obj), 0);
  obj.cbStruct := SizeOf(obj);
  with re do //mein jvrichedit
  begin
    Perform(EM_GETOLEINTERFACE, 0, Integer(@u));
    if Succeeded(u.QueryInterface(IID_IRICHEDITOLE, reole)) then
    begin
      n := reole.GetObjectCount;
      ShowMessage(Format('%d objects found', [n]));
      for i := 0 to Pred(n) do
      begin
        reole.GetObject(i, obj, REO_GETOBJ_ALL_INTERFACES);
        SelStart := obj.cp;
        SelLength := 1;
        SelText := Format('<object %d>', [Succ(i)]);
        ShowMessage('yikes');
      end;
    end;
  end;
end;
Beispiel was da rauskommt:
[Bild1]
texttexttext
[Bild2]
wird ersetzt:
<object 2><object 1>
texttexttext
hab auch das mit REO_GETOBJ_NO_INTERFACES probiert.
funktioniert auch leider nicht.
Hat einer eine Ahnung warum das nicht funktioniert?
danke im voraus

MfG
Chefx
ein Sprichwort für Programmierer:
"Viele wege fürn zur EXE, aber ob sie funktioniert ist die andere Frage."
schau mal bei www.xlite.de.tc vorbei
  Mit Zitat antworten Zitat