[Dhoine313]

Сообщение от Страдалецъ

Что за компонент-то используете?

Сам эффект:

Код:

if loSmoothEffects in Options then
      Info.SizeFactor := 1 - (Info.Distance - NearRadius) / (FarRadius - NearRadius)
    else
    if Info.Distance <= SlotRadius then
      Info.SizeFactor := 1
    else
      Info.SizeFactor := 0;

и процедура

Код:

procedure TFormMcMainForm.CheckBox4Click(Sender: TObject);
begin
  if CheckBox4.Checked then
    McSampleProject1.Options := McSampleProject1.Options + [loSmoothEffects]
  else
    McSampleProject1.Options := McSampleProject1.Options - [loSmoothEffects];
end;