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: Selection in Viewer when horizontal scroll bar position is zero

Browse source
This commit is contained in:
Alexander Koblov 2011-12-30 15:46:35 +00:00
commit 25ab94336a
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
components/viewer/viewercontrol.pas
View file

@ -1302,8 +1302,10 @@ begin
w := Width div FColCount
else
w := 0;
if (ViewerMode = vmText) and (FHPosition>0) then scrollTab:= -FHPosition*canvas.TextWidth('W')-5
else scrollTab:=0;
if (ViewerMode = vmText) and (FHPosition>0) then
scrollTab := -FHPosition * Canvas.TextWidth('W')
else
scrollTab :=0;
for xIndex := 0 to FColCount-1 do
begin
for yIndex := 0 to GetClientHeightInLines - 1 do
@ -1315,7 +1317,7 @@ begin
i := CalcTextLineLength(iPos, FHighLimit, DataLength);
if i > FHLowEnd then FHLowEnd:=i;
if DataLength > 0 then
OutText(5 + scrollTab+xIndex*w, yIndex * FTextHeight, LineStart, DataLength)
OutText(scrollTab+xIndex*w, yIndex * FTextHeight, LineStart, DataLength)
end;
end;
end;