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

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

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

Modified Files:
	GLXResource.pas 
Log Message:
added GLXSound and GLXSoundEditor

Index: GLXResource.pas
===================================================================
RCS file: /cvsroot/glxtreem/GLXtreem/Source/GLXResource.pas,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** GLXResource.pas	1 Apr 2004 22:25:58 -0000	1.3
--- GLXResource.pas	8 Apr 2004 01:33:10 -0000	1.4
***************
*** 887,891 ****
    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);
--- 887,891 ----
    result:=false;
    if FileExists(ExtractFilepath(Application.Exename)+fFilename) then begin
!     FStream := TFileStream.Create(fFilename,fmOpenRead or fmShareDenyWrite);
      try
        FStream.Seek(-2*SizeOf(Integer),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);
--- 908,913 ----
    Size    : Integer;
  begin
!   if FileExists(fFilename) then begin
!     FStream := TFileStream.Create(fFilename,fmOpenReadWrite or fmShareDenyRead);
      try
        FStream.Seek(0,soFromEnd);
***************
*** 919,923 ****
        FStream.Free;
      end;
!   end else raise Exception.CreateFmt(NOFILE,[ExtractFilepath(Application.Exename)+fFilename]);
  end;
  
--- 919,923 ----
        FStream.Free;
      end;
!   end else raise Exception.CreateFmt(NOFILE,[fFilename]);
  end;
  
***************
*** 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;
--- 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;
***************
*** 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
--- 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
***************
*** 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
--- 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
***************
*** 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
--- 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
***************
*** 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
--- 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