Добавлено: 14 дек 2010, 22:08
Я извеняюсь, но это издевательство какоето в разделе описания значит есть условие
а в разделе реализации
думал подправить так эта хрень по всму коду, вы не думали както вынести DEP_SVG отдельно? вам же проще сопровождать будет
и еще зачем в разделе инициализации вот это?
особенно радует gOpcApplication.Start();
поскольку настройка подключения к ОРС-серверу происходит после загрузки приложения, на компах где нет установленного виндеконта наблюдаются весьма неприятные эффекты.
Код: Выделить всё
{$IFDEF DEP_SVG}
TdepOpcSvgWidget = class;
TdepOpcListSvgWidgets = class;
TdepOpcRunSvgObj = class;
TdepOpcListRunSvgObjs = class;
TdepOpcListRunSvgWidgets = class;
TdepOpcRunSvgWidget = class;
{$ENDIF}
а в разделе реализации
Код: Выделить всё
var
gDLLInstance: THandle;
gApplicationEvents: TApplicationEvents;
gTmpRunSvgWidget: TdepOpcRunSvgWidget;
gTmpSvgWidget: TdepOpcSvgWidget;
думал подправить так эта хрень по всму коду, вы не думали както вынести DEP_SVG отдельно? вам же проще сопровождать будет
и еще зачем в разделе инициализации вот это?
Код: Выделить всё
gTmpRunSvgWidget := TdepOpcRunSvgWidget.Create(nil, nil, nil);
gTmpSvgWidget := TdepOpcSvgWidget.Create(nil, EmptyStr);
if not IntoIDE() and not IsLibrary then
begin
gOpcApplication := TdepOpcApplication.Create(nil);
CoInitialize(nil);
gOpcApplication.Start();
end;
особенно радует gOpcApplication.Start();
поскольку настройка подключения к ОРС-серверу происходит после загрузки приложения, на компах где нет установленного виндеконта наблюдаются весьма неприятные эффекты.