- Timestamp:
- May 12, 2007, 3:22:11 PM (17 years ago)
- Location:
- oup/current
- Files:
-
- 7 edited
Legend:
- Unmodified
- Added
- Removed
-
oup/current/Global/RawList.pas
r173 r177 427 427 initialization 428 428 RawLists := TRawLists.Create; 429 RawLists.InsertRawListHandler('AGDB', False, AGDB);429 RawLists.InsertRawListHandler('AGDB', True, AGDB); 430 430 RawLists.InsertRawListHandler('AKVA', True, AKVA); 431 431 RawLists.InsertRawListHandler('BINA', True, BINA); -
oup/current/Tools/BinEdit.dfm
r174 r177 62 62 Colors.EvenColumn = clNavy 63 63 Colors.CurrentOffsetBackground = clBtnShadow 64 Colors.OffsetBack ground = clBtnFace64 Colors.OffsetBackGround = clBtnFace 65 65 Colors.CurrentOffset = clBtnHighlight 66 66 Colors.Grid = clBtnFace … … 71 71 AllowInsertMode = False 72 72 DrawGridLines = False 73 Version = ' december 06, 2006; '#169' markus stephany, vcl[at]mirkes[dot]de'73 Version = 'May 23, 2005; '#169' markus stephany, vcl[at]mirkes[dot]de' 74 74 OnChange = hexChange 75 75 ShowPositionIfNotFocused = True -
oup/current/Tools/BinEdit.pas
r174 r177 59 59 fileid: Integer; 60 60 ConID: Integer; 61 rawlist: TRawDataList; 61 62 public 62 63 end; … … 67 68 implementation 68 69 69 uses ValueEdit, Main, Functions, DatStructureLoader {, RawEdit};70 uses ValueEdit, Main, Functions, DatStructureLoader, RawEdit; 70 71 {$R *.dfm} 71 72 … … 161 162 mem := nil; 162 163 ConManager.Connection[ConID].LoadDatFile(fileid, TStream(mem)); 164 rawlist := ConManager.Connection[ConID].GetRawList(fileid); 163 165 hex.LoadFromStream(mem); 164 166 mem.Free; … … 173 175 ClearValues; 174 176 hex.DataSize := 0; 177 SetLength(rawlist, 0); 175 178 end; 176 179 end; … … 181 184 var 182 185 Data: TByteData; 183 i: Word;186 i: Integer; 184 187 tempi: Integer; 185 188 floatformat: TFormatSettings; … … 219 222 11: 220 223 begin 221 tempi := ConManager.Connection[ConID].GetRawInfo(fileid, offset).RawAddr; 222 if tempi >= 0 then 223 Result := '0x' + IntToHex(tempi, 8) 224 else 225 Result := 'unused'; 224 if Length(rawlist) > 0 then 225 for i := 0 to High(rawlist) do 226 if rawlist[i].SrcOffset = offset then 227 begin 228 if rawlist[i].RawAddr > 0 then 229 Result := '0x' + IntToHex(rawlist[i].RawAddr, 8) 230 else 231 Result := 'unused'; 232 Break; 233 end; 226 234 end; 227 235 12: … … 745 753 node: PVirtualNode; 746 754 nodedata: PNodeData; 755 rawinfo: TRawDataInfo; 747 756 form: TForm_ToolTemplate; 748 757 begin … … 762 771 if (nodedata.DataType = 11) and (nodedata.Value <> 'unused') then 763 772 begin 764 if ConManager.Connection[ConID].GetRawInfo(fileid, nodedata.offset).RawSize > 0 then 765 Form_Main.open_child('rawedit', ConID, fileid); 773 rawinfo := ConManager.Connection[ConID].GetRawInfo(fileid, nodedata.offset); 774 if rawinfo.RawSize > 0 then 775 begin 776 form := nil; 777 form := Form_Main.open_child('rawedit', ConID, fileid); 778 if Assigned(form) then 779 TForm_RawEdit(form).LoadRaw(rawinfo); 780 end; 766 781 end; 767 782 if (nodedata.DataType = 12) and (nodedata.Value <> 'no link') then -
oup/current/Tools/RawEdit.dfm
r175 r177 118 118 Colors.EvenColumn = clNavy 119 119 Colors.CurrentOffsetBackground = clBtnShadow 120 Colors.OffsetBack ground = clBtnFace120 Colors.OffsetBackGround = clBtnFace 121 121 Colors.CurrentOffset = clBtnHighlight 122 122 Colors.Grid = clBtnFace … … 127 127 AllowInsertMode = False 128 128 DrawGridLines = False 129 Version = ' december 06, 2006; '#169' markus stephany, vcl[at]mirkes[dot]de'129 Version = 'May 23, 2005; '#169' markus stephany, vcl[at]mirkes[dot]de' 130 130 OnChange = hexChange 131 131 ShowPositionIfNotFocused = True -
oup/current/Tools/RawEdit.pas
r175 r177 102 102 var 103 103 i: Integer; 104 begin 105 if hex.Modified then 106 begin 107 if not Save then 108 begin 109 Exit; 110 end; 111 end; 112 for i := 0 to filelist.Count - 1 do 113 begin 114 if ConManager.Connection[ConnectionID].ExtractFileIDOfName(filelist.Items.Strings[i]) = Raw_Info.SrcID then 115 begin 116 filelist.ItemIndex := i; 117 listClick(Self); 118 Break; 119 end; 120 end; 121 for i := 0 to list_offset.Count - 1 do 122 begin 123 if MidStr(list_offset.Items.Strings[i], 3, 8) = IntToHex(raw_info.SrcOffset, 8) then 124 begin 125 list_offset.ItemIndex := i; 126 list_offsetClick(Self); 127 Break; 128 end; 129 end; 130 end; 131 132 133 134 135 136 137 procedure TForm_RawEdit.list_offsetClick(Sender: TObject); 138 var 104 139 mem: TMemoryStream; 105 begin 106 if hex.Modified then 107 begin 108 if not Save then 109 begin 110 Exit; 111 end; 112 end; 113 if list_offset.Count = 0 then 114 begin 115 for i := 0 to filelist.Count - 1 do 116 begin 117 if ConManager.Connection[ConnectionID].ExtractFileIDOfName(filelist.Items.Strings[i]) = Raw_Info.SrcID then 118 begin 119 filelist.ItemIndex := i; 120 listClick(Self); 121 Break; 122 end; 123 end; 124 for i := 0 to list_offset.Count - 1 do 125 begin 126 if MidStr(list_offset.Items.Strings[i], 3, 8) = IntToHex(raw_info.SrcOffset, 8) then 127 begin 128 list_offset.ItemIndex := i; 129 Break; 130 end; 131 end; 132 end; 140 rawinfo: TRawDataInfo; 141 begin 142 datoffset := StrToInt('$' + MidStr( 143 list_offset.Items.Strings[list_offset.ItemIndex], 3, 8)); 144 145 rawinfo := ConManager.Connection[ConnectionID].GetRawInfo(fileid, datoffset); 146 133 147 mem := nil; 134 ConManager.Connection[ConnectionID].LoadRawFile(raw _info.SrcID, raw_info.SrcOffset, TStream(mem));148 ConManager.Connection[ConnectionID].LoadRawFile(rawinfo.SrcID, rawinfo.SrcOffset, TStream(mem)); 135 149 hex.LoadFromStream(mem); 136 150 ClearValues; 137 151 hexSelectionChanged(Self); 138 end;139 140 141 142 143 144 145 procedure TForm_RawEdit.list_offsetClick(Sender: TObject);146 begin147 ClearValues;148 datoffset := StrToInt('$' + MidStr(149 list_offset.Items.Strings[list_offset.ItemIndex], 3, 8));150 LoadRaw(ConManager.Connection[ConnectionID].GetRawInfo(fileid, datoffset));151 152 end; 152 153 -
oup/current/Tools/TxmpReplace.dfm
r105 r177 2 2 Caption = 'TxmpReplace' 3 3 OnCreate = FormCreate 4 ExplicitWidth = 500 5 ExplicitHeight = 450 4 6 PixelsPerInch = 96 5 7 TextHeight = 13 … … 39 41 end 40 42 inherited panel_extension: TPanel 41 Visible = False 43 inherited label_ext: TLabel 44 Visible = False 45 end 46 inherited combo_extension: TComboBox 47 Visible = False 48 end 49 inherited check_zerobyte: TCheckBox 50 Visible = False 51 end 42 52 end 43 53 object panel_txmppreview: TPanel
Note:
See TracChangeset
for help on using the changeset viewer.