обнаружил неприятную вещь - утечка памяти метода Draw. Т.к. прогер из меня никакой :) , решил заменой на Canvas.CopyRect

забыл добавить, что рисую на форме в таймере бмпшку 80х80х32 250 раз в секунду (ну надо мне так).

Можно код где есть утечка? И чем обнаружил?

код обычный: битмап.Draw(
Обнаружил FastMM4-кой.

И сейчас обнаружил утечку 20 байт при загрузке PNG из потока (KOLGraphicEx.pas)

Это баг KOLGraphicEx, там и надо смотреть видимо. Есть еще TinyPng из GrushControls.

Народ, я уезжаю на месяц, связи не будет, в сентябре приеду.

юзал tinyPNG и tinyJPGGIFBMP пока не надоели утечки по килобайту. FastMM место не показал, я в коде не разобрался. JpegObj работает отлично.

попался ещё один баг:
PBitmap.Canvas.Arc вылетает с ошибкой где-то в памяти. Вызов напрямую windows.Arc работает.

Я про это уже писал (TCanvas.Arc). Привет, кстати. Пример на баг TBits есть? Первый жень после возвращения некогда было даже в инет выйти.

привет
примера нет - опять потерял проект (или отложил или удалил), что делал не помню. Видимо использовал какой-то компонент, который использовал koladd

в Turbo Delphi не хочет компилироваться KOL.pas если установить UNICODE_CTRLS до тех пор пока не установим еще и FORCE_ALTERNATEFILENAME, ошибка в 23405:



ошибка:
[Pascal Error] KOL.pas(23405): E2010 Incompatible types: 'TStrList' and 'TWStrList'

Еще такой баг, или я что-то не так делаю:
делаю

потом такой код:


и после этого ListView1 по размерам уходит далеко-далеко вправо и вниз, это касается не только ListView1. если в Anchor установить только вертикальные(top, bottom) значения в true, то размер "уйдет" только вниз, соот-но для left/right
Что посоветуете? Все таки Anchor довольно нужная штука, не всегда удобно align использовать.

2 Ruzzz
Добавка форс_алтнейм - это мое, но тока видимо D[u]fa добавил не правильно. Вот как должно быть:

> Пример на баг TBits есть?
подключаю kolAdd, сразу 6 ошибок.

Символы
{$DEFINE ASM_VERSION}
{$DEFINE NO_DEFAULT_BUTTON_BOLD}
{$DEFINE NOT_USE_RICHEDIT}
{$DEFINE CRASH_DEBUG}{$DEFINE DEBUG_GDIOBJECTS}{$DEFINE CHK_BITBLT}

Тестовый проект?

FORCE_ALTERNATEFILENAME исправлено и залито. C kolAdd ошибок нет

www.dy.cdrrhq.ru/t2.rar
весь тестовый проект - подключение koladd, как я и говорил.

2 Dy1
Странный Вы все-таки...или такой "уникальный", что находите себе на причинное место приключения там где их нет... На кой ляд Вы {$DEFINE ASM_VERSION} добавили? Она по умолчанию выставляется...

Гы. Чую, придется мне извиниться...{$DEFINE ASM_VERSION} не подхватывается в D2007 для KOLadd.pas...

А правки следующие:
1. Стр. 1136
 MOV  EAX, [EAX].TBitsList.fItems
2. Стр. 1309
 MOV  ECX, [ECX].TBitsList.fCapacity
3. Стр. 1330
 MOV  EAX, [EAX].TBitsList.fItems
4. Стр. 2275
       CALL     TObj.Final
5. Стр. 2343
       CALL     TObj.Final

Исправлено, 4 и 5 пункты под вопросом - заменены на TObj.Destroy

файл KOLadd, строка 2227, Заменил Path: AnsiString на KOLString, иначе при использовании UNICODE_CTRLS выдает ошибку что "не совпадает с предыдущим описанием"



и действительно: строка 459

Здесь Path: KOLString уже не AnsiString

Под Delphi 2006/Turbo Delphi при использовании UNICODE_CTRLS
в unit KOLXPMenus;
выдает ошибку
[Pascal Warning] KOLXPMenus.pas(225): W1044 Suspicious typecast of string to PWideChar

вот это участок кода:
function TXPMenu.TextExtent(const Text: string): TSize;
var
 DC: HDC;
begin
 DC := CreateCompatibleDC( 0 );
 SelectObject(DC,FFont.Handle);
 GetTextExtentPoint32( DC, PKOLChar(Text), Length(Text), Result); // <<<
 DeleteDC(DC);
end;

Text нужно изменить с string на KOLString?

проблемы в KOLReport c юникодом

добавил в KOL_unicode.inc строку PDevMode = PDeviceModeW;
и изменил немного эти файлы:
KOLReport, KOLPrinters, KOLPageSetupDialog, KOLPrintCommon
вот: http://narod.ru/disk/12928534000/KOL_printers.7z.html

У меня такой вопрос, получается что и в MCKReport репорт нужно бы string поменять? но это же IDE, как сама IDE нормально будет это воспринимать? И что если ansi оставить, что тогда будет заносится в свойства при включенном юникоде? чета я не пойму :)

KOLRarProgBar не поддерживает метод SetUnicode, потому что наследуется не от TControl а от TObj

> Text нужно изменить с string на KOLString?
Ну, уж тогда:


При условии, что где-то объявлено, что GetTextExtentPoint32 при UNICODE_CTRLS = GetTextExtentPoint32W и GetTextExtentPoint32А в ином случае...

> KOLRarProgBar не поддерживает метод SetUnicode, потому что наследуется не от TControl а от TObj
В то время когда этот компонент писался KOL не не держал еще UNICODE. А нафига он Вам ваще нужен?

2 Ruzzz
Почти ВСЕ КОМПОНЕНТЫ надо подправлять под UNICODE_CTRLS. Лично у меня есть некоторые правленные, но их мало.

Если склероз не изменяет, то 100%, из "серьезных" для меня, только ATL. Кое-какие из новосозданных SATabs, QProgressBar и некоторые другие... Т.к. не надо флудить по каждому компоненту.

З.Ы. А с KOLReport, кажись и без юникода траблов хватало...

Дополнение
Там не только надо юникод править. Там и кое-что, скажем так, после изменений в "ядре" KOL'а надо править, и поддержку новых версий Дельфи тоже надо править.

Никто не будет этим заниматься направленно. По мере необходимостей будут появляться некоторые правленные версии...

Я понял, действительно для юникода многое не готово, но по мере использования буду помечать это все и потом переодически постить здесь.

Хорошо бы еще потом список исправлений одним файлом (хотя бы текстовым), или ссылку на место с правленым архивом. Большая просьба (я надеюсь, все в порядке, но все же): по возможности не переставляйти местами блоки кода - чтобы можно было сравнивалкой изучать различия. (А вот мне UNICODE практически редко-редко нужен).

По моему просто нужно пройтись по всем модулям и заменить PChar на PKOLChar и String на KOLString, а также все то что берется из windows внести также и в unicode.inc

Тогда желательно еще  в функциях по обработке строк, которые специально работают с PChar и String как с ANSI сделать замену на PAnsiChar и AnsiString.

2 Ruzzz - если бы можно было все заменить на KOLChar, мы бы это 2 года назад проделали. Каждый раз надо смотреть и проверять, и заменять не бездумно, а править окружающий код. Так что дальнейшие изменения по unicode делаются по мере надобности, и в основном теми, кому надобно. С последующим слиянием.

Да, я это понимаю. Я не правильно выразился, конечно не все так просто, нужна проверка.

Прошу прощения за оффтоп, но всё же:
svn://nekki.ru/kolnmck
уже не работает?

Нормальный такой спам, мутировавший...

может и не баг, но замечание

при использовании TKOLIB, в частности делаем backup базы по Firebird 2.1
в методе TIBBackupService.SetServiceStartOptions после вызова GetConnectString следует в названии БД оставить только путь, а имя сервера удалить, иначе вызовет ошибку:

KOLIB не входит в KOL Как основная часть, это дополнительный компонент. Я так его ни разу и не загружал.

Обнаружена проблемка с mainmenu в турбо-дельфи.

В design-time при изменении меню, а также вставке из буфера обмена готового меню из другого проекта, ни меню, ни его пункты вообще не отображаются на форме. Более того, при вставке из буфера обмена меню не попадает в inc-файл, потому как вставив меню и сохранив проект, после компиляции запуская полученный exe и в нем меню не отображается. Помогает только добавление и удаление пункта меню после вставки из буфера обмена. После этого меню нормально создается в exe.

Были еще проблемы с жуткими тормозами от постоянной отрисовки некоторых сторонних контролов, но это успешно решили, а также переделано изменение кода не в файле, а прямо в редакторе. Осталась проблема с меню - бьемся весь день - не отображается, собака. Хотя вплоть до Д7 нормально отображалось.

Также невозможно увидеть форму старого проекта (например из Д5/Д7) при загрузке его в турбо-Д. Приходится старые проекты переделывать ручками. Иногда ТД сыплет ошибками, что не знает что такое new, create и прочие очевидные вещи, но компилирует нормально... Если честно, мне эта "лицензионная халява" начинает надоедать своими проблемами.

Небольшая правка TIcon.

procedure TIcon.LoadFromStream(Strm: PStream);
...
 function ReadIcon : Boolean;
....
        if BIH.biBitCount = 16 then
      begin
        if BIH.biCompression = BI_BITFIELDS then Stream2Stream(Mem, Strm, 12)
        else
          for I := 0 to 2 do
          begin
            J := InitColors[ I ];
            Mem.Write( J, 4 );
          end;
      end;

Жирным - то что добавил. Без этого исправления пропадает палитра, ну и картинка сдвигается.