anchor.diff:  begin
     ext:=UpperCase(ExtractFileExt(AFileName));
   
  -  if ext = '.PNG' then
  -  begin
  -    r := TFPReaderPNG.create;
  -    FData.LoadFromStream(AStream, r);
  -
  -    r.Free;
  -  end
  -  else if ext = '.PCX' then
  +
  +
  +  if ext = '.PCX' then
     begin
       //(!)untested
       LoadH3Pcx(AStream, FData);
     end
     else
     begin
  -    //TODO:
  -    assert(false, 'not implemented')
  +    r := GImageLoaders.GetLoader(ext);
  +
  +    if Assigned(r) then
  +      FData.LoadFromStream(AStream, r)
  +    else
  +      raise Exception.CreateFmt('Unknown image file extension for ',[AFileName]);
     end;
   end;
   
  
positive.code:     property Data: TLazIntfImage read FData;
    end;
  
  implementation
  
  { TIntfImageResource }
  
  
negative.code:   end;
  end;
  
  initialization
    GImageLoaders := TImageReaders.Create;
    GImageLoaders.CheckUpdated();
  finalization;
    FreeAndNil(GImageLoaders);
  end.
  
  