Memo scrollen

[Nicodius]

Vielen Dank für den Link, leider hat es bei mir wieder nicht funktioniert.
Ich habe folgenden Code(in meinem Richedit(Log_Output) befinden sich nur mehr zeilen mit error codes, in einer Listbox(Error_Codes) die zugehörigen Errorcodes, also exakt gleich viele items):

Delphi-Quellcode:

    
with Log_Output do
  begin
    SelStart := Perform(EM_LINEINDEX, Error_Codes.ItemIndex, 0);
    Perform(EM_SCROLLCARET, 0, 0);
    Invalidate;
  end;

Leider macht es aber genau gar nichts.

[DeddyH]

Und wenn Du Invalidate durch SetFocus ersetzt? Bei mir hier (D2007) hat das in einem kleinen Testprojekt wunderbar funktioniert.

[Nicodius]

Seltsam, habe delphi 7, aber es springt einfach nicht in die Zeile. es kommt nach diesem Sprung auch kein Code mehr, daher finde ich das jetzt wirklich verwunderlich.

[DeddyH]

Und ohne das with? Nicht, dass Delphi hier durcheinander gerät. Delphi 7 kann ich erst heute Abend ausprobieren, da ich das nur zu Hause installiert habe.

[Nicodius]

Leider auch nicht, würde mich freuen wenn du das bei dir probieren könntest.

hab jetzt testweise es aus der Onclick von meiner Listbox rausgenommen und probiert ob ich per button in eine gewisse zeile komme, aber auch das funktioniert nicht. Es stimmt also entweder der code nicht den ich verwende oder irgendwas wird da ordentlich durcheinander gehaun.

[Nicodius]

in der Tat mit meinem testprogramm hat es geklappt.
dann muss ich wohl weiter fehler suchen, aber ich habe wirklich keine ahnung was da bei mir reinfunkt, es sollte nach den Zeilen

Delphi-Quellcode:

    
    SelStart := Perform(EM_LINEINDEX, StrToInt(scroll_input.text), 0);
    Perform(EM_SCROLLCARET, 0, 0);
    Invalidate;

kein code mehr ausgeführt werden der irgendwas verändern kann.

[Nicodius]

ok interessante sache:

Delphi-Quellcode:

      
  Log_Form.Caption := SysErrorMessage(GetLastError());
  SelStart := Error_codes.ItemIndex;
  Perform(EM_SCROLLCARET, 0, 0);
  invalidate;

gibt operation completed successfully aus

Delphi-Quellcode:

      
  SelStart := Error_codes.ItemIndex;
  Log_Form.Caption := SysErrorMessage(GetLastError());
  Perform(EM_SCROLLCARET, 0, 0);
  invalidate;

gibt den error "Access denied" aus. Woran könnte das liegen? im onselection change wird nichts geändert.

lg

[himitsu]

Kann auch sein, daß es bei dir wirklich nicht geht.
Ich weiß jetzt nicht welche Richeditversion D7 und D2007 verwenden.

Schau mal bei EM_LINEINDEX in Remarks, ob es dort was zu finden gibt.



Mit D2009 wurd letzmalig auf eine neue Version umgestellt, mit dem ergebnis, daß einiges nicht mehr richtig funktionierte.
Vielleicht gab's zwischen 7 und 2007 auch schonmal eine Umstellung.


Stell doch einfach mal ein kleines Testprogram zusammen, welches wir dann neu kompilieren und schauen ob's bei uns geht.