С наступающим Новым Годом!

Новости от 31 декабря 2010 (KOL & MCK v3.04)

Обратите внимание, что в данной версии изменилась декларация структуры TMsg. Из-за этого компилятор может отказываться воспринимать ранее назначенные обработчики события OnMessage. Для исправления ситуации достаточно заменить ссылки на тип tagMsg типом TMsg. Для проектов MCK такое исправление будет выполнено автоматически при загрузке (не забудьте сначала сделать ребилд пакета MCK !).

[+]
Добавлена собственная декларация типа TMsg, с расшифровкой кода сообщения в виде перенумерованного типа TMessageDecode (упрощает отладку, позволяет сразу видеть имя оконного сообщения при наведении на переменную типа TMsg или при показе ее значения в Watches).
VK
[+]
TImageList: добавлено свойство OverlayIdx, упрощает рисование иконок с оверлеем.
VK
[+]
TControl (toolbar): добавлена функция TBBtnEvent, позволяет получить обработчик события, назначенного на отдельную кнопку toolbar-контрола.
VK
[+]
TControl (toolbar): добавлена функция TBBtnTooltip, позволяет получить значение тултипа, назначенного на кнопку toolbar-контрола.
VK
[+]
TControl (form): добавлена функция CenterOnForm, позволяет центрировать одну форму относительно другой.
VK
[*]
TDirList: небольшие оптимизации размера кода.
VK
[-]
TControl (USE_MH_TOOLTIP): исправлено падение при удалении контрола в динамике (тултип пытался освободиться дважды).
VK
[*]
TControl (DefaultBtn, CancelBtn): небольшая оптимизация размера кода.
VK
[*]
Так же, изменены внутренние названия некоторых полей (fOnChange -> fOnChangeCtl, fOnGTChange, fOnChangeCanvas).
VK
[-]
TControl (ImageShow): исправлено присваивание начального значения для индекса изображения CurIndex.
VK
[+]
DirDlgEx (KOLadd): добавлено центрирование диалога ShowQuestion относительно активной формы приложения.
VK

And a Very Happy New Year to you too. Thank you for everything that you have done for the KOL community this year.

Looks like you forgot to include an updated KOL_ASM.inc in the KOL v3.04 archive:

You are right, Jon, forgot it. Just updated kol.zip on site.

А почему в последней версии нет сортировки TWStrListEx с учетом объектов? в TStrListEx она присуствует

Вы хотите сказать, что оно было раньше, и я его убрал? Такое вряд ли. Скорее, я редко пользуюсь WStrListEx и unicode. Скопировать недолго. Ну, я положил 3.04+, с этой сортировкой. Проверьте.

Я не говорю, что оно было раньше, просто в той версии кода не было :) Спасибо!

Delphi 2009, KOL 3.04 Не подсвечиваются строки.

procedure TForm1.Logger(RichEdit: PControl; AMsg: String; AColor: TColor; ABold: Boolean);
var
 I: Integer;

begin
 AMsg := AMsg + sLineBreak;
 RichEdit.SelStart := RichEdit.RE_TextSizePrecise;
 I := RichEdit.SelStart;
 RichEdit.Selection := AMsg;
 RichEdit.SelStart := I;
 RichEdit.SelLength := Length(AMsg);
 RichEdit.RE_FmtFontColor := AColor;
 RichEdit.RE_FmtBold := ABold;
 RichEdit.SelLength := 0;
end;

Logger(RichEdit1, 'Green bolded line', clGreen, True);
Logger(RichEdit1, 'Red line', clRed, False);

Обновил 3.04++++ (KOL.zip)

Скажите пожалуйста Где можно скачать 3.04++++ (KOL.zip)
может чего не понял;)

Вижу KOL v3.04  31.12.2010  598K

а где 3.04++++ (KOL.zip)

Мой пардоны это он и был;)

Выложил 3.05. Т.к. ничего практически нового, кроме исправлений в основном, версию 3.04 не оставляю на сайте.

Новости от 10 января 2011 (KOL & MCK v3.05)
[+]
Добавлены процедуры Swap и Sort для WStrListEx, для сортировки с учетом объектов, прикрепленных к строкам - по аналогии с StrListEx.
VK
[*]
TControl.Delete применима теперь к list view (ранее требовалось использовать LVDelete)
VK
[+]
TDirList.InsertItem - для добавления собственных элементов в DirList.
VK
[-]
Исправлено программное выделение текста в мемо и edit box'е.
VK
[-]
Исправлена быстрая версия функции AnsiCompareStrNoCase.
VK
[-]
Исправлено свойство RE_URL для rich edit.
VK
[-]
Исправлено позиционирование формы по умолчанию (asm версия)
VK
[-]
Исправлено раскрашивание текста в rich edit.
VK
[-]KOLadd
Исправлен TBits - установка бита за пределами массива не меняла размер "массива".
VK

Обновил до 3.05+:

Исправление AnsiCompareStrNoCase было чуть неудачным, поправил. Теперь (вроде бы) стало совсем правильно.

VK, а в каком плане неудачным?
И еще хотел узнать, есть ли новая версия книги по КОЛу? или хотя бы 3.0 версия в doc формате.. а то на сайте старая.. (pdf не в счет)

Не достигалась цель, значит была неудачная. Изменение одной цифры в индексе все исправило.

Книгу я еще осенью обновил, после выхода 3.00. Из всех новшеств можно было бы добавить, что Delete теперь работает для ListView, но и LVDelete работает так же. Все остальное соответствует вполне.

Вышла версия 3.06:

Новости от 21 января 2011 (KOL & MCK v3.06)
[-]
Для Tab Control-а, исправлены установка свойства Color и получение прямоугольника панели.
VK
[*]
С опцией FILE_EXISTS_EX, проверка существования файла в функции FileExists происходит с подавлением сообщений об ошибках (отсутствие флоппи-диска).
VK
[*]
Для NewThreadAutoFree, обеспечивается вызов CloseHandle.
VK
[-]
Исправлено: свойство Visible не работало в обработчике события OnShow формы.
VK

Да, если кому не лень потестировать, выложил маленький файловый командер: http://kolmck.net/apps/ColumnCmdr.zip

Иконки медленно и не всегда отображаются
Языки почему то не подгрузились
Надписи на кнопках не особо читабельны из-за размера
Имена файлов\папок\винтов в панеле не влезают
Размер свободного места красиво сделан - но глючит (после нескольких нажатий на диск д, его шкала пропала вместе с текстом)

ну и 2 панельки привычнее все таки

норм программа ColumnCmdr, но мне все же привычней табличный вид :)

Будет и табличный вид (немного не так в listview - в 2 строки), но позже. В первую очередь делаю то, что мне нужнее. Всю жизнь еще с 95 виндов всегда вынужден был переключать в режим Список. Достало уже, особенно доставать стало в семерке, где просто не запоминает вид для всех папок. Как только Проводник видит avi-файл или картинку, автоматом переключает в режим эскизов.

Двухпанельность - мне не нужна. Есть Ctrl+Tab или системное меню New window, или открытие директории с шифтом в новом окне. Сколько надо, столько и будет окон. Двухпанельные менеджеры мне неудобны, заслоняют весь экран.

Глюки возможны, С языками я немного ошибся в нумерации, лучше пока языковые файлы грохнуть. Все равно локализация еще только начата. Надписи нечитабельны - на каких кнопках - слева, что ли? Там не надо читать ничего, это так, декорация. Или на обычных кнопках?

Хотя глюк с пропаданием диска - это вообще из фантастики. Как этого можно добиться - не представляю. Диск д - это что? СД? Жесткий? Флэшка? Я надеюсь, вы его не переименовали... А то я забыл на верхнем уровне убрать 1-секундное меню по долгому удержанию левой клавиши мыши :)

Д это жесткий. Вот картинка http://s2.ipicture.ru/Gallery/Viewfull/3214354.html

Dufa Можно вопрос: вы картинку сразу сделали, или так несложно добиться этого эффекта повторно? (Если не секрет, то как).

Со шрифтами правда странно, что они не вытянуты в ширину. У вас Arial неправильный в системе? (Или это вообще не Windows, а что-то иное?)

Запускаю прогу с диска Д, выхожу в самый корень кнопкой вверх. Сначала все норм, потом начинается пересчет свободного\занятого места и происходит глюк

Ариал самый обычный, тема не стандартная

Но на уровне Компьютер нет перерасчета, данные по диску берутся из GetDiskFreeSpace. Перерасчет - это когда в скобках мелькает (..:) -> (:..) -> (.:.), это для директорий.

Должно быть примерно так (со шрифтами): http://s1.ipicture.ru/uploads/20110122/R3VTLTvK.png

А вот, например, если в KOL-программе шрифту поменять FontWidth, у вас никакой реакции не наблюдается на компе? Со всеми шрифтами? На true type и вообще на масштабируемые должно бы действовать.

Кстати, перезалил и архив с программой. Локализацию почти закончил, хотя еще не все на русский перевёл.

> Достало уже, особенно доставать стало в семерке, где просто
> не запоминает вид для всех папок. Как только Проводник видит
> avi-файл или картинку, автоматом переключает в режим эскизов.

меня всегда умиляли програмисты которые сами не могут пользоваца тем,для чего они программируют :D
а пытаюца заполнить пробелы в своих знаниях непонятными глюкавыми поделками

чтобы проводник этого не делал надо потратить всего две минуты на настройку
и при этом даже не используеца редактор реестра!!! :)

Не знаю глюк или не глюк, но столкнулся в компоненте TabControl.
Не прорисовываются компоненты на активной закладке.
Ложим в MCK\KOL-проект на форму TabControl (Align=caClient) и добавим одну закладку (Count=1, Caption='Тестовое');
Положим для примера кнопку (TKOLButton), по нажатии на которую будут добавляться закладки

Напишем, допустим,следующий код в OnClick кнопки:

procedure TForm1.Button1Click(Sender: PObj);
var
 i,n:Cardinal;
 Page:TKOLTabPage;
 Panel:TKOLPanel;
 Edit:TKOLEditBox;
 ListView:TKOLListView;
begin
 n:=TabControl.Count;
{  Page:=TabControl.Pages[0];}
 Page:=TabControl.TC_Insert(n,'Тестовое2',0);
 TabControl.CurIndex:=n;                              {*}
 Panel:=NewPanel(Page,esNone);
 Panel.Align:=caTop;
 Panel.Height:=40;
 Edit:=NewEditBox(Panel,[]);
 ListView:=NewListView(Page,lvsDetail,[],nil,nil,nil);
 ListView.Visible:=true;
 ListView.Align:=caClient;
end;

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

P. S. Если перенести строку {*} в конец процедуры - то все отображается нормально. Но аналогичная проблема свуществует, если закладку не добавлять, а рисовать на активной.

Забыл добавить, версия 3.06

Удалено модератором

Еще обнаружен глюк при использовании компонента MainMenu в версии 3.06 (в остальных не проверю).
Если создать меню проекте KOL\MCK, затем распахнуть окно на весь экран, затем минимизировать на панель задач, затем востановить с панели задач, то востановление происходит в обыную форму, а не распахнутую на весь экран. При использовании других компонентов данный глюк не обнаружен.

По первому вопросу. Созданному контролу надо сказать CreateWindow или GetWindowHandle. Само не создастся, если не вызывался код, приводящий к созданию окна (например Perform). Это было и в ранешних версиях, всегда.

Про MainMenu и восстановление не в максимум проверьте еще раз. Пока эффект не замечен, на тестовом проекте. Посмотрел под Win 7, в asm и в pas-версиях, восстанавливается в максимум.

По второму вопросу - Delphi 7, Винда XP SP3, глюк воспроизвелся на аналогичной машине, на других системах воспроизвести глюк в ближайшем будущем нету возможности ...

Забыл уточнить еще одну деталь, данный глюк с MainMenu случается при наличии на форме компонента KOLApplet, без него вроде как все в порядке

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

Установите форме MinimizeNormalAnimated = true.

> Да, если кому не лень потестировать, выложил маленький файловый
> командер: http://kolmck.net/apps/ColumnCmdr.zip


I just tried v1.0f and it is a very nice start. Keep us updated on the progress.

Сейчас скачал 3.06+, создал NewStrList и сделал .Sort(False), программа выдала ошибку: в ассемблерной функции Sort программа натыкалась на fList.Count, а fList при этом = nil. Я не разобрался до конца с ассемблером, похоже, там сравнение if Count > 1 то ли отсутствует, то ли обрезано, в общем, не работает.

program Project1;

uses
 KOL;

var sl: PStrList;

begin
 sl := NewStrList;
//  sl.Add('1');
 sl.Sort(False);
 ShowMessage('1');
end.

В 3,07 то же самое.

SPEED_NORMAL добавьте в опции.

Не совсем понятно следующее:
В MainMenu есть набор примерно одинаковых по обработке пунктов меню с небольшими отличиями(Например структура файлов одинакова и значит обрабатывать их можно одинаково - различие допустим в названии файла). Что бы не заморачиваться с обработкой, выставляю свойство Tag у пуктов меню и отправляю на один и тот же обработчик. Что то вроде:




Так вот, с Caption все нормально получается, а вот Tag всегда равен нулю.

Данное наблюдается в Delphi7, WinXP как в ассемблерной так и паскалевской версии.

Ничего удивительного, Sender всегда само меню. Для доступа к тагу пункта меню надо его взять:

Самое удивительное, что взял меню присвоил Tag, опять нуль приходит!

ОЙ, вру, все нормально. Я забыл пересобрать проект.

Santa, Есть вариант еще проще. У меню назначаешь обработчик OnMenuItem и в нем:

> program Project1;
>
> uses
>  KOL;
>
> var sl: PStrList;
>
> begin
>  sl := NewStrList;
> //  sl.Add('1');
>  sl.Sort(False);
>  ShowMessage('1');
> end.


Можно исправить так:

Ну это на все меню хорошо, если оно почти одинаковое. А если две разные структуры надо реализовать на разные части, то по сути эта процедура будет состоять как бы из двух логических частей, что смысла в таком случае все сводить в одну процедуру не вижу. Хотя дела вкуса.

procedure TForm1.MainMenuN200Menu(Sender: PMenu; Item: Integer);


Тогда почему не юзать Item? =)