ViewVC Help
View File | Revision Log | View Changeset | Root Listing
root/Oni2/oup/releases/0.33a/Tools/BinEdit.pas
(Generate patch)

Comparing oup/current/Tools/BinEdit.pas (file contents):
Revision 46 by alloc, Sat Dec 23 16:26:43 2006 UTC vs.
Revision 75 by alloc, Thu Jan 11 23:36:52 2007 UTC

# Line 190 | Line 190 | function TForm_BinEdit.GetValue(datatype
190   var
191    Data: Tdata;
192    i:    Word;
193 +  floatformat: TFormatSettings;
194   begin
195 +  floatformat.DecimalSeparator := '.';
196    case datatype of
197      1:
198        Result := IntToStr(hex.Data[offset]);
# Line 218 | Line 220 | begin
220        Data[1] := hex.Data[offset + 1];
221        Data[2] := hex.Data[offset + 2];
222        Data[3] := hex.Data[offset + 3];
223 <      Result  := FloatToStr(Decode_Float(Data));
223 >      Result  := FloatToStr(Decode_Float(Data), floatformat);
224      end;
225      10:
226        Result := IntToBin(hex.Data[offset]);
# Line 382 | Line 384 | var
384    Data:  Tdata;
385    str:   String;
386    Value: LongWord;
387 +  floatformat: TFormatSettings;
388   begin
389 +  floatformat.DecimalSeparator := '.';
390    for i := 1 to value_viewer.RowCount - 1 do
391    begin
392      if value_viewer.Cells[0, i] = '1 byte, unsigned' then
# Line 447 | Line 451 | begin
451          SetLength(Data, 4);
452          for j := 0 to 3 do
453            Data[j] := hex.Data[hex.SelStart + j];
454 <        value_viewer.Cells[1, i] := FloatToStr(Decode_Float(Data));
454 >        value_viewer.Cells[1, i] := FloatToStr(Decode_Float(Data), floatformat);
455        end
456        else
457          value_viewer.Cells[1, i] := '';
# Line 560 | Line 564 | end;
564  
565  
566   procedure TForm_BinEdit.hexKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
567 < var
568 <  temps: String;
567 > //var
568 > //  temps: String;
569   begin
570    if (Shift = [ssCtrl]) and (Key = Ord('C')) then
571    begin
# Line 740 | Line 744 | procedure TForm_BinEdit.VSTDblClick(Send
744   var
745    node: PVirtualNode;
746    nodedata: PNodeData;
743 –  id: Integer;
747    form: TForm_ToolTemplate;
748   begin
749    if VST.FocusedColumn = 3 then

Diff Legend

– Removed lines
+ Added lines
< Changed lines (old)
> Changed lines (new)