FIX: Check string length in cm_ToggleSelectionInName (fixes #1030) (#1031)

This commit is contained in:
Hermholtz 2023-07-04 07:32:07 +02:00 committed by GitHub
commit 5cd1e33cd2
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23

View file

@ -173,6 +173,9 @@ begin
iInitialStart := edtDst.SelStart;
iInitialLength := edtDst.SelLength;
if iFullLength = 0 then
exit;
repeat
FCurrentCopyDlgNameSelectionStep := TCurrentCopyDlgNameSelectionStep((ord(FCurrentCopyDlgNameSelectionStep)+1) mod ord(ccdnssInvalid));