Revision 13:c78b5eafa10e Server/URegions.pas

b/Server/URegions.pas
30 30 
interface
31 31 

  		





  32
  32
  
    
uses


  		





  33
  
  
    
  Classes, SysUtils, contnrs, DOM, UXmlHelper, UInterfaces, UEnums, URectList;


  		





  
  33
  
    
  Classes, SysUtils, contnrs, DOM, UXmlHelper, UInterfaces, URectList;


  		





  34
  34
  
    

  		





  35
  35
  
    
type


  		





  36
  36
  
    

  		





  ......




  101
  101
  
    
      if nodeList.Item[i].NodeName = 'Rect' then


  		





  102
  102
  
    
      begin


  		





  103
  103
  
    
        xmlArea := TDOMElement(nodeList.Item[i]);


  		





  
  104
  
    
        x1 := 0;


  		





  
  105
  
    
        y1 := 0;


  		





  
  106
  
    
        x2 := 0;


  		





  
  107
  
    
        y2 := 0;


  		





  104
  108
  
    
        if TryStrToInt(xmlArea.AttribStrings['x1'], x1) and


  		





  105
  109
  
    
          TryStrToInt(xmlArea.AttribStrings['y1'], y1) and


  		





  106
  110
  
    
          TryStrToInt(xmlArea.AttribStrings['x2'], x2) and


  		












Also available in:
	Unified diff