Модуль "Новое сообщение" (часть 4) - spSkinRadioGroup2Click

Рубрика: Исходники
Среда, 21 апреля 2010 г.
Просмотров: 171

последняя версия: 3.0.9 build 961 beta
от 07 декабря 2007 г.

procedure TfrmAT_NewMessage.spSkinRadioGroup2Click(Sender: TObject);
begin
  (*
  case TspSkinRadioGroup(Sender).ItemIndex of
    0: spSkinStdLabel2.Caption:= Format(at_sm_n_text_04,['70']);
    1: spSkinStdLabel2.Caption:= Format(at_sm_n_text_04,['160']);
  end; {case}
  *)
  spSkinStdLabel2.Caption:= Format(at_sm_n_text_04,['0']);
  spSkinMemo1.Clear;
  spSkinMemo1.SetFocus;
end;

Еще записи по теме