| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Ищу функцию, чтобы рисовать на картинке формулы с дробью [D7, WinXP]

Sergey ©   (2009-07-28 21:14:00) 

То есть, чтобы 1/2 было не так нарисовано, а вот так:

1
-
2

ну и более сложные многоэтажные дроби. Существуют такие функции или только самому писать?

---

clickmaker   (2009-07-30 13:25:00) [1]

так это же Chain. "связанные одной цепью"

---

KilkennyCat   (2009-07-30 00:19:00) [2]

> oldman © (30.07.09 00:02) [7]

ага, двойственность я также увидел, похоже, второй явно ошибка.

---

oldman   (2009-07-30 00:02:00) [3]

также смущает

>  Expr       := TExprVar.Create
>  ................
>  Expr           := TExprChain.Create

---

KilkennyCat   (2009-07-29 23:54:00) [4]

> Free - только одно

но оно может уничтожать многое.
меня не
это смущает, меня смущает

> Expr           := TExprChain.Create(Expr);

---

Sergey   (2009-07-29 22:47:00) [5]

> Amoeba ©   (29.07.09 01:54) [4]
>
> Может это устроит?
> http://www.delphikingdom.com/asp/viewitem.asp?catalogid=718


Благодарю вас! :)

Скажите, вот такой код который там используется безопасен?

for i := 0 to High(Arts[Index].Samples) do begin
 Expr       := TExprVar.Create('Пример ' +IntToStr(i+1) +': ');
 Expr.Color := clBlue;
 Expr.AddNext(TExprSimple.Create(Arts[Index].Samples[i]));
 Expr.AddNext(TExprVar.Create(' Результат: '));
 Expr.Next.Next.Color := clBlue;
 Expr.AddNext(Builder.BuildExpr(Arts[Index].Samples[i]));

 Expr           := TExprChain.Create(Expr);
 Expr.Canvas    := Image1.Picture.Bitmap.Canvas;
 Expr.Font.Size := 11;
 Expr.Draw(5, DY, ehLeft, evTop);
 Inc(DY, Expr.Height +5);
 if MX < Expr.Width then MX := Expr.Width;
 Expr.Free
end;


А то, Create много, а Free - только одно.

Просто, попробовал использовать, у меня почему-то компьютер зависает. Причём намертво, так, что только Reset помогает. Вот размышляю, почему.

---

Amoeba   (2009-07-29 01:54:00) [6]

Может это устроит?
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=718

---

KilkennyCat   (2009-07-29 00:00:00) [7]

Существует. Апи математических пакетов. Заумно и тяжеловесно и насчет бесплатности не уверен совершенно. Более не знаю, мельком видел, но не работал.

---

Sergey   (2009-07-28 21:46:00) [8]

> Amoeba ©   (28.07.09 21:36) [1]
> > Существуют такие функции или только самому писать?
> Не теряй времени на поиск того, чего не существует. Придется
> писать самому.


Вроде бы вещь настолько элементарная. Даже на некоторых форумах есть такая примочка, чтобы представлять формулы в виде картинок с нормальными дробями.

Может быть всё-таки существует? ;)

---

Amoeba   (2009-07-28 21:36:00) [9]

> Существуют такие функции или только самому писать?

Не теряй времени на поиск того, чего не существует. Придется писать самому.

---

Наверх