Subversion Repositories spacemission

Rev

Rev 16 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 16 Rev 99
Line 2691... Line 2691...
2691 
 
 2691 
 
2692 
procedure TDirectDrawPalette.LoadFromFile(const FileName: string);
 2692 
procedure TDirectDrawPalette.LoadFromFile(const FileName: string);
2693 
var
 2693 
var
2694 
  Stream: TFileStream;
 2694 
  Stream: TFileStream;
2695 
begin
 2695 
begin
2696 
  Stream := TFileStream.Create(FileName, fmOpenRead);
 2696 
  Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
2697 
  try
 2697 
  try
2698 
    LoadFromStream(Stream);
 2698 
    LoadFromStream(Stream);
2699 
  finally
 2699 
  finally
2700 
    Stream.Free;
 2700 
    Stream.Free;
2701 
  end;
 2701 
  end;