pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

biffexplorer: Improved display of row height records

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5247 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-10-07 09:20:21 +00:00
parent 642822a08c
commit 3a7f7b1f0f
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
applications/biffexplorer/bebiffgrid.pas
View File

@ -1830,7 +1830,7 @@ begin
else
FDetails.Add('Bit $8000 = 1: Row height not changed manually');
end;
ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%d ($%.4x)', [w, w]),
ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%d ($%.4x) = %.1fpt', [w, w, w/20]),
'Default height for unused rows, in twips = 1/20 of a point');
end else begin
numBytes := 2;
@ -1856,7 +1856,8 @@ begin
numBytes := 2;
Move(FBuffer[FBufferIndex], w, numBytes);
ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)),
w := WordLEToN(w);
ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%d ($%.4x) = %.1fpt', [w, w, w/20]),
'Default height for unused rows, in twips = 1/20 of a point');
end;
end;
@ -5041,7 +5042,7 @@ begin
else FDetails.Add('Bit 15 = 1: Row has default height');
end;
ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.4x', [w]),
'Bits 14-0: Height of row in twips (1/20 pt), Bit 15: Row has default height');
'Bits 14-0: Height of row in twips (1/20 pt), Bit 15: Row has default height?');
numBytes := 2;
Move(FBuffer[FBufferIndex], w, numbytes);