
procedure SetRectProperty(var value:string; aLeft:integer; aTop:Integer; aWidth:integer; aHeight:Integer);
var
  lst:TStrings;
begin
  if Trim(value)='' then exit;
  lst:=TStringList.Create;
  try
    StrToStrings(value,lst,'/');
    if lst.Count>3 then
    try
      lst[0]:=IntToStr(aLeft);
      lst[1]:=IntToStr(aTop);
      lst[2]:=IntToStr(aWidth);
      lst[3]:=IntToStr(aHeight);
      value:=StringsToStr(lst,'/');
    except
    
    end;
  finally
    lst.Free;
  end;
end;

procedure GetRectProperty(value:string; var aLeft:integer; var aTop:Integer; var aWidth:integer; var aHeight:Integer);
var
  lst:TStrings;
begin
  if Trim(value)='' then exit;
  lst:=TStringList.Create;
  try
    StrToStrings(value,lst,'/');
    if lst.Count>3 then
    try
      aLeft:=StrToInt(lst[0]);
      aTop:=StrToInt(lst[1]);
      aWidth:=StrToInt(lst[2]);
      aHeight:=StrToInt(lst[3]);
    except
    
    end;
  finally
    lst.Free;
  end;
end;

procedure narrow;
var 
	inifn:TIniFile; 
	s:string;
	iTop,l,t,w,h,i:integer; 
begin
  try
    inifn:=TIniFile.create(SkinFileName);
    with inifn do
      begin
      s:=ReadString('Item0','Rect','0/0/351/241/');
      GetRectProperty(s,l,t,w,h);   
      w:=w-20;
      SetRectProperty(s,l,t,w,h);  
      WriteString('Item0','Rect',s);

      s:=ReadString('Item2','Rect','283/6/61/13/');
      GetRectProperty(s,l,t,w,h);   
      l:=l-20;
      SetRectProperty(s,l,t,w,h);  
      WriteString('Item2','Rect',s);
      end;
    InitSkin; 
    RefreshSkin(true);
  finally 
    inifn.free; 
  end;
end;

procedure bighearted;
var 
	inifn:TIniFile; 
	s:string;
	iTop,l,t,w,h,i:integer; 
begin
  try
    inifn:=TIniFile.create(SkinFileName);
    with inifn do
      begin
      s:=ReadString('Item0','Rect','0/0/351/241/');
      GetRectProperty(s,l,t,w,h);   
      w:=w+20;
      SetRectProperty(s,l,t,w,h);  
      WriteString('Item0','Rect',s);

      s:=ReadString('Item2','Rect','283/6/61/13/');
      GetRectProperty(s,l,t,w,h);   
      l:=l+20;
      SetRectProperty(s,l,t,w,h);  
      WriteString('Item2','Rect',s);
      end;
    InitSkin; 
    RefreshSkin(true);
  finally 
    inifn.free; 
  end;
end;


begin
   
end.