Changeset 48
- Timestamp:
- Mar 28, 2011, 9:31:28 AM (14 years ago)
- Location:
- trunk
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Application/UCustomApplication.pas
r46 r48 41 41 Keywords: string; 42 42 HtmlDocument: THtmlDocument; 43 Pages: TListObject; 43 Pages: TListObject; // TListObject<TRegistredPage> 44 44 Database: TSqlDatabase; 45 45 PageName: string; … … 111 111 HtmlDocument.Scripts.Add(NavigationLink('/Style/' + Style + '/jquery.js')); 112 112 113 //Request.QueryParts.Count := 2;114 //Request.QueryParts[0] := 'uzivatel';115 //Request.QueryParts[1] := 'prihlaseni';113 Request.QueryParts.Count := 2; 114 Request.QueryParts[0] := 'uzivatel'; 115 Request.QueryParts[1] := 'prihlaseni'; 116 116 117 117 if Request.QueryParts.Count > 0 then PageName := Request.QueryParts[0] … … 169 169 TextNode: TXmlString; 170 170 begin 171 with TXmlTag(HtmlDocument.Body.SubItems [HtmlDocument.Body.SubItems.Add(TXmlTag.Create)]) do begin171 with TXmlTag(HtmlDocument.Body.SubItems.AddNew(TXmlTag.Create)) do begin 172 172 Name := 'ul'; 173 173 Attributes.Values['class'] := 'Footer'; 174 with TXmlTag(SubElements [SubElements.Add(TXmlTag.Create)]) do begin174 with TXmlTag(SubElements.AddNew(TXmlTag.Create)) do begin 175 175 Name := 'li'; 176 with TXmlString(SubElements [SubElements.Add(TXmlString.Create)]) do begin176 with TXmlString(SubElements.AddNew(TXmlString.Create)) do begin 177 177 Text := Admin; 178 178 end; 179 179 end; 180 with TXmlTag(SubElements [SubElements.Add(TXmlTag.Create)]) do begin180 with TXmlTag(SubElements.AddNew(TXmlTag.Create)) do begin 181 181 Name := 'li'; 182 with TXmlString(SubElements [SubElements.Add(TXmlString.Create)]) do begin182 with TXmlString(SubElements.AddNew(TXmlString.Create)) do begin 183 183 Text := AdminEmail; 184 184 end; 185 185 end; 186 186 if ShowRuntimeInfo then begin 187 with TXmlTag(SubElements [SubElements.Add(TXmlTag.Create)]) do begin187 with TXmlTag(SubElements.AddNew(TXmlTag.Create)) do begin 188 188 Name := 'li'; 189 with TXmlString(SubElements [SubElements.Add(TXmlString.Create)]) do begin189 with TXmlString(SubElements.AddNew(TXmlString.Create)) do begin 190 190 Text := 'Doba generování: ' + 191 191 FloatToStr(Round(((Now - TimeStart) / OneMillisecond) * 100) / 100) + ' s / '; // + ini_get('max_execution_time') + ' s'; 192 192 end; 193 193 end; 194 with TXmlTag(SubElements [SubElements.Add(TXmlTag.Create)]) do begin194 with TXmlTag(SubElements.AddNew(TXmlTag.Create)) do begin 195 195 Name := 'li'; 196 with TXmlString(SubElements [SubElements.Add(TXmlString.Create)]) do begin196 with TXmlString(SubElements.AddNew(TXmlString.Create)) do begin 197 197 //Text := 'Použitá paměť: ' + System.PrefixMultiplier.AddPrefixMultipliers(memory_get_peak_usage(FALSE), 'B').' / '.ini_get('memory_limit').'B'; 198 198 end; … … 231 231 procedure TCustomApplication.TopMenu; 232 232 begin 233 with THtmlString(HtmlDocument.Body.SubItems [HtmlDocument.Body.SubItems.Add(THtmlString.Create)]) do begin233 with THtmlString(HtmlDocument.Body.SubItems.AddNew(THtmlString.Create)) do begin 234 234 Text := '<div class="Navigation">'; 235 235 // Visitor … … 249 249 Text := Text + '</ul>' + 250 250 '<ul class="MenuItem2">' + 251 '<li>' + MakeLink('Přihlášení', NavigationLink('/uzivatel/prihlaseni/')) + '</li>'; 251 //'<li>' + MakeLink('Přihlášení', NavigationLink('/uzivatel/prihlaseni/')) + '</li>'; 252 '<li></li>'; 252 253 // $Output .= '<li>'.$this->System->HTML->MakeLink($this->System->Translate('UserRegistration'), $this->System->MakeLink('UserList', 'Register')).'</li>'; 253 254 end else begin -
trunk/Application/UWebObjects.pas
r46 r48 46 46 public 47 47 Title: string; 48 Groups: TListObject; 48 Groups: TListObject; // TListObject<TQueryFormGroup> 49 49 Actions: TListObject; // TListObject<THtmlInput> 50 50 function GetAsXmlElement: TXmlElement; override; -
trunk/CGI.lpi
r47 r48 58 58 <IsPartOfProject Value="True"/> 59 59 <UnitName Value="CGI"/> 60 <IsVisibleTab Value="True"/> 61 <EditorIndex Value="2"/> 62 <WindowIndex Value="0"/> 63 <TopLine Value="1"/> 64 <CursorPos X="67" Y="18"/> 60 <EditorIndex Value="3"/> 61 <WindowIndex Value="0"/> 62 <TopLine Value="9"/> 63 <CursorPos X="15" Y="18"/> 65 64 <UsageCount Value="203"/> 66 65 <Loaded Value="True"/> … … 73 72 <EditorIndex Value="0"/> 74 73 <WindowIndex Value="0"/> 75 <TopLine Value=" 261"/>76 <CursorPos X=" 27" Y="261"/>74 <TopLine Value="417"/> 75 <CursorPos X="42" Y="419"/> 77 76 <UsageCount Value="200"/> 78 77 <Loaded Value="True"/> … … 85 84 <TopLine Value="291"/> 86 85 <CursorPos X="1" Y="311"/> 87 <UsageCount Value="9 1"/>86 <UsageCount Value="90"/> 88 87 <DefaultSyntaxHighlighter Value="Delphi"/> 89 88 </Unit2> 90 89 <Unit3> 91 90 <Filename Value="UXmlClasses.pas"/> 92 <UsageCount Value="9 1"/>91 <UsageCount Value="90"/> 93 92 <DefaultSyntaxHighlighter Value="Delphi"/> 94 93 </Unit3> … … 97 96 <IsPartOfProject Value="True"/> 98 97 <UnitName Value="UCore"/> 99 <EditorIndex Value=" 8"/>98 <EditorIndex Value="6"/> 100 99 <WindowIndex Value="0"/> 101 100 <TopLine Value="1"/> … … 111 110 <TopLine Value="217"/> 112 111 <CursorPos X="5" Y="236"/> 113 <UsageCount Value="9 1"/>112 <UsageCount Value="90"/> 114 113 <DefaultSyntaxHighlighter Value="Delphi"/> 115 114 </Unit5> … … 120 119 <TopLine Value="10"/> 121 120 <CursorPos X="27" Y="19"/> 122 <UsageCount Value="9 1"/>121 <UsageCount Value="90"/> 123 122 <DefaultSyntaxHighlighter Value="Delphi"/> 124 123 </Unit6> … … 128 127 <TopLine Value="17"/> 129 128 <CursorPos X="34" Y="30"/> 130 <UsageCount Value="9 1"/>129 <UsageCount Value="90"/> 131 130 <DefaultSyntaxHighlighter Value="Delphi"/> 132 131 </Unit7> … … 137 136 <TopLine Value="204"/> 138 137 <CursorPos X="25" Y="226"/> 139 <UsageCount Value="9 1"/>138 <UsageCount Value="90"/> 140 139 <DefaultSyntaxHighlighter Value="Delphi"/> 141 140 </Unit8> … … 146 145 <TopLine Value="102"/> 147 146 <CursorPos X="25" Y="107"/> 148 <UsageCount Value="9 1"/>147 <UsageCount Value="90"/> 149 148 <DefaultSyntaxHighlighter Value="Delphi"/> 150 149 </Unit9> … … 155 154 <TopLine Value="40"/> 156 155 <CursorPos X="9" Y="59"/> 157 <UsageCount Value="7 9"/>156 <UsageCount Value="78"/> 158 157 <DefaultSyntaxHighlighter Value="Delphi"/> 159 158 </Unit10> … … 163 162 <TopLine Value="91"/> 164 163 <CursorPos X="10" Y="110"/> 165 <UsageCount Value="6 1"/>164 <UsageCount Value="60"/> 166 165 </Unit11> 167 166 <Unit12> … … 197 196 <TopLine Value="608"/> 198 197 <CursorPos X="44" Y="627"/> 199 <UsageCount Value=" 60"/>198 <UsageCount Value="59"/> 200 199 <DefaultSyntaxHighlighter Value="Delphi"/> 201 200 </Unit15> … … 206 205 <TopLine Value="39"/> 207 206 <CursorPos X="25" Y="58"/> 208 <UsageCount Value=" 60"/>207 <UsageCount Value="59"/> 209 208 <DefaultSyntaxHighlighter Value="Delphi"/> 210 209 </Unit16> … … 215 214 <TopLine Value="1"/> 216 215 <CursorPos X="69" Y="19"/> 217 <UsageCount Value="5 6"/>216 <UsageCount Value="55"/> 218 217 <DefaultSyntaxHighlighter Value="Delphi"/> 219 218 </Unit17> … … 224 223 <TopLine Value="1"/> 225 224 <CursorPos X="52" Y="124"/> 226 <UsageCount Value="5 3"/>225 <UsageCount Value="52"/> 227 226 <DefaultSyntaxHighlighter Value="Delphi"/> 228 227 </Unit18> 229 228 <Unit19> 230 229 <Filename Value="/usr/share/fpcsrc/rtl/objpas/classes/classesh.inc"/> 231 <WindowIndex Value="0"/> 232 <TopLine Value="539"/> 233 <CursorPos X="14" Y="556"/> 230 <EditorIndex Value="2"/> 231 <WindowIndex Value="0"/> 232 <TopLine Value="677"/> 233 <CursorPos X="14" Y="691"/> 234 234 <UsageCount Value="62"/> 235 <Loaded Value="True"/> 235 236 </Unit19> 236 237 <Unit20> … … 239 240 <TopLine Value="10"/> 240 241 <CursorPos X="22" Y="23"/> 241 <UsageCount Value="6 2"/>242 <UsageCount Value="61"/> 242 243 </Unit20> 243 244 <Unit21> … … 247 248 <TopLine Value="1140"/> 248 249 <CursorPos X="26" Y="1143"/> 249 <UsageCount Value="6 2"/>250 <UsageCount Value="61"/> 250 251 </Unit21> 251 252 <Unit22> … … 254 255 <TopLine Value="43"/> 255 256 <CursorPos X="5" Y="61"/> 256 <UsageCount Value="6 2"/>257 <UsageCount Value="61"/> 257 258 </Unit22> 258 259 <Unit23> … … 261 262 <TopLine Value="50"/> 262 263 <CursorPos X="10" Y="63"/> 263 <UsageCount Value="6 2"/>264 <UsageCount Value="61"/> 264 265 </Unit23> 265 266 <Unit24> … … 269 270 <TopLine Value="17"/> 270 271 <CursorPos X="32" Y="36"/> 271 <UsageCount Value="18 1"/>272 <UsageCount Value="180"/> 272 273 <DefaultSyntaxHighlighter Value="Delphi"/> 273 274 </Unit24> … … 278 279 <TopLine Value="8"/> 279 280 <CursorPos X="17" Y="19"/> 280 <UsageCount Value=" 8"/>281 <UsageCount Value="7"/> 281 282 <DefaultSyntaxHighlighter Value="Delphi"/> 282 283 </Unit25> … … 287 288 <TopLine Value="25"/> 288 289 <CursorPos X="86" Y="94"/> 289 <UsageCount Value="18 1"/>290 <UsageCount Value="180"/> 290 291 <DefaultSyntaxHighlighter Value="Delphi"/> 291 292 </Unit26> … … 296 297 <TopLine Value="549"/> 297 298 <CursorPos X="19" Y="569"/> 298 <UsageCount Value="18 2"/>299 <UsageCount Value="181"/> 299 300 <DefaultSyntaxHighlighter Value="Delphi"/> 300 301 </Unit27> … … 305 306 <TopLine Value="1"/> 306 307 <CursorPos X="64" Y="14"/> 307 <UsageCount Value="18 2"/>308 <UsageCount Value="181"/> 308 309 <DefaultSyntaxHighlighter Value="Delphi"/> 309 310 </Unit28> … … 314 315 <TopLine Value="6"/> 315 316 <CursorPos X="5" Y="33"/> 316 <UsageCount Value="18 2"/>317 <UsageCount Value="181"/> 317 318 <DefaultSyntaxHighlighter Value="Delphi"/> 318 319 </Unit29> … … 323 324 <TopLine Value="99"/> 324 325 <CursorPos X="33" Y="117"/> 325 <UsageCount Value=" 9"/>326 <UsageCount Value="8"/> 326 327 <DefaultSyntaxHighlighter Value="Delphi"/> 327 328 </Unit30> … … 331 332 <TopLine Value="61"/> 332 333 <CursorPos X="14" Y="78"/> 333 <UsageCount Value="6 1"/>334 <UsageCount Value="60"/> 334 335 </Unit31> 335 336 <Unit32> … … 338 339 <TopLine Value="519"/> 339 340 <CursorPos X="23" Y="526"/> 340 <UsageCount Value="5 7"/>341 <UsageCount Value="56"/> 341 342 </Unit32> 342 343 <Unit33> … … 356 357 <TopLine Value="1"/> 357 358 <CursorPos X="16" Y="164"/> 358 <UsageCount Value="32 3"/>359 <UsageCount Value="322"/> 359 360 <DefaultSyntaxHighlighter Value="Delphi"/> 360 361 </Unit34> … … 365 366 <TopLine Value="81"/> 366 367 <CursorPos X="1" Y="96"/> 367 <UsageCount Value="32 2"/>368 <UsageCount Value="321"/> 368 369 <DefaultSyntaxHighlighter Value="Delphi"/> 369 370 </Unit35> … … 374 375 <TopLine Value="1"/> 375 376 <CursorPos X="18" Y="45"/> 376 <UsageCount Value="32 2"/>377 <UsageCount Value="321"/> 377 378 <DefaultSyntaxHighlighter Value="Delphi"/> 378 379 </Unit36> … … 383 384 <TopLine Value="142"/> 384 385 <CursorPos X="52" Y="165"/> 385 <UsageCount Value="32 2"/>386 <UsageCount Value="321"/> 386 387 <DefaultSyntaxHighlighter Value="Delphi"/> 387 388 </Unit37> … … 392 393 <TopLine Value="109"/> 393 394 <CursorPos X="36" Y="96"/> 394 <UsageCount Value="32 2"/>395 <UsageCount Value="321"/> 395 396 <DefaultSyntaxHighlighter Value="Delphi"/> 396 397 </Unit38> … … 401 402 <TopLine Value="44"/> 402 403 <CursorPos X="27" Y="61"/> 403 <UsageCount Value="32 2"/>404 <UsageCount Value="321"/> 404 405 <DefaultSyntaxHighlighter Value="Delphi"/> 405 406 </Unit39> … … 410 411 <TopLine Value="1"/> 411 412 <CursorPos X="50" Y="8"/> 412 <UsageCount Value="32 2"/>413 <UsageCount Value="321"/> 413 414 <DefaultSyntaxHighlighter Value="Delphi"/> 414 415 </Unit40> … … 419 420 <TopLine Value="1"/> 420 421 <CursorPos X="21" Y="1"/> 421 <UsageCount Value="32 1"/>422 <UsageCount Value="320"/> 422 423 <DefaultSyntaxHighlighter Value="Delphi"/> 423 424 </Unit41> … … 428 429 <TopLine Value="1"/> 429 430 <CursorPos X="53" Y="8"/> 430 <UsageCount Value="32 1"/>431 <UsageCount Value="320"/> 431 432 <DefaultSyntaxHighlighter Value="Delphi"/> 432 433 </Unit42> … … 437 438 <TopLine Value="1"/> 438 439 <CursorPos X="52" Y="92"/> 439 <UsageCount Value="32 1"/>440 <UsageCount Value="320"/> 440 441 <DefaultSyntaxHighlighter Value="Delphi"/> 441 442 </Unit43> … … 446 447 <TopLine Value="83"/> 447 448 <CursorPos X="47" Y="106"/> 448 <UsageCount Value="32 1"/>449 <UsageCount Value="320"/> 449 450 <DefaultSyntaxHighlighter Value="Delphi"/> 450 451 </Unit44> … … 455 456 <TopLine Value="1"/> 456 457 <CursorPos X="3" Y="687"/> 457 <UsageCount Value="32 1"/>458 <UsageCount Value="320"/> 458 459 <DefaultSyntaxHighlighter Value="Delphi"/> 459 460 </Unit45> … … 464 465 <TopLine Value="383"/> 465 466 <CursorPos X="15" Y="397"/> 466 <UsageCount Value="4 2"/>467 <UsageCount Value="41"/> 467 468 </Unit46> 468 469 <Unit47> … … 470 471 <IsPartOfProject Value="True"/> 471 472 <UnitName Value="UCustomApplication"/> 473 <IsVisibleTab Value="True"/> 472 474 <EditorIndex Value="1"/> 473 475 <WindowIndex Value="0"/> 474 <TopLine Value="1 56"/>475 <CursorPos X=" 45" Y="173"/>476 <TopLine Value="174"/> 477 <CursorPos X="38" Y="187"/> 476 478 <UsageCount Value="339"/> 477 479 <Loaded Value="True"/> … … 483 485 <TopLine Value="690"/> 484 486 <CursorPos X="3" Y="695"/> 485 <UsageCount Value="4 2"/>487 <UsageCount Value="41"/> 486 488 </Unit48> 487 489 <Unit49> … … 491 493 <TopLine Value="1"/> 492 494 <CursorPos X="43" Y="79"/> 493 <UsageCount Value="31 8"/>495 <UsageCount Value="317"/> 494 496 <DefaultSyntaxHighlighter Value="Delphi"/> 495 497 </Unit49> 496 498 <Unit50> 497 499 <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/> 498 <EditorIndex Value="6"/> 499 <WindowIndex Value="0"/> 500 <TopLine Value="426"/> 501 <CursorPos X="11" Y="453"/> 500 <WindowIndex Value="0"/> 501 <TopLine Value="14"/> 502 <CursorPos X="1" Y="29"/> 502 503 <UsageCount Value="178"/> 503 <Loaded Value="True"/>504 504 </Unit50> 505 505 <Unit51> … … 509 509 <TopLine Value="1"/> 510 510 <CursorPos X="26" Y="18"/> 511 <UsageCount Value="8 2"/>511 <UsageCount Value="81"/> 512 512 </Unit51> 513 513 <Unit52> … … 517 517 <TopLine Value="1"/> 518 518 <CursorPos X="15" Y="20"/> 519 <UsageCount Value="9 5"/>519 <UsageCount Value="94"/> 520 520 </Unit52> 521 521 <Unit53> … … 525 525 <TopLine Value="1"/> 526 526 <CursorPos X="44" Y="17"/> 527 <UsageCount Value="9 4"/>527 <UsageCount Value="93"/> 528 528 </Unit53> 529 529 <Unit54> … … 533 533 <TopLine Value="1"/> 534 534 <CursorPos X="34" Y="13"/> 535 <UsageCount Value="1 2"/>535 <UsageCount Value="11"/> 536 536 </Unit54> 537 537 <Unit55> … … 541 541 <TopLine Value="1"/> 542 542 <CursorPos X="60" Y="11"/> 543 <UsageCount Value="1 2"/>543 <UsageCount Value="11"/> 544 544 </Unit55> 545 545 <Unit56> … … 549 549 <TopLine Value="92"/> 550 550 <CursorPos X="7" Y="119"/> 551 <UsageCount Value=" 8"/>551 <UsageCount Value="7"/> 552 552 </Unit56> 553 553 <Unit57> 554 554 <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Common/UXmlClasses.pas"/> 555 555 <UnitName Value="UXmlClasses"/> 556 <EditorIndex Value=" 9"/>556 <EditorIndex Value="7"/> 557 557 <WindowIndex Value="0"/> 558 558 <TopLine Value="18"/> 559 559 <CursorPos X="1" Y="25"/> 560 <UsageCount Value=" 17"/>560 <UsageCount Value="20"/> 561 561 <Loaded Value="True"/> 562 562 </Unit57> … … 564 564 <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Common/UHtmlClasses.pas"/> 565 565 <UnitName Value="UHtmlClasses"/> 566 <EditorIndex Value=" 10"/>567 <WindowIndex Value="0"/> 568 <TopLine Value=" 1"/>569 <CursorPos X=" 8" Y="4"/>570 <UsageCount Value=" 18"/>566 <EditorIndex Value="8"/> 567 <WindowIndex Value="0"/> 568 <TopLine Value="92"/> 569 <CursorPos X="5" Y="106"/> 570 <UsageCount Value="21"/> 571 571 <Loaded Value="True"/> 572 572 </Unit58> … … 577 577 <EditorIndex Value="4"/> 578 578 <WindowIndex Value="0"/> 579 <TopLine Value="3 1"/>580 <CursorPos X=" 1" Y="51"/>581 <UsageCount Value="3 0"/>579 <TopLine Value="30"/> 580 <CursorPos X="3" Y="44"/> 581 <UsageCount Value="36"/> 582 582 <Loaded Value="True"/> 583 583 <DefaultSyntaxHighlighter Value="Delphi"/> … … 589 589 <TopLine Value="1"/> 590 590 <CursorPos X="1" Y="1"/> 591 <UsageCount Value=" 10"/>591 <UsageCount Value="9"/> 592 592 </Unit60> 593 593 <Unit61> … … 597 597 <TopLine Value="1"/> 598 598 <CursorPos X="1" Y="1"/> 599 <UsageCount Value=" 10"/>599 <UsageCount Value="9"/> 600 600 </Unit61> 601 601 <Unit62> … … 605 605 <TopLine Value="14"/> 606 606 <CursorPos X="5" Y="31"/> 607 <UsageCount Value=" 10"/>607 <UsageCount Value="9"/> 608 608 </Unit62> 609 609 <Unit63> … … 613 613 <TopLine Value="2"/> 614 614 <CursorPos X="37" Y="14"/> 615 <UsageCount Value=" 10"/>615 <UsageCount Value="9"/> 616 616 </Unit63> 617 617 <Unit64> … … 620 620 <TopLine Value="168"/> 621 621 <CursorPos X="23" Y="185"/> 622 <UsageCount Value=" 9"/>622 <UsageCount Value="8"/> 623 623 </Unit64> 624 624 <Unit65> 625 625 <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Specialized/SpecializedList.pas"/> 626 626 <UnitName Value="SpecializedList"/> 627 <EditorIndex Value="7"/>628 627 <WindowIndex Value="0"/> 629 628 <TopLine Value="1"/> 630 629 <CursorPos X="31" Y="126"/> 631 <UsageCount Value="12"/> 632 <Loaded Value="True"/> 630 <UsageCount Value="13"/> 633 631 </Unit65> 634 632 <Unit66> 635 633 <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericMatrix.inc"/> 636 <EditorIndex Value="11"/>637 634 <WindowIndex Value="0"/> 638 635 <TopLine Value="1"/> 639 636 <CursorPos X="14" Y="3"/> 640 <UsageCount Value="11"/> 641 <Loaded Value="True"/> 637 <UsageCount Value="12"/> 642 638 </Unit66> 643 639 <Unit67> 644 640 <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Specialized/SpecializedMatrix.pas"/> 645 641 <UnitName Value="SpecializedMatrix"/> 646 <EditorIndex Value="12"/> 647 <WindowIndex Value="0"/> 648 <TopLine Value="32"/> 642 <WindowIndex Value="0"/> 643 <TopLine Value="35"/> 649 644 <CursorPos X="24" Y="63"/> 650 <UsageCount Value="11"/> 651 <Loaded Value="True"/> 645 <UsageCount Value="12"/> 652 646 </Unit67> 653 647 <Unit68> 654 648 <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListObject.inc"/> 655 <EditorIndex Value="13"/> 656 <WindowIndex Value="0"/> 657 <TopLine Value="5"/> 649 <WindowIndex Value="0"/> 650 <TopLine Value="22"/> 658 651 <CursorPos X="16" Y="22"/> 659 <UsageCount Value="10"/> 660 <Loaded Value="True"/> 652 <UsageCount Value="11"/> 661 653 </Unit68> 662 654 <Unit69> … … 666 658 <TopLine Value="1"/> 667 659 <CursorPos X="1" Y="1"/> 668 <UsageCount Value=" 10"/>660 <UsageCount Value="9"/> 669 661 </Unit69> 670 662 <Unit70> … … 675 667 <TopLine Value="1531"/> 676 668 <CursorPos X="1" Y="1545"/> 677 <UsageCount Value="1 0"/>669 <UsageCount Value="13"/> 678 670 <Loaded Value="True"/> 679 671 </Unit70> … … 681 673 <Filename Value="../../../lazarus/trunk/lcl/fileutil.pas"/> 682 674 <UnitName Value="FileUtil"/> 683 <EditorIndex Value="3"/>684 675 <WindowIndex Value="0"/> 685 676 <TopLine Value="1"/> 686 677 <CursorPos X="1" Y="1"/> 687 <UsageCount Value="10"/> 688 <Loaded Value="True"/> 678 <UsageCount Value="11"/> 689 679 </Unit71> 690 680 </Units> 691 681 <JumpHistory Count="30" HistoryIndex="29"> 692 682 <Position1> 693 <Filename Value=" Application/UWebObjects.pas"/>694 <Caret Line=" 124" Column="1" TopLine="107"/>683 <Filename Value="Pages/UMainPage.pas"/> 684 <Caret Line="318" Column="56" TopLine="294"/> 695 685 </Position1> 696 686 <Position2> 697 <Filename Value=" Application/UWebObjects.pas"/>698 <Caret Line=" 120" Column="43" TopLine="87"/>687 <Filename Value="Pages/UMainPage.pas"/> 688 <Caret Line="368" Column="52" TopLine="344"/> 699 689 </Position2> 700 690 <Position3> 701 <Filename Value=" Application/UWebObjects.pas"/>702 <Caret Line=" 125" Column="16" TopLine="107"/>691 <Filename Value="Pages/UMainPage.pas"/> 692 <Caret Line="391" Column="55" TopLine="367"/> 703 693 </Position3> 704 694 <Position4> 705 <Filename Value=" ../../PascalClassLibrary/Network/CoolWeb/Common/UHtmlClasses.pas"/>706 <Caret Line=" 9" Column="3" TopLine="1"/>695 <Filename Value="Pages/UMainPage.pas"/> 696 <Caret Line="416" Column="55" TopLine="392"/> 707 697 </Position4> 708 698 <Position5> 709 <Filename Value=" ../../PascalClassLibrary/Network/CoolWeb/Common/UHtmlClasses.pas"/>710 <Caret Line=" 179" Column="3" TopLine="162"/>699 <Filename Value="Pages/UMainPage.pas"/> 700 <Caret Line="419" Column="58" TopLine="395"/> 711 701 </Position5> 712 702 <Position6> 713 <Filename Value=" ../../PascalClassLibrary/Network/CoolWeb/Common/UHtmlClasses.pas"/>714 <Caret Line=" 211" Column="1" TopLine="194"/>703 <Filename Value="Pages/UMainPage.pas"/> 704 <Caret Line="422" Column="40" TopLine="398"/> 715 705 </Position6> 716 706 <Position7> 717 <Filename Value=" ../../PascalClassLibrary/Network/CoolWeb/Common/UHtmlClasses.pas"/>718 <Caret Line=" 278" Column="3" TopLine="261"/>707 <Filename Value="Pages/UMainPage.pas"/> 708 <Caret Line="424" Column="39" TopLine="400"/> 719 709 </Position7> 720 710 <Position8> 721 <Filename Value="Application/U WebObjects.pas"/>722 <Caret Line=" 116" Column="1" TopLine="1"/>711 <Filename Value="Application/UCustomApplication.pas"/> 712 <Caret Line="7" Column="62" TopLine="1"/> 723 713 </Position8> 724 714 <Position9> 725 <Filename Value="Application/U WebObjects.pas"/>726 <Caret Line=" 91" Column="1" TopLine="91"/>715 <Filename Value="Application/UCustomApplication.pas"/> 716 <Caret Line="72" Column="12" TopLine="48"/> 727 717 </Position9> 728 718 <Position10> 729 <Filename Value="Application/U WebObjects.pas"/>730 <Caret Line=" 46" Column="14" TopLine="29"/>719 <Filename Value="Application/UCustomApplication.pas"/> 720 <Caret Line="109" Column="26" TopLine="85"/> 731 721 </Position10> 732 722 <Position11> 733 <Filename Value="Application/U WebObjects.pas"/>734 <Caret Line="1 24" Column="1" TopLine="107"/>723 <Filename Value="Application/UCustomApplication.pas"/> 724 <Caret Line="110" Column="27" TopLine="86"/> 735 725 </Position11> 736 726 <Position12> 737 <Filename Value="Application/U WebObjects.pas"/>738 <Caret Line=" 46" Column="14" TopLine="29"/>727 <Filename Value="Application/UCustomApplication.pas"/> 728 <Caret Line="109" Column="26" TopLine="87"/> 739 729 </Position12> 740 730 <Position13> 741 <Filename Value="Application/U WebObjects.pas"/>742 <Caret Line=" 98" Column="1" TopLine="87"/>731 <Filename Value="Application/UCustomApplication.pas"/> 732 <Caret Line="110" Column="27" TopLine="87"/> 743 733 </Position13> 744 734 <Position14> 745 <Filename Value="Application/U WebObjects.pas"/>746 <Caret Line=" 46" Column="14" TopLine="29"/>735 <Filename Value="Application/UCustomApplication.pas"/> 736 <Caret Line="111" Column="27" TopLine="87"/> 747 737 </Position14> 748 738 <Position15> 749 <Filename Value="Application/U WebObjects.pas"/>750 <Caret Line=" 44" Column="29" TopLine="29"/>739 <Filename Value="Application/UCustomApplication.pas"/> 740 <Caret Line="123" Column="35" TopLine="99"/> 751 741 </Position15> 752 742 <Position16> 753 <Filename Value="Application/U WebObjects.pas"/>754 <Caret Line=" 48" Column="1" TopLine="29"/>743 <Filename Value="Application/UCustomApplication.pas"/> 744 <Caret Line="171" Column="65" TopLine="147"/> 755 745 </Position16> 756 746 <Position17> 757 <Filename Value=" CGI.lpr"/>758 <Caret Line=" 28" Column="32" TopLine="1"/>747 <Filename Value="Application/UCustomApplication.pas"/> 748 <Caret Line="176" Column="57" TopLine="150"/> 759 749 </Position17> 760 750 <Position18> 761 <Filename Value=" Pages/UMainPage.pas"/>762 <Caret Line=" 303" Column="79" TopLine="298"/>751 <Filename Value="Application/UCustomApplication.pas"/> 752 <Caret Line="180" Column="49" TopLine="156"/> 763 753 </Position18> 764 754 <Position19> 765 <Filename Value=" CGI.lpr"/>766 <Caret Line=" 28" Column="32" TopLine="1"/>755 <Filename Value="Application/UCustomApplication.pas"/> 756 <Caret Line="182" Column="57" TopLine="158"/> 767 757 </Position19> 768 758 <Position20> 769 <Filename Value=" CGI.lpr"/>770 <Caret Line="1 2" Column="52" TopLine="1"/>759 <Filename Value="Application/UCustomApplication.pas"/> 760 <Caret Line="187" Column="51" TopLine="163"/> 771 761 </Position20> 772 762 <Position21> 773 <Filename Value=" CGI.lpr"/>774 <Caret Line=" 37" Column="1" TopLine="12"/>763 <Filename Value="Application/UCustomApplication.pas"/> 764 <Caret Line="189" Column="59" TopLine="165"/> 775 765 </Position21> 776 766 <Position22> 777 <Filename Value=" CGI.lpr"/>778 <Caret Line="1 5" Column="4" TopLine="11"/>767 <Filename Value="Application/UCustomApplication.pas"/> 768 <Caret Line="194" Column="51" TopLine="170"/> 779 769 </Position22> 780 770 <Position23> 781 <Filename Value=" UCore.pas"/>782 <Caret Line=" 89" Column="73" TopLine="82"/>771 <Filename Value="Application/UCustomApplication.pas"/> 772 <Caret Line="196" Column="59" TopLine="172"/> 783 773 </Position23> 784 774 <Position24> 785 <Filename Value=" CGI.lpr"/>786 <Caret Line="1 8" Column="66" TopLine="12"/>775 <Filename Value="Application/UCustomApplication.pas"/> 776 <Caret Line="197" Column="73" TopLine="173"/> 787 777 </Position24> 788 778 <Position25> 789 <Filename Value=" CGI.lpr"/>790 <Caret Line="2 9" Column="65" TopLine="11"/>779 <Filename Value="Application/UCustomApplication.pas"/> 780 <Caret Line="224" Column="35" TopLine="200"/> 791 781 </Position25> 792 782 <Position26> 793 <Filename Value=" CGI.lpr"/>794 <Caret Line="12 " Column="49" TopLine="1"/>783 <Filename Value="Application/UCustomApplication.pas"/> 784 <Caret Line="123" Column="27" TopLine="104"/> 795 785 </Position26> 796 786 <Position27> 797 <Filename Value=" CGI.lpr"/>798 <Caret Line=" 9" Column="51" TopLine="1"/>787 <Filename Value="Application/UCustomApplication.pas"/> 788 <Caret Line="125" Column="5" TopLine="104"/> 799 789 </Position27> 800 790 <Position28> 801 <Filename Value=" CGI.lpr"/>802 <Caret Line=" 37" Column="1" TopLine="12"/>791 <Filename Value="Application/UCustomApplication.pas"/> 792 <Caret Line="120" Column="17" TopLine="109"/> 803 793 </Position28> 804 794 <Position29> 805 795 <Filename Value="CGI.lpr"/> 806 <Caret Line="1 " Column="1" TopLine="1"/>796 <Caret Line="18" Column="15" TopLine="9"/> 807 797 </Position29> 808 798 <Position30> 809 <Filename Value=" CGI.lpr"/>810 <Caret Line=" 9" Column="45" TopLine="1"/>799 <Filename Value="Pages/UMainPage.pas"/> 800 <Caret Line="419" Column="42" TopLine="417"/> 811 801 </Position30> 812 802 </JumpHistory> -
trunk/CGI.lpr
r47 r48 7 7 UMainPage, UCustomApplication, UUser, UHTTPSessionMySQL, UHTTPSessionFile, 8 8 UCommon, UHTTPServer, UHTTPServerTCP, UHTTPServerCGI, UTCPServer, UPool, 9 UMemoryStreamEx, UMIMEType, UPageList, FileUtil,Interfaces;9 UMemoryStreamEx, UMIMEType, UPageList, Interfaces; 10 10 11 11 var -
trunk/Pages/UMainPage.pas
r47 r48 29 29 App.HtmlDocument.Title := 'Odkazy'; 30 30 31 with App.HtmlDocument.Body, THtmlString(SubItems [SubItems.Add(THtmlString.Create)]) do begin31 with App.HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin 32 32 Text := '<strong>Odkazy související s obcí:</strong><br/>' + 33 33 … … 69 69 HtmlDocument.Title := 'Historie sítě'; 70 70 71 with HtmlDocument.Body, THtmlString(SubItems [SubItems.Add(THtmlString.Create)]) do begin71 with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin 72 72 Text := '<table>'; 73 73 try … … 95 95 HtmlDocument.Title := 'Plánované projekty'; 96 96 97 with HtmlDocument.Body, THtmlString(SubItems [SubItems.Add(THtmlString.Create)]) do begin97 with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin 98 98 Text := '<table>'; 99 99 try … … 129 129 HtmlDocument.Title := 'Internet'; 130 130 131 with HtmlDocument.Body, THtmlString(SubItems [SubItems.Add(THtmlString.Create)]) do begin131 with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin 132 132 Text := Text + 'Hlavní náplní činnosti sítě je poskytovat výhodné připojení k internetu pro občany.<br/><br/>' + 133 133 '<strong>Nabídka tarifů:</strong><br/>' + … … 158 158 HtmlDocument.Title := 'Webové kamery'; 159 159 160 with HtmlDocument.Body, THtmlString(SubItems [SubItems.Add(THtmlString.Create)]) do begin160 with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin 161 161 Text := '<table style="width: 100%"><tr><td style="width: 20%">' + 162 162 '<strong>Kamery v okolí:</strong><br />' + … … 201 201 HtmlDocument.Title := 'VoIP'; 202 202 203 with HtmlDocument.Body, THtmlString(SubItems [SubItems.Add(THtmlString.Create)]) do begin203 with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin 204 204 Text := 'Volejte levněji do pevných a mobilních sítí s sekundovou tarifikací a bez měsíčního paušálu.<br/>' + 205 205 '<br/>' + … … 238 238 HtmlDocument.Title := 'Hosting'; 239 239 240 with HtmlDocument.Body, THtmlString(SubItems [SubItems.Add(THtmlString.Create)]) do begin240 with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin 241 241 Text := 'V nabídce je provoz virtualizovaných Linuxových serverů dle dohodnutých parameterů.<br/><br/>' + 242 242 '<strong>Standardní varianty:</strong><br/>' + … … 301 301 HtmlDocument.Title := 'Síť'; 302 302 303 with HtmlDocument.Body, THtmlString(SubItems [SubItems.Add(THtmlString.Create)]) do begin303 with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin 304 304 Text := MakeLink('Historie', NavigationLink('/historie/')) + '<br/>' + 305 305 MakeLink('Dokumenty', NavigationLink('/dokumenty/')) + '<br/>' + … … 316 316 HtmlDocument.Title := 'Úvod'; 317 317 318 with HtmlDocument.Body, THtmlString(SubItems [SubItems.Add(THtmlString.Create)]) do begin318 with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin 319 319 Text := '<img align="left" src="' + NavigationLink('/images/umisteni.gif') + '" alt="Umístění obce"/>' + 320 320 '<a href="' + NavigationLink('/images/pokryti.jpg') + '">' + … … 366 366 HtmlDocument.Title := 'Dokumenty'; 367 367 368 with HtmlDocument.Body, THtmlString(SubItems [SubItems.Add(THtmlString.Create)]) do begin368 with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin 369 369 Text := '<strong>O obci:</strong><br/>' + 370 370 … … 389 389 App.HtmlDocument.Title := 'Kontakt'; 390 390 391 with App.HtmlDocument.Body, THtmlString(SubItems [SubItems.Add(THtmlString.Create)]) do begin391 with App.HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin 392 392 Text := '<strong>Kontaktní informace</strong><br/>' + 393 393 'Provozovatel: Ing. Jiří Hajda<br/>' + … … 414 414 if HandlerData.Request.QueryParts.Count > 1 then PageName := HandlerData.Request.QueryParts[1] 415 415 else PageName := ''; 416 with App.HtmlDocument.Body, THtmlString(SubItems [SubItems.Add(THtmlString.Create)]) do begin416 with App.HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin 417 417 if PageName = 'prihlaseni' then begin 418 418 Text := 'Login'; 419 with App.HtmlDocument.Body, TQueryForm(SubItems [SubItems.Add(TQueryForm.Create)]) do begin419 with App.HtmlDocument.Body, TQueryForm(SubItems.AddNew(TQueryForm.Create)) do begin 420 420 Title := 'Přihlášení'; 421 with TQueryFormGroup(Groups[Groups.Add(TQueryFormGroup.Create)]) do begin 421 ClassId := 'Form'; 422 with TQueryFormGroup(Groups.AddNew(TQueryFormGroup.Create)) do begin 422 423 Title := 'Základní údaje'; 423 with TQueryFormItem(Rows [Rows.Add(TQueryFormItem.Create)]) do begin424 with TQueryFormItem(Rows.AddNew(TQueryFormItem.Create)) do begin 424 425 Caption := 'Jméno'; 425 426 Hint := 'Zadejte vaše přihlašovací jméno'; 426 427 Required := True; 427 428 end; 428 with TQueryFormItem(Rows [Rows.Add(TQueryFormItem.Create)]) do begin429 with TQueryFormItem(Rows.AddNew(TQueryFormItem.Create)) do begin 429 430 Caption := 'Heslo'; 430 431 Hint := 'Zadejte vaše heslo'; 431 432 Required := True; 433 ItemType := fitPassword; 432 434 end; 433 435 end;
Note:
See TracChangeset
for help on using the changeset viewer.