Вверх ↑
Ответов: 4628
Рейтинг: 749
#1: 2014-05-08 12:10:00 ЛС | профиль | цитата
Осмелюсь применить свой Share.pas к указанным элементам: transform ns proba.7z
Отличия:
- в share.pas внесены универсальные изменения, а не чисто под трансформации
- как следствие, функции ReadTransform и dtTransform заменены на ReadObject и dtObject. В Img_Draw.pas генерируется "GUID" для типа PTransform.
- объявление типов TTransformXXX и функция CreateTransform перенесены из share.pas в Img_Draw.pas как в модуль, используемый всеми компонентами графики (прописал также в некоторых hiImg_UseXXX.pas).
[offtop]Посмотреть отличия можно в TotalCommander - "Синхронизировать каталоги", а затем по каждому файлу "Сравнить по содержимому"[/offtop]

И ещё: есть применение функции CreateTransform для выделения памяти под структуру TTransform. Нигде не увидел освобождения этой памяти.

PS: Img_MultiText не работает под FPC. Исправить строку 94:
while GetTextExtentPoint32(DC, PChar(st.items[i]), Length(st.items[i]), SizeFont) and (i <= st.Count) do

карма: 26

1
Голосовали:sla8a