Changeset 255


Ignore:
Timestamp:
Dec 18, 2007, 9:48:24 PM (14 years ago)
Author:
alloc
Message:
 
Location:
oup/current
Files:
3 edited

Legend:

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

    r232 r255  
    88  inherited panel_basecontent: TPanel
    99    Height = 413
    10     ExplicitHeight = 548
     10    ExplicitHeight = 413
    1111    inherited splitter_content: TSplitter
    1212      Height = 413
     
    1616    inherited panel_files: TPanel
    1717      Height = 413
    18       ExplicitHeight = 548
     18      ExplicitHeight = 413
    1919      inherited FilePages: TPageControl
    2020        Height = 412
    2121        Constraints.MinHeight = 250
    22         ExplicitHeight = 547
     22        ExplicitHeight = 412
    2323        inherited tab_files: TTabSheet
    24           ExplicitHeight = 467
     24          ExplicitHeight = 384
    2525          inherited filelist: TListBox
    2626            Height = 259
    27             ExplicitHeight = 342
     27            ExplicitHeight = 259
    2828          end
    2929        end
     
    3232          ExplicitTop = 24
    3333          ExplicitWidth = 190
    34           ExplicitHeight = 519
     34          ExplicitHeight = 384
    3535          inherited filelist_meta: TVirtualStringTree
    3636            Height = 384
    37             ExplicitHeight = 519
     37            ExplicitHeight = 384
    3838          end
    3939        end
     
    4242    inherited panel_content: TPanel
    4343      Height = 413
    44       ExplicitHeight = 548
     44      ExplicitHeight = 413
    4545      object Splitter1: TSplitter
    4646        Left = 0
     
    6565        Enabled = False
    6666        TabOrder = 0
    67         ExplicitTop = 469
    6867        object btn_replace: TButton
    6968          Left = 4
     
    120119          BevelOuter = bvNone
    121120          TabOrder = 0
    122           ExplicitTop = 188
    123121          object btn_save: TButton
    124122            Left = 2
     
    141139        Enabled = False
    142140        TabOrder = 2
    143         ExplicitLeft = -2
    144         ExplicitTop = 206
    145141        object image_bmppreview: TImage
    146142          AlignWithMargins = True
  • oup/current/Tools/TxmpReplace.pas

    r232 r255  
    177177    mem.Seek(0, soFromBeginning);
    178178
    179     if (newsize > old_size) and (ConManager.Connection[ConnectionID].Backend = DB_ONI) then
     179    if (newsize > old_size) and (ConManager.Connection[ConnectionID].Backend in [DB_ONI, DB_ONISPLIT]) then
    180180      new_rawaddr := ConManager.Connection[ConnectionID].AppendRawFile(
    181181        not (ConManager.Connection[ConnectionID].DataOS = DOS_WIN), mem)
     
    190190    else
    191191      oldfading := oldfading and (not Byte($01));
    192     ConManager.Connection[ConnectionID].UpdateDatFilePart(fileid, $88, 1, @datbyte);
     192    ConManager.Connection[ConnectionID].UpdateDatFilePart(fileid, $88, 1, @oldfading);
    193193    datbyte := $10;
    194194//    if check_transparency.Checked then
Note: See TracChangeset for help on using the changeset viewer.