Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Memo scrollen (https://www.delphipraxis.net/94530-memo-scrollen.html)

Nicodius 4. Okt 2011 08:53

AW: Memo scrollen
 
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.

himitsu 4. Okt 2011 09:08

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

Schau mal bei MSDN-Library durchsuchenEM_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.

Nicodius 4. Okt 2011 13:27

AW: Memo scrollen
 
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 4. Okt 2011 14:06

AW: Memo scrollen
 
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


Alle Zeitangaben in WEZ +1. Es ist jetzt 03:06 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz