Changeset 32


Ignore:
Timestamp:
Nov 24, 2011, 10:31:04 AM (12 years ago)
Author:
chronos
Message:
  • Modified: Better form addition to tab list. Better tab titles.
Location:
trunk
Files:
4 added
1 deleted
7 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UItemList.pas

    r31 r32  
    6767  with ListView1 do begin
    6868    Visible := True;
    69     SelectedObject.Load(SelectedObject.Id);
     69    //SelectedObject.Load(SelectedObject.Id);
    7070    Report.Load(SelectedObject);
    7171
    … …  
    8686    NewItemViewForm.SelectedObject.Assign(SelectedObject);
    8787    NewItemViewForm.SelectedItemId := Integer(ListView1.Selected.Data);
     88    NewItemViewForm.Caption := NewItemViewForm.Caption + ' ' + SelectedObject.Name;
    8889    MainForm.AddTabForm(NewItemViewForm);
    8990  end;
    … …  
    118119    NewItemEditForm.SelectedObject.Assign(SelectedObject);
    119120    NewItemEditForm.SelectedItemId := Integer(ListView1.Selected.Data);
     121    NewItemEditForm.Caption := NewItemEditForm.Caption + ' ' + SelectedObject.Name;
    120122    MainForm.AddTabForm(NewItemEditForm);
    121123  end;
    … …  
    129131  NewItemAddForm.SelectedObject.Assign(SelectedObject);
    130132  NewItemAddForm.SelectedItemId := Integer(ListView1.Selected.Data);
     133  NewItemAddForm.Caption := NewItemAddForm.Caption + ' ' + SelectedObject.Name;
    131134  MainForm.AddTabForm(NewItemAddForm);
    132135end;

  • trunk/Forms/UItemView.pas

    r31 r32  
    110110  NewItemEditForm.SelectedObject.Assign(SelectedObject);
    111111  NewItemEditForm.SelectedItemId := SelectedItemId;
     112  NewItemEditForm.Caption := NewItemEditForm.Caption + ' ' + SelectedObject.Name;
    112113  MainForm.AddTabForm(NewItemEditForm);
    113114end;

  • trunk/Forms/UMainForm.pas

    r31 r32  
    326326  if Assigned(TreeView1.Selected) then begin
    327327    NewItemListForm := TItemListForm.Create(Self);
    328     NewItemListForm.SelectedObject.Id := Integer(TreeView1.Selected.Data);
     328    NewItemListForm.SelectedObject.Load(Integer(TreeView1.Selected.Data));
     329    NewItemListForm.Caption := NewItemListForm.Caption + ' ' + NewItemListForm.SelectedObject.Name;
    329330    AddTabForm(NewItemListForm);
    330331  end;
    … …  
    384385  NewTabSheet.UseDockManager := True;
    385386  NewTabSheet.Caption := Form.Caption;
     387  PageControl1.TabIndex := PageControl1.PageCount - 1;
    386388  Form.DragKind := dkDock;
    387389  Form.DragMode := dmAutomatic;
     390  Form.ManualDock(NewTabSheet);
    388391  Form.Show;
    389   Form.ManualDock(NewTabSheet);
    390   PageControl1.TabIndex := PageControl1.PageCount - 1;
     392
     393  // Workaround for not showing content of first tab after docking
     394  NewTabSheet.Visible := False;
     395  NewTabSheet.Visible := True;
    391396end;
    392397

  • trunk/Languages/chronis.cs.po

    r31 r32  
    125125#: TITEMLISTFORM.CAPTION
    126126msgid "Item list"
    127 msgstr ""
     127msgstr "Seznam položek"
    128128
    129129#: TITEMSELECTFORM.BUTTONCANCEL.CAPTION

  • trunk/chronis.lpi

    r31 r32  
    105105      </Item6>
    106106    </RequiredPackages>
    107     <Units Count="56">
     107    <Units Count="58">
    108108      <Unit0>
    109109        <Filename Value="chronis.lpr"/>
    … …  
    153153        <IsPartOfProject Value="True"/>
    154154        <UnitName Value="UPersistentForm"/>
    155         <IsVisibleTab Value="True"/>
    156         <EditorIndex Value="5"/>
     155        <EditorIndex Value="6"/>
    157156        <WindowIndex Value="0"/>
    158157        <TopLine Value="21"/>
    159         <CursorPos X="14" Y="34"/>
     158        <CursorPos X="63" Y="37"/>
    160159        <UsageCount Value="264"/>
    161160        <Loaded Value="True"/>
    … …  
    190189        <WindowIndex Value="0"/>
    191190        <TopLine Value="104"/>
    192         <CursorPos X="20" Y="112"/>
     191        <CursorPos X="5" Y="117"/>
    193192        <UsageCount Value="327"/>
    194193        <Loaded Value="True"/>
    … …  
    202201        <ResourceBaseClass Value="Form"/>
    203202        <UnitName Value="UItemEdit"/>
    204         <EditorIndex Value="1"/>
     203        <EditorIndex Value="2"/>
    205204        <WindowIndex Value="0"/>
    206205        <TopLine Value="27"/>
    … …  
    218217        <ResourceBaseClass Value="Form"/>
    219218        <UnitName Value="ULoginForm"/>
    220         <EditorIndex Value="6"/>
     219        <EditorIndex Value="11"/>
    221220        <WindowIndex Value="0"/>
    222221        <TopLine Value="43"/>
    … …  
    234233        <ResourceBaseClass Value="Form"/>
    235234        <UnitName Value="UMainForm"/>
    236         <EditorIndex Value="3"/>
    237         <WindowIndex Value="0"/>
    238         <TopLine Value="369"/>
    239         <CursorPos X="21" Y="389"/>
     235        <EditorIndex Value="4"/>
     236        <WindowIndex Value="0"/>
     237        <TopLine Value="316"/>
     238        <CursorPos X="94" Y="329"/>
    240239        <UsageCount Value="317"/>
    241240        <Loaded Value="True"/>
    … …  
    259258        <ResourceBaseClass Value="Form"/>
    260259        <UnitName Value="UItemAdd"/>
    261         <EditorIndex Value="2"/>
     260        <EditorIndex Value="3"/>
    262261        <WindowIndex Value="0"/>
    263262        <TopLine Value="14"/>
    … …  
    272271        <IsPartOfProject Value="True"/>
    273272        <UnitName Value="USystem"/>
    274         <EditorIndex Value="9"/>
     273        <EditorIndex Value="14"/>
    275274        <WindowIndex Value="0"/>
    276275        <TopLine Value="70"/>
    … …  
    286285        <ResourceBaseClass Value="DataModule"/>
    287286        <UnitName Value="UCore"/>
    288         <EditorIndex Value="8"/>
     287        <EditorIndex Value="13"/>
    289288        <WindowIndex Value="0"/>
    290289        <TopLine Value="42"/>
    … …  
    331330        <TopLine Value="1241"/>
    332331        <CursorPos X="14" Y="1254"/>
    333         <UsageCount Value="11"/>
     332        <UsageCount Value="10"/>
    334333      </Unit18>
    335334      <Unit19>
    … …  
    337336        <IsPartOfProject Value="True"/>
    338337        <UnitName Value="UDataTypes"/>
    339         <EditorIndex Value="11"/>
     338        <EditorIndex Value="16"/>
    340339        <WindowIndex Value="0"/>
    341340        <TopLine Value="5"/>
    … …  
    369368        <TopLine Value="149"/>
    370369        <CursorPos X="44" Y="164"/>
    371         <UsageCount Value="151"/>
     370        <UsageCount Value="152"/>
    372371        <DefaultSyntaxHighlighter Value="Delphi"/>
    373372      </Unit22>
    … …  
    435434        <TopLine Value="40"/>
    436435        <CursorPos X="29" Y="54"/>
    437         <UsageCount Value="100"/>
     436        <UsageCount Value="101"/>
    438437        <DefaultSyntaxHighlighter Value="Delphi"/>
    439438      </Unit30>
    … …  
    448447      <Unit32>
    449448        <Filename Value="../../../Lazarus/0.9.31_2.5.1/lcl/include/customform.inc"/>
    450         <EditorIndex Value="10"/>
     449        <EditorIndex Value="15"/>
    451450        <WindowIndex Value="0"/>
    452451        <TopLine Value="2102"/>
    453         <CursorPos X="21" Y="2107"/>
    454         <UsageCount Value="31"/>
     452        <CursorPos X="18" Y="2113"/>
     453        <UsageCount Value="32"/>
    455454        <Loaded Value="True"/>
    456455      </Unit32>
    … …  
    474473        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>
    475474        <UnitName Value="USqlDatabase"/>
    476         <WindowIndex Value="0"/>
    477         <TopLine Value="233"/>
    478         <CursorPos X="1" Y="246"/>
     475        <EditorIndex Value="1"/>
     476        <WindowIndex Value="0"/>
     477        <TopLine Value="140"/>
     478        <CursorPos X="1" Y="159"/>
    479479        <UsageCount Value="20"/>
     480        <Loaded Value="True"/>
    480481      </Unit35>
    481482      <Unit36>
    … …  
    488489        <TopLine Value="175"/>
    489490        <CursorPos X="3" Y="183"/>
    490         <UsageCount Value="50"/>
     491        <UsageCount Value="51"/>
    491492        <DefaultSyntaxHighlighter Value="Delphi"/>
    492493      </Unit36>
    … …  
    530531        <TopLine Value="4"/>
    531532        <CursorPos X="33" Y="19"/>
    532         <UsageCount Value="44"/>
     533        <UsageCount Value="45"/>
    533534        <DefaultSyntaxHighlighter Value="Delphi"/>
    534535      </Unit41>
    … …  
    567568        <IsPartOfProject Value="True"/>
    568569        <UnitName Value="UChronisClient"/>
    569         <EditorIndex Value="7"/>
     570        <EditorIndex Value="12"/>
    570571        <WindowIndex Value="0"/>
    571572        <TopLine Value="11"/>
    572573        <CursorPos X="26" Y="40"/>
    573         <UsageCount Value="40"/>
     574        <UsageCount Value="41"/>
    574575        <Loaded Value="True"/>
    575576        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    579580        <IsPartOfProject Value="True"/>
    580581        <UnitName Value="UChronisServer"/>
     582        <EditorIndex Value="10"/>
    581583        <WindowIndex Value="0"/>
    582584        <TopLine Value="1"/>
    583585        <CursorPos X="1" Y="14"/>
    584         <UsageCount Value="40"/>
     586        <UsageCount Value="41"/>
     587        <Loaded Value="True"/>
    585588        <DefaultSyntaxHighlighter Value="Delphi"/>
    586589      </Unit47>
    587590      <Unit48>
    588         <Filename Value="Application/UChronisClientDirect.pas"/>
     591        <Filename Value="Application/Clients/UChronisClientDirect.pas"/>
    589592        <IsPartOfProject Value="True"/>
    590593        <UnitName Value="UChronisClientDirect"/>
     594        <IsVisibleTab Value="True"/>
     595        <EditorIndex Value="9"/>
    591596        <WindowIndex Value="0"/>
    592597        <TopLine Value="8"/>
    593         <CursorPos X="53" Y="32"/>
    594         <UsageCount Value="39"/>
     598        <CursorPos X="53" Y="18"/>
     599        <UsageCount Value="40"/>
     600        <Loaded Value="True"/>
    595601        <DefaultSyntaxHighlighter Value="Delphi"/>
    596602      </Unit48>
    … …  
    599605        <IsPartOfProject Value="True"/>
    600606        <UnitName Value="UChronisModule"/>
    601         <EditorIndex Value="12"/>
     607        <EditorIndex Value="17"/>
    602608        <WindowIndex Value="0"/>
    603609        <TopLine Value="1"/>
    604610        <CursorPos X="5" Y="15"/>
    605         <UsageCount Value="30"/>
     611        <UsageCount Value="31"/>
    606612        <Loaded Value="True"/>
    607613        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    611617        <IsPartOfProject Value="True"/>
    612618        <UnitName Value="UModuleSystem"/>
    613         <EditorIndex Value="13"/>
     619        <EditorIndex Value="18"/>
    614620        <WindowIndex Value="0"/>
    615621        <TopLine Value="54"/>
    616622        <CursorPos X="42" Y="66"/>
    617         <UsageCount Value="30"/>
     623        <UsageCount Value="31"/>
    618624        <Loaded Value="True"/>
    619625        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    647653        <ResourceBaseClass Value="Form"/>
    648654        <UnitName Value="UItemList"/>
    649         <EditorIndex Value="4"/>
    650         <WindowIndex Value="0"/>
    651         <TopLine Value="162"/>
    652         <CursorPos X="3" Y="181"/>
    653         <UsageCount Value="22"/>
     655        <EditorIndex Value="5"/>
     656        <WindowIndex Value="0"/>
     657        <TopLine Value="62"/>
     658        <CursorPos X="56" Y="79"/>
     659        <UsageCount Value="23"/>
    654660        <Loaded Value="True"/>
    655661        <LoadedDesigner Value="True"/>
    … …  
    664670        <UsageCount Value="10"/>
    665671      </Unit55>
     672      <Unit56>
     673        <Filename Value="Application/Clients/UChronisClientXMLRPC.pas"/>
     674        <IsPartOfProject Value="True"/>
     675        <UnitName Value="UChronisClientXMLRPC"/>
     676        <EditorIndex Value="7"/>
     677        <WindowIndex Value="0"/>
     678        <TopLine Value="1"/>
     679        <CursorPos X="1" Y="1"/>
     680        <UsageCount Value="20"/>
     681        <Loaded Value="True"/>
     682        <DefaultSyntaxHighlighter Value="Delphi"/>
     683      </Unit56>
     684      <Unit57>
     685        <Filename Value="Application/Clients/UChronisMySQL.pas"/>
     686        <IsPartOfProject Value="True"/>
     687        <UnitName Value="UChronisMySQL"/>
     688        <EditorIndex Value="8"/>
     689        <WindowIndex Value="0"/>
     690        <TopLine Value="1"/>
     691        <CursorPos X="1" Y="1"/>
     692        <UsageCount Value="20"/>
     693        <Loaded Value="True"/>
     694        <DefaultSyntaxHighlighter Value="Delphi"/>
     695      </Unit57>
    666696    </Units>
    667697    <JumpHistory Count="30" HistoryIndex="29">
    668698      <Position1>
    669         <Filename Value="Forms/UItemList.pas"/>
    670         <Caret Line="119" Column="13" TopLine="105"/>
     699        <Filename Value="USystem.pas"/>
     700        <Caret Line="226" Column="28" TopLine="212"/>
    671701      </Position1>
    672702      <Position2>
    673         <Filename Value="Forms/UItemList.pas"/>
    674         <Caret Line="116" Column="1" TopLine="105"/>
     703        <Filename Value="USystem.pas"/>
     704        <Caret Line="223" Column="1" TopLine="197"/>
    675705      </Position2>
    676706      <Position3>
    677         <Filename Value="Forms/UItemList.pas"/>
    678         <Caret Line="112" Column="1" TopLine="92"/>
     707        <Filename Value="Forms/UItemView.pas"/>
     708        <Caret Line="143" Column="14" TopLine="131"/>
    679709      </Position3>
    680710      <Position4>
    681         <Filename Value="Forms/UItemList.pas"/>
    682         <Caret Line="85" Column="42" TopLine="72"/>
     711        <Filename Value="Forms/UItemView.pas"/>
     712        <Caret Line="44" Column="10" TopLine="33"/>
    683713      </Position4>
    684714      <Position5>
    685         <Filename Value="Forms/UMainForm.pas"/>
    686         <Caret Line="389" Column="1" TopLine="367"/>
     715        <Filename Value="USystem.pas"/>
     716        <Caret Line="223" Column="1" TopLine="210"/>
    687717      </Position5>
    688718      <Position6>
    689         <Filename Value="USystem.pas"/>
    690         <Caret Line="226" Column="28" TopLine="212"/>
     719        <Filename Value="Forms/UItemView.pas"/>
     720        <Caret Line="113" Column="1" TopLine="100"/>
    691721      </Position6>
    692722      <Position7>
    693         <Filename Value="USystem.pas"/>
    694         <Caret Line="223" Column="1" TopLine="197"/>
     723        <Filename Value="Forms/UItemView.pas"/>
     724        <Caret Line="143" Column="1" TopLine="130"/>
    695725      </Position7>
    696726      <Position8>
    697727        <Filename Value="Forms/UItemView.pas"/>
    698         <Caret Line="143" Column="14" TopLine="131"/>
     728        <Caret Line="44" Column="15" TopLine="31"/>
    699729      </Position8>
    700730      <Position9>
    701         <Filename Value="Forms/UItemView.pas"/>
    702         <Caret Line="44" Column="10" TopLine="33"/>
     731        <Filename Value="USystem.pas"/>
     732        <Caret Line="223" Column="1" TopLine="210"/>
    703733      </Position9>
    704734      <Position10>
    705         <Filename Value="USystem.pas"/>
    706         <Caret Line="223" Column="1" TopLine="210"/>
     735        <Filename Value="Forms/UItemList.pas"/>
     736        <Caret Line="86" Column="33" TopLine="80"/>
    707737      </Position10>
    708738      <Position11>
    709739        <Filename Value="Forms/UItemView.pas"/>
    710         <Caret Line="113" Column="1" TopLine="100"/>
     740        <Caret Line="42" Column="24" TopLine="29"/>
    711741      </Position11>
    712742      <Position12>
    713         <Filename Value="Forms/UItemView.pas"/>
    714         <Caret Line="143" Column="1" TopLine="130"/>
     743        <Filename Value="USystem.pas"/>
     744        <Caret Line="84" Column="46" TopLine="62"/>
    715745      </Position12>
    716746      <Position13>
    717         <Filename Value="Forms/UItemView.pas"/>
    718         <Caret Line="44" Column="15" TopLine="31"/>
     747        <Filename Value="USystem.pas"/>
     748        <Caret Line="91" Column="9" TopLine="70"/>
    719749      </Position13>
    720750      <Position14>
    721         <Filename Value="USystem.pas"/>
    722         <Caret Line="223" Column="1" TopLine="210"/>
     751        <Filename Value="Forms/UItemList.pas"/>
     752        <Caret Line="129" Column="30" TopLine="124"/>
    723753      </Position14>
    724754      <Position15>
    725         <Filename Value="Forms/UItemList.pas"/>
    726         <Caret Line="86" Column="33" TopLine="80"/>
     755        <Filename Value="Forms/UItemView.pas"/>
     756        <Caret Line="42" Column="24" TopLine="29"/>
    727757      </Position15>
    728758      <Position16>
    729         <Filename Value="Forms/UItemView.pas"/>
    730         <Caret Line="42" Column="24" TopLine="29"/>
     759        <Filename Value="Forms/UItemEdit.pas"/>
     760        <Caret Line="54" Column="19" TopLine="35"/>
    731761      </Position16>
    732762      <Position17>
    733         <Filename Value="USystem.pas"/>
    734         <Caret Line="84" Column="46" TopLine="62"/>
     763        <Filename Value="Forms/UItemAdd.pas"/>
     764        <Caret Line="31" Column="1" TopLine="17"/>
    735765      </Position17>
    736766      <Position18>
    737         <Filename Value="USystem.pas"/>
    738         <Caret Line="91" Column="9" TopLine="70"/>
     767        <Filename Value="Forms/UItemAdd.pas"/>
     768        <Caret Line="120" Column="28" TopLine="107"/>
    739769      </Position18>
    740770      <Position19>
    741         <Filename Value="Forms/UItemList.pas"/>
    742         <Caret Line="129" Column="30" TopLine="124"/>
     771        <Filename Value="Forms/UItemEdit.pas"/>
     772        <Caret Line="203" Column="28" TopLine="191"/>
    743773      </Position19>
    744774      <Position20>
    745         <Filename Value="Forms/UItemView.pas"/>
    746         <Caret Line="42" Column="24" TopLine="29"/>
     775        <Filename Value="Forms/UItemEdit.pas"/>
     776        <Caret Line="135" Column="73" TopLine="122"/>
    747777      </Position20>
    748778      <Position21>
    749779        <Filename Value="Forms/UItemEdit.pas"/>
    750         <Caret Line="54" Column="19" TopLine="35"/>
     780        <Caret Line="220" Column="41" TopLine="207"/>
    751781      </Position21>
    752782      <Position22>
    753         <Filename Value="Forms/UItemAdd.pas"/>
    754         <Caret Line="31" Column="1" TopLine="17"/>
     783        <Filename Value="Forms/UItemEdit.pas"/>
     784        <Caret Line="276" Column="19" TopLine="263"/>
    755785      </Position22>
    756786      <Position23>
    757         <Filename Value="Forms/UItemAdd.pas"/>
    758         <Caret Line="120" Column="28" TopLine="107"/>
     787        <Filename Value="Forms/UItemView.pas"/>
     788        <Caret Line="112" Column="20" TopLine="104"/>
    759789      </Position23>
    760790      <Position24>
    761         <Filename Value="Forms/UItemEdit.pas"/>
    762         <Caret Line="203" Column="28" TopLine="191"/>
     791        <Filename Value="Forms/UItemList.pas"/>
     792        <Caret Line="119" Column="15" TopLine="112"/>
    763793      </Position24>
    764794      <Position25>
    765         <Filename Value="Forms/UItemEdit.pas"/>
    766         <Caret Line="135" Column="73" TopLine="122"/>
     795        <Filename Value="Forms/UItemList.pas"/>
     796        <Caret Line="181" Column="3" TopLine="162"/>
    767797      </Position25>
    768798      <Position26>
    769         <Filename Value="Forms/UItemEdit.pas"/>
    770         <Caret Line="220" Column="41" TopLine="207"/>
     799        <Filename Value="Forms/UItemList.pas"/>
     800        <Caret Line="110" Column="6" TopLine="108"/>
    771801      </Position26>
    772802      <Position27>
    773         <Filename Value="Forms/UItemEdit.pas"/>
    774         <Caret Line="276" Column="19" TopLine="263"/>
     803        <Filename Value="Forms/UMainForm.pas"/>
     804        <Caret Line="328" Column="74" TopLine="322"/>
    775805      </Position27>
    776806      <Position28>
    777         <Filename Value="Forms/UItemView.pas"/>
    778         <Caret Line="112" Column="20" TopLine="104"/>
     807        <Filename Value="Forms/UMainForm.pas"/>
     808        <Caret Line="329" Column="94" TopLine="316"/>
    779809      </Position28>
    780810      <Position29>
    781         <Filename Value="Forms/UItemList.pas"/>
    782         <Caret Line="119" Column="15" TopLine="112"/>
     811        <Filename Value="Forms/UItemView.pas"/>
     812        <Caret Line="117" Column="5" TopLine="104"/>
    783813      </Position29>
    784814      <Position30>
    785         <Filename Value="Forms/UItemList.pas"/>
    786         <Caret Line="181" Column="3" TopLine="162"/>
     815        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>
     816        <Caret Line="159" Column="1" TopLine="140"/>
    787817      </Position30>
    788818    </JumpHistory>
    … …  
    796826      <IncludeFiles Value="$(ProjOutDir)"/>
    797827      <Libraries Value="/usr/lib/mysql;/usr/lib64/mysql"/>
    798       <OtherUnitFiles Value="Common;Forms;Application;Module"/>
     828      <OtherUnitFiles Value="Common;Forms;Application;Module;Application/Clients"/>
    799829      <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
    800830    </SearchPaths>

  • trunk/chronis.lpr

    r31 r32  
    1313  UImportStructureForm, UItemSelect, ULoginProfileForm, UAboutForm,
    1414  UChronisClient, UChronisServer, UChronisClientDirect, UChronisModule,
    15   UModuleSystem, UItemList, LDockTree
     15  UModuleSystem, UItemList, LDockTree, UChronisClientXMLRPC, UChronisMySQL
    1616  { you can add units after this };
    1717
Note: See TracChangeset for help on using the changeset viewer.