mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Binary differ highlight

Browse source
This commit is contained in:
Alexander Koblov 2016-09-23 16:07:17 +00:00
commit ad2df7e264
2 changed files with 4 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

20
components/viewer/viewercontrol.pas
View file

@ -327,17 +327,15 @@ type
procedure OutBin(x, y: Integer; sText: string; StartPos: PtrInt; DataLength: Integer);
procedure OutCustom(x, y: Integer; sText: string;StartPos: PtrInt; DataLength: Integer); // render one line
procedure WriteCustom;
function TransformCustom(var APosition: PtrInt; ALimit: PtrInt;AWithAdditionalData:boolean=True): AnsiString;
function TransformCustomBlock(var APosition: PtrInt; DataLength: integer ; ASeparatorsOn, AAlignData:boolean; out AChars:AnsiString): AnsiString;
function HexToValueProc(AChar:AnsiChar;AMaxDigitsCount:integer):AnsiString;
function DecToValueProc(AChar:AnsiChar;AMaxDigitsCount:integer):AnsiString;
procedure WriteText;
procedure WriteHex; virtual;
procedure WriteDec; virtual;
procedure WriteBin;
procedure WriteText;
procedure WriteCustom; virtual;
function TransformText(const sText: String; const Xoffset: Integer): String;
function TransformBin(var aPosition: PtrInt; aLimit: PtrInt): AnsiString;
function TransformHex(var aPosition: PtrInt; aLimit: PtrInt): AnsiString;virtual;
@ -1575,7 +1573,6 @@ begin
end;
end;
procedure TViewerControl.WriteBin;
var
yIndex: Integer;
@ -1595,19 +1592,6 @@ begin
end;
end;
procedure TViewerControl.WriteHex;
begin
WriteCustom;
end;
procedure TViewerControl.WriteDec;
begin
WriteCustom;
end;
function TViewerControl.GetDataAdr: Pointer;
begin
case FViewerControlMode of

4
src/ubinarydiffviewer.pas
View file

@ -39,7 +39,7 @@ type
FKeepScrolling: Boolean;
FSecondViewer: TBinaryDiffViewer;
protected
procedure WriteHex; override;
procedure WriteCustom; override;
procedure SetPosition(Value: PtrInt); override;
public
constructor Create(AOwner: TComponent); override;
@ -76,7 +76,7 @@ const
{ TBinaryDiffViewer }
procedure TBinaryDiffViewer.WriteHex;
procedure TBinaryDiffViewer.WriteCustom;
const
cWordSize = 3;
var