-
Новости от 2 февраля 2011 (KOL & MCK v3.07)
[-]
исправлен TCanvas: если Canvas был создан функцией NewCanvas на основе существующего DC, возникали проблемы из-за освобождения DC, которое фактически не должно принадлежать объекту канвы для рисования в этом случае.
VK
[+]
TControl.MakeWordWrap теперь работает также для checkbox-а и radiobox-а.
VK
[+]
KOLAdd: добавлено событие TDirChange.OnExecute (только с символом DIRCHG_ONEXECUTE). Позволяет выполнить свой кусок кода в начале работа нити, когда она только стартует.
VK
[-]
KOLAdd: TDirChange - устранен возможный дэдлок на завершении приложения.
VK
[-]
KOLAdd: ShowQuestion / ShowQuestionEx: не вмещались кнопки в окно в теме Аэро. Исправлено переходом от Width к ClientWidth.
VK
[-]
KOLDirDlgEx: OnMouseDblClick не работал для всех опций компиляции, в результате не было возможности выбрать листовую директорию двойным кликом.
VK
[-]
KOLDirDlgEx: удаление ссылок в левой панели реализовано через правый клик мыши по кнопке линка.
VK
[+]
KOLDirDlgEx: добавлено пересканирование узла дерева при его выделении (упрощает обновление дерева при наличии изменений, если диалог уже использовался.
VK
[*]
Метод TStrList.IndexOfName_old переименован обратно в IndexOfName, новая версия IndexOfName переименована в IndexOfName_NoCase.
VK
[+]
С новой опцией FIX_ITALIC_TEXT_WIDTH, к вычисленной ширине текста добавляется 1/4 его высоты при курсивном стиле шрифта.
VK
[+]
В разделе Приложений на сайте добавлено новое приложение, изготавливаемое с помощью KOL: Column Commander v0.2c (230Kбайт, сжатое) .
VK
-
KOLAdd не компилируется, выдает, что в строке 2411 неопознан OnExecute.
-
good work, thanks a lot
-
KOLAdd не компилируется, выдает, что в строке 2411 неопознан OnExecute. Пока добавьте символ условной компиляции DIRCHG_ONEXECUTE. С версией выложу поправку.
-
program Project1;
uses KOL, Windows;
type
PForm2 = ^TForm2;
TForm2 = object(TObj)
Form: PControl;
ComboBox1: PControl;
PopupMenu1: PMenu;
end;
var
Form2: PForm2;
begin
New(Form2, Create);
Form2.Form := NewForm(nil, 'Form2').SetPosition(772, 316);
Applet := Form2.Form;
Form2.Form.Add2AutoFree(Form2);
NewMenu(Form2.Form, 0, [''], nil);
Form2.PopupMenu1 := NewMenu(Form2.Form, 0, ['ccc' + #9 + 'Ctrl+V', ' ', ''], nil);
Form2.PopupMenu1.ItemAccelerator[0] := MakeAccelerator(FVIRTKEY or FCONTROL, $56);
Form2.ComboBox1 := NewComboBox(Form2.Form, [coNoIntegralHeight]).SetPosition(315, 217);
Form2.ComboBox1.Color := TColor(clWindow);
Form2.ComboBox1.Items[0] := 'ComboBox1';
Run(Form2.Form);
end.
Run the program, click combo box, choose a item, then press "Del" key, will get runtime error 216. However, commet the line of Accelerator works fine.
-
Fixed version 3.08 is on the site. I'll make now changes in html files and upload it then.
-
Новости от 7 февраля 2011 (KOL & MCK v3.09) [-] Исправлено создание radio box-а с многострочным заголовком исправлено (метод MakeWordWrap). VK [*] TControl.SetRadioChecked, ClickRadio изменены. VK + Column Commander v 0.3a: http://kolmck.net/apps/ColumnCmdr/index.htm
-
Так, архив KOL.zip немного не туда положил. Теперь можно забирать.
-
Кстати, перейдя по ссылке для Column Commander получил 404 при попытке скачать файл
-
Спасибо, исправил на полную ссылку. Вообще, есть в Приложениях.
-
Не совсем понятем следующий момент и нигде не нашел объяснения:
var
B1:TKOLButton;
begin
B1:=NewButton(Panel,'');
B1.Width:=28;
B1.Align:=caLeft;
B1.Flat:=true;
B1.Border:=0;
end;
Почему кнопка отображается не flat, хотя радом положенная MCK-кнопка с выставленными соответствующими свойствами отображается так как надо?
-
MCK делает другой код: Result.Button4 := NewButton( Result.Panel1, 'Button4' ).SetPosition( 357, 5 );
Result.Button4.Style := Result.Button4.Style or BS_FLAT;
Смотреть надо в коде, который он генерирует, в <вашмодуль>_1.inc. Тот Flat, который вы присвоили, был предназначен в KOL для BitBtn, и таким остался для совместимости. Flat в MCK для обычной кнопки появился гораздо позже.
-
Разобрался, спасибо!
|
Есть новые 
Нет новых [120349 +19][b:0][p:0.002]