Changeset 46


Ignore:
Timestamp:
Jan 30, 2011, 11:06:37 AM (14 years ago)
Author:
george
Message:
  • Přidáno: Stránka "Plánované projekty".
  • Upraveno: Přeorganizace hlavního menu a přidána položka "Síť".
Location:
trunk
Files:
1 added
5 edited

Legend:

Unmodified
Added
Removed

  • trunk/Application/UCustomApplication.pas

    r45 r46  
    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]
    … …  
    235235    // Visitor
    236236    Text := Text + '<ul class="MenuItem">' +
    237       '<li>' + MakeLink('O síti', NavigationLink('/')) + '</li>' +
     237      '<li>' + MakeLink('Úvod', NavigationLink('/')) + '</li>' +
    238238      '<li>' + MakeLink('Internet', NavigationLink('/internet/')) + '</li>' +
    239239      '<li>' + MakeLink('Hosting', NavigationLink('/hosting/')) + '</li>' +
    240240      '<li>' + MakeLink('VoIP', NavigationLink('/voip/')) + '</li>' +
    241       '<li>' + MakeLink('Historie', NavigationLink('/historie/')) + '</li>' +
    242       '<li>' + MakeLink('Dokumenty', NavigationLink('/dokumenty/')) + '</li>' +
     241      '<li>' + MakeLink('Síť', NavigationLink('/sit/')) + '</li>' +
    243242      '<li>' + MakeLink('Odkazy', NavigationLink('/odkazy/')) + '</li>' +
    244243      '<li>' + MakeLink('Kontakt', NavigationLink('/kontakt/')) + '</li>' +

  • trunk/Application/UWebObjects.pas

    r45 r46  
    4444  TQueryForm = class(THtmlForm)
    4545  private
    46     function GetAsXmlElement: TXmlElement; override;
    4746  public
    4847    Title: string;
    4948    Groups: TListObject;
    5049    Actions: TListObject; // TListObject<THtmlInput>
     50    function GetAsXmlElement: TXmlElement; override;
    5151    constructor Create;
    5252    destructor Destroy; override;
    … …  
    8888function TQueryForm.GetAsXmlElement: TXmlElement;
    8989var
    90   NewItem: TXmlElement;
    9190  I: Integer;
    9291  G: Integer;
    93   NewHtml: THtmlElement;
    9492begin
    9593  Result := inherited GetAsXmlElement;
    96   for G := 0 to Groups.Count - 1 do
    97   with TQueryFormGroup(Groups[G]) do
    98   begin
    99     NewItem := TXmlString.Create;
    100     TXmlString(NewItem).Text := Title;
    101     TXmlTag(Result).SubElements.Add(NewItem);
    102     NewHtml := THtmlLineBreak.Create;
    103     TXmlTag(Result).SubElements.Add(NewHtml.AsXmlElement);
    104     for I := 0 to Rows.Count - 1 do
    105     with TQueryFormItem(Rows[I]) do begin
    106       NewItem := TXmlString.Create;
    107       TXmlString(NewItem).Text := Caption + ': ';
    108       TXmlTag(Result).SubElements.Add(NewItem);
    109       TXmlTag(Result).SubElements.Add(Value.AsXmlElement);
    110       NewHtml := THtmlLineBreak.Create;
    111       TXmlTag(Result).SubElements.Add(NewHtml.AsXmlElement);
     94  with TXmlTag(Result).SubElements do begin
     95    for G := 0 to Groups.Count - 1 do
     96    with TQueryFormGroup(Groups[G]) do
     97    begin
     98      with TXmlString(Items[Add(TXmlString.Create)]) do begin
     99        Text := Title;
     100      end;
     101      with THtmlLineBreak.Create do begin
     102        Add(AsXmlElement);
     103      end;
     104      for I := 0 to Rows.Count - 1 do
     105      with TQueryFormItem(Rows[I]) do begin
     106        with TXmlString(Items[Add(TXmlString.Create)]) do begin
     107          Text := Caption + ': ';
     108        end;
     109        Add(Value.AsXmlElement);
     110        with THtmlLineBreak.Create do begin
     111          Add(AsXmlElement);
     112        end;
     113      end;
     114    end;
     115    with THtmlInput.Create do begin
     116      Value := 'Přihlásit';
     117      InputType := itSubmit;
     118      Add(AsXmlElement);
    112119    end;
    113120  end;
    114   NewHtml := THtmlInput.Create;
    115   THtmlInput(NewHtml).Value := 'Přihlásit';
    116   THtmlInput(NewHtml).InputType := itSubmit;
    117   TXmlTag(Result).SubElements.Add(NewHtml.AsXmlElement);
    118121end;
    119122

  • trunk/CGI.lpi

    r45 r46  
    4848      </Item3>
    4949    </RequiredPackages>
    50     <Units Count="65">
     50    <Units Count="69">
    5151      <Unit0>
    5252        <Filename Value="CGI.lpr"/>
    … …  
    5656        <WindowIndex Value="0"/>
    5757        <TopLine Value="1"/>
    58         <CursorPos X="34" Y="30"/>
     58        <CursorPos X="32" Y="29"/>
    5959        <UsageCount Value="203"/>
    6060        <Loaded Value="True"/>
    … …  
    6565        <IsPartOfProject Value="True"/>
    6666        <UnitName Value="UMainPage"/>
     67        <IsVisibleTab Value="True"/>
    6768        <EditorIndex Value="0"/>
    6869        <WindowIndex Value="0"/>
    69         <TopLine Value="349"/>
    70         <CursorPos X="20" Y="366"/>
     70        <TopLine Value="291"/>
     71        <CursorPos X="71" Y="305"/>
    7172        <UsageCount Value="200"/>
    7273        <Loaded Value="True"/>
    … …  
    7980        <TopLine Value="291"/>
    8081        <CursorPos X="1" Y="311"/>
    81         <UsageCount Value="92"/>
     82        <UsageCount Value="91"/>
    8283        <DefaultSyntaxHighlighter Value="Delphi"/>
    8384      </Unit2>
    8485      <Unit3>
    8586        <Filename Value="UXmlClasses.pas"/>
    86         <UsageCount Value="92"/>
     87        <UsageCount Value="91"/>
    8788        <DefaultSyntaxHighlighter Value="Delphi"/>
    8889      </Unit3>
    … …  
    9192        <IsPartOfProject Value="True"/>
    9293        <UnitName Value="UCore"/>
    93         <EditorIndex Value="4"/>
     94        <EditorIndex Value="6"/>
    9495        <WindowIndex Value="0"/>
    9596        <TopLine Value="82"/>
    96         <CursorPos X="21" Y="99"/>
     97        <CursorPos X="73" Y="89"/>
    9798        <UsageCount Value="203"/>
    9899        <Loaded Value="True"/>
    … …  
    105106        <TopLine Value="217"/>
    106107        <CursorPos X="5" Y="236"/>
    107         <UsageCount Value="92"/>
     108        <UsageCount Value="91"/>
    108109        <DefaultSyntaxHighlighter Value="Delphi"/>
    109110      </Unit5>
    … …  
    114115        <TopLine Value="10"/>
    115116        <CursorPos X="27" Y="19"/>
    116         <UsageCount Value="92"/>
     117        <UsageCount Value="91"/>
    117118        <DefaultSyntaxHighlighter Value="Delphi"/>
    118119      </Unit6>
    … …  
    122123        <TopLine Value="17"/>
    123124        <CursorPos X="34" Y="30"/>
    124         <UsageCount Value="92"/>
     125        <UsageCount Value="91"/>
    125126        <DefaultSyntaxHighlighter Value="Delphi"/>
    126127      </Unit7>
    … …  
    131132        <TopLine Value="204"/>
    132133        <CursorPos X="25" Y="226"/>
    133         <UsageCount Value="92"/>
     134        <UsageCount Value="91"/>
    134135        <DefaultSyntaxHighlighter Value="Delphi"/>
    135136      </Unit8>
    … …  
    140141        <TopLine Value="102"/>
    141142        <CursorPos X="25" Y="107"/>
    142         <UsageCount Value="92"/>
     143        <UsageCount Value="91"/>
    143144        <DefaultSyntaxHighlighter Value="Delphi"/>
    144145      </Unit9>
    … …  
    149150        <TopLine Value="40"/>
    150151        <CursorPos X="9" Y="59"/>
    151         <UsageCount Value="80"/>
     152        <UsageCount Value="79"/>
    152153        <DefaultSyntaxHighlighter Value="Delphi"/>
    153154      </Unit10>
    … …  
    157158        <TopLine Value="91"/>
    158159        <CursorPos X="10" Y="110"/>
    159         <UsageCount Value="62"/>
     160        <UsageCount Value="61"/>
    160161      </Unit11>
    161162      <Unit12>
    … …  
    191192        <TopLine Value="608"/>
    192193        <CursorPos X="44" Y="627"/>
    193         <UsageCount Value="61"/>
     194        <UsageCount Value="60"/>
    194195        <DefaultSyntaxHighlighter Value="Delphi"/>
    195196      </Unit15>
    … …  
    200201        <TopLine Value="39"/>
    201202        <CursorPos X="25" Y="58"/>
    202         <UsageCount Value="61"/>
     203        <UsageCount Value="60"/>
    203204        <DefaultSyntaxHighlighter Value="Delphi"/>
    204205      </Unit16>
    … …  
    209210        <TopLine Value="1"/>
    210211        <CursorPos X="69" Y="19"/>
    211         <UsageCount Value="57"/>
     212        <UsageCount Value="56"/>
    212213        <DefaultSyntaxHighlighter Value="Delphi"/>
    213214      </Unit17>
    … …  
    218219        <TopLine Value="1"/>
    219220        <CursorPos X="52" Y="124"/>
    220         <UsageCount Value="54"/>
     221        <UsageCount Value="53"/>
    221222        <DefaultSyntaxHighlighter Value="Delphi"/>
    222223      </Unit18>
    … …  
    226227        <TopLine Value="539"/>
    227228        <CursorPos X="14" Y="556"/>
    228         <UsageCount Value="63"/>
     229        <UsageCount Value="62"/>
    229230      </Unit19>
    230231      <Unit20>
    … …  
    233234        <TopLine Value="10"/>
    234235        <CursorPos X="22" Y="23"/>
    235         <UsageCount Value="63"/>
     236        <UsageCount Value="62"/>
    236237      </Unit20>
    237238      <Unit21>
    … …  
    241242        <TopLine Value="1140"/>
    242243        <CursorPos X="26" Y="1143"/>
    243         <UsageCount Value="63"/>
     244        <UsageCount Value="62"/>
    244245      </Unit21>
    245246      <Unit22>
    … …  
    248249        <TopLine Value="43"/>
    249250        <CursorPos X="5" Y="61"/>
    250         <UsageCount Value="63"/>
     251        <UsageCount Value="62"/>
    251252      </Unit22>
    252253      <Unit23>
    … …  
    255256        <TopLine Value="50"/>
    256257        <CursorPos X="10" Y="63"/>
    257         <UsageCount Value="63"/>
     258        <UsageCount Value="62"/>
    258259      </Unit23>
    259260      <Unit24>
    … …  
    263264        <TopLine Value="17"/>
    264265        <CursorPos X="32" Y="36"/>
    265         <UsageCount Value="182"/>
     266        <UsageCount Value="181"/>
    266267        <DefaultSyntaxHighlighter Value="Delphi"/>
    267268      </Unit24>
    … …  
    272273        <TopLine Value="8"/>
    273274        <CursorPos X="17" Y="19"/>
    274         <UsageCount Value="9"/>
     275        <UsageCount Value="8"/>
    275276        <DefaultSyntaxHighlighter Value="Delphi"/>
    276277      </Unit25>
    … …  
    281282        <TopLine Value="25"/>
    282283        <CursorPos X="86" Y="94"/>
    283         <UsageCount Value="182"/>
     284        <UsageCount Value="181"/>
    284285        <DefaultSyntaxHighlighter Value="Delphi"/>
    285286      </Unit26>
    … …  
    290291        <TopLine Value="549"/>
    291292        <CursorPos X="19" Y="569"/>
    292         <UsageCount Value="183"/>
     293        <UsageCount Value="182"/>
    293294        <DefaultSyntaxHighlighter Value="Delphi"/>
    294295      </Unit27>
    … …  
    299300        <TopLine Value="1"/>
    300301        <CursorPos X="64" Y="14"/>
    301         <UsageCount Value="183"/>
     302        <UsageCount Value="182"/>
    302303        <DefaultSyntaxHighlighter Value="Delphi"/>
    303304      </Unit28>
    … …  
    308309        <TopLine Value="6"/>
    309310        <CursorPos X="5" Y="33"/>
    310         <UsageCount Value="183"/>
     311        <UsageCount Value="182"/>
    311312        <DefaultSyntaxHighlighter Value="Delphi"/>
    312313      </Unit29>
    … …  
    317318        <TopLine Value="99"/>
    318319        <CursorPos X="33" Y="117"/>
    319         <UsageCount Value="10"/>
     320        <UsageCount Value="9"/>
    320321        <DefaultSyntaxHighlighter Value="Delphi"/>
    321322      </Unit30>
    … …  
    325326        <TopLine Value="61"/>
    326327        <CursorPos X="14" Y="78"/>
    327         <UsageCount Value="62"/>
     328        <UsageCount Value="61"/>
    328329      </Unit31>
    329330      <Unit32>
    … …  
    332333        <TopLine Value="519"/>
    333334        <CursorPos X="23" Y="526"/>
    334         <UsageCount Value="58"/>
     335        <UsageCount Value="57"/>
    335336      </Unit32>
    336337      <Unit33>
    … …  
    350351        <TopLine Value="1"/>
    351352        <CursorPos X="16" Y="164"/>
    352         <UsageCount Value="324"/>
     353        <UsageCount Value="323"/>
    353354        <DefaultSyntaxHighlighter Value="Delphi"/>
    354355      </Unit34>
    … …  
    359360        <TopLine Value="81"/>
    360361        <CursorPos X="1" Y="96"/>
    361         <UsageCount Value="323"/>
     362        <UsageCount Value="322"/>
    362363        <DefaultSyntaxHighlighter Value="Delphi"/>
    363364      </Unit35>
    … …  
    368369        <TopLine Value="1"/>
    369370        <CursorPos X="18" Y="45"/>
    370         <UsageCount Value="323"/>
     371        <UsageCount Value="322"/>
    371372        <DefaultSyntaxHighlighter Value="Delphi"/>
    372373      </Unit36>
    … …  
    377378        <TopLine Value="142"/>
    378379        <CursorPos X="52" Y="165"/>
    379         <UsageCount Value="323"/>
     380        <UsageCount Value="322"/>
    380381        <DefaultSyntaxHighlighter Value="Delphi"/>
    381382      </Unit37>
    … …  
    386387        <TopLine Value="109"/>
    387388        <CursorPos X="36" Y="96"/>
    388         <UsageCount Value="323"/>
     389        <UsageCount Value="322"/>
    389390        <DefaultSyntaxHighlighter Value="Delphi"/>
    390391      </Unit38>
    … …  
    395396        <TopLine Value="44"/>
    396397        <CursorPos X="27" Y="61"/>
    397         <UsageCount Value="323"/>
     398        <UsageCount Value="322"/>
    398399        <DefaultSyntaxHighlighter Value="Delphi"/>
    399400      </Unit39>
    … …  
    404405        <TopLine Value="1"/>
    405406        <CursorPos X="50" Y="8"/>
    406         <UsageCount Value="323"/>
     407        <UsageCount Value="322"/>
    407408        <DefaultSyntaxHighlighter Value="Delphi"/>
    408409      </Unit40>
    … …  
    413414        <TopLine Value="1"/>
    414415        <CursorPos X="21" Y="1"/>
    415         <UsageCount Value="322"/>
     416        <UsageCount Value="321"/>
    416417        <DefaultSyntaxHighlighter Value="Delphi"/>
    417418      </Unit41>
    … …  
    422423        <TopLine Value="1"/>
    423424        <CursorPos X="53" Y="8"/>
    424         <UsageCount Value="322"/>
     425        <UsageCount Value="321"/>
    425426        <DefaultSyntaxHighlighter Value="Delphi"/>
    426427      </Unit42>
    … …  
    431432        <TopLine Value="1"/>
    432433        <CursorPos X="52" Y="92"/>
    433         <UsageCount Value="322"/>
     434        <UsageCount Value="321"/>
    434435        <DefaultSyntaxHighlighter Value="Delphi"/>
    435436      </Unit43>
    … …  
    440441        <TopLine Value="83"/>
    441442        <CursorPos X="47" Y="106"/>
    442         <UsageCount Value="322"/>
     443        <UsageCount Value="321"/>
    443444        <DefaultSyntaxHighlighter Value="Delphi"/>
    444445      </Unit44>
    … …  
    449450        <TopLine Value="1"/>
    450451        <CursorPos X="3" Y="687"/>
    451         <UsageCount Value="322"/>
     452        <UsageCount Value="321"/>
    452453        <DefaultSyntaxHighlighter Value="Delphi"/>
    453454      </Unit45>
    … …  
    458459        <TopLine Value="383"/>
    459460        <CursorPos X="15" Y="397"/>
    460         <UsageCount Value="43"/>
     461        <UsageCount Value="42"/>
    461462      </Unit46>
    462463      <Unit47>
    … …  
    466467        <EditorIndex Value="1"/>
    467468        <WindowIndex Value="0"/>
    468         <TopLine Value="106"/>
    469         <CursorPos X="1" Y="116"/>
     469        <TopLine Value="227"/>
     470        <CursorPos X="1" Y="242"/>
    470471        <UsageCount Value="339"/>
    471472        <Loaded Value="True"/>
    … …  
    477478        <TopLine Value="690"/>
    478479        <CursorPos X="3" Y="695"/>
    479         <UsageCount Value="43"/>
     480        <UsageCount Value="42"/>
    480481      </Unit48>
    481482      <Unit49>
    … …  
    485486        <TopLine Value="1"/>
    486487        <CursorPos X="43" Y="79"/>
    487         <UsageCount Value="319"/>
     488        <UsageCount Value="318"/>
    488489        <DefaultSyntaxHighlighter Value="Delphi"/>
    489490      </Unit49>
    490491      <Unit50>
    491492        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    492         <WindowIndex Value="0"/>
    493         <TopLine Value="373"/>
    494         <CursorPos X="1" Y="398"/>
    495         <UsageCount Value="179"/>
     493        <EditorIndex Value="4"/>
     494        <WindowIndex Value="0"/>
     495        <TopLine Value="426"/>
     496        <CursorPos X="11" Y="453"/>
     497        <UsageCount Value="178"/>
     498        <Loaded Value="True"/>
    496499      </Unit50>
    497500      <Unit51>
    … …  
    501504        <TopLine Value="1"/>
    502505        <CursorPos X="26" Y="18"/>
    503         <UsageCount Value="83"/>
     506        <UsageCount Value="82"/>
    504507      </Unit51>
    505508      <Unit52>
    … …  
    509512        <TopLine Value="1"/>
    510513        <CursorPos X="15" Y="20"/>
    511         <UsageCount Value="96"/>
     514        <UsageCount Value="95"/>
    512515      </Unit52>
    513516      <Unit53>
    … …  
    517520        <TopLine Value="1"/>
    518521        <CursorPos X="44" Y="17"/>
    519         <UsageCount Value="95"/>
     522        <UsageCount Value="94"/>
    520523      </Unit53>
    521524      <Unit54>
    … …  
    525528        <TopLine Value="1"/>
    526529        <CursorPos X="34" Y="13"/>
    527         <UsageCount Value="13"/>
     530        <UsageCount Value="12"/>
    528531      </Unit54>
    529532      <Unit55>
    … …  
    533536        <TopLine Value="1"/>
    534537        <CursorPos X="60" Y="11"/>
    535         <UsageCount Value="13"/>
     538        <UsageCount Value="12"/>
    536539      </Unit55>
    537540      <Unit56>
    … …  
    541544        <TopLine Value="92"/>
    542545        <CursorPos X="7" Y="119"/>
    543         <UsageCount Value="9"/>
     546        <UsageCount Value="8"/>
    544547      </Unit56>
    545548      <Unit57>
    546549        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Common/UXmlClasses.pas"/>
    547550        <UnitName Value="UXmlClasses"/>
    548         <EditorIndex Value="5"/>
     551        <EditorIndex Value="7"/>
    549552        <WindowIndex Value="0"/>
    550553        <TopLine Value="18"/>
    551554        <CursorPos X="1" Y="25"/>
    552         <UsageCount Value="15"/>
     555        <UsageCount Value="17"/>
    553556        <Loaded Value="True"/>
    554557      </Unit57>
    … …  
    556559        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Common/UHtmlClasses.pas"/>
    557560        <UnitName Value="UHtmlClasses"/>
    558         <EditorIndex Value="6"/>
    559         <WindowIndex Value="0"/>
    560         <TopLine Value="133"/>
    561         <CursorPos X="5" Y="150"/>
    562         <UsageCount Value="15"/>
     561        <EditorIndex Value="8"/>
     562        <WindowIndex Value="0"/>
     563        <TopLine Value="1"/>
     564        <CursorPos X="8" Y="4"/>
     565        <UsageCount Value="18"/>
    563566        <Loaded Value="True"/>
    564567      </Unit58>
    … …  
    567570        <IsPartOfProject Value="True"/>
    568571        <UnitName Value="UWebObjects"/>
    569         <IsVisibleTab Value="True"/>
    570572        <EditorIndex Value="3"/>
    571573        <WindowIndex Value="0"/>
    572         <TopLine Value="98"/>
    573         <CursorPos X="43" Y="115"/>
    574         <UsageCount Value="24"/>
     574        <TopLine Value="31"/>
     575        <CursorPos X="1" Y="51"/>
     576        <UsageCount Value="30"/>
    575577        <Loaded Value="True"/>
    576578        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    590592        <TopLine Value="1"/>
    591593        <CursorPos X="1" Y="1"/>
    592         <UsageCount Value="11"/>
     594        <UsageCount Value="10"/>
    593595      </Unit61>
    594596      <Unit62>
    … …  
    598600        <TopLine Value="14"/>
    599601        <CursorPos X="5" Y="31"/>
    600         <UsageCount Value="11"/>
     602        <UsageCount Value="10"/>
    601603      </Unit62>
    602604      <Unit63>
    … …  
    613615        <TopLine Value="168"/>
    614616        <CursorPos X="23" Y="185"/>
     617        <UsageCount Value="9"/>
     618      </Unit64>
     619      <Unit65>
     620        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Specialized/SpecializedList.pas"/>
     621        <UnitName Value="SpecializedList"/>
     622        <EditorIndex Value="5"/>
     623        <WindowIndex Value="0"/>
     624        <TopLine Value="1"/>
     625        <CursorPos X="31" Y="126"/>
     626        <UsageCount Value="12"/>
     627        <Loaded Value="True"/>
     628      </Unit65>
     629      <Unit66>
     630        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericMatrix.inc"/>
     631        <EditorIndex Value="9"/>
     632        <WindowIndex Value="0"/>
     633        <TopLine Value="1"/>
     634        <CursorPos X="14" Y="3"/>
     635        <UsageCount Value="11"/>
     636        <Loaded Value="True"/>
     637      </Unit66>
     638      <Unit67>
     639        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Specialized/SpecializedMatrix.pas"/>
     640        <UnitName Value="SpecializedMatrix"/>
     641        <EditorIndex Value="10"/>
     642        <WindowIndex Value="0"/>
     643        <TopLine Value="32"/>
     644        <CursorPos X="24" Y="63"/>
     645        <UsageCount Value="11"/>
     646        <Loaded Value="True"/>
     647      </Unit67>
     648      <Unit68>
     649        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListObject.inc"/>
     650        <EditorIndex Value="11"/>
     651        <WindowIndex Value="0"/>
     652        <TopLine Value="5"/>
     653        <CursorPos X="16" Y="22"/>
    615654        <UsageCount Value="10"/>
    616       </Unit64>
     655        <Loaded Value="True"/>
     656      </Unit68>
    617657    </Units>
    618     <JumpHistory Count="29" HistoryIndex="28">
     658    <JumpHistory Count="30" HistoryIndex="29">
    619659      <Position1>
    620         <Filename Value="Application/UWebObjects.pas"/>
    621         <Caret Line="81" Column="13" TopLine="51"/>
     660        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericMatrix.inc"/>
     661        <Caret Line="455" Column="3" TopLine="433"/>
    622662      </Position1>
    623663      <Position2>
    624         <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Common/UHtmlClasses.pas"/>
    625         <Caret Line="96" Column="1" TopLine="66"/>
     664        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericMatrix.inc"/>
     665        <Caret Line="467" Column="5" TopLine="446"/>
    626666      </Position2>
    627667      <Position3>
    628         <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Common/UHtmlClasses.pas"/>
    629         <Caret Line="253" Column="23" TopLine="250"/>
     668        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericMatrix.inc"/>
     669        <Caret Line="474" Column="10" TopLine="455"/>
    630670      </Position3>
    631671      <Position4>
    632         <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Common/UHtmlClasses.pas"/>
    633         <Caret Line="99" Column="1" TopLine="79"/>
     672        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericMatrix.inc"/>
     673        <Caret Line="479" Column="16" TopLine="457"/>
    634674      </Position4>
    635675      <Position5>
    636         <Filename Value="Application/UWebObjects.pas"/>
    637         <Caret Line="83" Column="48" TopLine="60"/>
     676        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericMatrix.inc"/>
     677        <Caret Line="73" Column="53" TopLine="50"/>
    638678      </Position5>
    639679      <Position6>
    640         <Filename Value="Application/UWebObjects.pas"/>
    641         <Caret Line="65" Column="23" TopLine="55"/>
     680        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericMatrix.inc"/>
     681        <Caret Line="498" Column="19" TopLine="470"/>
    642682      </Position6>
    643683      <Position7>
    644         <Filename Value="Application/UWebObjects.pas"/>
    645         <Caret Line="74" Column="5" TopLine="57"/>
     684        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericMatrix.inc"/>
     685        <Caret Line="28" Column="1" TopLine="11"/>
    646686      </Position7>
    647687      <Position8>
    648         <Filename Value="Application/UWebObjects.pas"/>
    649         <Caret Line="79" Column="1" TopLine="65"/>
     688        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Common/UHtmlClasses.pas"/>
     689        <Caret Line="8" Column="52" TopLine="1"/>
    650690      </Position8>
    651691      <Position9>
    652         <Filename Value="Application/UWebObjects.pas"/>
    653         <Caret Line="86" Column="1" TopLine="65"/>
     692        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericMatrix.inc"/>
     693        <Caret Line="81" Column="19" TopLine="59"/>
    654694      </Position9>
    655695      <Position10>
    656         <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Common/UHtmlClasses.pas"/>
    657         <Caret Line="253" Column="1" TopLine="236"/>
     696        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericMatrix.inc"/>
     697        <Caret Line="3" Column="14" TopLine="1"/>
    658698      </Position10>
    659699      <Position11>
    660700        <Filename Value="Application/UWebObjects.pas"/>
    661         <Caret Line="91" Column="11" TopLine="65"/>
     701        <Caret Line="99" Column="1" TopLine="81"/>
    662702      </Position11>
    663703      <Position12>
    664704        <Filename Value="Application/UWebObjects.pas"/>
    665         <Caret Line="90" Column="10" TopLine="74"/>
     705        <Caret Line="124" Column="1" TopLine="107"/>
    666706      </Position12>
    667707      <Position13>
    668         <Filename Value="Pages/UMainPage.pas"/>
    669         <Caret Line="389" Column="12" TopLine="360"/>
     708        <Filename Value="Application/UWebObjects.pas"/>
     709        <Caret Line="120" Column="43" TopLine="87"/>
    670710      </Position13>
    671711      <Position14>
    672         <Filename Value="Pages/UMainPage.pas"/>
    673         <Caret Line="366" Column="20" TopLine="349"/>
     712        <Filename Value="Application/UWebObjects.pas"/>
     713        <Caret Line="125" Column="16" TopLine="107"/>
    674714      </Position14>
    675715      <Position15>
    676         <Filename Value="Application/UWebObjects.pas"/>
    677         <Caret Line="29" Column="74" TopLine="11"/>
     716        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Common/UHtmlClasses.pas"/>
     717        <Caret Line="9" Column="3" TopLine="1"/>
    678718      </Position15>
    679719      <Position16>
    680         <Filename Value="Application/UWebObjects.pas"/>
    681         <Caret Line="71" Column="1" TopLine="58"/>
     720        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Common/UHtmlClasses.pas"/>
     721        <Caret Line="179" Column="3" TopLine="162"/>
    682722      </Position16>
    683723      <Position17>
    684         <Filename Value="Application/UWebObjects.pas"/>
    685         <Caret Line="24" Column="10" TopLine="8"/>
     724        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Common/UHtmlClasses.pas"/>
     725        <Caret Line="211" Column="1" TopLine="194"/>
    686726      </Position17>
    687727      <Position18>
    688         <Filename Value="Application/UWebObjects.pas"/>
    689         <Caret Line="20" Column="1" TopLine="10"/>
     728        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Common/UHtmlClasses.pas"/>
     729        <Caret Line="278" Column="3" TopLine="261"/>
    690730      </Position18>
    691731      <Position19>
    692         <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Common/UHtmlClasses.pas"/>
    693         <Caret Line="273" Column="32" TopLine="265"/>
     732        <Filename Value="Application/UWebObjects.pas"/>
     733        <Caret Line="116" Column="1" TopLine="1"/>
    694734      </Position19>
    695735      <Position20>
    696736        <Filename Value="Application/UWebObjects.pas"/>
    697         <Caret Line="25" Column="45" TopLine="3"/>
     737        <Caret Line="91" Column="1" TopLine="91"/>
    698738      </Position20>
    699739      <Position21>
    700740        <Filename Value="Application/UWebObjects.pas"/>
    701         <Caret Line="24" Column="59" TopLine="2"/>
     741        <Caret Line="46" Column="14" TopLine="29"/>
    702742      </Position21>
    703743      <Position22>
    704744        <Filename Value="Application/UWebObjects.pas"/>
    705         <Caret Line="71" Column="51" TopLine="52"/>
     745        <Caret Line="124" Column="1" TopLine="107"/>
    706746      </Position22>
    707747      <Position23>
    708748        <Filename Value="Application/UWebObjects.pas"/>
    709         <Caret Line="65" Column="11" TopLine="49"/>
     749        <Caret Line="46" Column="14" TopLine="29"/>
    710750      </Position23>
    711751      <Position24>
    712752        <Filename Value="Application/UWebObjects.pas"/>
    713         <Caret Line="16" Column="26" TopLine="1"/>
     753        <Caret Line="98" Column="1" TopLine="87"/>
    714754      </Position24>
    715755      <Position25>
    716756        <Filename Value="Application/UWebObjects.pas"/>
    717         <Caret Line="67" Column="11" TopLine="50"/>
     757        <Caret Line="46" Column="14" TopLine="29"/>
    718758      </Position25>
    719759      <Position26>
    720760        <Filename Value="Application/UWebObjects.pas"/>
    721         <Caret Line="16" Column="52" TopLine="1"/>
     761        <Caret Line="44" Column="29" TopLine="29"/>
    722762      </Position26>
    723763      <Position27>
    724764        <Filename Value="Application/UWebObjects.pas"/>
    725         <Caret Line="67" Column="43" TopLine="50"/>
     765        <Caret Line="48" Column="1" TopLine="29"/>
    726766      </Position27>
    727767      <Position28>
    728         <Filename Value="Application/UWebObjects.pas"/>
    729         <Caret Line="115" Column="26" TopLine="99"/>
     768        <Filename Value="CGI.lpr"/>
     769        <Caret Line="28" Column="32" TopLine="1"/>
    730770      </Position28>
    731771      <Position29>
    732         <Filename Value="Application/UWebObjects.pas"/>
    733         <Caret Line="116" Column="36" TopLine="99"/>
     772        <Filename Value="Pages/UMainPage.pas"/>
     773        <Caret Line="303" Column="79" TopLine="298"/>
    734774      </Position29>
     775      <Position30>
     776        <Filename Value="CGI.lpr"/>
     777        <Caret Line="28" Column="32" TopLine="1"/>
     778      </Position30>
    735779    </JumpHistory>
    736780  </ProjectOptions>

  • trunk/CGI.lpr

    r42 r46  
    2626    RegisterPage('kamery', WebCam);
    2727    RegisterPage('uzivatel', UserControl);
     28    RegisterPage('plany', Plans);
     29    RegisterPage('sit', Network);
    2830    RegisterPage('', About);
    2931    HTTPServer := THTTPServerCGI.Create;

  • trunk/Pages/UMainPage.pas

    r45 r46  
    2020procedure WebCam(App: TCustomApplication; HandlerData: THTTPHandlerData);
    2121procedure UserControl(App: TCustomApplication; HandlerData: THTTPHandlerData);
     22procedure Plans(App: TCustomApplication; HandlerData: THTTPHandlerData);
     23procedure Network(App: TCustomApplication; HandlerData: THTTPHandlerData);
    2224
    2325implementation
    … …  
    3739    '<a href="http://fotbal.zdechov.net/">TJ Sokol Zděchov</a> - stránky věnované Zděchovskému fotbalovému týmu<br/>' +
    3840    '<a href="http://farnost.zdechov.net/">Farnost Zděchov</a> - informace k místní farnosti<br/>' +
    39     '<br/>' +
    40 
    41     '<strong>Hostované servery:</strong><br/>' +
    42     //'<a href="http://www.heroesoffantasy.cz/">Heroes of Fantasy</a> - free World of Warcraft server<br/>' +
    43     '<a href="http://wowpreklad.zdechov.net/">WoWpřeklad</a> - překlad hry WoW do češtiny<br/>' +
    44     '<a href="http://www.unitedstorm.eu/">UnitedStorm</a> - herní server<br/>' +
    45     '<a href="http://victus.cz/">Victus</a> - herní server hry WoW<br/>' +
    46     '<a href="http://gameshoot.eu/">GameShoot</a> - herní portál<br/>' +
    47     '<a href="http://sharp.zdechov.net/"></a> - Sharp MZ community web<br/>' +
    48 
    4941    '<br/>' +
    5042
    … …  
    8779            DbRows[I].Values['Text'] + '</td></tr>';
    8880        end;
     81      finally
     82        DbRows.Free;
     83      end;
     84      Text := Text + '</table>';
     85    end;
     86  end;
     87end;
     88
     89procedure Plans(App: TCustomApplication; HandlerData: THTTPHandlerData);
     90var
     91  DbRows: TDbRows;
     92  I: Integer;
     93begin
     94  with App do begin
     95    HtmlDocument.Title := 'Plánované projekty';
     96
     97    with HtmlDocument.Body, THtmlString(SubItems[SubItems.Add(THtmlString.Create)]) do begin
     98      Text := '<table>';
     99      try
     100        DbRows := TDbRows.Create;
     101        Text := '<br/><strong>Plánované úkoly:</strong><br />' +
     102          '<div><ul>';
     103        Database.Query(DbRows, 'SELECT * FROM `Plans` WHERE `TimeFinished` IS NULL ORDER BY `TimeCreate`');
     104        for I := 0 to DbRows.Count - 1 do begin
     105          Text := Text + '<li>' + DbRows[I].Values['Description'] + '</li>';
     106        end;
     107        Text := Text + '</ul></div><br/>';
     108
     109        Text := Text + '<br/><strong>Hotové úkoly:</strong><br />' +
     110          '<div><ul>';
     111        Database.Query(DbRows, 'SELECT * FROM `Plans` WHERE `TimeFinished` IS NOT NULL ORDER BY `TimeCreate`');
     112        for I := 0 to DbRows.Count - 1 do begin
     113          Text := Text + '<li>' + DbRows[I].Values['Description'] + '<br/>' +
     114            '<i style="padding-left: 30px;">' + DbRows[I].Values['Conclusion'] + '</i></li>';
     115        end;
     116        Text := Text + '</ul></div><br/>';
     117
    89118      finally
    90119        DbRows.Free;
    … …  
    181210    '<li>V sítí Mikrotech: 0 Kč/minutu</li>' +
    182211    '<li>Volání do pevných sítí: 0,5 Kč/minutu</li>' +
    183     '<li>Volání do mobilních sítí: 2,33 Kč/minutu</li>' +
     212    '<li>Volání do mobilních sítí: 1,95 Kč/minutu</li>' +
    184213    '<li>Přenesení vašeho čísla: 1200 Kč</li>' +
    185214    '</ul><br/>' +
    … …  
    265294end;
    266295
     296procedure Network(App: TCustomApplication; HandlerData: THTTPHandlerData);
     297var
     298  TextBlock: THtmlString;
     299begin
     300  with App do begin
     301    HtmlDocument.Title := 'Síť';
     302
     303    with HtmlDocument.Body, THtmlString(SubItems[SubItems.Add(THtmlString.Create)]) do begin
     304      Text := MakeLink('Historie', NavigationLink('/historie/')) + '<br/>' +
     305        MakeLink('Dokumenty', NavigationLink('/dokumenty/')) + '<br/>' +
     306        MakeLink('Plánované projekty', NavigationLink('/plany/')) + '<br/>';
     307    end;
     308  end;
     309end;
     310
    267311procedure About(App: TCustomApplication; HandlerData: THTTPHandlerData);
    268312var
    … …  
    270314begin
    271315  with App do begin
    272     HtmlDocument.Title := 'O síti';
     316    HtmlDocument.Title := 'Úvod';
    273317
    274318    with HtmlDocument.Body, THtmlString(SubItems[SubItems.Add(THtmlString.Create)]) do begin
    … …  
    373417    if PageName = 'prihlaseni' then begin
    374418      Text := 'Login';
    375       NewForm := TQueryForm.Create;
    376       NewForm.Title := 'Přihlášení';
    377 //        NewForm.Action := THTMLInput.Create;
    378 //        NewForm.Action
    379       NewGroup := TQueryFormGroup.Create;
    380       NewGroup.Title := 'Základní údaje';
    381       NewItem := TQueryFormItem.Create;
    382       NewItem.Caption := 'Jméno';
    383       NewItem.Hint := 'Zadejte vaše přihlašovací jméno';
    384       NewItem.Required := True;
    385       NewGroup.Rows.Add(NewItem);
    386       NewItem := TQueryFormItem.Create;
    387       NewItem.Caption := 'Heslo';
    388       NewItem.Hint := 'Zadejte vaše heslo';
    389       NewItem.Required := True;
    390       NewGroup.Rows.Add(NewItem);
    391       NewForm.Groups.Add(NewGroup);
    392       App.HtmlDocument.Body.SubItems.Add(NewForm);
     419      with App.HtmlDocument.Body, TQueryForm(SubItems[SubItems.Add(TQueryForm.Create)]) do begin
     420        Title := 'Přihlášení';
     421        with TQueryFormGroup(Groups[Groups.Add(TQueryFormGroup.Create)]) do begin
     422          Title := 'Základní údaje';
     423          with TQueryFormItem(Rows[Rows.Add(TQueryFormItem.Create)]) do begin
     424            Caption := 'Jméno';
     425            Hint := 'Zadejte vaše přihlašovací jméno';
     426            Required := True;
     427          end;
     428          with TQueryFormItem(Rows[Rows.Add(TQueryFormItem.Create)]) do begin
     429            Caption := 'Heslo';
     430            Hint := 'Zadejte vaše heslo';
     431            Required := True;
     432          end;
     433        end;
     434      end;
    393435    end else Text := '';
    394436  end;
Note: See TracChangeset for help on using the changeset viewer.