{$IFNDEF FPC}
   {$IFDEF UNICODE_CTRLS}
     {$DEFINE interface_part} {$I KOL_unicode.inc} {$UNDEF interface_part}
   {$ELSE} // ANSI_CTRLS
     {$DEFINE interface_part} {$I KOL_ansi.inc} {$UNDEF interface_part}
   {$ENDIF UNICODE_CTRLS}
 {$ENDIF}

{$IFDEF FPC}
  Result := CompareFileTime( @ft1, @ft2 );
{$ELSE}
  Result := CompareFileTime( ft1, ft2 );
{$ENDIF}

{$UNDEF FPC} //!! first
{$DEFINE VER170}
{$MODE DELPHI} //(or c.l. -Mdelphi )
//{$MODE DelphiUnicode} //Activates unicode string type (refcounted) instead of widestring
{$DEFINE PASVERSION} //or c.l. -dPASVERSION

fpc <more options> -vm4056,4086 <your program>

fpc -vq

{$IFDEF WIN64}
 {$DEFINE x64}
 {$DEFINE PAS_VERSION}
{$ENDIF}

{$IFDEF OLD_TRANSPARENT}
function WndProcTransparent( Sender: PControl; var Msg: TMsg;
    var Rslt: Integer ): Boolean;
var      DC, PDC, BLTDC: HDC;
         Save: integer;
         OLDp: THANDLE;
         L, T: SmallInt;
         TP, ParentClient: TPoint;
         TR, Margins: TRect;
         Wnd: HWND;
         tRgn: HRgn;
         C: PControl;
begin
    Result := FALSE;
    {$IFDEF STOP_WNDPROCTRANSPARENT_AFTER_APPLETTERMINATED}
    if AppletTerminated or not Sender.ToBeVisible then
    begin
      Exit;
    end;
    {$ENDIF}

    case Msg.message of
        WM_HSCROLL, WM_VSCROLL:
            begin
                Sender.Invalidate;
                exit;
            end;
        WM_SETTEXT:
            begin
                if  {$IFDEF USE_FLAGS} not(G1_IsStaticControl in Sender.fFlagsG1)
                    {$ELSE} Sender.fIsStaticControl = 0 {$ENDIF} then exit;
                Sender.Invalidate;
                Rslt := DefWindowProc
                  ( Sender.fHandle, WM_SETTEXT, Msg.wParam, Msg.lParam );
                Result := TRUE;
                exit;
            end;
        WM_NCPAINT:
            begin
                if {$IFDEF USE_FLAGS} G2_Transparent in Sender.fFlagsG2
                   {$ELSE} Sender.fTransparent {$ENDIF} then
                    Result := TRUE;
                exit;
            end;
    end;

    if  {$IFDEF USE_FLAGS} (G2_Transparent in Sender.fFlagsG2)
        {$ELSE} Sender.fTransparent {$ENDIF} and (
        {$IFDEF USE_FLAGS} not(G2_DoubleBuffered in Sender.FParent.fFlagsG2)
        {$ELSE} not Sender.fParent.fDoubleBuffered {$ENDIF} ) then
        {$IFDEF USE_FLAGS} exclude( Sender.fFlagsG2, G2_Transparent );
        {$ELSE}  Sender.fTransparent := FALSE; {$ENDIF}
    if  {$IFDEF USE_FLAGS} [G2_DoubleBuffered, G2_Transparent] * Sender.fFlagsG2 = []
        {$ELSE} not (Sender.fTransparent or Sender.fDoubleBuffered) {$ENDIF} then exit;
    if  Sender.fAnchors and SELF_REQ_PAINT <> 0 then exit;

    case Msg.message of
        WM_ERASEBKGND:
            begin
                Result := TRUE;
            end;
        WM_PAINT:
            begin
                ValidateRect(Sender.fHandle, nil);  //???--brandys???
                if {$IFDEF USE_FLAGS} (G2_Transparent in Sender.fFlagsG2)
                   {$ELSE} Sender.fTransparent {$ENDIF}
                and (Sender.fAnchors and PARENT_REQ_PAINT = 0) then
                begin
                    InvalidateRect(Sender.fParent.Handle, nil, FALSE);
                    Result := TRUE;
                    exit;
                end;

                GetClientRect(Msg.hwnd, Margins);
                OLDp := 0;
                if  Sender.fAnchors and PARENT_REQ_PAINT = 0 then
                begin
                    Sender.fDblExcludeRgn := CreateRectRgn(0, 0, Margins.Right, Margins.Bottom);
                    DC := GetDC(0);
                    PDC := CreateCompatibleDC( DC );
                    OLDp := SelectObject(PDC,
                        CreateCompatibleBitmap(DC, Margins.Right, Margins.Bottom) );
                    ReleaseDC(0, DC);
                    Sender.fParentCoordX := 0;
                    Sender.fParentCoordy := 0;
                end else begin
                    PDC := Msg.wParam;
                    Sender.fDblExcludeRgn := Sender.fParent.fDblExcludeRgn;
                end;

                Sender.fAnchors := Sender.fAnchors or SELF_REQ_PAINT;
                Sender.fPaintDC := PDC;
                if  (Sender.fAnchors and PARENT_REQ_PAINT = 0) or
                    {$IFDEF USE_FLAGS} (G2_DoubleBuffered in Sender.fFlagsG2)
                    {$ELSE} Sender.fDoubleBuffered {$ENDIF} then
                    Sender.Perform(WM_ERASEBKGND, PDC, 0);
                Sender.Perform(WM_PAINT, PDC, 0);

                Wnd := GetWindow( Sender.fHandle, GW_CHILD );
                Wnd := GetWindow( Wnd, GW_HWNDLAST);
                while Wnd <> 0 do begin
                    if IsWindowVisible(Wnd) then begin
                        {$IFDEF USE_PROP}
                        C := Pointer( GetProp( Wnd, ID_SELF ) );
                        {$ELSE}
                        C := Pointer( GetWindowLong( Wnd, GWL_USERDATA ) );
                        {$ENDIF}
                        with C^ do begin
                            if  (C <> nil) and
                                {$IFDEF USE_FLAGS} ( [G2_DoubleBuffered, G2_Transparent]
                                        * fFlagsG2 <> [] )
                                {$ELSE} (fTransparent or fDoubleBuffered) {$ENDIF} then
                            begin
--//--
end;
{$ELSE NEW_TRANSPARENT}