Changeset 174 for oup

Timestamp:

May 2, 2007, 5:16:00 PM (18 years ago)

Author:

alloc

Message:

 

Location:

oup/current

Files:

• Tools/BinEdit.dfm (modified) (2 diffs)
• Tools/BinEdit.pas (modified) (1 diff)
• _exe/OniUnPacker.exe (modified) ( previous)

oup/current/Tools/BinEdit.dfm

@@ -62 +62 @@
       Colors.EvenColumn = clNavy
       Colors.CurrentOffsetBackground = clBtnShadow
-      Colors.OffsetBackGround = clBtnFace
+      Colors.OffsetBackground = clBtnFace
       Colors.CurrentOffset = clBtnHighlight
       Colors.Grid = clBtnFace
@@ -71 +71 @@
       AllowInsertMode = False
       DrawGridLines = False
-      Version = 'May 23, 2005; '#169' markus stephany, vcl[at]mirkes[dot]de'
+      Version = 'december 06, 2006; '#169' markus stephany, vcl[at]mirkes[dot]de'
       OnChange = hexChange
       ShowPositionIfNotFocused = True

oup/current/Tools/BinEdit.pas

@@ -468 +468 @@
       if hex.SelCount = 0 then
       begin
-        while (hex.Data[hex.SelStart + j] > 0) and ((hex.SelStart + j) < hex.DataSize) do
+        while (hex.SelStart + j) < hex.DataSize do
         begin
+          if hex.Data[hex.SelStart + j] = 0 then
+            Break;
           if hex.Data[hex.selstart + j] >= 32 then
             str := str + Char(hex.Data[hex.SelStart + j])