Changeset 54


Ignore:
Timestamp:
Dec 25, 2006, 4:04:47 AM (15 years ago)
Author:
alloc
Message:
 
Location:
oup/current
Files:
6 edited

Legend:

Unmodified
Added
Removed
  • oup/current/Main.dfm

    r53 r54  
    374374    Top = 112
    375375    Bitmap = {
    376       494C01010D000E00040010001000FFFFFFFFFF00FFFFFFFFFFFFFFFF424D3600
     376      494C01010D000E00040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
    377377      0000000000003600000028000000400000004000000001002000000000000040
    378378      0000000000000000000000000000000000000000000000000000000000000000
     
    906906      0000000000000000000000000000000000000000000000000000000000000000
    907907      000000000000000000000000000000008001800180018001E007E007E007E007
    908       F81FF81FF81FF81FFE7FFE7FFE7FFE7F}
     908      F81FF81FF81FF81FFE7FFE7FFE7FFE7F00000000000000000000000000000000
     909      000000000000}
    909910  end
    910911end
  • oup/current/Main.pas

    r53 r54  
    600600    toolform         := TForm_BinEdit.Create(Self);
    601601    toolform.Caption := 'Binary .dat-Editor ' + IntToStr(tag);
    602     iconindex        := 4;
     602    iconindex        := 5;
    603603  end;
    604604  if window_context = 'extractor' then
     
    606606    toolform         := TForm_Extractor.Create(Self);
    607607    toolform.Caption := 'Extractor ' + IntToStr(tag);
    608     iconindex        := 7;
     608    iconindex        := 8;
    609609  end;
    610610  if window_context = 'preview' then
     
    612612    toolform         := TForm_Preview.Create(Self);
    613613    toolform.Caption := 'Preview-Window ' + IntToStr(tag);
    614     iconindex        := 3;
     614    iconindex        := 4;
    615615  end;
    616616  if window_context = 'rawedit' then
     
    618618    toolform         := TForm_RawEdit.Create(Self);
    619619    toolform.Caption := 'Binary .raw-Editor ' + IntToStr(tag);
    620     iconindex        := 5;
     620    iconindex        := 6;
    621621  end;
    622622  if window_context = 'txmpreplace' then
     
    624624    toolform         := TForm_TxmpReplace.Create(Application);
    625625    toolform.Caption := 'TXMP Replacer ' + IntToStr(tag);
    626     iconindex        := 6;
     626    iconindex        := 7;
    627627  end;
    628628
  • oup/current/Tools/Template.dfm

    r51 r54  
    4949      PopupMenu = filepopup
    5050      TabOrder = 0
     51      OnClick = listClick
    5152      OnMouseDown = listMouseDown
    5253    end
  • oup/current/Tools/Template.pas

    r53 r54  
    278278  pt.X := x;
    279279  pt.Y := y;
    280   filelist.ItemIndex := filelist.ItemAtPos(pt, true);
    281   Self.listClick(Self);
     280//  filelist.ItemIndex := filelist.ItemAtPos(pt, true);
     281//  Self.listClick(Self);
    282282end;
    283283
  • oup/current/Tools/TxmpReplace.pas

    r46 r54  
    3131    OniImage_Old: TOniImage;
    3232    OniImage_New: TOniImage;
     33    old_size: Integer;
    3334    fileid: Integer;
    3435  public
     
    5859
    5960  OniImage_Old.LoadFromTXMP(fileid);
     61  old_size := OniImage_Old.GetImageDataSize((fadingbyte and $01) > 0);
    6062  Data := OniImage_Old.GetAsBMP;
    6163  mem  := TMemoryStream.Create;
     
    9294procedure TForm_TxmpReplace.btn_replaceClick(Sender: TObject);
    9395var
    94   oldsize, newsize: LongWord;
     96  newsize: LongWord;
    9597  old_rawaddr, new_rawaddr: LongWord;
    9698  oldfading: Byte;
     
    121123    end;
    122124
    123     oldsize := OniImage_Old.GetImageDataSize((oldfading and $01) > 0);
    124 
    125125    if check_fading.Checked then
    126126      if not OniImage_New.GetMipMappedImage(tempd) then
     
    137137
    138138    newsize := OniImage_New.GetImageDataSize(check_fading.Checked);
    139     ShowMessage(IntToStr(newsize));
    140 
    141     if (newsize > oldsize) and (OniDataConnection.Backend = ODB_Dat) then
     139
     140    if (newsize > old_size) and (OniDataConnection.Backend = ODB_Dat) then
    142141      new_rawaddr := OniDataConnection.AppendRawFile(
    143142        OniDataConnection.OSisMac, Length(tempd), tempd)
Note: See TracChangeset for help on using the changeset viewer.