SelectAll+Repaint = Access Violation

Return to index

Author

Message

zet

Posted: 03/30/2004 13:56:25

Hello.

You can reproduce strange access violation in such way:

1. Open Delphi\Editors\Editor1 demo

2. Form1.KeyPreview set to true

3. Add this code in Form1.OnKeyDown:

  if (key=65) and (ssCtrl in shift) then begin

   richviewedit1.selectall;

   richviewedit1.repaint; // even if you delete this line, bug will persist

  end;

4. Run Demo, clear all the text, and add any table

5. Put cursor into any table cell and press Ctrl-A. You'll get access

violation.

How can I quickly fix this bug?