Revision 119:66352054ce4d MulProvider/URadarProvider.pas

b/MulProvider/URadarProvider.pas
21 21 
 * CDDL HEADER END
22 22 
 *
23 23 
 *
24 
 *      Portions Copyright 2007 Andreas Schneider
24 
 *      Portions Copyright 2009 Andreas Schneider
25 25 
 *)
26 26 
unit URadarProvider;
27 27 

  		





  ......




  33
  33
  
    
  SysUtils, Classes, UBufferedStreams;


  		





  34
  34
  
    

  		





  35
  35
  
    
type


  		





  36
  
  
    
  TRadarProvider = class(TObject)


  		





  
  36
  
    

  		





  
  37
  
    
  { TRadarProvider }


  		





  
  38
  
    

  		





  
  39
  
    
  TRadarProvider = class


  		





  37
  40
  
    
    constructor Create; overload; virtual;


  		





  38
  41
  
    
    constructor Create(AData: TStream; AReadOnly: Boolean = False); overload; virtual;


  		





  39
  42
  
    
    constructor Create(AData: string; AReadOnly: Boolean = False); overload; virtual;


  		





  ......




  77
  80
  
    

  		





  78
  81
  
    
destructor TRadarProvider.Destroy;


  		





  79
  82
  
    
begin


  		





  80
  
  
    
  if Assigned(FData) then FreeAndNil(FData);


  		





  
  83
  
    
  FreeAndNil(FData);


  		





  81
  84
  
    
  inherited Destroy;


  		





  82
  85
  
    
end;


  		





  83
  86
  
    

  		





  84
  87
  
    
function TRadarProvider.GetColor(AID: Integer): Word;


  		





  85
  88
  
    
begin


  		





  
  89
  
    
  Result := 0;


  		





  86
  90
  
    
  if (AID >= 0) and (AID < $10000) then


  		





  87
  91
  
    
  begin


  		





  88
  92
  
    
    FData.Position := SizeOf(Word) * AID;


  		





  89
  93
  
    
    FData.Read(Result, SizeOf(Word));


  		





  90
  
  
    
  end else


  		





  91
  
  
    
    Result := 0;


  		





  
  94
  
    
  end;


  		





  92
  95
  
    
end;


  		





  93
  96
  
    

  		





  94
  97
  
    
procedure TRadarProvider.SetColor(AID: Integer; AColor: Word);


  		












Also available in:
	Unified diff