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
|
