procedure TControl.SetAnchor(const Index: Integer; const Value: Boolean);
begin
 if   Value then
      fAnchors := fAnchors or Index
 else fAnchors := fAnchors and not Index;
 if  Parent <> nil then
 begin
     fParent.AttachProc( ParentAnchorChildren );
     Parent.fOldWidth := Parent.ClientWidth;
     Parent.fOldHeight := Parent.ClientHeight; <- вот этой
 end;
end;

   Result.Panel1 := NewPanel( Result.Form, esNone ).SetAlign ( caBottom ).SetSize( 0, 25 );

 {$IFDEF NIL_EVENTS}
 if Assigned( fOnDestroy ) then
 {$ENDIF}
 begin
   fOnDestroy( @Self );

if Assigned(Sender.EV.fOnBitBtnDraw) then

if Assigned(Sender.EV.fOnBitBtnDraw)and (@Sender.EV.fOnBitBtnDraw <> @DummyProc123_0) then

initialization
InitCommonControls;
{$IFDEF GRAPHCTL_XPSTYLES}

object TabControl1_Tab1: TKOLPanel

object TabControl1_Tab1: TKOLTabPage

const _TabControl1_Tab0 = 0; // Name Первой Закладки В Старом Проекте
const _TabControl1_Tab1 = 1;  // Name Второй Закладки В Старом Проекте

Result.TabControl1 := NewTabControl( Result.Form, [  ], [  ], nil, 0 ).SetAlign ( caClient );

Result.TabControl1 := NewTabControl( Result.Form, [ 'Tab0', 'Tab1' ], [  ], nil, 0 ).SetAlign ( caClient );

dcc32.exe -b ActiveKOL.pas

Borland Delphi Version 15.0
Copyright (c) 1983,2002 Borland Software Corporation
KOLDEF.INC(233)
KOLDEF.INC(233)
delphidef.inc(48)
delphicommctrl.inc(1569)
KOL_ansi.inc(2307)
KOL_ansi.inc(2307)
KOL_ASM.inc(13239)
KOL.pas(62866)
KOLDEF.INC(233)
KOLDEF.INC(233)
err.pas(1198)
KOLComObj.pas(2353)
KOLDEF.INC(233)
ActiveKOL.pas(2624)
89670 lines, 0.62 seconds, 15415 bytes code, 112 bytes data.

dcc32.exe -b ActiveKOL.pas

Borland Delphi Version 15.0
Copyright (c) 1983,2002 Borland Software Corporation
KOLDEF.INC(253)
KOLDEF.INC(253)
delphidef.inc(48)
delphicommctrl.inc(1569)
KOL_ansi.inc(2307)
KOL_ansi.inc(2307)
KOL_ASM.inc(15343)
KOL.pas(63340)
KOLDEF.INC(253)
KOLDEF.INC(253)
err.pas(1198)
KOLComObj.pas(2353)
KOLDEF.INC(253)
ActiveKOL.pas(315) Error: Field or method identifier expected
ActiveKOL.pas(316) Error: Field or method identifier expected
ActiveKOL.pas(317) Error: Field or method identifier expected
ActiveKOL.pas(318) Error: Field or method identifier expected
ActiveKOL.pas(319) Error: Field or method identifier expected
ActiveKOL.pas(320) Error: Field or method identifier expected
ActiveKOL.pas(321) Error: Field or method identifier expected
ActiveKOL.pas(322) Error: Field or method identifier expected
ActiveKOL.pas(323) Error: Field or method identifier expected
ActiveKOL.pas(340) Error: Field or method identifier expected
ActiveKOL.pas(341) Error: Field or method identifier expected
ActiveKOL.pas(828) Error: Undeclared identifier: 'fVisible'
ActiveKOL.pas(828) Error: Operator not applicable to this operand type
ActiveKOL.pas(950) Error: Missing operator or semicolon
ActiveKOL.pas(1325) Error: Undeclared identifier: 'fIsControl'
ActiveKOL.pas(1327) Error: Incompatible types: 'TStyle' and 'Integer'
ActiveKOL.pas(1369) Error: Undeclared identifier: 'fVisible'
ActiveKOL.pas(1454) Error: Undeclared identifier: 'FOnKeyDown'
ActiveKOL.pas(1454) Error: Incompatible types
ActiveKOL.pas(1459) Error: Undeclared identifier: 'FOnChar'
ActiveKOL.pas(1464) Error: Undeclared identifier: 'FOnKeyUp'
ActiveKOL.pas(1550) Error: Undeclared identifier: 'fOnMouseDblClk'
ActiveKOL.pas(1550) Error: Not enough actual parameters
ActiveKOL.pas(1606) Error: Undeclared identifier: 'fOnChar'
ActiveKOL.pas(1606) Error: Not enough actual parameters
ActiveKOL.pas(1743) Error: Undeclared identifier: 'fCurrentControl'
ActiveKOL.pas(1743) Error: Operator not applicable to this operand type
ActiveKOL.pas(1744) Error: Undeclared identifier: 'fCurrentControl'
ActiveKOL.pas(1744) Error: Operator not applicable to this operand type
ActiveKOL.pas(1745) Error: Undeclared identifier: 'fCurrentControl'
ActiveKOL.pas(1745) Error: Missing operator or semicolon
ActiveKOL.pas(1746) Error: Undeclared identifier: 'fCurrentControl'
ActiveKOL.pas(1748) Error: Undeclared identifier: 'fCurrentControl'
ActiveKOL.pas(1748) Error: Operator not applicable to this operand type
ActiveKOL.pas(1749) Error: Undeclared identifier: 'fCurrentControl'
ActiveKOL.pas(2624)
ActiveKOL.pas(406) Error: Unsatisfied forward or external declaration: 'TOleServer.InitServerData'
ActiveKOL.pas(431) Error: Unsatisfied forward or external declaration: 'TOleServer.Connect'
ActiveKOL.pas(432) Error: Unsatisfied forward or external declaration: 'TOleServer.Disconnect'

dcc32.exe -b -dUSE_MHTOOLTIP KOL.pas

Borland Delphi Version 15.0
Copyright (c) 1983,2002 Borland Software Corporation
KOLDEF.INC(253)
KOLDEF.INC(253)
delphidef.inc(48)
delphicommctrl.inc(1569)
KOL_ansi.inc(2307)
KOLMHToolTip.pas(909)
KOLMHToolTip.pas(909)
KOLMHToolTip.pas(909)
KOLMHToolTip.pas(909)
KOLMHToolTip.pas(909)
KOLMHToolTip.pas(37) Error: Undeclared identifier: 'TMHHint'
KOL_ansi.inc(2307)
KOLMHToolTip.pas(898) Error: Undeclared identifier: 'NewHint'
KOLMHToolTip.pas(909)
KOLMHToolTip.pas(190) Error: Undeclared identifier: 'PMHToolTip'
KOLMHToolTip.pas(199) Error: Incompatible types
KOLMHToolTip.pas(266) Error: Function needs result type
KOLMHToolTip.pas(266) Error: '=' expected but ')' found
KOLMHToolTip.pas(267) Error: Missing operator or semicolon
KOLMHToolTip.pas(268) Error: Undeclared identifier: 'fHandle'
KOLMHToolTip.pas(272) Error: Identifier redeclared: 'TMHToolTip'
KOLMHToolTip.pas(272) Error: '=' expected but ',' found
KOLMHToolTip.pas(272) Error: '=' expected but ')' found
KOLMHToolTip.pas(273) Error: Expression expected but 'BEGIN' found
KOLMHToolTip.pas(274) Error: Undeclared identifier: 'handle'
KOLMHToolTip.pas(278) Error: Function needs result type
KOLMHToolTip.pas(278) Error: '=' expected but ')' found
KOLMHToolTip.pas(279) Error: Missing operator or semicolon
KOLMHToolTip.pas(280) Error: Undeclared identifier: 'handle'
KOLMHToolTip.pas(283) Error: Identifier redeclared: 'TMHToolTip'
KOLMHToolTip.pas(283) Error: '=' expected but ';' found
KOLMHToolTip.pas(283) Error: '=' expected but ')' found
KOLMHToolTip.pas(285) Error: Undeclared identifier: 'handle'
KOLMHToolTip.pas(288) Error: Function needs result type
KOLMHToolTip.pas(290) Error: Undeclared identifier: 'fHandle'
KOLMHToolTip.pas(293) Error: Identifier redeclared: 'TMHToolTip'
KOLMHToolTip.pas(293) Error: '=' expected but ')' found
KOLMHToolTip.pas(295) Error: Undeclared identifier: 'fHandle'
KOLMHToolTip.pas(323) Error: Function needs result type
KOLMHToolTip.pas(325) Error: Undeclared identifier: 'fHandle'
KOLMHToolTip.pas(328) Error: Identifier redeclared: 'TMHToolTip'
KOLMHToolTip.pas(328) Error: '=' expected but ')' found
KOLMHToolTip.pas(329) Error: ';' expected but 'BEGIN' found
KOLMHToolTip.pas(330) Error: Undeclared identifier: 'fHandle'
KOLMHToolTip.pas(333) Error: Function needs result type
KOLMHToolTip.pas(339) Error: Identifier redeclared: 'TMHToolTip'
KOLMHToolTip.pas(339) Error: '=' expected but ')' found
KOLMHToolTip.pas(341) Error: Undeclared identifier: 'fHandle'
KOLMHToolTip.pas(344) Error: Identifier redeclared: 'TMHToolTip'
KOLMHToolTip.pas(346) Error: Undeclared identifier: 'fHandle'
KOLMHToolTip.pas(349) Error: Identifier redeclared: 'TMHToolTip'
KOLMHToolTip.pas(351) Error: Undeclared identifier: 'fHandle'
KOLMHToolTip.pas(408) Error: Identifier redeclared: 'TMHToolTip'
KOLMHToolTip.pas(410) Error: This form of method call only allowed in methods of derived types
KOLMHToolTip.pas(411) Error: Undeclared identifier: 'fHandle'
KOLMHToolTip.pas(416) Error: Object type required
KOLMHToolTip.pas(418) Error: ';' expected but 'WITH' found
KOLMHToolTip.pas(420) Error: Undeclared identifier: 'Parent'
KOLMHToolTip.pas(421) Error: Undeclared identifier: 'ToolTip'
KOLMHToolTip.pas(422) Error: Undeclared identifier: 'HasTool'
KOLMHToolTip.pas(423) Error: '.' expected but ';' found
KOLMHToolTip.pas(425) Warning: Text after final 'END.' - ignored by compiler
KOLMHToolTip.pas(909)
KOL_ASM.inc(15344)
KOL.pas(63679)
KOL.pas(705) Error: Unsatisfied forward or external declaration: 'TObj.Destroy'
KOL.pas(725) Error: Unsatisfied forward or external declaration: 'TObj.RefDec'
KOL.pas(774) Error: Unsatisfied forward or external declaration: 'TObj.Create'
KOL.pas(790) Error: Unsatisfied forward or external declaration: 'TObj.Add2AutoFree'
KOL.pas(795) Error: Unsatisfied forward or external declaration: 'TObj.Add2AutoFreeEx'
KOL.pas(799) Error: Unsatisfied forward or external declaration: 'TObj.RemoveFromAutoFree'
KOL.pas(837) Error: Unsatisfied forward or external declaration: 'TList.Destroy'
KOL.pas(840) Error: Unsatisfied forward or external declaration: 'TList.SetCapacity'
KOL.pas(841) Error: Unsatisfied forward or external declaration: 'TList.Get'
KOL.pas(842) Error: Unsatisfied forward or external declaration: 'TList.Put'
KOL.pas(303) Fatal: Compilation terminated; too many errors

D:\KOL>"d:\delphi2010\embarcadero\Rad Studio\7.0\bin\dcc32.exe" -b -dUSE_MHTOOLT
IP KOL.pas
Embarcadero Delphi for Win32 compiler version 21.0
Copyright (c) 1983,2009 Embarcadero Technologies, Inc.
KOLDEF.INC(253)
KOLDEF.INC(253)
delphidef.inc(48)
delphicommctrl.inc(1569)
KOL_ansi.inc(2317)
KOLMHToolTip.pas(944)
KOLMHToolTip.pas(944)
KOLMHToolTip.pas(944)
KOLMHToolTip.pas(944)
KOLMHToolTip.pas(944)
MCKfakeClasses200x.inc(51)
KOL_ansi.inc(2317)
KOLMHToolTip.pas(944)
KOLMHToolTip.pas(944)
KOL_ASM.inc(15344)
KOL.pas(63794)
92540 lines, 1.25 seconds, 233183 bytes code, 68512 bytes data.

dcc32.exe -b -dUNICODE_CTRLS KOL.pas

Borland Delphi Version 15.0
Copyright (c) 1983,2002 Borland Software Corporation
KOLDEF.INC(253)
KOLDEF.INC(253)
delphidef.inc(48)
delphicommctrl.inc(1569)
KOL_unicode.inc(1185)
KOL_unicode.inc(1185)
KOL.pas(19674) Error: Incompatible types: 'WideChar' and 'Char'
KOL.pas(19896) Error: Incompatible types: 'WideChar' and 'Char'
KOL.pas(19899) Error: Incompatible types: 'WideChar' and 'Char'
KOL.pas(19902) Error: Incompatible types: 'WideChar' and 'Char'
KOL_ASM.inc(2158) Error: Declaration of 'TextArea' differs from previous declaration
KOL_ASM.inc(2164) Error: Undeclared identifier: 'TextExtent'
KOL_ASM.inc(2451) Error: Identifier redeclared: 'Int2Hex'
KOL_ASM.inc(2534) Error: Previous declaration of 'Hex2Int' was not marked with the 'overload' directive
KOL_ASM.inc(2586) Error: Identifier redeclared: 'Int2Str'
KOL_ASM.inc(15344)
KOL.pas(63794)

ОШИБКИ ПРИ КОМПИЛЯЦИИ ПРОЕКТА

SL.Insert( IndexOfBeginLine, 'const ToolbarButtonsArray_' + Name + ': array[' +
          '0..' + IntToStr(Buttons_Count-1) + '] of PKOLChar = (' +
          Buttons_List + ');');

procedure TCanvas.TextArea(const Text: KOLString; var Sz: TSize;
 var P0: TPoint);

function Int2Hex( Value : DWord; Digits : Integer ) : KOLString;

function Hex2Int( const Value : KOLString) : Integer;

function Int2Str( Value : Integer ) : KOLString;

{$IFDEF ASM_VERSION}{$ELSE ASM_VERSION} //Pascal (mixed)
function Int2Hex( Value : DWord; Digits : Integer ) : KOLString;

{$IFDEF ASM_VERSION}{$ELSE ASM_VERSION} //Pascal
function Hex2Int( const Value : KOLString) : Integer;

{$IFDEF ASM_VERSION}{$ELSE ASM_VERSION} //Pascal
function Int2Str( Value : Integer ) : KOLString;

procedure TForm1.KOLFormFormCreate(Sender: PObj);
begin
// Clear работает для этих элементов
ListView1.Clear;
ComboBox1.Clear;
TreeView1.Clear;
Toolbar1.Clear;

// Clear НЕ работает для этих элементов, т.к. aClear = nil
RichEdit1.Clear;
Memo1.Clear;
EditBox1.Clear;
Label1.Clear;
ListBox1.Clear;
end;

function _GetDIBPixelsTrueColorWithAlpha( Bmp: PBitmap; X, Y: Integer ): TColor;
var
 Pixel: DWORD;
 RGB:   TRGBQuad;
begin
 Pixel := PDWORD( Integer(Bmp.fScanLine0) + Y * Bmp.fScanLineDelta +
                  X * Bmp.fBytesPerPixel )^ and $FFFFFFFF;
 RGB := TRGBQuad(Pixel);
 Swap(RGB.rgbBlue, RGB.rgbRed);
 Result := TColor( RGB );
end;

...
function TBitmap.GetDIBPixels(X, Y: Integer): TColor;
...
     pf32bit:
       begin
         fPixelsPerByteMask := 1;
         fBytesPerPixel := 4;
         fGetDIBPixels := _GetDIBPixelsTrueColorWithAlpha;
       end;
...

procedure _SetDIBPixelsTrueColorWithAlpha(Bmp: PBitmap; X, Y: Integer; Value: TColor);
var RGB: TRGBQuad;
   Pos: PDWord;
begin
 RGB := TRGBQuad(Value);
 Swap(RGB.rgbBlue, RGB.rgbRed);

 Pos := PDWORD( Integer(Bmp.fScanLine0) + Y * Bmp.fScanLineDelta
                + X * Bmp.fBytesPerPixel );
 Pos^ := Pos^ or DWORD(RGB);
end;

...
procedure TBitmap.SetDIBPixels(X, Y: Integer; const Value: TColor);
...
     pf32bit:
       begin
         fPixelsPerByteMask := 1;
         fBytesPerPixel := 4;
         fSetDIBPixels := _SetDIBPixelsTrueColorWithAlpha;
       end;
...

SL.Insert( IndexOfBeginLine, 'const ToolbarButtonsArray_' + Name + ': array[' +
         '0..' + IntToStr(Buttons_Count-1) + '] of PKOLChar = (' +
         Buttons_List + ');');

procedure TCanvas.TextArea(const Text: KOLString; var Sz: TSize;
var P0: TPoint);

function Int2Hex( Value : DWord; Digits : Integer ) : KOLString;

function Hex2Int( const Value : KOLString) : Integer;

function Int2Str( Value : Integer ) : KOLString;

{$IFDEF ASM_VERSION}{$ELSE ASM_VERSION} //Pascal (mixed)
function Int2Hex( Value : DWord; Digits : Integer ) : KOLString;

{$IFDEF ASM_VERSION}{$ELSE ASM_VERSION} //Pascal
function Hex2Int( const Value : KOLString) : Integer;

{$IFDEF ASM_VERSION}{$ELSE ASM_VERSION} //Pascal
function Int2Str( Value : Integer ) : KOLString;

{$IFDEF ASM_VERSION}{$ELSE ASM_VERSION} //Pascal (mixed)
function Int2Hex( Value : DWord; Digits : Integer ) : KOLString;

{$IFDEF ASM_VERSION}{$ELSE ASM_VERSION} //Pascal
function Hex2Int( const Value : KOLString) : Integer;

{$IFDEF ASM_VERSION}{$ELSE ASM_VERSION} //Pascal
function Int2Str( Value : Integer ) : KOLString;

function TThread.Execute: integer;
...
 if F_AutoFree then
 begin
    H := FHandle;
    FHandle := 0;
    Free;
    TerminateThread( H, 0 );
 end;

if F_AutoFree then
begin
   H := FHandle;
   FHandle := 0;
   Free;
   TerminateThread( H, 0 );
end;

program Project1;
{$APPTYPE CONSOLE}

uses
 Windows, KOL;

function thread(dummy, Sender: PThread): Integer;
begin
 Sleep(5000);
 Result := 0;
end;  

var
 i: Integer;
begin
 for I := 0 to 99 do
   NewThreadAutoFree(TOnThreadExecute(MakeMethod(nil, @thread)));

 readln;
end.

dcc32.exe -b KOL.pas -dUNICODE_CTRLS

Borland Delphi Version 15.0
Copyright (c) 1983,2002 Borland Software Corporation
KOLDEF.INC(253)
KOLDEF.INC(253)
delphidef.inc(48)
delphicommctrl.inc(1569)
KOL_unicode.inc(1185)
KOL_unicode.inc(1185)
KOL_ASM.inc(2158) Error: Declaration of 'TextArea' differs from previous declaration
KOL_ASM.inc(2164) Error: Undeclared identifier: 'TextExtent'
KOL_ASM.inc(2451) Error: Identifier redeclared: 'Int2Hex'
KOL_ASM.inc(2534) Error: Previous declaration of 'Hex2Int' was not marked with the 'overload' directive
KOL_ASM.inc(2586) Error: Identifier redeclared: 'Int2Str'
KOL_ASM.inc(15344)
KOL.pas(63799)

procedure TOleCtl.StandardEvent(DispID: TDispID; var Params: TDispParams);
...
     DISPID_KEYPRESS:
       if Params.cArgs > 0 then
       begin
         Ch := KOLChar(Integer(Variant(Args^[0])));
         KeyPress(Ch);
         if ((Args^[0].vType and varByRef) <> 0) then
           KOLChar(Args^[0].VPointer^) := Ch;
       end;

program Test;

uses KOL;

procedure ButtonClick(Dummy: Pointer; Sender: PObj);
begin
 Applet.Caption := Int2Str(Applet.ChildCount); //(PControl(Sender).Count); // ERROR!
end;

begin
 Applet := NewForm(nil, 'Test');
 with NewButton(Applet, 'Count')^ do
   OnClick := TonEvent(MakeMethod(nil, @ButtonClick));
 Run(Applet);
end.

fGetDIBPixels := {$IFDEF DIBPixels32bitWithAlpha} _GetDIBPixelsTrueColorAlpha
                          {$ELSE} _GetDIBPixelsTrueColor {$ENDIF};

...
   procedure SortEx(const CompareFun: TCompareEvent);
   {* Call it to custom sort string list. Dufa }
...

procedure TStrList.SortEx(const CompareFun: TCompareEvent);
begin
 SortData(@Self, fCount, CompareFun, @TStrList.Swap);
end;

dcc32.exe -b ActiveKOL.pas -dUNICODE_CTRLS;

Borland Delphi Version 15.0
Copyright (c) 1983,2002 Borland Software Corporation
KOLDEF.INC(253)
KOLDEF.INC(253)
delphidef.inc(48)
delphicommctrl.inc(1569)
KOL_unicode.inc(1185)
KOL_unicode.inc(1185)
KOL_ASM.inc(15225)
KOL.pas(64002)
KOLDEF.INC(253)
KOLDEF.INC(253)
err.pas(1198)
KOLComObj.pas(2353)
KOLDEF.INC(253)
ActiveKOL.pas(1873) Error: Incompatible types: 'KOLChar' and 'Char'
ActiveKOL.pas(1876) Error: Incompatible types: 'Char' and 'KOLChar'
ActiveKOL.pas(2638)

procedure TextArea( const Text : KOLString; var Sz : TSize; var P0 : TPoint );

function TCanvas.TextExtent(const Text: AnsiString): TSize;
var DC : HDC;
   ClearHandle : Boolean;
begin
.
.
.
end;

procedure TCanvas.TextArea(const Text: KOLString; var Sz: TSize;
 var P0: TPoint);
begin
 Sz := TextExtent( Text );
 P0.x := 0; P0.y := 0;
 TOnTextArea( GlobalCanvas_OnTextArea )( @Self, Sz, P0 );
end;

C:\Borland\Delphi6\Bin>dcc32.exe -b d:\kol\ActiveKOL.pas -dUNICODE_CTRLS
Borland Delphi Version 14.0
Copyright (c) 1983,2002 Borland Software Corporation
d:\kol\KOLDEF.INC(254)
d:\kol\KOLDEF.INC(254)
d:\kol\delphidef.inc(48)
d:\kol\delphicommctrl.inc(1569)
d:\kol\KOL_unicode.inc(1185)
d:\kol\KOL_unicode.inc(1185)
d:\kol\KOL_ASM.inc(15382)
d:\kol\KOL.pas(64573)
d:\kol\KOLDEF.INC(254)
d:\kol\KOLDEF.INC(254)
d:\kol\err.pas(1197)
d:\kol\KOLComObj.pas(2353)
d:\kol\KOLDEF.INC(254)
d:\kol\ActiveKOL.pas(2650)
91406 lines, 1.47 seconds, 15398 bytes code, 112 bytes data.

C:\Borland\Delphi7SE\Bin>dcc32.exe -b d:\kol\ActiveKOL.pas -dUNICODE_CTRLS
Borland Delphi Version 15.0
Copyright (c) 1983,2002 Borland Software Corporation
d:\kol\KOLDEF.INC(254)
d:\kol\KOLDEF.INC(254)
d:\kol\delphidef.inc(48)
d:\kol\delphicommctrl.inc(1569)
d:\kol\KOL_unicode.inc(1185)
d:\kol\KOL_unicode.inc(1185)
d:\kol\KOL_ASM.inc(15382)
d:\kol\KOL.pas(64573)
d:\kol\KOLDEF.INC(254)
d:\kol\KOLDEF.INC(254)
d:\kol\err.pas(1197)
d:\kol\KOLComObj.pas(2353)
d:\kol\KOLDEF.INC(254)
d:\kol\ActiveKOL.pas(2650)
91406 lines, 0.70 seconds, 15406 bytes code, 112 bytes data.

     DISPID_KEYDOWN, DISPID_KEYUP:
       if Params.cArgs >= 2 then
       begin
         Key := Variant(Args^[1]);
         X := Variant(Args^[0]);
         case DispID of
           DISPID_KEYDOWN: KeyDown(Key, X);
           DISPID_KEYUP:   KeyUp(Key, X);
         end;
         if ((Args^[1].vType and varByRef) <> 0) then
           Word(Args^[1].VPointer^) := Key;
       end; //-<- this is line 1873
     DISPID_KEYPRESS:
      if Params.cArgs > 0 then
      begin //-<- this is line 1876
        Ch := KOLChar(Integer(Variant(Args^[0])));
        KeyPress(Ch);
        if ((Args^[0].vType and varByRef) <> 0) then
          KOLChar(Args^[0].VPointer^) := Ch;
      end;

dcc32.exe -b Kol.pas -dUNICODE_CTRLS;

Borland Delphi Version 15.0
Copyright (c) 1983,2002 Borland Software Corporation
KOLDEF.INC(253)
KOLDEF.INC(253)
delphidef.inc(48)
delphicommctrl.inc(1569)
KOL_unicode.inc(1185)
KOL_unicode.inc(1185)
KOL.pas(21709) Error: Incompatible types: 'Char' and 'WideChar'
KOL_ASM.inc(15325)
KOL.pas(64705)

program MDI_test;

uses
 Windows, Messages, KOL;

var
 MDIClient, MDIChild, Panel: PControl;
 MainMenu: PMenu;

procedure CreateMDIChild;
begin
 MDIChild := NewMDIChild(MDIClient, 'MDI Client').SetClientSize(320, 200);
 MDIClient.Add2AutoFree(MDIChild);
 MDIChild.Border := 10;
 Panel := NewPanel(MDIChild, esRaised).SetAlign(caClient);
 Panel.Border := 2;
 MDIClient.CreateWindow;
end;

procedure MenuItems(Dummy: Pointer; Sender: PMenu; Item: Integer);
begin
 case Item of
   1: CreateMDIChild;
   3: MDIClient.Perform(WM_MDITILE, MDITILE_VERTICAL, 0);
   4: MDIClient.Perform(WM_MDICASCADE, 0, 0);
 end;
end;

begin
 Applet := NewForm(nil, 'MDI test').SetPosition(240, 120).SetClientSize(380, 280);
 Applet.Font.FontName := 'MS Sans Serif';
 MainMenu := NewMenu(Applet, 0, ['New', '(', 'Create MDI Child', ')', 'Window', '(', 'Tile', 'Cascade', ')', ''], TOnMenuItem(MakeMethod(nil, @MenuItems)));
 MDIClient := NewMDIClient(Applet, 0).SetAlign(caClient);
 MDIClient.Add2AutoFree(MDIChild);
 CreateMDIChild;
 Run(Applet);
end.

program MDI_test;

uses KOL;

begin
 Applet := NewForm(nil, 'MDI test');
 NewMDIClient(Applet, 0); // Runtime error!
end.

program Test;

uses KOL;

begin
 MsgOK(Int2Str(1)); // Runtime Error!
end.

program Test;

uses KOL;

begin
 Applet := NewForm(nil, '');
 MsgOK(Int2Str(1)); // OK now!
end.

program Test;

uses KOL;

var
 Memo: PControl;
 Counter: Integer;

begin
 Applet := NewForm(nil, '');
 Memo := NewEditbox(Applet, [eoMultiline]).SetAlign(caClient);
 Memo.Color := clWindow;
 for Counter := 0 to 254 do
   Memo.Add(Int2Digs(Counter, 3) + #$0D#$0A); // Runtime Error!
 //  Memo.Add(Int2Ths(Counter) + #$0D#$0A); // Runtime Error!
 //  Memo.Add(Int2Str(Counter) + #$0D#$0A); // This works!
 Run(Applet);
end.

begin
UseDelphiMemoryManager;
Applet := NewForm(nil, 'MDI test').SetPosition(240, 120).SetClientSize(380, 280);

program Project1;

uses
 KOL;
var
 grp, lbl, edt: PControl;
begin
 Applet := NewForm(nil, 'test');
 grp := NewPanel(Applet, esLowered).SetSize(400, 300);
 lbl := NewLabel(grp, 'Label').SetAlign(caTop);
 edt := NewEditbox(grp, []).SetAlign(caTop).ResizeParentBottom;
 Run(Applet);
end.

program Actions;

uses
 KOL, KOLadd;

var
 ActionList: PActionList;
 Action: PAction;
 Button: PControl;

procedure DoAction(Dummy: Pointer; Sender: PObj);
begin
 ShowMessage('Test');
end;

begin
 Applet := NewForm(nil, 'Test');
 ActionList := NewActionList(Applet);
 Action := ActionList.Add('ActionCaption', 'ActionHint', TonEvent(MakeMethod(nil, @DoAction)));
 Button := NewButton(Applet, 'Button');
 Action.LinkControl(Button);
 Run(Applet);
end.

if i <> 0 then

if i > 0 then

program Test;

uses KOL;

var Toolbar: PControl;

procedure Click(Dummy: Pointer; Sender: PControl);
begin
 if Sender.RightClick then Applet.Caption := '>>>' else Applet.Caption := '<<<';
end;

begin
 Applet := NewForm(nil, '').SetSize(200, 100);
 Toolbar := NewToolbar(Applet, caTop, [], 0, ['X'], []);
 Toolbar.OnTBClick := TOnEvent(MakeMethod(nil, @Click));
 Run(Applet);
end.

MOV CL, G6_RightClick

MOV CL, 1 shl G6_RightClick

program Test;

uses KOL;

var Toolbar: PControl;

procedure Click(Dummy: Pointer; Sender: PControl);
begin
 if Sender = Toolbar then
   Applet.Caption := 'Toolbar'
 else
   Applet.Caption := 'Error';
end;

begin
 Applet := NewForm(nil, '').SetSize(200, 100);
 Toolbar := NewToolbar(Applet, caTop, [], 0, ['X'], []);
 Toolbar.OnTBClick := TOnEvent(MakeMethod(nil, @Click));
 Run(Applet);
end.

program Test;

uses Windows, KOL;

procedure TBClick(Dummy: Pointer; Sender: PControl);
begin
 case Sender.CurIndex of
   0: Applet.RemoveStatus;
   1: Applet.SimpleStatusText := 'Status';
 end;
end;

var
 Panel: PControl;
begin
 Applet := NewForm(nil, '').SetSize(200, 100);
 Applet.SimpleStatusText := 'Status';
 Panel := NewPanel(Applet, esNone).SetSize(200, 24).SetAlign(caTop);
 with NewToolbar(Panel, caTop, [], 0, ['remove', 'restore'], [])^ do
   OnTBClick := TOnEvent(MakeMethod(nil, @TBClick));
 NewMDIClient(Applet, 0).SetAlign(caClient);
 Run(Applet);
end.

dcc32.exe -b KOL.pas -dUNICODE_CTRLS

Borland Delphi Version 15.0
Copyright (c) 1983,2002 Borland Software Corporation
KOLDEF.INC(253)
KOLDEF.INC(253)
delphidef.inc(48)
delphicommctrl.inc(1569)
KOL_unicode.inc(1185)
KOL_unicode.inc(1185)
KOL.pas(20549) Error: Incompatible types
KOL_ASM.inc(14864)
KOL.pas(65524)

if Copy( Result, 1, 2 ) = KOLString('-') + ThsSeparator then

program Test;

uses KOL;

begin
 Applet := NewForm(nil, '');
 NewButton(Applet,'');
 Run(Applet);
end.

procedure TGraphicTool.SetLogFontStruct(const Value: TLogFont);
begin
 if  CompareMem(@fData.Font, @Value, SizeOf(TLogFont)) then Exit;
 Move(Value, fData.Font, SizeOF(TLogFont));
 Changed;
end; <- this is line 18249

function TGraphicTool.GetLogFontStruct: TLogFont;

function StrReplace( var S: KOLString; const From, ReplTo: KOLString ): Boolean;
var I: Integer;
begin
 I := pos( From, S );
 if I > 0 then
 begin
   S := Copy( S, 1, I - 1 ) + ReplTo + CopyEnd( S, I + Length( From ) );
   Result := TRUE;
 end
 else Result := FALSE;
end;

function KOLStrReplace( var S: KOLString; const From, ReplTo: KOLString ): Boolean;
var I: Integer;
begin
 I := pos( From, S );
 if I > 0 then
 begin
   S := Copy( S, 1, I - 1 ) + ReplTo + CopyEnd( S, I + Length( From ) );
   Result := TRUE;
 end
 else Result := FALSE;
end;

    {$IFDEF SAFE_CODE}
    //inc( self_.fNestedMsgHandling );
    self_.RefInc;
    TRY
    {$ENDIF}
        {$IFDEF DEBUG_KEYDOWN}
        if  M.message = WM_KEYDOWN then
        asm
          nop
        end;
        {$ENDIF}
        Result := self_.WndProc( M );
    {$IFDEF SAFE_CODE}
    FINALLY
       self_.RefDec;
    {$ENDIF}
        //dec( self_.fNestedMsgHandling );
        (*if  (self_.fRefCount = 0) and (self_.fNestedMsgHandling <= 0)
        and {$IFDEF USE_FLAGS} (G2_BeginDestroying in self_.fFlagsG2)
            {$ELSE} self_.fBeginDestroying {$ENDIF}
        and (self_ <> Applet) then
          self_.Free;*)
    {$IFDEF SAFE_CODE}
    END;
    {$ENDIF}

function TControl.WndProc( var Msg: TMsg ): Integer;

        (*if  (self_.fRefCount = 0) and (self_.fNestedMsgHandling <= 0)
        and {$IFDEF USE_FLAGS} (G2_BeginDestroying in self_.fFlagsG2)
            {$ELSE} self_.fBeginDestroying {$ENDIF}
        and (self_ <> Applet) then
          self_.Free;*)

if ListView1.RightClick then
 beep(400,100);

procedure TForm1.ListView1Click(Sender: PObj);

program Test;

uses KOL;

var Toolbar: PControl;

procedure TBClick(Dummy: Pointer; Sender: PControl; BtnID: Integer);
begin
 if Sender.RightClick then
   Applet.Caption := '>>>'
 else
   Applet.Caption := '<<<';
end;

begin
 Applet := NewForm(nil, '').SetSize(200, 100);
 Toolbar := NewToolbar(Applet, caTop, [], 0, [], []);
 Toolbar.TBAssignEvents(Toolbar.TBAddButtons(['X'], []), [TOnToolbarButtonClick(MakeMethod(nil, @TBClick))]);
//  Toolbar := NewToolbar(Applet, caTop, [], 0, ['X'], []);
//  Toolbar.OnTBClick := TOnEvent(MakeMethod(nil, @TBClick));
 Run(Applet);
end.

// TODO: check DLL project
{$IFNDEF NO_STRIP_RELOC}
 // by Thaddy de Koning:
 {$IFDEF _D2006orHigher}
 // strips relocs, like stripreloc.exe does
 {$SetPEFlags 1}
// {$SETPEFlAGS IMAGE_FILE_RELOCS_STRIPPED or IMAGE_FILE_DEBUG_STRIPPED or IMAGE_FILE_LINE_NUMS_STRIPPED or IMAGE_FILE_LOCAL_SYMS_STRIPPED or IMAGE_FILE_REMOVABLE_RUN_FROM_SWAP or IMAGE_FILE_NET_RUN_FROM_SWAP}
 {$ENDIF}
{$ENDIF}

{$IFDEF _D2009orHigher}
function CharInSet(C: AnsiChar; const CharSet: TSetOfChar): Boolean; overload; inline;
function CharInSet(C: WideChar; const CharSet: TSetOfChar): Boolean; overload; inline;
{$ENDIF}

{$IFDEF _D2009orHigher}
function CharInSet(C: AnsiChar; const CharSet: TSetOfChar): Boolean;
begin
 Result := C in CharSet;
end;

function CharInSet(C: WideChar; const CharSet: TSetOfChar): Boolean;
begin
 Result := (C < #$0100) and (AnsiChar(C) in CharSet);
end;
{$ENDIF}

D:\D2010\bin>dcc32 -b d:\kol\kol.pas -DUSE_MHTOOLTIP
Embarcadero Delphi for Win32 compiler version 21.0
Copyright (c) 1983,2009 Embarcadero Technologies, Inc.
d:\kol\KOLDEF.INC(254)
d:\kol\KOLDEF.INC(254)
d:\kol\delphidef.inc(48)
d:\kol\delphicommctrl.inc(1569)
d:\kol\KOL_ansi.inc(2317)
d:\kol\KOLMHToolTip.pas(937)
d:\kol\KOLMHToolTip.pas(937)
d:\kol\KOLMHToolTip.pas(937)
d:\kol\KOLMHToolTip.pas(937)
d:\kol\KOLMHToolTip.pas(937)
d:\kol\MCKfakeClasses200x.inc(51)
d:\kol\KOL_ansi.inc(2317)
d:\kol\KOLMHToolTip.pas(937)
d:\kol\KOLMHToolTip.pas(937)
d:\kol\KOL_ASM.inc(14887)
d:\kol\KOL.pas(65765)
94007 lines, 0.64 seconds, 236025 bytes code, 69536 bytes data.

D:\D2010\bin>dcc32 -b d:\kol\kol.pas -DUSE_MHTOOLTIP -DUNICODE_CTRL
Embarcadero Delphi for Win32 compiler version 21.0
Copyright (c) 1983,2009 Embarcadero Technologies, Inc.
d:\kol\KOLDEF.INC(254)
d:\kol\KOLDEF.INC(254)
d:\kol\delphidef.inc(48)
d:\kol\delphicommctrl.inc(1569)
d:\kol\KOL_ansi.inc(2317)
d:\kol\KOLMHToolTip.pas(937)
d:\kol\KOLMHToolTip.pas(937)
d:\kol\KOLMHToolTip.pas(937)
d:\kol\KOLMHToolTip.pas(937)
d:\kol\KOLMHToolTip.pas(937)
d:\kol\MCKfakeClasses200x.inc(51)
d:\kol\KOL_ansi.inc(2317)
d:\kol\KOLMHToolTip.pas(937)
d:\kol\KOLMHToolTip.pas(937)
d:\kol\KOL_ASM.inc(14887)
d:\kol\KOL.pas(65765)
94007 lines, 0.58 seconds, 236025 bytes code, 69536 bytes data.

function CharInSet(C: WideChar; const CharSet: TSysCharSet): Boolean;
begin
 Result := (C < #$0100) and (AnsiChar(C) in CharSet);
end;

if {$IFDEF _D2009orHigher} CharInSet( w, {$ELSE} (w in {$ENDIF} [ ... ]) then

TSysCharSet = Set of KOLChar;

dcc32.exe -b KOL.pas -dUNICODE_CTRLS;

Borland Delphi Version 15.0
Copyright (c) 1983,2002 Borland Software Corporation
KOLDEF.INC(257)
KOLDEF.INC(257)
delphidef.inc(48)
delphicommctrl.inc(1569)
KOL_unicode.inc(1185)
KOL_unicode.inc(1185)
KOL.pas(21882) Error: Undeclared identifier: 'EAX2PChar'
KOL.pas(21883) Error: Undeclared identifier: 'EDX2PChar'
KOL.pas(21984) Error: Undeclared identifier: 'EAX2PChar'
KOL.pas(21985) Error: Undeclared identifier: 'EDX2PChar'
KOL.pas(45664) Error: Undeclared identifier: 'EDX2PChar'
KOL.pas(45854) Error: Undeclared identifier: 'EDX2PChar'
KOL.pas(46553) Error: Undeclared identifier: 'RemoveStr'
KOL_ASM.inc(2614) Error: Undeclared identifier: 'EDX2PChar'
KOL_ASM.inc(9325) Error: Undeclared identifier: 'RemoveStr'
KOL_ASM.inc(9535) Error: Undeclared identifier: 'RemoveStr'
KOL_ASM.inc(10573) Error: Undeclared identifier: 'RemoveWStr'
KOL_ASM.inc(10703) Error: Undeclared identifier: 'EDX2PChar'
KOL_ASM.inc(10801) Error: Undeclared identifier: 'EmptyString'
KOL_ASM.inc(14930)
KOL.pas(65488)

 list := NewStrListFromString('a=1'+crlf+'b=2');
 writeln(list.IndexOfName('a')); - тут и валится
 writeln(list.IndexOfName('b'));
 writeln(list.IndexOfName('c'));
 list.Free;

program Project1;
uses
 kol;
var sl: PStrList;
begin
 sl := NewStrList;
 try
   sl.SetText('001=a'#13'002=b'#13'003=c', false);
   msgok(sl.Values['002'] + #13#10 + sl.Values['015']);
 finally
   sl.Free;
 end;
end.

if StrLComp_NoCase('01', '02', MaxInt) = 0 then MsgOK('EQUAL');

program Test;

uses KOL;

begin
 if StrLComp_NoCase('11', '12', MaxInt) = 0 then MsgOK('EQUAL');
end.

procedure TDirList.Sort(Rules: array of TSortDirRules);
begin
 if FListPositions = nil then Exit;
 SortDirData.CaseSensitive := false; // надо добавить
 J := 0;

program Test;

uses KOL;

const
 x: PAnsiChar = '001';
 y: PAnsiChar = '002';

begin
 if StrLComp_NoCase(x, y, 1) = 0 then MsgOK('EQUAL: 1 char');
 if StrLComp_NoCase(x, y, 2) = 0 then MsgOK('EQUAL: 2 char');
 if StrLComp_NoCase(x, y, 3) = 0 then MsgOK('EQUAL: 3 char');
 if StrLComp_NoCase(x, y, MaxInt) = 0 then MsgOK('EQUAL: Max char');
end.

function TStrList.GetLineName(Idx: Integer): AnsiString;
var s: AnsiString;
   Q: PAnsiChar;
begin
 s := ItemPtrs[ Idx ];
 Q := StrScan( PAnsiChar(s), fNameDelim );
 if Assigned(Q) then // без этого падает
   Q^ := #0;
 Result := PAnsiChar(s);
end;

list := newstrlist;
list.Add('name');
msgok(list.LineName[0]);

NewForm2(Form2, Applet);
Form2.Form.ShowModal;
Free_And_Nil(Form2.Form);

TmyForm.FreeNil( var F: PMyForm );
var tmp: PMyForm;
begin
   tmp := F;
   F := nil;
   tmp.Form.Free;
end;

dcc32.exe -b KOLCCtrls.pas -dUNICODE_CTRLS;

Borland Delphi Version 15.0
Copyright (c) 1983,2002 Borland Software Corporation
KOLDEF.INC(281)
KOLDEF.INC(281)
delphidef.inc(48)
delphicommctrl.inc(1569)
KOL_unicode.inc(1278)
KOL_unicode.inc(1278)
KOL_ASM.inc(14822)
KOL.pas(65529)
KOLCCtrls.pas(846) Warning: Variable 'fImgIndex' might not have been initialized
KOLCCtrls.pas(959) Error: Incompatible types: 'Char' and 'WideChar'
KOLCCtrls.pas(960) Error: Incompatible types: 'Char' and 'WideChar'
KOLCCtrls.pas(1023) Error: Incompatible types: 'Char' and 'WideChar'
KOLCCtrls.pas(1035) Error: Incompatible types: 'Char' and 'WideChar'
KOLCCtrls.pas(1109) Warning: Suspicious typecast of WideString to PAnsiChar
KOLCCtrls.pas(1436) Warning: Suspicious typecast of WideString to PAnsiChar
KOLCCtrls.pas(1444) Warning: Suspicious typecast of WideString to PAnsiChar
KOLCCtrls.pas(1671) Error: Incompatible types: 'Char' and 'WideChar'
KOLCCtrls.pas(1769)
KOLCCtrls.pas(168) Hint: Private symbol 'DoChange' declared but never used

program Test;

uses
 Windows, Messages, KOL;

begin
 Applet := NewForm(Applet, '');
 with Applet^ do
 begin
   Font.ReleaseHandle;
   Font.AssignHandle(GetStockObject(DEFAULT_GUI_FONT));
   Font.FontHeight := -11;
 end;
 with NewLabel(Applet, 'Test')^ do
   Width := Canvas.TextWidth(Text) + 10;
 Run(Applet);
end.

program Test;

uses
Windows, Messages, KOL;

begin
Applet := NewForm(Applet, '');
with Applet^ do
begin
  Font.ReleaseHandle;
  Font.AssignHandle(GetStockObject(DEFAULT_GUI_FONT));
  Font.FontHeight := -11;
end;
with NewLabel(Applet, 'Test')^ do
begin
  CreateWindow;
  Width := Canvas.TextWidth(Text) + 10;
end;
Run(Applet);
end.

               S[J] := #13;
               S[J-1] := #10;

               S[J] := #10;
               S[J-1] := #13;

Following conditional symbols can be used in a project (Project | Options | Directories/Conditional Defines) to change code generated a bit. There are following:

FPC - Free Pascal version. KOL can be used with such compiler to create Win32 applications. To create Win-CE applications (with FPC compiler), use the separate version of KOL specially designed for it.

1) You should read a message from Thaddy de Koning in koldef.inc near
{$IFDEF FPC} section.
2) You should use Windows.pas and other \win units from earlier
Borland Delphi, e.g. from Delphi 3. May be it is working for units
from Delphi 5 too but I did not check it.
3) Some small changes are necessary in KOL.pas.
A set of assembler procedures starting from EAX2PChar were uncommented
in last versions for some reasons by commenting directives {$IFDEF
ASM_VERSION} with a mark //22 - just remove the mark //22 and allow
the directive work. This section was changed in later versions, so may be other changes are necessary or no changes needed at all.
4) To check that it works I used Free Pascal 2.2.1 but I think that
all is the same for 2.4.0. Use following options (I just write [X] and
(*) items, other items are not marked, but you may experiment):

Syntax
[X] Allow label and goto {default}
[X] Use ANSI strings
(*) Delphi compatible

Generated code
[X] Range checking
[X] I/O checking
[X] Integer overflow checking
[X] Create smartlinkable units
[X] Generate smaller code

Processor
(*) Pentium2/PentiumM/AMD
(*) i386/i486

Verbose - for your decision
Browser - for your decision

Assembler
(*) Intel style assembler
(*) Use default output

Conditional defines
NOT_USE_RICHEDIT;WIN

Directories - change to your paths
Units
D:\FPC\2.2.4\units\i386-Win32\*
D:\FPC\2.2.4\units\i386-Win32\rtl
D:\FPC\2.2.4\units\i386-Win32
c:\Borland\Delphi 3\Source\Rtl\Win
D:\KOL

Include files
D:\KOL

Width := Canvas.TextWidth(Text) + 10;

function TControl.GetCanvas: PCanvas;
asm
       PUSH     EBX
       PUSH     ESI
       {$IFDEF  SAFE_CODE}
       MOV      EBX, EAX
       CALL     CreateWindow --- press F5 here to make a breakpoint
       {$ELSE}
       XCHG     EBX, EAX
       {$ENDIF}

function TControl.GetCanvas: PCanvas; // line 8910
asm
       PUSH     EBX
       PUSH     ESI
       XCHG     EBX, EAX

       MOV      ESI, [EBX].fCanvas
       TEST     ESI, ESI
       JNZ      @@exit
...

program Test;

uses
 Windows, KOL;

procedure EditboxChar(Dummy: Pointer; Sender: PControl; var Key: KOLChar; Shift: DWORD);
begin
 Applet.Caption := Sender.Caption;
end;

begin
 Applet := NewForm(nil, '');
 with NewEditbox(Applet, [])^ do
   OnKeyChar := TOnChar(MakeMethod(nil, @EditboxChar));
 Run(Applet);
end.

if assigned( Self_.EV.fOnChar ) then

if assigned( Sender.EV.fOnChar ) then