-
Изменений очень много. Цель - уменьшить размер объекта TControl в памяти. Удалось с 1,6 Кбайта до 300 с хвостиком байт, т.е. примерно в 5 раз. Размер кода в итоге сильно не пострадал. В отдельных частях даже выиграл. Могут быть несовместимости. Выкладываю после апробирования на некотором количестве мелких проектов и на одном большом. Просьба смотреть на своих проектах и если что искать баги и исправлять буду.
-
А в SVN это всё будет выкладываться?
-
я с свн не подружился. Tortoise SVN не пошел, Rapid SVN тоже не соединяется, других я не пробовал.
-
жаль. Но все равно - спасибо!
-
Привет
Владимир, давно хотел попросить. Прежде чем вывешивать апдейт, проверьте версии ВСЕХ файлов. Мало того, что Вы иногда не последние версии используете (сейчас, это конкретно visual_xp_styles.inc), так даже в Ваших архивах файлы разные. Кстати, именно этим и хорош SVN.
-
Добавлено
Пока разгребаю версии, позже напишу по поводу компиляции проекта.
-
Кстати, нашел первую сложность. Строю окно (без аппелат, просто форма), помещаю туда Trackbar (компонент из KOLCCtrls), помещаю его в самый низ формы, задаю
Anchor(true,false,true,true);
но при ресайзе формы координата Top контрола почему-то превышает высоту формы. На предыдущей версии KOL всё было нормально.
-
2 Кладовhttp://zalil.ru/29760737 - visual_xp_styles v.1.99 с моими последними изменениями и подгонкой под 3.00. 2 awkwardДумаю Владимир щас ответит, что KOLCCtrls не стандартный компонент KOL и он в него не в ответе 8)
-
Ну почему же уж совсем нестандартный. Но в приоритетах его не держу, добился только, чтобы компилировался и все. Это ведь свежескачанный KOLCCtrls.zip? Все просто: Anchor я не проверял, не хватает строки кода: procedure TControl.SetAnchor(const Index: Integer; const Value: Boolean);
begin
if Value then
fAnchors := fAnchors or Index
else fAnchors := fAnchors and not Index;
if Parent <> nil then
begin
fParent.AttachProc( ParentAnchorChildren );
Parent.fOldWidth := Parent.ClientWidth;
Parent.fOldHeight := Parent.ClientHeight; <- вот этой
end;
end;
-
> Думаю Владимир щас ответит, что KOLCCtrls не стандартный
> компонент KOL и он в него не в ответе 8)
вот только в документации там стоит: (C) by Kladov Vladimir, 2002, 2007
Кстати, теперь возникли проблемы с уничтожением объектов. особенно где есть дочерние контролы и используется CustomObj
-
CustomObj я же не трогал. В чем проблема? В PAS_VERSION пробовали?
-
-
PAS_VERSION только что попробовал, ошибок нет. Возникают лишь в ассемблерной.
-
Осталось придумать на каком маленьком проекте проверить разницу. Сейчас что-нибудь придумаю.
-
Мда. Владимир, ну и обновление. Я даже установить не могу...только с флагами "USE_OLD_FLAGS; CMDACTIONS_RECORD"...как я понимаю отключают Ваши нововведения.
ПОЛНАЯ НЕСОВМЕСТИМОСТЬ С НЕКОТОРЫМИ КОМПОНЕНТАМИ (ДУМАЮ СО МНОГИМИ)!!! В частности, SATabs, QProg и mdvComboBoxEx...ваще не компилятся.
-
ToolbarAddButtons - не работает. Последний параметр не добавляется...
-
Эмм.. простейший проект.. падение при старте.. в районе: Result.Panel1 := NewPanel( Result.Form, esNone ).SetAlign ( caBottom ).SetSize( 0, 25 );
-
ToolbarAddButtons - это новая штука, только для использования вместе с grush. Параметр, в смысле кнопка? Так, проверил, вроде добавляется. Но это если grushcontrols новый. Сейчас выложу свежий.
-
Это если с GRAPHCTL_XPSTYLES.. и с новым visual_xp_styles из 7 поста, а вот без GRAPHCTL_XPSTYLES - вроде работает
-
Проект скомпилить удалось...но от этого не легче.
Директивы: KOL_MCK;GRAPHCTL_XPSTYLES;UNICODE_CTRLS;USE_OLD_FLAGS;CMDACTIONS_RECORD
АСМ-версия:
Вылет при создании в
1. NewImageList -> DoInitCommonControls
Поставил ПАС версию.
В ПАС версии не работает:
2. Free для PWStrList.
3. TDirList.ScanDirectory
Это пока
|
Есть новые 
Нет новых [120345 +11][b:0.001][p:0.002]