Changeset 48 for trunk


Ignore:
Timestamp:
Mar 28, 2011, 9:31:28 AM (14 years ago)
Author:
george
Message:
 
Location:
trunk
Files:
5 edited

Legend:

Unmodified
Added
Removed
  • trunk/Application/UCustomApplication.pas

    r46 r48  
    4141    Keywords: string;
    4242    HtmlDocument: THtmlDocument;
    43     Pages: TListObject;
     43    Pages: TListObject; // TListObject<TRegistredPage>
    4444    Database: TSqlDatabase;
    4545    PageName: string;
     
    111111  HtmlDocument.Scripts.Add(NavigationLink('/Style/' + Style + '/jquery.js'));
    112112
    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';
    116116
    117117  if Request.QueryParts.Count > 0 then PageName := Request.QueryParts[0]
     
    169169  TextNode: TXmlString;
    170170begin
    171   with TXmlTag(HtmlDocument.Body.SubItems[HtmlDocument.Body.SubItems.Add(TXmlTag.Create)]) do begin
     171  with TXmlTag(HtmlDocument.Body.SubItems.AddNew(TXmlTag.Create)) do begin
    172172    Name := 'ul';
    173173    Attributes.Values['class'] := 'Footer';
    174     with TXmlTag(SubElements[SubElements.Add(TXmlTag.Create)]) do begin
     174    with TXmlTag(SubElements.AddNew(TXmlTag.Create)) do begin
    175175      Name := 'li';
    176       with TXmlString(SubElements[SubElements.Add(TXmlString.Create)]) do begin
     176      with TXmlString(SubElements.AddNew(TXmlString.Create)) do begin
    177177        Text := Admin;
    178178      end;
    179179    end;
    180     with TXmlTag(SubElements[SubElements.Add(TXmlTag.Create)]) do begin
     180    with TXmlTag(SubElements.AddNew(TXmlTag.Create)) do begin
    181181      Name := 'li';
    182       with TXmlString(SubElements[SubElements.Add(TXmlString.Create)]) do begin
     182      with TXmlString(SubElements.AddNew(TXmlString.Create)) do begin
    183183        Text := AdminEmail;
    184184      end;
    185185    end;
    186186    if ShowRuntimeInfo then begin
    187       with TXmlTag(SubElements[SubElements.Add(TXmlTag.Create)]) do begin
     187      with TXmlTag(SubElements.AddNew(TXmlTag.Create)) do begin
    188188        Name := 'li';
    189         with TXmlString(SubElements[SubElements.Add(TXmlString.Create)]) do begin
     189        with TXmlString(SubElements.AddNew(TXmlString.Create)) do begin
    190190          Text := 'Doba generování: ' +
    191191            FloatToStr(Round(((Now - TimeStart) / OneMillisecond) * 100) / 100) + ' s / '; // + ini_get('max_execution_time') + ' s';
    192192        end;
    193193      end;
    194       with TXmlTag(SubElements[SubElements.Add(TXmlTag.Create)]) do begin
     194      with TXmlTag(SubElements.AddNew(TXmlTag.Create)) do begin
    195195        Name := 'li';
    196         with TXmlString(SubElements[SubElements.Add(TXmlString.Create)]) do begin
     196        with TXmlString(SubElements.AddNew(TXmlString.Create)) do begin
    197197          //Text := 'Použitá paměť: '  + System.PrefixMultiplier.AddPrefixMultipliers(memory_get_peak_usage(FALSE), 'B').' / '.ini_get('memory_limit').'B';
    198198        end;
     
    231231procedure TCustomApplication.TopMenu;
    232232begin
    233   with THtmlString(HtmlDocument.Body.SubItems[HtmlDocument.Body.SubItems.Add(THtmlString.Create)]) do begin
     233  with THtmlString(HtmlDocument.Body.SubItems.AddNew(THtmlString.Create)) do begin
    234234    Text := '<div class="Navigation">';
    235235    // Visitor
     
    249249      Text := Text + '</ul>' +
    250250        '<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>';
    252253      // $Output .= '<li>'.$this->System->HTML->MakeLink($this->System->Translate('UserRegistration'), $this->System->MakeLink('UserList', 'Register')).'</li>';
    253254    end else begin
  • trunk/Application/UWebObjects.pas

    r46 r48  
    4646  public
    4747    Title: string;
    48     Groups: TListObject;
     48    Groups: TListObject; // TListObject<TQueryFormGroup>
    4949    Actions: TListObject; // TListObject<THtmlInput>
    5050    function GetAsXmlElement: TXmlElement; override;
  • trunk/CGI.lpi

    r47 r48  
    5858        <IsPartOfProject Value="True"/>
    5959        <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"/>
    6564        <UsageCount Value="203"/>
    6665        <Loaded Value="True"/>
     
    7372        <EditorIndex Value="0"/>
    7473        <WindowIndex Value="0"/>
    75         <TopLine Value="261"/>
    76         <CursorPos X="27" Y="261"/>
     74        <TopLine Value="417"/>
     75        <CursorPos X="42" Y="419"/>
    7776        <UsageCount Value="200"/>
    7877        <Loaded Value="True"/>
     
    8584        <TopLine Value="291"/>
    8685        <CursorPos X="1" Y="311"/>
    87         <UsageCount Value="91"/>
     86        <UsageCount Value="90"/>
    8887        <DefaultSyntaxHighlighter Value="Delphi"/>
    8988      </Unit2>
    9089      <Unit3>
    9190        <Filename Value="UXmlClasses.pas"/>
    92         <UsageCount Value="91"/>
     91        <UsageCount Value="90"/>
    9392        <DefaultSyntaxHighlighter Value="Delphi"/>
    9493      </Unit3>
     
    9796        <IsPartOfProject Value="True"/>
    9897        <UnitName Value="UCore"/>
    99         <EditorIndex Value="8"/>
     98        <EditorIndex Value="6"/>
    10099        <WindowIndex Value="0"/>
    101100        <TopLine Value="1"/>
     
    111110        <TopLine Value="217"/>
    112111        <CursorPos X="5" Y="236"/>
    113         <UsageCount Value="91"/>
     112        <UsageCount Value="90"/>
    114113        <DefaultSyntaxHighlighter Value="Delphi"/>
    115114      </Unit5>
     
    120119        <TopLine Value="10"/>
    121120        <CursorPos X="27" Y="19"/>
    122         <UsageCount Value="91"/>
     121        <UsageCount Value="90"/>
    123122        <DefaultSyntaxHighlighter Value="Delphi"/>
    124123      </Unit6>
     
    128127        <TopLine Value="17"/>
    129128        <CursorPos X="34" Y="30"/>
    130         <UsageCount Value="91"/>
     129        <UsageCount Value="90"/>
    131130        <DefaultSyntaxHighlighter Value="Delphi"/>
    132131      </Unit7>
     
    137136        <TopLine Value="204"/>
    138137        <CursorPos X="25" Y="226"/>
    139         <UsageCount Value="91"/>
     138        <UsageCount Value="90"/>
    140139        <DefaultSyntaxHighlighter Value="Delphi"/>
    141140      </Unit8>
     
    146145        <TopLine Value="102"/>
    147146        <CursorPos X="25" Y="107"/>
    148         <UsageCount Value="91"/>
     147        <UsageCount Value="90"/>
    149148        <DefaultSyntaxHighlighter Value="Delphi"/>
    150149      </Unit9>
     
    155154        <TopLine Value="40"/>
    156155        <CursorPos X="9" Y="59"/>
    157         <UsageCount Value="79"/>
     156        <UsageCount Value="78"/>
    158157        <DefaultSyntaxHighlighter Value="Delphi"/>
    159158      </Unit10>
     
    163162        <TopLine Value="91"/>
    164163        <CursorPos X="10" Y="110"/>
    165         <UsageCount Value="61"/>
     164        <UsageCount Value="60"/>
    166165      </Unit11>
    167166      <Unit12>
     
    197196        <TopLine Value="608"/>
    198197        <CursorPos X="44" Y="627"/>
    199         <UsageCount Value="60"/>
     198        <UsageCount Value="59"/>
    200199        <DefaultSyntaxHighlighter Value="Delphi"/>
    201200      </Unit15>
     
    206205        <TopLine Value="39"/>
    207206        <CursorPos X="25" Y="58"/>
    208         <UsageCount Value="60"/>
     207        <UsageCount Value="59"/>
    209208        <DefaultSyntaxHighlighter Value="Delphi"/>
    210209      </Unit16>
     
    215214        <TopLine Value="1"/>
    216215        <CursorPos X="69" Y="19"/>
    217         <UsageCount Value="56"/>
     216        <UsageCount Value="55"/>
    218217        <DefaultSyntaxHighlighter Value="Delphi"/>
    219218      </Unit17>
     
    224223        <TopLine Value="1"/>
    225224        <CursorPos X="52" Y="124"/>
    226         <UsageCount Value="53"/>
     225        <UsageCount Value="52"/>
    227226        <DefaultSyntaxHighlighter Value="Delphi"/>
    228227      </Unit18>
    229228      <Unit19>
    230229        <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"/>
    234234        <UsageCount Value="62"/>
     235        <Loaded Value="True"/>
    235236      </Unit19>
    236237      <Unit20>
     
    239240        <TopLine Value="10"/>
    240241        <CursorPos X="22" Y="23"/>
    241         <UsageCount Value="62"/>
     242        <UsageCount Value="61"/>
    242243      </Unit20>
    243244      <Unit21>
     
    247248        <TopLine Value="1140"/>
    248249        <CursorPos X="26" Y="1143"/>
    249         <UsageCount Value="62"/>
     250        <UsageCount Value="61"/>
    250251      </Unit21>
    251252      <Unit22>
     
    254255        <TopLine Value="43"/>
    255256        <CursorPos X="5" Y="61"/>
    256         <UsageCount Value="62"/>
     257        <UsageCount Value="61"/>
    257258      </Unit22>
    258259      <Unit23>
     
    261262        <TopLine Value="50"/>
    262263        <CursorPos X="10" Y="63"/>
    263         <UsageCount Value="62"/>
     264        <UsageCount Value="61"/>
    264265      </Unit23>
    265266      <Unit24>
     
    269270        <TopLine Value="17"/>
    270271        <CursorPos X="32" Y="36"/>
    271         <UsageCount Value="181"/>
     272        <UsageCount Value="180"/>
    272273        <DefaultSyntaxHighlighter Value="Delphi"/>
    273274      </Unit24>
     
    278279        <TopLine Value="8"/>
    279280        <CursorPos X="17" Y="19"/>
    280         <UsageCount Value="8"/>
     281        <UsageCount Value="7"/>
    281282        <DefaultSyntaxHighlighter Value="Delphi"/>
    282283      </Unit25>
     
    287288        <TopLine Value="25"/>
    288289        <CursorPos X="86" Y="94"/>
    289         <UsageCount Value="181"/>
     290        <UsageCount Value="180"/>
    290291        <DefaultSyntaxHighlighter Value="Delphi"/>
    291292      </Unit26>
     
    296297        <TopLine Value="549"/>
    297298        <CursorPos X="19" Y="569"/>
    298         <UsageCount Value="182"/>
     299        <UsageCount Value="181"/>
    299300        <DefaultSyntaxHighlighter Value="Delphi"/>
    300301      </Unit27>
     
    305306        <TopLine Value="1"/>
    306307        <CursorPos X="64" Y="14"/>
    307         <UsageCount Value="182"/>
     308        <UsageCount Value="181"/>
    308309        <DefaultSyntaxHighlighter Value="Delphi"/>
    309310      </Unit28>
     
    314315        <TopLine Value="6"/>
    315316        <CursorPos X="5" Y="33"/>
    316         <UsageCount Value="182"/>
     317        <UsageCount Value="181"/>
    317318        <DefaultSyntaxHighlighter Value="Delphi"/>
    318319      </Unit29>
     
    323324        <TopLine Value="99"/>
    324325        <CursorPos X="33" Y="117"/>
    325         <UsageCount Value="9"/>
     326        <UsageCount Value="8"/>
    326327        <DefaultSyntaxHighlighter Value="Delphi"/>
    327328      </Unit30>
     
    331332        <TopLine Value="61"/>
    332333        <CursorPos X="14" Y="78"/>
    333         <UsageCount Value="61"/>
     334        <UsageCount Value="60"/>
    334335      </Unit31>
    335336      <Unit32>
     
    338339        <TopLine Value="519"/>
    339340        <CursorPos X="23" Y="526"/>
    340         <UsageCount Value="57"/>
     341        <UsageCount Value="56"/>
    341342      </Unit32>
    342343      <Unit33>
     
    356357        <TopLine Value="1"/>
    357358        <CursorPos X="16" Y="164"/>
    358         <UsageCount Value="323"/>
     359        <UsageCount Value="322"/>
    359360        <DefaultSyntaxHighlighter Value="Delphi"/>
    360361      </Unit34>
     
    365366        <TopLine Value="81"/>
    366367        <CursorPos X="1" Y="96"/>
    367         <UsageCount Value="322"/>
     368        <UsageCount Value="321"/>
    368369        <DefaultSyntaxHighlighter Value="Delphi"/>
    369370      </Unit35>
     
    374375        <TopLine Value="1"/>
    375376        <CursorPos X="18" Y="45"/>
    376         <UsageCount Value="322"/>
     377        <UsageCount Value="321"/>
    377378        <DefaultSyntaxHighlighter Value="Delphi"/>
    378379      </Unit36>
     
    383384        <TopLine Value="142"/>
    384385        <CursorPos X="52" Y="165"/>
    385         <UsageCount Value="322"/>
     386        <UsageCount Value="321"/>
    386387        <DefaultSyntaxHighlighter Value="Delphi"/>
    387388      </Unit37>
     
    392393        <TopLine Value="109"/>
    393394        <CursorPos X="36" Y="96"/>
    394         <UsageCount Value="322"/>
     395        <UsageCount Value="321"/>
    395396        <DefaultSyntaxHighlighter Value="Delphi"/>
    396397      </Unit38>
     
    401402        <TopLine Value="44"/>
    402403        <CursorPos X="27" Y="61"/>
    403         <UsageCount Value="322"/>
     404        <UsageCount Value="321"/>
    404405        <DefaultSyntaxHighlighter Value="Delphi"/>
    405406      </Unit39>
     
    410411        <TopLine Value="1"/>
    411412        <CursorPos X="50" Y="8"/>
    412         <UsageCount Value="322"/>
     413        <UsageCount Value="321"/>
    413414        <DefaultSyntaxHighlighter Value="Delphi"/>
    414415      </Unit40>
     
    419420        <TopLine Value="1"/>
    420421        <CursorPos X="21" Y="1"/>
    421         <UsageCount Value="321"/>
     422        <UsageCount Value="320"/>
    422423        <DefaultSyntaxHighlighter Value="Delphi"/>
    423424      </Unit41>
     
    428429        <TopLine Value="1"/>
    429430        <CursorPos X="53" Y="8"/>
    430         <UsageCount Value="321"/>
     431        <UsageCount Value="320"/>
    431432        <DefaultSyntaxHighlighter Value="Delphi"/>
    432433      </Unit42>
     
    437438        <TopLine Value="1"/>
    438439        <CursorPos X="52" Y="92"/>
    439         <UsageCount Value="321"/>
     440        <UsageCount Value="320"/>
    440441        <DefaultSyntaxHighlighter Value="Delphi"/>
    441442      </Unit43>
     
    446447        <TopLine Value="83"/>
    447448        <CursorPos X="47" Y="106"/>
    448         <UsageCount Value="321"/>
     449        <UsageCount Value="320"/>
    449450        <DefaultSyntaxHighlighter Value="Delphi"/>
    450451      </Unit44>
     
    455456        <TopLine Value="1"/>
    456457        <CursorPos X="3" Y="687"/>
    457         <UsageCount Value="321"/>
     458        <UsageCount Value="320"/>
    458459        <DefaultSyntaxHighlighter Value="Delphi"/>
    459460      </Unit45>
     
    464465        <TopLine Value="383"/>
    465466        <CursorPos X="15" Y="397"/>
    466         <UsageCount Value="42"/>
     467        <UsageCount Value="41"/>
    467468      </Unit46>
    468469      <Unit47>
     
    470471        <IsPartOfProject Value="True"/>
    471472        <UnitName Value="UCustomApplication"/>
     473        <IsVisibleTab Value="True"/>
    472474        <EditorIndex Value="1"/>
    473475        <WindowIndex Value="0"/>
    474         <TopLine Value="156"/>
    475         <CursorPos X="45" Y="173"/>
     476        <TopLine Value="174"/>
     477        <CursorPos X="38" Y="187"/>
    476478        <UsageCount Value="339"/>
    477479        <Loaded Value="True"/>
     
    483485        <TopLine Value="690"/>
    484486        <CursorPos X="3" Y="695"/>
    485         <UsageCount Value="42"/>
     487        <UsageCount Value="41"/>
    486488      </Unit48>
    487489      <Unit49>
     
    491493        <TopLine Value="1"/>
    492494        <CursorPos X="43" Y="79"/>
    493         <UsageCount Value="318"/>
     495        <UsageCount Value="317"/>
    494496        <DefaultSyntaxHighlighter Value="Delphi"/>
    495497      </Unit49>
    496498      <Unit50>
    497499        <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"/>
    502503        <UsageCount Value="178"/>
    503         <Loaded Value="True"/>
    504504      </Unit50>
    505505      <Unit51>
     
    509509        <TopLine Value="1"/>
    510510        <CursorPos X="26" Y="18"/>
    511         <UsageCount Value="82"/>
     511        <UsageCount Value="81"/>
    512512      </Unit51>
    513513      <Unit52>
     
    517517        <TopLine Value="1"/>
    518518        <CursorPos X="15" Y="20"/>
    519         <UsageCount Value="95"/>
     519        <UsageCount Value="94"/>
    520520      </Unit52>
    521521      <Unit53>
     
    525525        <TopLine Value="1"/>
    526526        <CursorPos X="44" Y="17"/>
    527         <UsageCount Value="94"/>
     527        <UsageCount Value="93"/>
    528528      </Unit53>
    529529      <Unit54>
     
    533533        <TopLine Value="1"/>
    534534        <CursorPos X="34" Y="13"/>
    535         <UsageCount Value="12"/>
     535        <UsageCount Value="11"/>
    536536      </Unit54>
    537537      <Unit55>
     
    541541        <TopLine Value="1"/>
    542542        <CursorPos X="60" Y="11"/>
    543         <UsageCount Value="12"/>
     543        <UsageCount Value="11"/>
    544544      </Unit55>
    545545      <Unit56>
     
    549549        <TopLine Value="92"/>
    550550        <CursorPos X="7" Y="119"/>
    551         <UsageCount Value="8"/>
     551        <UsageCount Value="7"/>
    552552      </Unit56>
    553553      <Unit57>
    554554        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Common/UXmlClasses.pas"/>
    555555        <UnitName Value="UXmlClasses"/>
    556         <EditorIndex Value="9"/>
     556        <EditorIndex Value="7"/>
    557557        <WindowIndex Value="0"/>
    558558        <TopLine Value="18"/>
    559559        <CursorPos X="1" Y="25"/>
    560         <UsageCount Value="17"/>
     560        <UsageCount Value="20"/>
    561561        <Loaded Value="True"/>
    562562      </Unit57>
     
    564564        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Common/UHtmlClasses.pas"/>
    565565        <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"/>
    571571        <Loaded Value="True"/>
    572572      </Unit58>
     
    577577        <EditorIndex Value="4"/>
    578578        <WindowIndex Value="0"/>
    579         <TopLine Value="31"/>
    580         <CursorPos X="1" Y="51"/>
    581         <UsageCount Value="30"/>
     579        <TopLine Value="30"/>
     580        <CursorPos X="3" Y="44"/>
     581        <UsageCount Value="36"/>
    582582        <Loaded Value="True"/>
    583583        <DefaultSyntaxHighlighter Value="Delphi"/>
     
    589589        <TopLine Value="1"/>
    590590        <CursorPos X="1" Y="1"/>
    591         <UsageCount Value="10"/>
     591        <UsageCount Value="9"/>
    592592      </Unit60>
    593593      <Unit61>
     
    597597        <TopLine Value="1"/>
    598598        <CursorPos X="1" Y="1"/>
    599         <UsageCount Value="10"/>
     599        <UsageCount Value="9"/>
    600600      </Unit61>
    601601      <Unit62>
     
    605605        <TopLine Value="14"/>
    606606        <CursorPos X="5" Y="31"/>
    607         <UsageCount Value="10"/>
     607        <UsageCount Value="9"/>
    608608      </Unit62>
    609609      <Unit63>
     
    613613        <TopLine Value="2"/>
    614614        <CursorPos X="37" Y="14"/>
    615         <UsageCount Value="10"/>
     615        <UsageCount Value="9"/>
    616616      </Unit63>
    617617      <Unit64>
     
    620620        <TopLine Value="168"/>
    621621        <CursorPos X="23" Y="185"/>
    622         <UsageCount Value="9"/>
     622        <UsageCount Value="8"/>
    623623      </Unit64>
    624624      <Unit65>
    625625        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Specialized/SpecializedList.pas"/>
    626626        <UnitName Value="SpecializedList"/>
    627         <EditorIndex Value="7"/>
    628627        <WindowIndex Value="0"/>
    629628        <TopLine Value="1"/>
    630629        <CursorPos X="31" Y="126"/>
    631         <UsageCount Value="12"/>
    632         <Loaded Value="True"/>
     630        <UsageCount Value="13"/>
    633631      </Unit65>
    634632      <Unit66>
    635633        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericMatrix.inc"/>
    636         <EditorIndex Value="11"/>
    637634        <WindowIndex Value="0"/>
    638635        <TopLine Value="1"/>
    639636        <CursorPos X="14" Y="3"/>
    640         <UsageCount Value="11"/>
    641         <Loaded Value="True"/>
     637        <UsageCount Value="12"/>
    642638      </Unit66>
    643639      <Unit67>
    644640        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Specialized/SpecializedMatrix.pas"/>
    645641        <UnitName Value="SpecializedMatrix"/>
    646         <EditorIndex Value="12"/>
    647         <WindowIndex Value="0"/>
    648         <TopLine Value="32"/>
     642        <WindowIndex Value="0"/>
     643        <TopLine Value="35"/>
    649644        <CursorPos X="24" Y="63"/>
    650         <UsageCount Value="11"/>
    651         <Loaded Value="True"/>
     645        <UsageCount Value="12"/>
    652646      </Unit67>
    653647      <Unit68>
    654648        <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"/>
    658651        <CursorPos X="16" Y="22"/>
    659         <UsageCount Value="10"/>
    660         <Loaded Value="True"/>
     652        <UsageCount Value="11"/>
    661653      </Unit68>
    662654      <Unit69>
     
    666658        <TopLine Value="1"/>
    667659        <CursorPos X="1" Y="1"/>
    668         <UsageCount Value="10"/>
     660        <UsageCount Value="9"/>
    669661      </Unit69>
    670662      <Unit70>
     
    675667        <TopLine Value="1531"/>
    676668        <CursorPos X="1" Y="1545"/>
    677         <UsageCount Value="10"/>
     669        <UsageCount Value="13"/>
    678670        <Loaded Value="True"/>
    679671      </Unit70>
     
    681673        <Filename Value="../../../lazarus/trunk/lcl/fileutil.pas"/>
    682674        <UnitName Value="FileUtil"/>
    683         <EditorIndex Value="3"/>
    684675        <WindowIndex Value="0"/>
    685676        <TopLine Value="1"/>
    686677        <CursorPos X="1" Y="1"/>
    687         <UsageCount Value="10"/>
    688         <Loaded Value="True"/>
     678        <UsageCount Value="11"/>
    689679      </Unit71>
    690680    </Units>
    691681    <JumpHistory Count="30" HistoryIndex="29">
    692682      <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"/>
    695685      </Position1>
    696686      <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"/>
    699689      </Position2>
    700690      <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"/>
    703693      </Position3>
    704694      <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"/>
    707697      </Position4>
    708698      <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"/>
    711701      </Position5>
    712702      <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"/>
    715705      </Position6>
    716706      <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"/>
    719709      </Position7>
    720710      <Position8>
    721         <Filename Value="Application/UWebObjects.pas"/>
    722         <Caret Line="116" Column="1" TopLine="1"/>
     711        <Filename Value="Application/UCustomApplication.pas"/>
     712        <Caret Line="7" Column="62" TopLine="1"/>
    723713      </Position8>
    724714      <Position9>
    725         <Filename Value="Application/UWebObjects.pas"/>
    726         <Caret Line="91" Column="1" TopLine="91"/>
     715        <Filename Value="Application/UCustomApplication.pas"/>
     716        <Caret Line="72" Column="12" TopLine="48"/>
    727717      </Position9>
    728718      <Position10>
    729         <Filename Value="Application/UWebObjects.pas"/>
    730         <Caret Line="46" Column="14" TopLine="29"/>
     719        <Filename Value="Application/UCustomApplication.pas"/>
     720        <Caret Line="109" Column="26" TopLine="85"/>
    731721      </Position10>
    732722      <Position11>
    733         <Filename Value="Application/UWebObjects.pas"/>
    734         <Caret Line="124" Column="1" TopLine="107"/>
     723        <Filename Value="Application/UCustomApplication.pas"/>
     724        <Caret Line="110" Column="27" TopLine="86"/>
    735725      </Position11>
    736726      <Position12>
    737         <Filename Value="Application/UWebObjects.pas"/>
    738         <Caret Line="46" Column="14" TopLine="29"/>
     727        <Filename Value="Application/UCustomApplication.pas"/>
     728        <Caret Line="109" Column="26" TopLine="87"/>
    739729      </Position12>
    740730      <Position13>
    741         <Filename Value="Application/UWebObjects.pas"/>
    742         <Caret Line="98" Column="1" TopLine="87"/>
     731        <Filename Value="Application/UCustomApplication.pas"/>
     732        <Caret Line="110" Column="27" TopLine="87"/>
    743733      </Position13>
    744734      <Position14>
    745         <Filename Value="Application/UWebObjects.pas"/>
    746         <Caret Line="46" Column="14" TopLine="29"/>
     735        <Filename Value="Application/UCustomApplication.pas"/>
     736        <Caret Line="111" Column="27" TopLine="87"/>
    747737      </Position14>
    748738      <Position15>
    749         <Filename Value="Application/UWebObjects.pas"/>
    750         <Caret Line="44" Column="29" TopLine="29"/>
     739        <Filename Value="Application/UCustomApplication.pas"/>
     740        <Caret Line="123" Column="35" TopLine="99"/>
    751741      </Position15>
    752742      <Position16>
    753         <Filename Value="Application/UWebObjects.pas"/>
    754         <Caret Line="48" Column="1" TopLine="29"/>
     743        <Filename Value="Application/UCustomApplication.pas"/>
     744        <Caret Line="171" Column="65" TopLine="147"/>
    755745      </Position16>
    756746      <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"/>
    759749      </Position17>
    760750      <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"/>
    763753      </Position18>
    764754      <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"/>
    767757      </Position19>
    768758      <Position20>
    769         <Filename Value="CGI.lpr"/>
    770         <Caret Line="12" Column="52" TopLine="1"/>
     759        <Filename Value="Application/UCustomApplication.pas"/>
     760        <Caret Line="187" Column="51" TopLine="163"/>
    771761      </Position20>
    772762      <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"/>
    775765      </Position21>
    776766      <Position22>
    777         <Filename Value="CGI.lpr"/>
    778         <Caret Line="15" Column="4" TopLine="11"/>
     767        <Filename Value="Application/UCustomApplication.pas"/>
     768        <Caret Line="194" Column="51" TopLine="170"/>
    779769      </Position22>
    780770      <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"/>
    783773      </Position23>
    784774      <Position24>
    785         <Filename Value="CGI.lpr"/>
    786         <Caret Line="18" Column="66" TopLine="12"/>
     775        <Filename Value="Application/UCustomApplication.pas"/>
     776        <Caret Line="197" Column="73" TopLine="173"/>
    787777      </Position24>
    788778      <Position25>
    789         <Filename Value="CGI.lpr"/>
    790         <Caret Line="29" Column="65" TopLine="11"/>
     779        <Filename Value="Application/UCustomApplication.pas"/>
     780        <Caret Line="224" Column="35" TopLine="200"/>
    791781      </Position25>
    792782      <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"/>
    795785      </Position26>
    796786      <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"/>
    799789      </Position27>
    800790      <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"/>
    803793      </Position28>
    804794      <Position29>
    805795        <Filename Value="CGI.lpr"/>
    806         <Caret Line="1" Column="1" TopLine="1"/>
     796        <Caret Line="18" Column="15" TopLine="9"/>
    807797      </Position29>
    808798      <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"/>
    811801      </Position30>
    812802    </JumpHistory>
  • trunk/CGI.lpr

    r47 r48  
    77  UMainPage, UCustomApplication, UUser, UHTTPSessionMySQL, UHTTPSessionFile,
    88  UCommon, UHTTPServer, UHTTPServerTCP, UHTTPServerCGI, UTCPServer, UPool,
    9   UMemoryStreamEx, UMIMEType, UPageList, FileUtil, Interfaces;
     9  UMemoryStreamEx, UMIMEType, UPageList, Interfaces;
    1010
    1111var
  • trunk/Pages/UMainPage.pas

    r47 r48  
    2929  App.HtmlDocument.Title := 'Odkazy';
    3030
    31   with App.HtmlDocument.Body, THtmlString(SubItems[SubItems.Add(THtmlString.Create)]) do begin
     31  with App.HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
    3232    Text := '<strong>Odkazy související s obcí:</strong><br/>' +
    3333
     
    6969    HtmlDocument.Title := 'Historie sítě';
    7070
    71     with HtmlDocument.Body, THtmlString(SubItems[SubItems.Add(THtmlString.Create)]) do begin
     71    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
    7272      Text := '<table>';
    7373      try
     
    9595    HtmlDocument.Title := 'Plánované projekty';
    9696
    97     with HtmlDocument.Body, THtmlString(SubItems[SubItems.Add(THtmlString.Create)]) do begin
     97    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
    9898      Text := '<table>';
    9999      try
     
    129129    HtmlDocument.Title := 'Internet';
    130130
    131     with HtmlDocument.Body, THtmlString(SubItems[SubItems.Add(THtmlString.Create)]) do begin
     131    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
    132132      Text := Text + 'Hlavní náplní činnosti sítě je poskytovat výhodné připojení k internetu pro občany.<br/><br/>' +
    133133      '<strong>Nabídka tarifů:</strong><br/>' +
     
    158158    HtmlDocument.Title := 'Webové kamery';
    159159
    160     with HtmlDocument.Body, THtmlString(SubItems[SubItems.Add(THtmlString.Create)]) do begin
     160    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
    161161      Text := '<table style="width: 100%"><tr><td style="width: 20%">' +
    162162        '<strong>Kamery v okolí:</strong><br />' +
     
    201201    HtmlDocument.Title := 'VoIP';
    202202
    203     with HtmlDocument.Body, THtmlString(SubItems[SubItems.Add(THtmlString.Create)]) do begin
     203    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
    204204      Text := 'Volejte levněji do pevných a mobilních sítí s sekundovou tarifikací a bez měsíčního paušálu.<br/>' +
    205205      '<br/>' +
     
    238238    HtmlDocument.Title := 'Hosting';
    239239
    240     with HtmlDocument.Body, THtmlString(SubItems[SubItems.Add(THtmlString.Create)]) do begin
     240    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
    241241      Text := 'V nabídce je provoz virtualizovaných Linuxových serverů dle dohodnutých parameterů.<br/><br/>' +
    242242      '<strong>Standardní varianty:</strong><br/>' +
     
    301301    HtmlDocument.Title := 'Síť';
    302302
    303     with HtmlDocument.Body, THtmlString(SubItems[SubItems.Add(THtmlString.Create)]) do begin
     303    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
    304304      Text := MakeLink('Historie', NavigationLink('/historie/')) + '<br/>' +
    305305        MakeLink('Dokumenty', NavigationLink('/dokumenty/')) + '<br/>' +
     
    316316    HtmlDocument.Title := 'Úvod';
    317317
    318     with HtmlDocument.Body, THtmlString(SubItems[SubItems.Add(THtmlString.Create)]) do begin
     318    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
    319319    Text := '<img align="left" src="' + NavigationLink('/images/umisteni.gif') + '" alt="Umístění obce"/>' +
    320320      '<a href="' + NavigationLink('/images/pokryti.jpg') + '">' +
     
    366366    HtmlDocument.Title := 'Dokumenty';
    367367
    368     with HtmlDocument.Body, THtmlString(SubItems[SubItems.Add(THtmlString.Create)]) do begin
     368    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
    369369      Text := '<strong>O obci:</strong><br/>' +
    370370
     
    389389  App.HtmlDocument.Title := 'Kontakt';
    390390
    391   with App.HtmlDocument.Body, THtmlString(SubItems[SubItems.Add(THtmlString.Create)]) do begin
     391  with App.HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
    392392    Text := '<strong>Kontaktní informace</strong><br/>' +
    393393    'Provozovatel: Ing. Jiří Hajda<br/>' +
     
    414414  if HandlerData.Request.QueryParts.Count > 1 then PageName := HandlerData.Request.QueryParts[1]
    415415    else PageName := '';
    416   with App.HtmlDocument.Body, THtmlString(SubItems[SubItems.Add(THtmlString.Create)]) do begin
     416  with App.HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
    417417    if PageName = 'prihlaseni' then begin
    418418      Text := 'Login';
    419       with App.HtmlDocument.Body, TQueryForm(SubItems[SubItems.Add(TQueryForm.Create)]) do begin
     419      with App.HtmlDocument.Body, TQueryForm(SubItems.AddNew(TQueryForm.Create)) do begin
    420420        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
    422423          Title := 'Základní údaje';
    423           with TQueryFormItem(Rows[Rows.Add(TQueryFormItem.Create)]) do begin
     424          with TQueryFormItem(Rows.AddNew(TQueryFormItem.Create)) do begin
    424425            Caption := 'Jméno';
    425426            Hint := 'Zadejte vaše přihlašovací jméno';
    426427            Required := True;
    427428          end;
    428           with TQueryFormItem(Rows[Rows.Add(TQueryFormItem.Create)]) do begin
     429          with TQueryFormItem(Rows.AddNew(TQueryFormItem.Create)) do begin
    429430            Caption := 'Heslo';
    430431            Hint := 'Zadejte vaše heslo';
    431432            Required := True;
     433            ItemType := fitPassword;
    432434          end;
    433435        end;
Note: See TracChangeset for help on using the changeset viewer.