Проекты, свободные от cg32.dll

В какой-то момент один из старых проектов начал плеваться сообщениями CodeGuard, хотя сам кодгард в проекте выключен. Различные вариации параметров сборки так и не помогли избавиться от включения библиотеки cg32.dll в проект. Очень долгим и муторным путём удалось вычистить включение этой либы в проект. Что пришлось проделать:

1. Выключаем CodeGuard в опциях проекта
2. Выключаем CodeGuard в самом билдере: Tools -> CodeGuard Configuration



3. Выбираем Project -> Edit Option Source и два блока делаем такими:
для DLL:

    <OPTIONS>
    <IDLCFLAGS value="-I$(BCB)\include 
      -I$(BCB)\include\vcl -src_suffix cpp -boa"/>
    <CFLAG1 value="-Od -H=$(BCB)\lib\vcl50.csm 
         -Hc -w- -Vx -Ve -X- -a8 -4 -b- -k- -vi -c -tW 
      -tWM"/>
    <PFLAGS value="-$Y- -$L- -$D- -v -JPHNE -M"/>
    <RFLAGS value=""/>
    <AFLAGS value="/mx /w2 /zn"/>
    <LFLAGS value="-D"" -aa -Tpe -x -Gn"/>
  </OPTIONS>
  <LINKER>
    <ALLOBJ value="c0d32.obj Memmgr.Lib sysinit.obj 
                $(OBJFILES)"/>
    <ALLRES value="$(RESFILES)"/>
    <ALLLIB value="$(LIBFILES) $(LIBRARIES)
               import32.lib cp32mti.lib"/>
  </LINKER>

а для приложения так:

  <OPTIONS>
    <IDLCFLAGS value="-I$(BCB)\Projects
         -I$(BCB)\include 
         -I$(BCB)\include\vcl -src_suffix cpp -no_tie -boa"/>
    <CFLAG1 value="-O2 -H=$(BCB)\lib\vcl50.csm 
       -Hc -w- -Vx -Ve -X- -a8 -4 -b- -k- -vi -c -tW 
      -tWM"/>
    <PFLAGS value="-$Y- -$L- -$D- -v -JPHNE -M"/>
    <RFLAGS value=""/>
    <AFLAGS value="/mx /w2 /zn"/>
    <LFLAGS value="-D"" -H:0x1000000 -Hc:0x100000 
              -B:0x4000000 -S:0x1000000 -Sc:0x100000 -aa 
      -Tpe -x -Gn"/>
  </OPTIONS>
  <LINKER>
    <ALLOBJ value="c0w32.obj Memmgr.Lib 
         sysinit.obj $(OBJFILES)"/>
    <ALLRES value="$(RESFILES)"/>
    <ALLLIB value="$(LIBFILES) $(LIBRARIES) 
         import32.lib cp32mti.lib"/>
  </LINKER>

4. Удаляем все *.obj и *.tds
5. Делаем полный билд проекта
6. После сборки проверяем командой

   tdump имя_проекта.exe > связи.txt

Кривой скроллинг в TAdvStringGrid 2.8

Компонент TAdvStringGrid версии 2.8 (про другие не знаю) не совсем корректно обрабатывает прокрутку таблицы. Так, если начать скроллинг в другом компоненте и там достигнуть конца прокрутки, то скроллинг "возвращается" в AdvStringGrid, даже если мышка не над этим компонентом. Поэтому лезем в исходник и добавляем такой код:

{$IFDEF DELPHI5_LVL}
function TAdvStringGrid.DoMouseWheelDown(Shift: TShiftState;
  MousePos: TPoint): Boolean;
var
  lc: Integer;
  p: TPoint;
begin
  GetCursorPos(p);
  if (not PtInRect(ClientRect, ScreenToClient(p))) then begin
    Result := false; exit; end; //Sleep(1);
  if (goRowSelect in Options) and Navigation.KeepHorizScroll then
  begin
    StartUpdate;
    lc := LeftCol;
    Result := inherited DoMouseWheelDown(Shift,MousePos);
    LeftCol := lc;
    ResetUpdate;
  end
  else
    Result := inherited DoMouseWheelDown(Shift,MousePos);
end;

function TAdvStringGrid.DoMouseWheelUp(Shift: TShiftState;
  MousePos: TPoint): Boolean;
var
  lc: Integer;
  p: TPoint;
begin
  GetCursorPos(p);
  if (not PtInRect(ClientRect, ScreenToClient(p))) then begin
    Result := false; exit; end; //Sleep(1);
  if (goRowSelect in Options) and Navigation.KeepHorizScroll then
  begin
    StartUpdate;
    lc := LeftCol;
    Result := inherited DoMouseWheelUp(Shift,MousePos);
    LeftCol := lc;
    ResetUpdate;
  end
  else
  begin
    if (Row < RowCount) and (Col < ColCount) then
      Result := inherited DoMouseWheelUp(Shift,MousePos)
    else
      Result := True;
  end;
end;
{$ENDIF}