david
13eee3f7f4
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.jcl@20 c37d764d-f447-7644-a108-883140d013fb
30 lines
675 B
ObjectPascal
30 lines
675 B
ObjectPascal
unit StackTraceViewerDummyExampleReg;
|
|
|
|
interface
|
|
|
|
procedure Register;
|
|
|
|
implementation
|
|
|
|
uses
|
|
JclStackTraceViewerAPI, DummyLineNumberTranslator, DummyRevisionProvider;
|
|
|
|
var
|
|
LineNumberTranslatorIndex: Integer = -1;
|
|
RevisionProviderIndex: Integer = -1;
|
|
|
|
procedure Register;
|
|
begin
|
|
RegisterLineNumberTranslator(TDummyLineNumberTranslator.Create);
|
|
RegisterRevisionProvider(TDummyRevisionProvider.Create);
|
|
end;
|
|
|
|
initialization
|
|
|
|
finalization
|
|
if LineNumberTranslatorIndex <> -1 then
|
|
UnregisterLineNumberTranslator(LineNumberTranslatorIndex);
|
|
if RevisionProviderIndex <> -1 then
|
|
UnregisterRevisionProvider(RevisionProviderIndex);
|
|
|
|
end. |