Skip to content
Browse files

Removed: unnecessary typecast.

  • Loading branch information...
1 parent cefa376 commit 8f02976dc664bfe0f9065ce33065fdfcb0d98b76 @BerndGabriel committed
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

0 comments on commit 8f02976

Please sign in to comment.
Something went wrong with that request. Please try again.