Changeset 174 for oup/current/Tools


Ignore:
Timestamp:
May 2, 2007, 5:16:00 PM (18 years ago)
Author:
alloc
Message:
 
Location:
oup/current/Tools
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • oup/current/Tools/BinEdit.dfm

    r105 r174  
    6262      Colors.EvenColumn = clNavy
    6363      Colors.CurrentOffsetBackground = clBtnShadow
    64       Colors.OffsetBackGround = clBtnFace
     64      Colors.OffsetBackground = clBtnFace
    6565      Colors.CurrentOffset = clBtnHighlight
    6666      Colors.Grid = clBtnFace
     
    7171      AllowInsertMode = False
    7272      DrawGridLines = False
    73       Version = 'May 23, 2005; '#169' markus stephany, vcl[at]mirkes[dot]de'
     73      Version = 'december 06, 2006; '#169' markus stephany, vcl[at]mirkes[dot]de'
    7474      OnChange = hexChange
    7575      ShowPositionIfNotFocused = True
  • oup/current/Tools/BinEdit.pas

    r113 r174  
    468468      if hex.SelCount = 0 then
    469469      begin
    470         while (hex.Data[hex.SelStart + j] > 0) and ((hex.SelStart + j) < hex.DataSize) do
     470        while (hex.SelStart + j) < hex.DataSize do
    471471        begin
     472          if hex.Data[hex.SelStart + j] = 0 then
     473            Break;
    472474          if hex.Data[hex.selstart + j] >= 32 then
    473475            str := str + Char(hex.Data[hex.SelStart + j])
Note: See TracChangeset for help on using the changeset viewer.