[Dagmanor]

Всем доброго времени суток. Прошу помощи по вот такому вопросу:
Решил сделать небольшой календарик, на форму положил StringGrid и в ячейках вывожу числа. На фоне чисел в каждой ячейке хотел сделать круг

OnDrawCell делаю так:

Код:

with Calendar.Canvas do
 begin
       R:=Rect;
        R.Top:=R.Top+5;
        R.Left:=R.Left+5;
        R.Bottom:=r.Bottom-5;
        R.Right:=r.Right-5;
        Pen.Color:=clHotLight;
        Brush.Color:=clHotLight;
        Ellipse(R);
 
 
   
  end;

Все, в принципе получается, но корявенько как-то. Пробовал применить сглаживание как в этом примере , но тоже не фонтан, плюс очень медленно все отрисовывается...
Подскажите пожалуйста может есть какие-то другие способы нормально сгладить то что нарисовано на канве?

Для написания использую Delphi 7.

[M.A.D.M.A.N.]

Самый наипростейший вариант - цифры картинками с уже заданным сглаживанием сделать, поместить в ImageList и выводить из него.

[Dagmanor]

Согласен, картинки в ImageList-е могут помочь, но все равно тема интересная. Хочется сделать именно сглаживанием.

Для наглядности покажу как получается

[M.A.D.M.A.N.]

Не открывается картинка, залей на fastpic.

[Dagmanor]

http://i60.fastpic.ru/big/2013/1022/...070a0bf70f.jpg

[M.A.D.M.A.N.]

Посмотри здесь:
http://delphiworld.narod.ru/base/gau...ls_shadow.html

[Dagmanor]

Спасибо за помощь. Буду наверное использовать Гауссовское размытие.