procedure OnSettingInit;
begin
  cbbUnits.ItemIndex:=GetSettingInt('UnitIndex',0);
end;

//--- Widget设置窗口关闭事件，当按下设置窗口的确定按钮时会触发此事件 ---
//通过设置返回值来改变是否允许确认,当result为False时不关闭设置窗口
function OnSettingClose(iResult):boolean;
begin
  result:=true;
  SetSetting('UnitIndex',cbbUnits.ItemIndex);
end;

