Reply #7 Passion's post
OK, but is it possible to at least show the current config, that is can there be an event that fires when the configuration changes ? Want to place the text somewhere (on the Toolbar would be perfect).
Did this really simple script and it works the first time it runs (runs on ofnActiveProjectChange). Traps the second time....
program BC;
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
var
BC: IOTAProjectOptionsConfigurations;
Bar: TStatusBar;
begin
BC := CnOtaGetActiveProjectOptionsConfigurations(nil);
if BC <> nil then
begin
ShowMessage(BC.GetActiveConfiguration.GetName);
// Bar := GetStatusBarFromEditor(GetCurrentEditControl);
// Bar.SimplePanel := True;
// Bar.SimpleText := BC.GetActiveConfiguration.GetName;
end;
end.
|