home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 2003 March / DPPCPRO0303.ISO / editorial / CodeWorkshop / x3ymjaya.0.pas < prev   
Encoding:
Pascal/Delphi Source File  |  2002-11-20  |  13.2 KB  |  345 lines

  1. //------------------------------------------------------------------------------
  2. // <autogenerated>
  3. //     This code was generated by a tool.
  4. //     Runtime Version: 1.0.3705.288
  5. //
  6. //     Changes to this file may cause incorrect behavior and will be lost if 
  7. //     the code is regenerated.
  8. // </autogenerated>
  9. //------------------------------------------------------------------------------
  10.  
  11. unit ASP;
  12.  
  13. interface
  14.  
  15. uses System.Collections, System.Collections.Specialized, System.Configuration, 
  16.     System.Text, System.Text.RegularExpressions, System.Web, System.Web.Caching, 
  17.     System.Web.SessionState, System.Web.Security, System.Web.UI, System.Web.UI.WebControls, 
  18.     System.Web.UI.HtmlControls, System.Globalization, System.Drawing;
  19.  
  20. var
  21.   wombat_aspx___autoHandlers: Integer;
  22.   wombat_aspx___intialized: Boolean = False;
  23.   wombat_aspx___fileDependencies: System.Collections.ArrayList;
  24. type
  25.   wombat_aspx = class(System.Web.UI.Page, System.Web.SessionState.IRequiresSessionState)
  26.   protected
  27.     Name: System.Web.UI.WebControls.TextBox;
  28.     __control4: System.Web.UI.WebControls.ListItem;
  29.     __control5: System.Web.UI.WebControls.ListItem;
  30.     __control6: System.Web.UI.WebControls.ListItem;
  31.     __control3: System.Web.UI.WebControls.ListItemCollection;
  32.     Category: System.Web.UI.WebControls.DropDownList;
  33.     __control7: System.Web.UI.WebControls.Button;
  34.     __control8: System.Web.UI.WebControls.TableItemStyle;
  35.     __control9: System.Web.UI.WebControls.TableItemStyle;
  36.     __control10: System.Web.UI.WebControls.TableItemStyle;
  37.     __control11: System.Web.UI.WebControls.TableItemStyle;
  38.     __control12: System.Web.UI.WebControls.TableItemStyle;
  39.     __control13: System.Web.UI.WebControls.TableItemStyle;
  40.     __control14: System.Web.UI.WebControls.TableItemStyle;
  41.     MyCal: System.Web.UI.WebControls.Calendar;
  42.     Message: System.Web.UI.WebControls.Label;
  43.     __control2: System.Web.UI.HtmlControls.HtmlForm;
  44.     procedure OnLookupClick (Sender: System.Object; E: EventArgs);
  45.   public
  46.     constructor Create;
  47.     function get_AutoHandlers: Integer; override;
  48.     function get_ApplicationInstance: System.Web.HttpApplication; virtual;
  49.     function get_TemplateSourceDirectory: string; override;
  50.     procedure set_AutoHandlers(Value: Integer); override;
  51.   protected
  52.     property AutoHandlers: Integer read get_AutoHandlers write set_AutoHandlers;
  53.     property ApplicationInstance: System.Web.HttpApplication read get_ApplicationInstance;
  54.   public
  55.     property TemplateSourceDirectory: string read get_TemplateSourceDirectory;
  56.   private
  57.     function __BuildControlName: System.Web.UI.Control;
  58.     procedure __BuildControl__control4;
  59.     procedure __BuildControl__control5;
  60.     procedure __BuildControl__control6;
  61.     procedure __BuildControl__control3(__ctrl: System.Web.UI.WebControls.ListItemCollection);
  62.     function __BuildControlCategory: System.Web.UI.Control;
  63.     function __BuildControl__control7: System.Web.UI.Control;
  64.     procedure __BuildControl__control8(__ctrl: System.Web.UI.WebControls.TableItemStyle);
  65.     procedure __BuildControl__control9(__ctrl: System.Web.UI.WebControls.TableItemStyle);
  66.     procedure __BuildControl__control10(__ctrl: System.Web.UI.WebControls.TableItemStyle);
  67.     procedure __BuildControl__control11(__ctrl: System.Web.UI.WebControls.TableItemStyle);
  68.     procedure __BuildControl__control12(__ctrl: System.Web.UI.WebControls.TableItemStyle);
  69.     procedure __BuildControl__control13(__ctrl: System.Web.UI.WebControls.TableItemStyle);
  70.     procedure __BuildControl__control14(__ctrl: System.Web.UI.WebControls.TableItemStyle);
  71.     function __BuildControlMyCal: System.Web.UI.Control;
  72.     function __BuildControlMessage: System.Web.UI.Control;
  73.     function __BuildControl__control2: System.Web.UI.Control;
  74.     procedure __BuildControlTree(__ctrl: System.Web.UI.Control);
  75.   protected
  76.     procedure FrameworkInitialize; override;
  77.   public
  78.     function GetTypeHashCode: Integer; override;
  79.   end;
  80.   
  81. implementation
  82.  
  83.  
  84.  
  85.     procedure wombat_aspx.OnLookupClick (Sender: System.Object; E: EventArgs);
  86.     begin
  87.            Message.Text := 'Hi ' +
  88.         Server.HtmlEncode (Name.Text) +
  89.         ', you selected: ' +
  90.         Category.SelectedItem.Text +
  91.         ' on: ' +
  92.         MyCal.SelectedDate.ToShortDateString;
  93.     end;
  94.  
  95.    constructor wombat_aspx.Create;
  96. var
  97.   dependencies: System.Collections.ArrayList;
  98. begin
  99.   inherited Create;
  100.   
  101.   if (ASP.wombat_aspx___intialized = False) then
  102.   begin
  103.     dependencies := System.Collections.ArrayList.Create;
  104.     dependencies.Add('c:\d4npe\wombat.aspx');
  105.     ASP.wombat_aspx___fileDependencies := dependencies;
  106.     ASP.wombat_aspx___intialized := True;
  107.   end;
  108.   Self.Server.ScriptTimeout := 30000000;
  109. end;
  110.  
  111. function wombat_aspx.get_AutoHandlers: Integer;
  112. begin
  113.   Result := ASP.wombat_aspx___autoHandlers;
  114. end;
  115.  
  116. function wombat_aspx.get_ApplicationInstance: System.Web.HttpApplication;
  117. begin
  118.   Result := Self.Context.ApplicationInstance as System.Web.HttpApplication;
  119. end;
  120.  
  121. function wombat_aspx.get_TemplateSourceDirectory: string;
  122. begin
  123.   Result := '/d4npe';
  124. end;
  125.  
  126. procedure wombat_aspx.set_AutoHandlers(Value: Integer);
  127. begin
  128.   ASP.wombat_aspx___autoHandlers := Value;
  129. end;
  130.  
  131. function wombat_aspx.__BuildControlName: System.Web.UI.Control;
  132. var
  133.   __ctrl: System.Web.UI.WebControls.TextBox;
  134. begin
  135.   
  136.   __ctrl := System.Web.UI.WebControls.TextBox.Create;
  137.   Self.Name := __ctrl;
  138.   __ctrl.ID := 'Name';
  139.   Result := __ctrl;
  140. end;
  141.  
  142. procedure wombat_aspx.__BuildControl__control4;
  143. var
  144.   __parser: System.Web.UI.IParserAccessor;
  145.   __ctrl: System.Web.UI.WebControls.ListItem;
  146. begin
  147.   
  148.   __ctrl := System.Web.UI.WebControls.ListItem.Create;
  149.   Self.__control4 := __ctrl;
  150.   __parser := __ctrl as System.Web.UI.IParserAccessor;
  151.   __parser.AddParsedSubObject(System.Web.UI.LiteralControl.Create('psychology'));
  152. end;
  153.  
  154. procedure wombat_aspx.__BuildControl__control5;
  155. var
  156.   __parser: System.Web.UI.IParserAccessor;
  157.   __ctrl: System.Web.UI.WebControls.ListItem;
  158. begin
  159.   
  160.   __ctrl := System.Web.UI.WebControls.ListItem.Create;
  161.   Self.__control5 := __ctrl;
  162.   __parser := __ctrl as System.Web.UI.IParserAccessor;
  163.   __parser.AddParsedSubObject(System.Web.UI.LiteralControl.Create('business'));
  164. end;
  165.  
  166. procedure wombat_aspx.__BuildControl__control6;
  167. var
  168.   __parser: System.Web.UI.IParserAccessor;
  169.   __ctrl: System.Web.UI.WebControls.ListItem;
  170. begin
  171.   
  172.   __ctrl := System.Web.UI.WebControls.ListItem.Create;
  173.   Self.__control6 := __ctrl;
  174.   __parser := __ctrl as System.Web.UI.IParserAccessor;
  175.   __parser.AddParsedSubObject(System.Web.UI.LiteralControl.Create('popular_comp'));
  176. end;
  177.  
  178. procedure wombat_aspx.__BuildControl__control3(__ctrl: System.Web.UI.WebControls.ListItemCollection);
  179. begin
  180.   Self.__BuildControl__control4;
  181.   __ctrl.Add(Self.__control4);
  182.   Self.__BuildControl__control5;
  183.   __ctrl.Add(Self.__control5);
  184.   Self.__BuildControl__control6;
  185.   __ctrl.Add(Self.__control6);
  186. end;
  187.  
  188. function wombat_aspx.__BuildControlCategory: System.Web.UI.Control;
  189. var
  190.   __ctrl: System.Web.UI.WebControls.DropDownList;
  191. begin
  192.   
  193.   __ctrl := System.Web.UI.WebControls.DropDownList.Create;
  194.   Self.Category := __ctrl;
  195.   __ctrl.ID := 'Category';
  196.   Self.__BuildControl__control3(__ctrl.Items);
  197.   Result := __ctrl;
  198. end;
  199.  
  200. function wombat_aspx.__BuildControl__control7: System.Web.UI.Control;
  201. var
  202.   __ctrl: System.Web.UI.WebControls.Button;
  203. begin
  204.   
  205.   __ctrl := System.Web.UI.WebControls.Button.Create;
  206.   Self.__control7 := __ctrl;
  207.   __ctrl.Text := 'Lookup';
  208.   __ctrl.add_Click(Self.OnLookupClick);
  209.   Result := __ctrl;
  210. end;
  211.  
  212. procedure wombat_aspx.__BuildControl__control8(__ctrl: System.Web.UI.WebControls.TableItemStyle);
  213. begin
  214.   __ctrl.ForeColor := System.Drawing.Color.White;
  215.   __ctrl.BackColor := System.Drawing.Color.FromArgb(255, 204, 102);
  216. end;
  217.  
  218. procedure wombat_aspx.__BuildControl__control9(__ctrl: System.Web.UI.WebControls.TableItemStyle);
  219. begin
  220.   __ctrl.BackColor := System.Drawing.Color.FromArgb(255, 204, 102);
  221. end;
  222.  
  223. procedure wombat_aspx.__BuildControl__control10(__ctrl: System.Web.UI.WebControls.TableItemStyle);
  224. begin
  225.   __ctrl.Font.Size := System.Web.UI.WebControls.FontUnit.Parse('9pt', System.Globalization.CultureInfo.InvariantCulture);
  226.   __ctrl.ForeColor := System.Drawing.Color.FromArgb(255, 255, 204);
  227. end;
  228.  
  229. procedure wombat_aspx.__BuildControl__control11(__ctrl: System.Web.UI.WebControls.TableItemStyle);
  230. begin
  231.   __ctrl.Height := System.Web.UI.WebControls.Unit.Parse('1px', System.Globalization.CultureInfo.InvariantCulture);
  232.   __ctrl.BackColor := System.Drawing.Color.FromArgb(255, 204, 102);
  233. end;
  234.  
  235. procedure wombat_aspx.__BuildControl__control12(__ctrl: System.Web.UI.WebControls.TableItemStyle);
  236. begin
  237.   __ctrl.Font.Bold := True;
  238.   __ctrl.BackColor := System.Drawing.Color.FromArgb(204, 204, 255);
  239. end;
  240.  
  241. procedure wombat_aspx.__BuildControl__control13(__ctrl: System.Web.UI.WebControls.TableItemStyle);
  242. begin
  243.   __ctrl.Font.Size := System.Web.UI.WebControls.FontUnit.Parse('9pt', System.Globalization.CultureInfo.InvariantCulture);
  244.   __ctrl.Font.Bold := True;
  245.   __ctrl.ForeColor := System.Drawing.Color.FromArgb(255, 255, 204);
  246.   __ctrl.BackColor := System.Drawing.Color.FromArgb(153, 0, 0);
  247. end;
  248.  
  249. procedure wombat_aspx.__BuildControl__control14(__ctrl: System.Web.UI.WebControls.TableItemStyle);
  250. begin
  251.   __ctrl.ForeColor := System.Drawing.Color.FromArgb(204, 153, 102);
  252. end;
  253.  
  254. function wombat_aspx.__BuildControlMyCal: System.Web.UI.Control;
  255. var
  256.   __ctrl: System.Web.UI.WebControls.Calendar;
  257. begin
  258.   
  259.   __ctrl := System.Web.UI.WebControls.Calendar.Create;
  260.   Self.MyCal := __ctrl;
  261.   __ctrl.ID := 'MyCal';
  262.   __ctrl.BorderWidth := System.Web.UI.WebControls.Unit.Parse('1px', System.Globalization.CultureInfo.InvariantCulture);
  263.   __ctrl.BackColor := System.Drawing.Color.FromArgb(255, 255, 204);
  264.   __ctrl.Width := System.Web.UI.WebControls.Unit.Parse('220px', System.Globalization.CultureInfo.InvariantCulture);
  265.   __ctrl.DayNameFormat := System.Web.UI.WebControls.DayNameFormat.FirstLetter;
  266.   __ctrl.ForeColor := System.Drawing.Color.FromArgb(102, 51, 153);
  267.   __ctrl.Height := System.Web.UI.WebControls.Unit.Parse('200px', System.Globalization.CultureInfo.InvariantCulture);
  268.   __ctrl.Font.Size := System.Web.UI.WebControls.FontUnit.Parse('8pt', System.Globalization.CultureInfo.InvariantCulture);
  269.   __ctrl.BorderColor := System.Drawing.Color.FromArgb(255, 204, 102);
  270.   __ctrl.ShowGridLines := True;
  271.   Self.__BuildControl__control8(__ctrl.TodayDayStyle);
  272.   Self.__BuildControl__control9(__ctrl.SelectorStyle);
  273.   Self.__BuildControl__control10(__ctrl.NextPrevStyle);
  274.   Self.__BuildControl__control11(__ctrl.DayHeaderStyle);
  275.   Self.__BuildControl__control12(__ctrl.SelectedDayStyle);
  276.   Self.__BuildControl__control13(__ctrl.TitleStyle);
  277.   Self.__BuildControl__control14(__ctrl.OtherMonthDayStyle);
  278.   Result := __ctrl;
  279. end;
  280.  
  281. function wombat_aspx.__BuildControlMessage: System.Web.UI.Control;
  282. var
  283.   __ctrl: System.Web.UI.WebControls.Label;
  284. begin
  285.   
  286.   __ctrl := System.Web.UI.WebControls.Label.Create;
  287.   Self.Message := __ctrl;
  288.   __ctrl.ID := 'Message';
  289.   Result := __ctrl;
  290. end;
  291.  
  292. function wombat_aspx.__BuildControl__control2: System.Web.UI.Control;
  293. var
  294.   __parser: System.Web.UI.IParserAccessor;
  295.   __ctrl: System.Web.UI.HtmlControls.HtmlForm;
  296. begin
  297.   
  298.   __ctrl := System.Web.UI.HtmlControls.HtmlForm.Create;
  299.   Self.__control2 := __ctrl;
  300.   __parser := __ctrl as System.Web.UI.IParserAccessor;
  301.   __parser.AddParsedSubObject(System.Web.UI.LiteralControl.Create(''#13#10#13#10'           <h3> Name: '));
  302.   Self.__BuildControlName;
  303.   __parser.AddParsedSubObject(Self.Name);
  304.   __parser.AddParsedSubObject(System.Web.UI.LiteralControl.Create(''#13#10#13#10'           Category:  '));
  305.   Self.__BuildControlCategory;
  306.   __parser.AddParsedSubObject(Self.Category);
  307.   __parser.AddParsedSubObject(System.Web.UI.LiteralControl.Create(''#13#10'           </h3>'#13#10#13#10'           '));
  308.   Self.__BuildControl__control7;
  309.   __parser.AddParsedSubObject(Self.__control7);
  310.   __parser.AddParsedSubObject(System.Web.UI.LiteralControl.Create(''#13#10#13#10'           <p>'#13#10#13#10#9#9#9));
  311.   Self.__BuildControlMyCal;
  312.   __parser.AddParsedSubObject(Self.MyCal);
  313.   __parser.AddParsedSubObject(System.Web.UI.LiteralControl.Create(''#13#10#13#10'           <p>'#13#10#13#10'           '));
  314.   Self.__BuildControlMessage;
  315.   __parser.AddParsedSubObject(Self.Message);
  316.   __parser.AddParsedSubObject(System.Web.UI.LiteralControl.Create(''#13#10#13#10'       '));
  317.   Result := __ctrl;
  318. end;
  319.  
  320. procedure wombat_aspx.__BuildControlTree(__ctrl: System.Web.UI.Control);
  321. var
  322.   __parser: System.Web.UI.IParserAccessor;
  323. begin
  324.   __parser := __ctrl as System.Web.UI.IParserAccessor;
  325.   __parser.AddParsedSubObject(System.Web.UI.LiteralControl.Create('<html>'#13#10#13#10'   '));
  326.   __parser.AddParsedSubObject(System.Web.UI.LiteralControl.Create(''#13#10#13#10'   <body>'#13#10#13#10'       <center>'#13#10#13#10'       '));
  327.   Self.__BuildControl__control2;
  328.   __parser.AddParsedSubObject(Self.__control2);
  329.   __parser.AddParsedSubObject(System.Web.UI.LiteralControl.Create(''#13#10#13#10'       </center>'#13#10#13#10'   </body>'#13#10'</html>'#13#10#13#10));
  330. end;
  331.  
  332. procedure wombat_aspx.FrameworkInitialize;
  333. begin
  334.   Self.__BuildControlTree(Self);
  335.   Self.FileDependencies := ASP.wombat_aspx___fileDependencies;
  336.   Self.EnableViewStateMac := True;
  337. end;
  338.  
  339. function wombat_aspx.GetTypeHashCode: Integer;
  340. begin
  341.   Result := 1253397492;
  342. end;
  343.  
  344. end.
  345.