home *** CD-ROM | disk | FTP | other *** search
- //------------------------------------------------------------------------------
- // <autogenerated>
- // This code was generated by a tool.
- // Runtime Version: 1.0.3705.288
- //
- // Changes to this file may cause incorrect behavior and will be lost if
- // the code is regenerated.
- // </autogenerated>
- //------------------------------------------------------------------------------
-
- unit ASP;
-
- interface
-
- uses System.Collections, System.Collections.Specialized, System.Configuration,
- System.Text, System.Text.RegularExpressions, System.Web, System.Web.Caching,
- System.Web.SessionState, System.Web.Security, System.Web.UI, System.Web.UI.WebControls,
- System.Web.UI.HtmlControls, System.Globalization, System.Drawing;
-
- var
- wombat_aspx___autoHandlers: Integer;
- wombat_aspx___intialized: Boolean = False;
- wombat_aspx___fileDependencies: System.Collections.ArrayList;
- type
- wombat_aspx = class(System.Web.UI.Page, System.Web.SessionState.IRequiresSessionState)
- protected
- Name: System.Web.UI.WebControls.TextBox;
- __control4: System.Web.UI.WebControls.ListItem;
- __control5: System.Web.UI.WebControls.ListItem;
- __control6: System.Web.UI.WebControls.ListItem;
- __control3: System.Web.UI.WebControls.ListItemCollection;
- Category: System.Web.UI.WebControls.DropDownList;
- __control7: System.Web.UI.WebControls.Button;
- __control8: System.Web.UI.WebControls.TableItemStyle;
- __control9: System.Web.UI.WebControls.TableItemStyle;
- __control10: System.Web.UI.WebControls.TableItemStyle;
- __control11: System.Web.UI.WebControls.TableItemStyle;
- __control12: System.Web.UI.WebControls.TableItemStyle;
- __control13: System.Web.UI.WebControls.TableItemStyle;
- __control14: System.Web.UI.WebControls.TableItemStyle;
- MyCal: System.Web.UI.WebControls.Calendar;
- Message: System.Web.UI.WebControls.Label;
- __control2: System.Web.UI.HtmlControls.HtmlForm;
- procedure OnLookupClick (Sender: System.Object; E: EventArgs);
- public
- constructor Create;
- function get_AutoHandlers: Integer; override;
- function get_ApplicationInstance: System.Web.HttpApplication; virtual;
- function get_TemplateSourceDirectory: string; override;
- procedure set_AutoHandlers(Value: Integer); override;
- protected
- property AutoHandlers: Integer read get_AutoHandlers write set_AutoHandlers;
- property ApplicationInstance: System.Web.HttpApplication read get_ApplicationInstance;
- public
- property TemplateSourceDirectory: string read get_TemplateSourceDirectory;
- private
- function __BuildControlName: System.Web.UI.Control;
- procedure __BuildControl__control4;
- procedure __BuildControl__control5;
- procedure __BuildControl__control6;
- procedure __BuildControl__control3(__ctrl: System.Web.UI.WebControls.ListItemCollection);
- function __BuildControlCategory: System.Web.UI.Control;
- function __BuildControl__control7: System.Web.UI.Control;
- procedure __BuildControl__control8(__ctrl: System.Web.UI.WebControls.TableItemStyle);
- procedure __BuildControl__control9(__ctrl: System.Web.UI.WebControls.TableItemStyle);
- procedure __BuildControl__control10(__ctrl: System.Web.UI.WebControls.TableItemStyle);
- procedure __BuildControl__control11(__ctrl: System.Web.UI.WebControls.TableItemStyle);
- procedure __BuildControl__control12(__ctrl: System.Web.UI.WebControls.TableItemStyle);
- procedure __BuildControl__control13(__ctrl: System.Web.UI.WebControls.TableItemStyle);
- procedure __BuildControl__control14(__ctrl: System.Web.UI.WebControls.TableItemStyle);
- function __BuildControlMyCal: System.Web.UI.Control;
- function __BuildControlMessage: System.Web.UI.Control;
- function __BuildControl__control2: System.Web.UI.Control;
- procedure __BuildControlTree(__ctrl: System.Web.UI.Control);
- protected
- procedure FrameworkInitialize; override;
- public
- function GetTypeHashCode: Integer; override;
- end;
-
- implementation
-
-
-
- procedure wombat_aspx.OnLookupClick (Sender: System.Object; E: EventArgs);
- begin
- Message.Text := 'Hi ' +
- Server.HtmlEncode (Name.Text) +
- ', you selected: ' +
- Category.SelectedItem.Text +
- ' on: ' +
- MyCal.SelectedDate.ToShortDateString;
- end;
-
- constructor wombat_aspx.Create;
- var
- dependencies: System.Collections.ArrayList;
- begin
- inherited Create;
-
- if (ASP.wombat_aspx___intialized = False) then
- begin
- dependencies := System.Collections.ArrayList.Create;
- dependencies.Add('c:\d4npe\wombat.aspx');
- ASP.wombat_aspx___fileDependencies := dependencies;
- ASP.wombat_aspx___intialized := True;
- end;
- Self.Server.ScriptTimeout := 30000000;
- end;
-
- function wombat_aspx.get_AutoHandlers: Integer;
- begin
- Result := ASP.wombat_aspx___autoHandlers;
- end;
-
- function wombat_aspx.get_ApplicationInstance: System.Web.HttpApplication;
- begin
- Result := Self.Context.ApplicationInstance as System.Web.HttpApplication;
- end;
-
- function wombat_aspx.get_TemplateSourceDirectory: string;
- begin
- Result := '/d4npe';
- end;
-
- procedure wombat_aspx.set_AutoHandlers(Value: Integer);
- begin
- ASP.wombat_aspx___autoHandlers := Value;
- end;
-
- function wombat_aspx.__BuildControlName: System.Web.UI.Control;
- var
- __ctrl: System.Web.UI.WebControls.TextBox;
- begin
-
- __ctrl := System.Web.UI.WebControls.TextBox.Create;
- Self.Name := __ctrl;
- __ctrl.ID := 'Name';
- Result := __ctrl;
- end;
-
- procedure wombat_aspx.__BuildControl__control4;
- var
- __parser: System.Web.UI.IParserAccessor;
- __ctrl: System.Web.UI.WebControls.ListItem;
- begin
-
- __ctrl := System.Web.UI.WebControls.ListItem.Create;
- Self.__control4 := __ctrl;
- __parser := __ctrl as System.Web.UI.IParserAccessor;
- __parser.AddParsedSubObject(System.Web.UI.LiteralControl.Create('psychology'));
- end;
-
- procedure wombat_aspx.__BuildControl__control5;
- var
- __parser: System.Web.UI.IParserAccessor;
- __ctrl: System.Web.UI.WebControls.ListItem;
- begin
-
- __ctrl := System.Web.UI.WebControls.ListItem.Create;
- Self.__control5 := __ctrl;
- __parser := __ctrl as System.Web.UI.IParserAccessor;
- __parser.AddParsedSubObject(System.Web.UI.LiteralControl.Create('business'));
- end;
-
- procedure wombat_aspx.__BuildControl__control6;
- var
- __parser: System.Web.UI.IParserAccessor;
- __ctrl: System.Web.UI.WebControls.ListItem;
- begin
-
- __ctrl := System.Web.UI.WebControls.ListItem.Create;
- Self.__control6 := __ctrl;
- __parser := __ctrl as System.Web.UI.IParserAccessor;
- __parser.AddParsedSubObject(System.Web.UI.LiteralControl.Create('popular_comp'));
- end;
-
- procedure wombat_aspx.__BuildControl__control3(__ctrl: System.Web.UI.WebControls.ListItemCollection);
- begin
- Self.__BuildControl__control4;
- __ctrl.Add(Self.__control4);
- Self.__BuildControl__control5;
- __ctrl.Add(Self.__control5);
- Self.__BuildControl__control6;
- __ctrl.Add(Self.__control6);
- end;
-
- function wombat_aspx.__BuildControlCategory: System.Web.UI.Control;
- var
- __ctrl: System.Web.UI.WebControls.DropDownList;
- begin
-
- __ctrl := System.Web.UI.WebControls.DropDownList.Create;
- Self.Category := __ctrl;
- __ctrl.ID := 'Category';
- Self.__BuildControl__control3(__ctrl.Items);
- Result := __ctrl;
- end;
-
- function wombat_aspx.__BuildControl__control7: System.Web.UI.Control;
- var
- __ctrl: System.Web.UI.WebControls.Button;
- begin
-
- __ctrl := System.Web.UI.WebControls.Button.Create;
- Self.__control7 := __ctrl;
- __ctrl.Text := 'Lookup';
- __ctrl.add_Click(Self.OnLookupClick);
- Result := __ctrl;
- end;
-
- procedure wombat_aspx.__BuildControl__control8(__ctrl: System.Web.UI.WebControls.TableItemStyle);
- begin
- __ctrl.ForeColor := System.Drawing.Color.White;
- __ctrl.BackColor := System.Drawing.Color.FromArgb(255, 204, 102);
- end;
-
- procedure wombat_aspx.__BuildControl__control9(__ctrl: System.Web.UI.WebControls.TableItemStyle);
- begin
- __ctrl.BackColor := System.Drawing.Color.FromArgb(255, 204, 102);
- end;
-
- procedure wombat_aspx.__BuildControl__control10(__ctrl: System.Web.UI.WebControls.TableItemStyle);
- begin
- __ctrl.Font.Size := System.Web.UI.WebControls.FontUnit.Parse('9pt', System.Globalization.CultureInfo.InvariantCulture);
- __ctrl.ForeColor := System.Drawing.Color.FromArgb(255, 255, 204);
- end;
-
- procedure wombat_aspx.__BuildControl__control11(__ctrl: System.Web.UI.WebControls.TableItemStyle);
- begin
- __ctrl.Height := System.Web.UI.WebControls.Unit.Parse('1px', System.Globalization.CultureInfo.InvariantCulture);
- __ctrl.BackColor := System.Drawing.Color.FromArgb(255, 204, 102);
- end;
-
- procedure wombat_aspx.__BuildControl__control12(__ctrl: System.Web.UI.WebControls.TableItemStyle);
- begin
- __ctrl.Font.Bold := True;
- __ctrl.BackColor := System.Drawing.Color.FromArgb(204, 204, 255);
- end;
-
- procedure wombat_aspx.__BuildControl__control13(__ctrl: System.Web.UI.WebControls.TableItemStyle);
- begin
- __ctrl.Font.Size := System.Web.UI.WebControls.FontUnit.Parse('9pt', System.Globalization.CultureInfo.InvariantCulture);
- __ctrl.Font.Bold := True;
- __ctrl.ForeColor := System.Drawing.Color.FromArgb(255, 255, 204);
- __ctrl.BackColor := System.Drawing.Color.FromArgb(153, 0, 0);
- end;
-
- procedure wombat_aspx.__BuildControl__control14(__ctrl: System.Web.UI.WebControls.TableItemStyle);
- begin
- __ctrl.ForeColor := System.Drawing.Color.FromArgb(204, 153, 102);
- end;
-
- function wombat_aspx.__BuildControlMyCal: System.Web.UI.Control;
- var
- __ctrl: System.Web.UI.WebControls.Calendar;
- begin
-
- __ctrl := System.Web.UI.WebControls.Calendar.Create;
- Self.MyCal := __ctrl;
- __ctrl.ID := 'MyCal';
- __ctrl.BorderWidth := System.Web.UI.WebControls.Unit.Parse('1px', System.Globalization.CultureInfo.InvariantCulture);
- __ctrl.BackColor := System.Drawing.Color.FromArgb(255, 255, 204);
- __ctrl.Width := System.Web.UI.WebControls.Unit.Parse('220px', System.Globalization.CultureInfo.InvariantCulture);
- __ctrl.DayNameFormat := System.Web.UI.WebControls.DayNameFormat.FirstLetter;
- __ctrl.ForeColor := System.Drawing.Color.FromArgb(102, 51, 153);
- __ctrl.Height := System.Web.UI.WebControls.Unit.Parse('200px', System.Globalization.CultureInfo.InvariantCulture);
- __ctrl.Font.Size := System.Web.UI.WebControls.FontUnit.Parse('8pt', System.Globalization.CultureInfo.InvariantCulture);
- __ctrl.BorderColor := System.Drawing.Color.FromArgb(255, 204, 102);
- __ctrl.ShowGridLines := True;
- Self.__BuildControl__control8(__ctrl.TodayDayStyle);
- Self.__BuildControl__control9(__ctrl.SelectorStyle);
- Self.__BuildControl__control10(__ctrl.NextPrevStyle);
- Self.__BuildControl__control11(__ctrl.DayHeaderStyle);
- Self.__BuildControl__control12(__ctrl.SelectedDayStyle);
- Self.__BuildControl__control13(__ctrl.TitleStyle);
- Self.__BuildControl__control14(__ctrl.OtherMonthDayStyle);
- Result := __ctrl;
- end;
-
- function wombat_aspx.__BuildControlMessage: System.Web.UI.Control;
- var
- __ctrl: System.Web.UI.WebControls.Label;
- begin
-
- __ctrl := System.Web.UI.WebControls.Label.Create;
- Self.Message := __ctrl;
- __ctrl.ID := 'Message';
- Result := __ctrl;
- end;
-
- function wombat_aspx.__BuildControl__control2: System.Web.UI.Control;
- var
- __parser: System.Web.UI.IParserAccessor;
- __ctrl: System.Web.UI.HtmlControls.HtmlForm;
- begin
-
- __ctrl := System.Web.UI.HtmlControls.HtmlForm.Create;
- Self.__control2 := __ctrl;
- __parser := __ctrl as System.Web.UI.IParserAccessor;
- __parser.AddParsedSubObject(System.Web.UI.LiteralControl.Create(''#13#10#13#10' <h3> Name: '));
- Self.__BuildControlName;
- __parser.AddParsedSubObject(Self.Name);
- __parser.AddParsedSubObject(System.Web.UI.LiteralControl.Create(''#13#10#13#10' Category: '));
- Self.__BuildControlCategory;
- __parser.AddParsedSubObject(Self.Category);
- __parser.AddParsedSubObject(System.Web.UI.LiteralControl.Create(''#13#10' </h3>'#13#10#13#10' '));
- Self.__BuildControl__control7;
- __parser.AddParsedSubObject(Self.__control7);
- __parser.AddParsedSubObject(System.Web.UI.LiteralControl.Create(''#13#10#13#10' <p>'#13#10#13#10#9#9#9));
- Self.__BuildControlMyCal;
- __parser.AddParsedSubObject(Self.MyCal);
- __parser.AddParsedSubObject(System.Web.UI.LiteralControl.Create(''#13#10#13#10' <p>'#13#10#13#10' '));
- Self.__BuildControlMessage;
- __parser.AddParsedSubObject(Self.Message);
- __parser.AddParsedSubObject(System.Web.UI.LiteralControl.Create(''#13#10#13#10' '));
- Result := __ctrl;
- end;
-
- procedure wombat_aspx.__BuildControlTree(__ctrl: System.Web.UI.Control);
- var
- __parser: System.Web.UI.IParserAccessor;
- begin
- __parser := __ctrl as System.Web.UI.IParserAccessor;
- __parser.AddParsedSubObject(System.Web.UI.LiteralControl.Create('<html>'#13#10#13#10' '));
- __parser.AddParsedSubObject(System.Web.UI.LiteralControl.Create(''#13#10#13#10' <body>'#13#10#13#10' <center>'#13#10#13#10' '));
- Self.__BuildControl__control2;
- __parser.AddParsedSubObject(Self.__control2);
- __parser.AddParsedSubObject(System.Web.UI.LiteralControl.Create(''#13#10#13#10' </center>'#13#10#13#10' </body>'#13#10'</html>'#13#10#13#10));
- end;
-
- procedure wombat_aspx.FrameworkInitialize;
- begin
- Self.__BuildControlTree(Self);
- Self.FileDependencies := ASP.wombat_aspx___fileDependencies;
- Self.EnableViewStateMac := True;
- end;
-
- function wombat_aspx.GetTypeHashCode: Integer;
- begin
- Result := 1253397492;
- end;
-
- end.
-