Конференция "KOL" » Будет ли работать сайт KolMck.net?
 
  • An a Student (01.12.16 01:39) [40]
    Я так понял гость предлагал поискать Тедди на https://web.archive.org/web/...
    Не помню где была офф.страница, напомните?

    Попытался найти на https://web.archive.org архивную копию http://kolmck.ru - не было - "архивов 0". Через сутки написало "архивов 1", но всё равно не открывает... Кто умеет, задвиньте ему как там нужно...
  • Awkward © (01.12.16 23:04) [41]
    А что Taddy? http://members.chello.nl/t.koning8/ у него живо с сырцами, вроде. что ещё у него могло быть?
  • RusSun © (02.12.16 18:39) [42]

    > вроде. что ещё у него могло быть?

    Что могло быть знает Гость.
    ...
    были же и более ранние, которые после не выкладывались.
    через https://web.archive.org не найти потому, что для web.archive.org
    это единичные сохранения. В отличие от http://kolmck.ru

    > http://kolmck.net/
    > Saved 114 times between ноября 16, 2006 and мая 11, 2016.
    > PLEASE DONATE TODAY. Your generosity preserves knowledge for future
    > generations. Thank you.
  • An a Student (06.12.16 08:55) [43]
    Что-то пытаюсь отправить сообщение - и не выходит. Молча открывается корень ветки и всё... Не понятно из-за чего... Так, а если ток последние два предложения...

    На данный момент входить надо по такой ссылке: http://web.archive.org/web/20161206042443/http://kolmck.ru/index.html
    Я основные страницы уже сохранил, остальное не знаю как автоматом делать, руками будет долго и с ошибками...
  • Dimaxx © (11.01.17 23:53) [44]
    У кого есть доступ для правок к https://sourceforge.net/p/kolmck/code/HEAD/tree/?

    В TBitmap.RLESaveToFile в функции WriteBitmap надо исправить утечку:

    Buffer := AllocMem( Width );
    for y := Height-1 downto 0 do
    begin
     Line := ScanLine[y];
     x := 0;
     while x < Width do
     begin
       Buffer[x] := Line^ shr 4;
       inc( x );
       if  x >= Width then break;
       Buffer[x] := Line^ and 15;
       inc( x );
       inc( Line );
     end;
     MS.Write( Buffer^, Width );
    end;
    MS.WriteVal( 0, 2 );
    FreeMem( Buffer ); <--- без этой строки - утечка
  • Vladimir Kladov © (13.01.17 20:55) [45]
    kolmck.ru - это свежевыложенное зеркало, для доступа к нему не нужна машина времени. Старая версия - это kolmck.net.
  • Dimaxx © (14.01.17 12:54) [46]
    Выложенный код на sourceforge не компилируется под FPC 3.0. Для работоспособности в KOLDEF.inc надо сделать изменения:

    {$IFDEF FPC}
    {$MODE DELPHI}  <------------------------ добавить
    {$ASMMODE INTEL}  <--------------------- добавить

    {$DEFINE PAS_ONLY}
    {$DEFINE USE_OLD_FLAGS} //size of set type in fpc is 4 bytes
    {------------------------------------
    by Thaddy de Koning:

    FPC version 2.1.1 is very compatible with Delphi and kol now.
    You can simply use the $(DELPHI)\source\rtl\win\*.pas files from Delphi 4/5 instead of the prepared files that were needed for
    FPC1.X

    That is all to have full compatibility.
    ------------------------------------}
    {$DEFINE PAS_VERSION}
    //{$IFDEF VER2}  <------------------------ отключить
    {$DEFINE _D3orHigher}
    {$DEFINE _D4orHigher}
    {$DEFINE _D5orHigher}
    {$DEFINE _D6orHigher}
    {$DEFINE _D7}
    {$DEFINE _D7orHigher}
    //{$ENDIF}  <----------------------------- отключить
    {$ENDIF FPC}


    После правок код рабочий в 32/64.
  • Dimaxx © (14.01.17 13:31) [47]
    Либо сделать как предложил Thaddy здесь http://pda.delphimaster.net/?id=1464765728&n=10
  • DKOL (14.01.17 13:44) [48]
    Dimaxx, А как лучше то? Не использую фпц, нет возможности проверить
  • Dimaxx © (14.01.17 16:51) [49]
    В варианте Thaddy можно использовать и старые версии FPC. Ток в вышенаписанном мною забыл добавить после {$DEFINE _D7orHigher} строки

    {$DEFINE _D2005orHigher}
    {$DEFINE _D2006orHigher}
    {$DEFINE _D2007orHigher}
  • Dimaxx © (15.01.17 01:38) [50]
    Кстати, в свое время Владимир говорил про то, что приходилось выбрасывать лишнее в KOLadd из-за того, что KOL.pas превышал 65к строк. Так вот KOL.pas надо основательно почистить - там море пустых строк, закомменченного кода + последовательное объявление переменных в объектах одинакового типа можно свести в одну строку. Ну и желательно отформатировать код для аккуратного вида.
  • DKOL (18.01.17 11:02) [51]
    Dimaxx, добавил вариант от Thaddy(без проверок), чтоб можно было и старые версии использовать.

    Выкинуть мусор и отформатировать код было бы не плохо.. Но, например, для меня:


    > последовательное объявление переменных в объектах одинакового типа можно свести в одну строку.


    и


    > отформатировать код для аккуратного вида


    Взаимоисключающие вещи :)
  • Dimaxx © (18.01.17 21:03) [52]

    > Dimaxx, добавил вариант от Thaddy(без проверок), чтоб можно
    > было и старые версии использовать.

    {$MODE DELPHI} и {$ASMMODE INTEL} надо добавлять обязательно - не компилируется.


    > Взаимоисключающие вещи :)

    Ну так приходится чем-то жертвовать. Кстати, там в некоторых местах в record'ах так уже сделано.
  • DKOL (30.01.17 12:13) [53]

    > надо добавлять обязательно


    Добавил, будет время - проверьте


    > Ну так приходится чем-то жертвовать. Кстати, там в некоторых
    > местах в record'ах так уже сделано.


    Сейчас общий вид форматирования представляет кашу.. Да и редактор кода тупит для KOL.pas
  • Dimaxx © (27.02.17 22:01) [54]
    Неверно работает свойство контрола AnchorBottom, если он лежит, к примеру, на GroupBox - по идее должен привязываться к границе родителя (GroupBox), а он привязывается к форме. В итоге нижняя граница контрола находится на уровне нижней границы GroupBox.

    К сожалению в анчорах не силен, поэтому как поправить не знаю.
  • Dimaxx © (27.02.17 22:09) [55]
    A AnchorRight работает верно, но увеличивает ширину на лишние 2 пикселя.
  • Dimaxx © (01.03.17 15:44) [56]
    Вдогонку: непонятно как работает создание контрола - настраиваю шрифт у KOL-формы и шрифт по умолчанию у KOLProject. Кидаю на форму GroupBox - он наследует шрифт формы. Кидаю кнопку или метку - шрифт другой. Хотя в дизайнере шрифт верный и все верно отображает.
  • DKOL (14.03.17 16:49) [57]

    > Неверно работает свойство контрола AnchorBottom, если он
    > лежит, к примеру, на GroupBox - по идее должен привязываться
    > к границе родителя (GroupBox), а он привязывается к форме.
    >  В итоге нижняя граница контрола находится на уровне нижней
    > границы GroupBox.


    А есть ли такой же баг если использовать Panel вместо GroupBox.

    У GroupBox есть еще глюк со шрифтом - если в GroupBox кинуть другой GroupBox то шрифт искажается
  • sheleh (17.03.17 20:55) [58]
    То то я думаю, что за фигня. Пишу альтернативу explorer.exe
    Екзешник маленький 72Кб, а памяти отжирает 40 мб. Надо было изучать С

    https://yadi.sk/d/N1zyD3fpfSQAG
  • Dimaxx © (18.03.17 00:47) [59]
    KOL жрет столько же, сколько и VCL. Доп. отжирание зависит от запросов в коде. И не факт, что тот же код на Си будет жрать меньше.
 
Конференция "KOL" » Будет ли работать сайт KolMck.net?
Есть новые Нет новых   [118648   +58][b:0][p:0.001]