Новости от 30 марта 2010 г. (KOL & MCK v2.89)
[*]
UNI
Добавлен символ условной компиляции FORCE_ALTERNATEFILENAME для использования альтернативных имен файлов и путей для UNICODE версии.
Исправления для лучшей поддержки UNICODE версии в методах и функциях FBitBtnGetCaption, NewMDIChild, TGraphicTool.SetFontName, ExcludeAmpersands.

[+]
Добавлен метод TCanvas.OffsetAndRotate для упрощения манипуляций с преобразованием мировых координат канвы.
VK
[+]
Добавлен метод TControl.TBClear для удаления всех кнопок на тулбаре и свойство TControl.TBButtonLParam для доступа к значению LParam кнопки на тулбаре.
D[u]fa
[+]
Добавлена функция Extended2StrDigits( D: Double; n: Integer ), которая при форматировании обеспечивает ровно n цифр после десятичной точки.
VK
[+]
Добавлен метод TIniFile.ValueDouble для чтения и записи вещественных чисел в ини-файле.
VK
[*]
Тип TWindowsVersion расширен значением wvSeven (для функции WinVer, которая теперь отличает версию Windows 7 как отдельную версию ОС).

[+]
D200X
Добавлен inc-файл с определениями зеркальных типов MCK для лучшей поддержки D2006-D2010 и в случае этих версий о включается в KOL.pas.
KOLDEF.inc: обеспечены определения для Delphi 2010 (ver210 компилятора).
D[u]fa
[-]
Исправлена функция NormalizeUnixText для случая первого символа перехода строки (#10).

[-]
Исправлена утечка памяти в методе TDirList.ScanDirectory.
D[u]fa
[-]
Исправлено создание пункта меню с флажком (checkmark) - метод method TMenu.Insert.
shilou
[-]
Исправлен метод TMenu.RemoveSubMenu.

[-]
Исправлена функция WndFuncCombo для случая, когда определен символ KEY_PREVIEW (для обеспечения предварительной обработки в обработчике формы, когда KeyPreview = TRUE)

[-]
Исправлена функия WndProcNotify для предотвращения бесконечного цикла при передаче сообщения дочернему контролу.
Galkov
[-]
UNI
Исправлена утечка памяти в методе TControl.CreateWindow для UNICODE_CTRLS.

[-]
Исправлена функция WndProcTransparent (условие двойной буферизации формы).

[-]
Исправлена функция TControl.SetCurIndex (обеспечено присваивание значения fCurIndex для таб-контрола, несоответствие его реальному могло приводить к исключению access violation)

[+]
delphicommctrl.inc: добавлены определения TBIF_BYINDEX и для header-контрола (HDM_, HDN_ и др.)

[-]
ASM
Исправлен метод TCanvas.Arc для ASM-версии.
VK
[-]
visual_xp_styles: исправлена функция CheckThemes для случая DLL.
Устранены утечки ресурсов в функции WndXPMessage.
D[u]fa
[+]
KolAdd
Для случая, когда определен символ EXTERNAL_KOLDEFS, он включает файлы PROJECT_KOL_DEFS.INC и EXTERNAL_DEFINES.INC.

[*]
UNI
KOLadd.pas, KOLDirDlgEx.pas: Множество исправлений для лучшей поддержки UNICODE_CTRLS.
MCK: изменения в генерации кода для лучшей поддержки UNICODE_CTRLS (TKOLToolbar.SetupParams, PCharStringConstant)

[*]
MCK
Изменена генерация констант для пунктов меню: теперь они декларируются как безтиповые, т.е. неизменяемые константы.

function RemoveSpaces( const S: AnsiString ): AnsiString;

themelib = 'uxtheme';

function ExtractFilePath( const Path : KOLString ) : KOLString

function ExtractFilePath(const Path: KOLString): KOLString;
var
 i: Integer;
begin
 for i := Length(Path) - 1 downto 1 do begin
   if (Path[i] = '\') then begin
     Result := Copy(Path, 1, i);
     Exit;
   end;
 end;
 Result := Path;
end;

if WinVer >= wvNT then // todo: check it.

function AnsiEq( const S1, S2 : AnsiString ) : Boolean;
procedure TDirList.ScanDirectoryEx(const DirPath, Filters: KOLString;

function WinVer : TWindowsVersion;
asm
 MOVSX EAX, byte ptr [SaveWinVer]
 INC   AH     // если <> 0 после инкремента, то AL содержит вычисленную версию
 JNZ   @@exit
 CALL  GetVersion // EAX < 0 для платформы 9х, иначе NT; AL=MajorVersion; AH=MinorVersion
 XCHG  EDX, EAX
 XOR   EAX, EAX
 TEST  EDX, EDX
 XCHG  DL, DH    // DH=MajorVersion; DL=MinorVersion

 JL    @@platform_9x
 MOV   AL, wvNT
 CMP   DX, $0400
 JZ    @@save_exit

 INC   AL // wvY2K
 CMP   DX, $0500
 JZ    @@save_exit

 INC   AL // wvXP
 CMP   DX, $0501
 JZ    @@save_exit

 INC   AL // wvWin2003Server
 CMP   DX, $0502
 JZ    @@save_exit

 INC   AL // wvVista
 CMP   DX, $0600
 JZ    @@save_exit

 INC   AL // wvSeven
 CMP   DX, $0601
 JZ    @@save_exit
@@platform_9x:
 CMP   DH, 4
 JB    @@save_exit // wv31
 INC   AL // wv95
 CMP   DX, $040A
 JB    @@save_exit
 INC   AL // wv98
 CMP   DX, $045A
 JB    @@save_exit
 INC   AL // wvME
@@save_exit:
 MOV   byte ptr [SaveWinVer], AL
@@exit:
end;        

dlg.Filter     := '*.dpr';

dlg.Filter     := 'DPR files|*.dpr';

dlg.Filter := '*.pas';

dlg.Filter := 'PAS files|*.pas';

function WinVer : TWindowsVersion;
asm
MOVSX EAX, byte ptr [SaveWinVer]
INC   AH     // если <> 0 после инкремента, то AL содержит вычисленную версию
JNZ   @@exit
CALL  GetVersion // EAX < 0 для платформы 9х, иначе NT; AL=MajorVersion; AH=MinorVersion
XCHG  EDX, EAX
XOR   EAX, EAX
TEST  EDX, EDX
XCHG  DL, DH    // DH=MajorVersion; DL=MinorVersion

JL    @@platform_9x
MOV   AL, wvNT
CMP   DX, $0400
JZ    @@save_exit

INC   AL // wvY2K
SUB   DX, $0500
JZ    @@save_exit

INC   AL // wvXP
//CMP   DX, $0501
DEC   DX
JZ    @@save_exit

INC   AL // wvWin2003Server
//CMP   DX, $0502
DEC   DX
JZ    @@save_exit

INC   AL // wvVista
CMP   DX, $0600 - $0502
JZ    @@save_exit

INC   AL // wvSeven
//CMP   DX, $0601
//DEC   DX
JMP   @@save_exit
@@platform_9x:
CMP   DH, 4
JB    @@save_exit // wv31
INC   AL // wv95
CMP   DX, $040A
JB    @@save_exit
INC   AL // wv98
CMP   DX, $045A
JB    @@save_exit
INC   AL // wvME
@@save_exit:
MOV   byte ptr [SaveWinVer], AL
@@exit:
end;              

procedure TForm1.Button1Click(Sender: TObject);
var SL: TStringList;
begin
   SL := TStringList.Create;
   TRY
       SL.LoadFromFile( 'C:aaa.txt' );
       SL.SaveToFile( ExtractFilePath( Application.ExeName ) + 'aaa.txt' );
   FINALLY
       SL.Free
   END;
end;

function AnsiEq( const S1, S2 : KOLString ) : Boolean;
asm
       CALL     AnsiCompareStrNoCase
       TEST     EAX, EAX
       SETZ     AL
end;

function AnsiCompareStrNoCase(const S1, S2: KOLString): Integer;

{$IFDEF ASM_UNICODE}
procedure TDirList.ScanDirectoryEx

почему в KOL_ASM.inc все еще используется AnsiString

{$IFDEF _D2006orHigher}
{$I MCKfakeClasses200x.inc} // Dufa
{$ENDIF}

function SeekMemStream( Strm: PStream; {$IFNDEF STREAM_COMPAT} const {$ENDIF} MoveTo: TStrmMove; MoveFrom: TMoveMethod ): TStrmSize;

function SeekMemStream( Strm: PStream; const MoveTo: TStrmMove; MoveFrom: TMoveMethod ): TStrmSize;

...
 if FOwnerObj.fNamedObjList = nil then
    FOwnerObj.fNamedObjList := NewList;
 FName := NewName;
 {$IFDEF UNIQUE_NAMES}
 for i := 0 to FOwnerObj.fNamedObjList.Count-1 do
 begin
   if PObj( FOwnerObj.fNamedObjList.Items[ i ] ).FName = NewName then
   begin
      FName := '';  
       //                NewName := ''; Old code
     break;
   end;
 end;
 {$ENDIF}
      //                 FName := NewName; Old code
 if FName = '' then
    FOwnerObj.fNamedObjList.Remove( @ Self )
 else
 if FOwnerObj.fNamedObjList.IndexOf( @ Self ) < 0 then
    FOwnerObj.fNamedObjList.Add( @ Self );
...

function TStream.Write(var Buffer; {$IFNDEF STREAM_COMPAT} const {$ENDIF} Count: TStrmSize): TStrmSize;

function TStream.Seek({$IFNDEF STREAM_COMPAT} const {$ENDIF} MoveTo: TStrmMove; MoveMethod: TMoveMethod): TStrmSize;

procedure TForm1.Button3Click(Sender: PObj);
begin
   ShowMessage( 'before: <' + Button3.Name + '>' );
   Button3.SetName( Form, 'A' );
   ShowMessage( 'after: <' + Button3.Name + '>' );
end;