ViewVC Help

View File | Revision Log | View Changeset | Root Listing

root/Oni2/oup/_old_/Tools/BinEdit.pas

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)