[Glxtreem-commits] GLXtreem/Source GLXResource.pas,1.2,1.3

[Markus L?d. <dan...@us...>]

Update of /cvsroot/glxtreem/GLXtreem/Source
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26706/Source

Modified Files:
	GLXResource.pas 
Log Message:
Removed dirty check

Index: GLXResource.pas
===================================================================
RCS file: /cvsroot/glxtreem/GLXtreem/Source/GLXResource.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** GLXResource.pas	1 Apr 2004 15:44:11 -0000	1.2
--- GLXResource.pas	1 Apr 2004 22:25:58 -0000	1.3
***************
*** 28,32 ****
  interface
  uses
!   Classes, Controls, SysUtils, Contnrs, ZLib, HashTables;
  
  type
--- 28,32 ----
  interface
  uses
!   Classes, Controls, SysUtils, Contnrs, ZLib, HashTables,Forms;
  
  type
***************
*** 225,232 ****
    TGLXResourceFileSource = class(TGLXResourceSource)
    private
!     fFilename  : String;
  
    protected
!     procedure   SetFilename(Filename:String);
  
    public
--- 225,232 ----
    TGLXResourceFileSource = class(TGLXResourceSource)
    private
!     fFilename  : TFilename;
  
    protected
!     procedure   SetFilename(Filename:TFilename);
  
    public
***************
*** 243,247 ****
  
    published
!     property    Filename : String read fFilename write SetFilename;
    end;
  
--- 243,247 ----
  
    published
!     property    Filename : TFilename read fFilename write SetFilename;
    end;
  
***************
*** 751,757 ****
  
      //Only save if the resource is new or dirty
!     if (Assigned(Inv) and (Resource.Dirty)) or
!        (not Assigned(Inv)) then
!     begin
        MStream  := TMemoryStream.Create;
        MStream2 := TMemoryStream.Create;
--- 751,757 ----
  
      //Only save if the resource is new or dirty
! //    if (Assigned(Inv) and (Resource.Dirty)) or
! //       (not Assigned(Inv)) then
! //    begin
        MStream  := TMemoryStream.Create;
        MStream2 := TMemoryStream.Create;
***************
*** 799,803 ****
        MStream2.Free;
        MStream.Free;
!     end;
    end;
  end;
--- 799,803 ----
        MStream2.Free;
        MStream.Free;
! //    end;
    end;
  end;
***************
*** 860,864 ****
  //------------------------------------------------------------------------------
  
! procedure TGLXResourceFileSource.SetFilename(Filename:String);
  begin
    fFilename:=Filename;
--- 860,864 ----
  //------------------------------------------------------------------------------
  
! procedure TGLXResourceFileSource.SetFilename(Filename:TFilename);
  begin
    fFilename:=Filename;
***************
*** 886,891 ****
  begin
    result:=false;
!   if FileExists(fFilename) then begin
!     FStream := TFileStream.Create(fFilename,fmOpenRead or fmShareDenyWrite);
      try
        FStream.Seek(-2*SizeOf(Integer),soFromEnd);
--- 886,891 ----
  begin
    result:=false;
!   if FileExists(ExtractFilepath(Application.Exename)+fFilename) then begin
!     FStream := TFileStream.Create(ExtractFilepath(Application.Exename)+fFilename,fmOpenRead or fmShareDenyWrite);
      try
        FStream.Seek(-2*SizeOf(Integer),soFromEnd);
***************
*** 908,913 ****
    Size    : Integer;
  begin
!   if FileExists(fFilename) then begin
!     FStream := TFileStream.Create(fFilename,fmOpenReadWrite or fmShareDenyRead);
      try
        FStream.Seek(0,soFromEnd);
--- 908,913 ----
    Size    : Integer;
  begin
!   if FileExists(ExtractFilepath(Application.Exename)+fFilename) then begin
!     FStream := TFileStream.Create(ExtractFilepath(Application.Exename)+fFilename,fmOpenReadWrite or fmShareDenyRead);
      try
        FStream.Seek(0,soFromEnd);
***************
*** 919,923 ****
        FStream.Free;
      end;
!   end else raise Exception.CreateFmt(NOFILE,[fFilename]);
  end;
  
--- 919,923 ----
        FStream.Free;
      end;
!   end else raise Exception.CreateFmt(NOFILE,[ExtractFilepath(Application.Exename)+fFilename]);
  end;
  
***************
*** 927,934 ****
    Inv     : TGLXInventory;
  begin
!   if FileExists(fFilename) then begin
      Inv   := GetInv(Ident);
      if Assigned(Inv) then begin
!       FStream := TFileStream.Create(fFilename,fmOpenRead or fmShareDenyWrite);
        try
          FStream.Position := Inv.Offset;
--- 927,934 ----
    Inv     : TGLXInventory;
  begin
!   if FileExists(ExtractFilepath(Application.Exename)+fFilename) then begin
      Inv   := GetInv(Ident);
      if Assigned(Inv) then begin
!       FStream := TFileStream.Create(ExtractFilepath(Application.Exename)+fFilename,fmOpenRead or fmShareDenyWrite);
        try
          FStream.Position := Inv.Offset;
***************
*** 952,957 ****
      try
        //Copy all resources into memory
!       if FileExists(fFilename) then begin
!         FStream := TFileStream.Create(fFilename,fmOpenRead or fmShareDenyWrite);
          try
            for i:=0 to GetInvCount-1 do begin
--- 952,957 ----
      try
        //Copy all resources into memory
!       if FileExists(ExtractFilepath(Application.Exename)+fFilename) then begin
!         FStream := TFileStream.Create(ExtractFilepath(Application.Exename)+fFilename,fmOpenRead or fmShareDenyWrite);
          try
            for i:=0 to GetInvCount-1 do begin
***************
*** 969,973 ****
        //Write all resources back to the file
        MStream.Position := 0;
!       FStream          := TFileStream.Create(fFilename,fmCreate or fmShareDenyRead);
        try
          for i:=0 to GetInvCount-1 do begin
--- 969,973 ----
        //Write all resources back to the file
        MStream.Position := 0;
!       FStream          := TFileStream.Create(ExtractFilepath(Application.Exename)+fFilename,fmCreate or fmShareDenyRead);
        try
          for i:=0 to GetInvCount-1 do begin
***************
*** 999,1007 ****
    i       : Integer;
  begin
!   if FileExists(fFilename) then begin
      MStream := TMemoryStream.Create;
      try
        //Copy all resources into memory
!       FStream := TFileStream.Create(fFilename,fmOpenRead or fmShareDenyWrite);
        try
          for i:=0 to GetInvCount-1 do begin
--- 999,1007 ----
    i       : Integer;
  begin
!   if FileExists(ExtractFilepath(Application.Exename)+fFilename) then begin
      MStream := TMemoryStream.Create;
      try
        //Copy all resources into memory
!       FStream := TFileStream.Create(ExtractFilepath(Application.Exename)+fFilename,fmOpenRead or fmShareDenyWrite);
        try
          for i:=0 to GetInvCount-1 do begin
***************
*** 1018,1022 ****
        //Write all resources back to the file
        MStream.Position := 0;
!       FStream          := TFileStream.Create(fFilename,fmCreate or fmShareDenyRead);
        try
          for i:=0 to GetInvCount-1 do begin
--- 1018,1022 ----
        //Write all resources back to the file
        MStream.Position := 0;
!       FStream          := TFileStream.Create(ExtractFilepath(Application.Exename)+fFilename,fmCreate or fmShareDenyRead);
        try
          for i:=0 to GetInvCount-1 do begin