unit CalendarDelphi;

interface

uses System.Data, System.Drawing, System.Web, System.Web.UI,
     System.Web.UI.WebControls, System.Web.UI.HtmlControls,
     System.ComponentModel,
     System.Globalization,
     ASPNET.StarterKit.Portal; //  namespace PortalModuleControl/C#

type

  TWebUserDelphiCalendrier = class(PortalModuleControl) //  héritage

C:\Program Files\Microsoft.Net\SDK\v1.1\Bin\XSD.EXE PortalCfg.xsd /language:CS /D

<asp:hyperlink id=EditButton enableviewstate="false" 
                       cssclass="CommandButton" runat="server">
        </asp:hyperlink>

  ContactsDB = class
  public
    constructor Create;
    function AddContact(moduleId: Integer; itemId: Integer; userName: Widestring; 
	name: Widestring; role: Widestring; email: Widestring; contact1: Widestring; contact2: Widestring): Integer;
    procedure DeleteContact(itemID: Integer);
    function GetContacts(moduleId: Integer): DataSet;
    {$IFDEF SQLSERVEUR}
    function GetSingleContact(itemId: Integer): SqlDataReader;
    {$ELSE}
    function GetSingleContact(itemId: Integer): FbDataReader;
    {$ENDIF}
    procedure UpdateContact(moduleId: Integer; itemId: Integer; userName: Widestring; 
	name: Widestring; role: Widestring; email: Widestring; contact1: Widestring; contact2: Widestring);
  end;

PortalSecurity = class
  public
    constructor Create;
    class function Encrypt(cleanString: Widestring): Widestring; static;
    class function HasEditPermissions(moduleId: Integer): boolean; static;
    class function IsInRole(role: Widestring): boolean; static;
    class function IsInRoles(roles: Widestring): boolean; static;
  end;

procedure TWebFormDefault.Page_Load(sender: System.Object; e: System.EventArgs);
begin
  if (Request.Browser['IsMobileDevice']= 'true' )
  then Response.Redirect(DEFAULT_MOBILEINDEX)
  else Response.Redirect(DEFAULT_DESKTOPINDEX);
end;

 HtmlTabbedPanelAdapter = class(HtmlControlAdapter)
  strict protected
  public
    procedure Render(writer: HtmlMobileTextWriter); override;
    function get_Control: TabbedPanel; reintroduce;
    property Control: TabbedPanel read get_Control;
  strict private
    class function GetColorString(color: Color; defaultColor: Widestring): Widestring;static;
  end;


  WmlTabbedPanelAdapter = class(WmlControlAdapter)
  strict private
    _menu: List;
    procedure OnListItemCommand(sender: &Object; e: ListCommandEventArgs);
  strict protected
    function get_Control: TabbedPanel; reintroduce;
    property Control: TabbedPanel read get_Control;
  public
    procedure OnInit(e: EventArgs); override;
    procedure OnLoad(e: EventArgs); override;
    procedure Render(writer: WmlMobileTextWriter); override;
  end;

  ChtmlTabbedPanelAdapter = class(HtmlControlAdapter)
  strict protected
    function get_Control: TabbedPanel; reintroduce;
    property Control: TabbedPanel read get_Control;
  public
    procedure Render(writer: HtmlMobileTextWriter); override;
  end;

TCachedPortalModuleControl = class(Control)
// Private field variables
private
  _moduleConfiguration: ModuleSettings;
  _cachedOutput   : Widestring;
  _portalId       : integer;
strict protected
  procedure CreateChildControls; override;
  procedure Render(output: HtmlTextWriter); override;
public
    function get_CacheKey: Widestring;
    function get_ModuleId: Integer;
  // Methods
  public constructor Create;
published
  // Properties
  property CacheKey: Widestring read get_CacheKey;
  property ModuleConfiguration: ModuleSettings read _ModuleConfiguration write _ModuleConfiguration;
  property ModuleId: Integer read get_ModuleId;
  property PortalId: Integer read _PortalId write _PortalId;
end;

<Module ModuleId="1" 
	ModuleTitle="QuickLinks" 
	EditRoles="Admins;Participants;" 
	ModuleDefId="8" 
	PaneName="leftPane" 
	CacheTimeout="120" 
	ModuleOrder="7" 
	ShowMobile="false"/>

procedure TCachedPortalModuleControl.Render(output: HtmlTextWriter);
var
tempWriter : TextWriter;
begin
  if (_moduleConfiguration.CacheTime = 0) then
  begin
      inherited Render(output);
      exit;
  end
  else
  begin
    if (_cachedOutput = '') then
    begin
      tempWriter := stringWriter.Create();
      inherited Render(HtmlTextWriter.Create(tempWriter));
      _cachedOutput := tempWriter.ToString();
      Context.Cache.Insert(	CacheKey,_cachedOutput, 
	  				nil, 
	  				DateTime.Now.AddSeconds(_moduleConfiguration.CacheTime), 
	  				TimeSpan.Zero);
    end;
    output.Write(_cachedOutput);
  end;
end;

var
module : TPortalModuleControl;
begin
  if (_moduleConfiguration.CacheTime > 0) then
                _cachedOutput := Widestring(Context.Cache[CacheKey]);
  if (_cachedOutput='') then
  begin
    inherited CreateChildControls();
    module := TPortalModuleControl(Page.LoadControl(_moduleConfiguration.DesktopSrc));
    module.ModuleConfiguration := Self.ModuleConfiguration;
    module.PortalId := Self.PortalId;
    Self.Controls.Add(module);
  end;