mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Viewer - selection invisible characters in the text mode

Browse source 
(cherry picked from commit dd75f9103c)
This commit is contained in:
Alexander Koblov 2022-01-30 11:11:29 +03:00
commit 86644c3990
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
components/viewer/viewercontrol.pas
View file

@ -233,7 +233,7 @@ type
FMouseBlockBeg: PtrInt;
FMouseBlockSide: TCharSide;
FSelecting: Boolean;
FTextWidth: Integer; // max char count or width in window
FTextWidth: Integer; // max char count or width in window
FTextHeight: Integer; // measured values of font, rec calc at font changed
FScrollBarVert: TScrollBar;
FScrollBarHorz: TScrollBar;
@ -553,7 +553,6 @@ uses
const
//cTextWidth = 80; // wrap on 80 chars
cBinWidth = 80;
// These strings must be Ascii only.
@ -2767,6 +2766,11 @@ var
Continue;
end;
if (CharLenInBytes = 1) and (s[1] < ' ') then
begin
s := ' ';
end;
ss := ss + s;
textWidth := Canvas.TextWidth(ss);
if textWidth > x then