Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Removed: unnecessary typecast.

  • Loading branch information...
commit 8f02976dc664bfe0f9065ce33065fdfcb0d98b76 1 parent cefa376
@BerndGabriel authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  source/HTMLSubs.pas
View
2  source/HTMLSubs.pas
@@ -7205,7 +7205,7 @@ procedure ThtDocument.CopyToClipboardA(Leng: Integer);
CB := ClipBuffer.Create(Leng);
for I := 0 to Count - 1 do
begin
- SB := TSectionBase(Items[I]);
+ SB := Items[I];
with SB do
begin
if (SelB >= StartCurs + Len) then
Please sign in to comment.
Something went wrong with that request. Please try again.