{******************************************************************************}
{                                                                              }
{                       Pascal Script Source File                              }
{                                                                              }
{             Run by RemObjects Pascal Script in CnPack IDE Wizards            }
{                                                                              }
{                                   Generated by CnPack IDE Wizards            }
{                                                                              }
{******************************************************************************}

program Theme;

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

begin
  if CnOtaIDESupportsTheming then
  begin
    if CnOtaGetIDEThemingEnabled then
    begin
      InfoDlg('Theme Enabled. Active Theme is ' + CnOtaGetActiveThemeName);
    end
    else
      InfoDlg('Theme Support Disabled.');
  end
  else
    InfoDlg('Theme NOT Support');
end.
