Версия 1.91

← →
Владимир Кладов (2004-01-23 13:10) [0]

Новости от 23 февраля 2004 г.

Новости KOL и MCK (v1.91):

[*]совместимость с FPC (Free Pascal Compiler) восстановлена, см. новую версию утилиты GlueCut в секции Инструменты.

[+]KOL: добавлено свойство TMenu.CurCtl, Александром Правдиным.
[*]KOL: функция WinVer теперь возвращает константу wvLongHorn под соответствующей версией операционной системы Windows.
[*]MCK: свойство TKOLAccelerator.AsText изменено и возвращает полные имена для клавиш Delete, Help и Escape (они показываются, например, в свойстве accelerator для меню). Так же, решена проблема с показом наименований комбинаций клавиш, спасибо Александру Роботахову aka RA.
[-]MCK: TKOLToolbar: исправлена ошибка с присваиванием ImageListDisabled и ImageListHot. Спасибо: Vox.
[-]MCK: TKOLToolbar: ошибка со сдвигом значений свойства Tooltip для кнопок после сепараторов исправлена.
[*]KOL/MCK: KOL.TTrayIcon/MCK.TKOLTrayIcon.OnMouse - изменён тип события, чтобы аргумент Sender был типа PObj, а не TObject. При загрузке своего проекта, вы должны ответить "yes" для удаления ссылки на существующие обработчики события, затем вырезать его содержимое (Ctrl+X) и заменить на пустое, чтобы очистить (сохранить проект), затем заново создать обработчик события (двойной клик по соответствующему полю в Object Inspector"е как обычно), и вставить туда прежний обработчик. Мои извинения за доставленные неудобства.

Прочие новости:

[*]Дизайн сайта полностью изменен. Теперь возможно сортировать Приложения и Компоненты по желаемому параметру (по автору, имени, дате, размеру, и т.д.). Добавлены ссылки на некоторые дополнительные компоненты с сайта kol.mastak.ru.
[+]Добавлен архив SmoothDIB с модулем SmoothDIB.pas, содержащим объект TSmoothDIB. Он обеспечивает дополнительное свойство PenWidth: Double и метод DrawLine( x1, y1, x2, y2: Double ); которые вместе позволяют рисовать прямые линии сглаженными на DIB-битмапе (форматы pf15bit, pf24bit, pf32bit). См. в секции Дополнения, в категории Графика.
[+]Добавлено приложение Round_Watch (RWatch.zip): многоязычный интерфейс, круглые часы на рабочем столе + часы в трее, изменяемый размер, цвет, прозрачность, поддержка плагинов (имеются плагины Wnd_Mover, Wnd_Trayer и StopWatcher - секундомер). См. в секции Приложения.

← →
RA © (2004-02-26 20:33) [1]

Насчет новых версий.
Я тут как-то очень давно задавал такой вопрос:

Я делаю Form.CanResize:=false
а потом Form.CanResize:=true
И, что же? Все равно форма
размеры при помощи мыши
менять не хочет
(будто бы так и осталось Form.CanResize:=false)

На что Gandalf ответил:

Это баг, если поменять:

procedure TControl.SetCanResize( const Value: Boolean );
begin
if Value = CanResize then Exit;
fPreventResize := not Value;
if Value then
Style := Style or WS_THICKFRAME//and not WS_THICKFRAME
else
Style := Style and not WS_THICKFRAME;//or WS_THICKFRAME;
GetWindowHandle;
FFixWidth := Width;
FFixHeight := Height;
AttachProc( WndProcCanResize );
end;

В асм версии тоже баг.

И это работает.
Но у меня уже версия 1.89, а баг все еще не исправлен.
И вообще будет ли это исправление?

Да, вот как надо бы поправить АСМ версию, следуя совету Gandalf"a:

procedure TControl.SetCanResize( const Value: Boolean );
asm
PUSH EBX
MOV EBX, EAX

CALL GetCanResize
CMP AL, DL

JZ @@exit // Value = CanResize
MOV [EBX].fPreventResize, AL
TEST DL, DL

MOV EDX, [EBX].fStyle
JZ @@set_thick

//AND EDX, not WS_THICKFRAME
OR EDX, WS_THICKFRAME
JMP @@set_style

@@set_thick:
//OR EDX, WS_THICKFRAME
AND EDX, not WS_THICKFRAME

@@set_style:
MOV EAX, EBX
CALL SetStyle
...

← →
Gandalf © (2004-02-27 19:11) [2]

Если об ошибках не напоминать о них забывают :)

← →
Владимир Кладов (2004-02-28 18:03) [3]

Сейчас у себя поправил, теперь в 192 точно будет.

Спасибо, наконец-то.

Версия 1.91 Найти похожие ветки