Demos > XI > Features > MenuFrame.pas

unit MenuFrame;

interface

uses

{$IFDEF Linux}QForms,{$ELSE}Forms,{$ENDIF}

{$IFDEF Linux}QControls,{$ELSE}Controls,{$ENDIF}

{$IFDEF Linux}QGraphics,{$ELSE}Graphics,{$ENDIF}

{$IFDEF Linux}QDialogs,{$ELSE}Dialogs,{$ENDIF}

{$IFNDEF Linux}

Windows, Messages,

{$ENDIF}

SysUtils, Classes, IWControl, IWHTMLControls,

IWCompButton, IWCompLabel, IWAppForm, IWContainer, IWRegion,

IWBaseControl, IWCompMenu, Menus, ImgList, IWImageList,

IWVCLBaseControl, IWBaseHTMLControl, IWVCLBaseContainer, IWHTMLContainer,

IWHTML40Container;

type

TframMenu = class(TFrame)

MainMenu1: TMainMenu;

Basefeatures1: TMenuItem;

SimpleInputForm1: TMenuItem;

MessageDialogs1: TMenuItem;

Miscelleaneous1: TMenuItem;

DownloadForm1: TMenuItem;

PopupContentWindow1: TMenuItem;

Advancedcontrols1: TMenuItem;

StyleSheets1: TMenuItem;

IntractiveImage1: TMenuItem;

JavaApplet1: TMenuItem;

imerSubmit1: TMenuItem;

Grids1: TMenuItem;

DisplayGrid1: TMenuItem;

EditableGrid1: TMenuItem;

Layoutcontrols1: TMenuItem;

HTMLTemplate1: TMenuItem;

FlowLayout1: TMenuItem;

Dynamiccontrols1: TMenuItem;

PDFdemo1: TMenuItem;

IWImageList1: TIWImageList;

hread1: TMenuItem;

N1: TMenuItem;

Exit1: TMenuItem;

N3: TMenuItem;

Alignandanchors1: TMenuItem;

N4: TMenuItem;

Fileupload1: TMenuItem;

Flashmovie1: TMenuItem;

reeview1: TMenuItem;

CalendarDemo1: TMenuItem;

Regions1: TMenuItem;

ServerSideResize1: TMenuItem;

ActiveX1: TMenuItem;

QuickTimeMovie1: TMenuItem;

MPEGMovie1: TMenuItem;

Subtemplates1: TMenuItem;

Serverfeatures1: TMenuItem;

N7: TMenuItem;

Embededobjects1: TMenuItem;

IWFrameRegion: TIWRegion;

IWMenu1: TIWMenu;

procedure linkSimpleInputFormClick(Sender: TObject);

procedure linkHomeClick(Sender: TObject);

procedure linkPopupContentClick(Sender: TObject);

procedure DownloadForm1Click(Sender: TObject);

procedure StyleSheets1Click(Sender: TObject);

procedure IntractiveImage1Click(Sender: TObject);

procedure DisplayGrid1Click(Sender: TObject);

procedure EditableGrid1Click(Sender: TObject);

procedure JavaApplet1Click(Sender: TObject);

procedure imerSubmit1Click(Sender: TObject);

procedure HTMLTemplate1Click(Sender: TObject);

procedure FlowLayout1Click(Sender: TObject);

procedure PDFdemo1Click(Sender: TObject);

procedure Miscelleaneous1Click(Sender: TObject);

procedure MessageDialogs1Click(Sender: TObject);

procedure Exit1Click(Sender: TObject);

procedure hread1Click(Sender: TObject);

procedure Alignandanchors1Click(Sender: TObject);

procedure Fileupload1Click(Sender: TObject);

procedure Flashmovie1Click(Sender: TObject);

procedure reeview1Click(Sender: TObject);

procedure CalendarDemo1Click(Sender: TObject);

procedure Regions1Click(Sender: TObject);

procedure ServerSideResize1Click(Sender: TObject);

procedure ActiveX1Click(Sender: TObject);

procedure MPEGMovie1Click(Sender: TObject);

procedure QuickTimeMovie1Click(Sender: TObject);

procedure Subtemplates1Click(Sender: TObject);

private

procedure Move(AFormClass: TIWAppFormClass);

public

constructor Create(AOwner: TComponent); override;

end;

implementation

{$R *.dfm}

uses

AlignAnchorsForm,

Combobox, ContentWindow, CalendarForm,

DownloadForm,

EditGridForm,

FlowForm, Flash,

GridForm,

IWInit, IWTypes,

JavaApplet,

Main, MessageDialogs, MapForm,

Simple, StyleSheetForm, FileUploadForm,

SubTemplatesForm,

TimerForm, TemplateForm, pdfDemoForm,

TreeViewForm, Threaded, RegionForm, ResizeForm, ActiveXForm, MPEGForm,

QuickTimeForm;

procedure TframMenu.Move(AFormClass: TIWAppFormClass);

begin

// Release the current form

TIWAppForm(WebApplication.ActiveForm).Release;

// Create the next form

AFormClass.Create(WebApplication).Show;

end;

procedure TframMenu.linkSimpleInputFormClick(Sender: TObject);

begin

Move(TformSimple);

end;

procedure TframMenu.linkHomeClick(Sender: TObject);

begin

Move(TformMain);

end;

procedure TframMenu.linkPopupContentClick(Sender: TObject);

begin

Move(TformContentWindow);

end;

constructor TframMenu.Create(AOwner: TComponent);

begin

inherited;

// DynamicChart1.Enabled := WebApplication.Browser = brIE;

end;

procedure TframMenu.DownloadForm1Click(Sender: TObject);

begin

Move(TformDownload);

end;

procedure TframMenu.StyleSheets1Click(Sender: TObject);

begin

Move(TformStyleSheets);

end;

procedure TframMenu.IntractiveImage1Click(Sender: TObject);

begin

Move(TformMap);

end;

procedure TframMenu.DisplayGrid1Click(Sender: TObject);

begin

Move(TformGrids);

end;

procedure TframMenu.EditableGrid1Click(Sender: TObject);

begin

Move(TformEditGrid);

end;

procedure TframMenu.JavaApplet1Click(Sender: TObject);

begin

Move(TformJavaApplet);

end;

procedure TframMenu.imerSubmit1Click(Sender: TObject);

begin

Move(TformTimer);

end;

procedure TframMenu.HTMLTemplate1Click(Sender: TObject);

begin

TformTemplate.Create(WebApplication).Show;

end;

procedure TframMenu.FlowLayout1Click(Sender: TObject);

begin

TformFlow.Create(WebApplication).Show;

end;

procedure TframMenu.PDFdemo1Click(Sender: TObject);

begin

Move(TformPdfDemo);

end;

procedure TframMenu.Miscelleaneous1Click(Sender: TObject);

begin

Move(TformComboboxes);

end;

procedure TframMenu.MessageDialogs1Click(Sender: TObject);

begin

Move(TformMessageDialogs);

end;

procedure TframMenu.Exit1Click(Sender: TObject);

begin

WebApplication.TerminateAndRedirect('http://www.atozed.com');

end;

procedure TframMenu.hread1Click(Sender: TObject);

begin

Move(TformThreaded);

end;

procedure TframMenu.Alignandanchors1Click(Sender: TObject);

begin

Move(TformAlignAnchor);

end;

procedure TframMenu.Fileupload1Click(Sender: TObject);

begin

Move(TformFileUploadDemo);

end;

procedure TframMenu.Flashmovie1Click(Sender: TObject);

begin

Move(TformFlash);

end;

procedure TframMenu.reeview1Click(Sender: TObject);

begin

Move(TformTreeView);

end;

procedure TframMenu.CalendarDemo1Click(Sender: TObject);

begin

Move(TformCalendar);

end;

procedure TframMenu.Regions1Click(Sender: TObject);

begin

Move(TformRegion);

end;

procedure TframMenu.ServerSideResize1Click(Sender: TObject);

begin

Move(TformResize);

end;

procedure TframMenu.ActiveX1Click(Sender: TObject);

begin

Move(TformActiveX);

end;

procedure TframMenu.MPEGMovie1Click(Sender: TObject);

begin

Move(TformMPEG);

end;

procedure TframMenu.QuickTimeMovie1Click(Sender: TObject);

begin

Move(TformQuickTime);

end;

procedure TframMenu.Subtemplates1Click(Sender: TObject);

begin

Move(TformSubTemplates);

end;

end.