Changeset 23 for trunk


Ignore:
Timestamp:
Jun 17, 2011, 9:52:46 AM (13 years ago)
Author:
george
Message:
  • Modified: Selection form set selected item id.
Location:
trunk
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • trunk/Application/UDataTypes.pas

    r22 r23  
    1414  TDataType = class
    1515    CustomType: Integer;
     16    Control: TWinControl;
    1617    function CreateControl(Owner: TComponent): TWinControl; virtual;
    1718    procedure SetupControl(Control: TWinControl); virtual;
    … …  
    256257  ItemSelectForm.ObjectId := ObjectId;
    257258  ItemSelectForm.ShowModal;
     259  TEditButton(Control).Text := IntToStr(ItemSelectForm.SelectedId)
    258260end;
    259261
    … …  
    264266  TEditButton(Result).Button.Enabled := True;
    265267  TEditButton(Result).Button.OnClick := ButtonClickExecute;
     268  Control := Result;
    266269end;
    267270

  • trunk/Forms/UItemEdit.lfm

    r22 r23  
    11object ItemEditForm: TItemEditForm
    2   Left = 298
     2  Left = 251
    33  Height = 423
    4   Top = 125
     4  Top = 92
    55  Width = 552
    66  ActiveControl = Panel1

  • trunk/Forms/UItemSelect.pas

    r21 r23  
    2323    procedure ListView1Resize(Sender: TObject);
    2424  private
     25    function GetSelectedId: Integer;
    2526    { private declarations }
    2627  public
    … …  
    2930    ListObject: TChronisObject;
    3031    procedure LoadList;
     32    property SelectedId: Integer read GetSelectedId;
    3133  end;
    3234
    … …  
    5052  with TReportLine(Report[Item.Index]) do begin
    5153    Item.Caption := Items[0];
     54    Item.Data := Pointer(Id);
    5255    for I := 1 to Items.Count - 1 do
    5356    if not TReportColumn(Report.Columns[I]).VirtualItem then
    … …  
    6265  for I := 0 to ListView1.Columns.Count - 1 do
    6366    ListView1.Columns[I].Width := ListView1.Width div ListView1.Columns.Count;
     67end;
     68
     69function TItemSelectForm.GetSelectedId: Integer;
     70begin
     71  if Assigned(ListView1.Selected) then Result := Integer(ListView1.Selected.Data)
     72    else Result := -1;
    6473end;
    6574

  • trunk/Forms/UMainForm.lfm

    r22 r23  
    11object MainForm: TMainForm
    22  Left = 271
    3   Height = 447
     3  Height = 446
    44  Top = 159
    55  Width = 640

  • trunk/chronis.lpi

    r22 r23  
    104104      </Item6>
    105105    </RequiredPackages>
    106     <Units Count="63">
     106    <Units Count="39">
    107107      <Unit0>
    108108        <Filename Value="chronis.lpr"/>
    … …  
    121121        <TopLine Value="330"/>
    122122        <CursorPos X="1" Y="347"/>
    123         <UsageCount Value="34"/>
     123        <UsageCount Value="30"/>
    124124        <DefaultSyntaxHighlighter Value="Delphi"/>
    125125      </Unit1>
    … …  
    133133        <TopLine Value="118"/>
    134134        <CursorPos X="25" Y="144"/>
    135         <UsageCount Value="88"/>
     135        <UsageCount Value="84"/>
    136136        <DefaultSyntaxHighlighter Value="Delphi"/>
    137137      </Unit2>
    … …  
    145145        <TopLine Value="1"/>
    146146        <CursorPos X="24" Y="14"/>
    147         <UsageCount Value="88"/>
     147        <UsageCount Value="84"/>
    148148        <DefaultSyntaxHighlighter Value="Delphi"/>
    149149      </Unit3>
    … …  
    164164        <TopLine Value="58"/>
    165165        <CursorPos X="73" Y="232"/>
    166         <UsageCount Value="254"/>
     166        <UsageCount Value="250"/>
    167167        <DefaultSyntaxHighlighter Value="Delphi"/>
    168168      </Unit5>
    … …  
    188188        <WindowIndex Value="0"/>
    189189        <TopLine Value="108"/>
    190         <CursorPos X="65" Y="123"/>
     190        <CursorPos X="39" Y="119"/>
    191191        <UsageCount Value="327"/>
    192192        <Loaded Value="True"/>
    … …  
    202202        <EditorIndex Value="3"/>
    203203        <WindowIndex Value="0"/>
    204         <TopLine Value="52"/>
    205         <CursorPos X="1" Y="65"/>
     204        <TopLine Value="14"/>
     205        <CursorPos X="45" Y="24"/>
    206206        <UsageCount Value="318"/>
    207207        <Loaded Value="True"/>
    … …  
    259259        <ResourceBaseClass Value="Form"/>
    260260        <UnitName Value="UItemAdd"/>
    261         <IsVisibleTab Value="True"/>
    262261        <EditorIndex Value="5"/>
    263262        <WindowIndex Value="0"/>
    … …  
    270269      </Unit12>
    271270      <Unit13>
    272         <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericDictionary.inc"/>
    273         <WindowIndex Value="0"/>
    274         <TopLine Value="43"/>
    275         <CursorPos X="1" Y="60"/>
    276         <UsageCount Value="0"/>
     271        <Filename Value="USystem.pas"/>
     272        <IsPartOfProject Value="True"/>
     273        <UnitName Value="USystem"/>
     274        <EditorIndex Value="12"/>
     275        <WindowIndex Value="0"/>
     276        <TopLine Value="28"/>
     277        <CursorPos X="21" Y="41"/>
     278        <UsageCount Value="200"/>
     279        <Loaded Value="True"/>
    277280        <DefaultSyntaxHighlighter Value="Delphi"/>
    278281      </Unit13>
    279282      <Unit14>
    280         <Filename Value="/usr/share/fpcsrc/2.4.0/packages/fcl-registry/src/registry.pp"/>
    281         <UnitName Value="registry"/>
    282         <WindowIndex Value="0"/>
    283         <TopLine Value="1"/>
    284         <CursorPos X="6" Y="1"/>
    285         <UsageCount Value="3"/>
    286         <DefaultSyntaxHighlighter Value="Delphi"/>
    287       </Unit14>
    288       <Unit15>
    289         <Filename Value="/usr/share/fpcsrc/2.4.0/packages/fcl-registry/src/regdef.inc"/>
    290         <WindowIndex Value="0"/>
    291         <TopLine Value="1"/>
    292         <CursorPos X="3" Y="21"/>
    293         <UsageCount Value="3"/>
    294         <DefaultSyntaxHighlighter Value="Delphi"/>
    295       </Unit15>
    296       <Unit16>
    297         <Filename Value="USystem.pas"/>
    298         <IsPartOfProject Value="True"/>
    299         <UnitName Value="USystem"/>
    300         <EditorIndex Value="12"/>
    301         <WindowIndex Value="0"/>
    302         <TopLine Value="588"/>
    303         <CursorPos X="57" Y="602"/>
    304         <UsageCount Value="200"/>
    305         <Loaded Value="True"/>
    306         <DefaultSyntaxHighlighter Value="Delphi"/>
    307       </Unit16>
    308       <Unit17>
    309         <Filename Value="../../../lazarus/lcl/comctrls.pp"/>
    310         <UnitName Value="ComCtrls"/>
    311         <WindowIndex Value="0"/>
    312         <TopLine Value="912"/>
    313         <CursorPos X="14" Y="929"/>
    314         <UsageCount Value="0"/>
    315         <DefaultSyntaxHighlighter Value="Delphi"/>
    316       </Unit17>
    317       <Unit18>
    318283        <Filename Value="UCore.pas"/>
    319284        <IsPartOfProject Value="True"/>
    … …  
    325290        <TopLine Value="34"/>
    326291        <CursorPos X="59" Y="46"/>
    327         <UsageCount Value="189"/>
    328         <Loaded Value="True"/>
    329         <LoadedDesigner Value="True"/>
     292        <UsageCount Value="230"/>
     293        <Loaded Value="True"/>
     294        <LoadedDesigner Value="True"/>
     295        <DefaultSyntaxHighlighter Value="Delphi"/>
     296      </Unit14>
     297      <Unit15>
     298        <Filename Value="Forms/USettingForm.pas"/>
     299        <IsPartOfProject Value="True"/>
     300        <ComponentName Value="SettingForm"/>
     301        <ResourceBaseClass Value="Form"/>
     302        <UnitName Value="USettingForm"/>
     303        <EditorIndex Value="10"/>
     304        <WindowIndex Value="0"/>
     305        <TopLine Value="1"/>
     306        <CursorPos X="46" Y="11"/>
     307        <UsageCount Value="229"/>
     308        <Loaded Value="True"/>
     309        <LoadedDesigner Value="True"/>
     310        <DefaultSyntaxHighlighter Value="Delphi"/>
     311      </Unit15>
     312      <Unit16>
     313        <Filename Value="Application/UApplicationInfo.pas"/>
     314        <IsPartOfProject Value="True"/>
     315        <UnitName Value="UApplicationInfo"/>
     316        <EditorIndex Value="9"/>
     317        <WindowIndex Value="0"/>
     318        <TopLine Value="34"/>
     319        <CursorPos X="25" Y="48"/>
     320        <UsageCount Value="229"/>
     321        <Loaded Value="True"/>
     322        <DefaultSyntaxHighlighter Value="Delphi"/>
     323      </Unit16>
     324      <Unit17>
     325        <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/dialogs.pp"/>
     326        <UnitName Value="Dialogs"/>
     327        <WindowIndex Value="0"/>
     328        <TopLine Value="487"/>
     329        <CursorPos X="44" Y="500"/>
     330        <UsageCount Value="14"/>
     331        <DefaultSyntaxHighlighter Value="Delphi"/>
     332      </Unit17>
     333      <Unit18>
     334        <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/controls.pp"/>
     335        <UnitName Value="Controls"/>
     336        <WindowIndex Value="0"/>
     337        <TopLine Value="1661"/>
     338        <CursorPos X="24" Y="1673"/>
     339        <UsageCount Value="14"/>
    330340        <DefaultSyntaxHighlighter Value="Delphi"/>
    331341      </Unit18>
    332342      <Unit19>
    333         <Filename Value="Forms/USettingForm.pas"/>
    334         <IsPartOfProject Value="True"/>
    335         <ComponentName Value="SettingForm"/>
    336         <ResourceBaseClass Value="Form"/>
    337         <UnitName Value="USettingForm"/>
    338         <EditorIndex Value="10"/>
    339         <WindowIndex Value="0"/>
    340         <TopLine Value="1"/>
    341         <CursorPos X="46" Y="11"/>
    342         <UsageCount Value="188"/>
    343         <Loaded Value="True"/>
    344         <LoadedDesigner Value="True"/>
     343        <Filename Value="Application/UDataTypes.pas"/>
     344        <IsPartOfProject Value="True"/>
     345        <UnitName Value="UDataTypes"/>
     346        <IsVisibleTab Value="True"/>
     347        <EditorIndex Value="16"/>
     348        <WindowIndex Value="0"/>
     349        <TopLine Value="246"/>
     350        <CursorPos X="47" Y="256"/>
     351        <UsageCount Value="185"/>
     352        <Loaded Value="True"/>
    345353        <DefaultSyntaxHighlighter Value="Delphi"/>
    346354      </Unit19>
    347355      <Unit20>
    348         <Filename Value="Application/UApplicationInfo.pas"/>
    349         <IsPartOfProject Value="True"/>
    350         <UnitName Value="UApplicationInfo"/>
    351         <EditorIndex Value="9"/>
    352         <WindowIndex Value="0"/>
    353         <TopLine Value="34"/>
    354         <CursorPos X="25" Y="48"/>
    355         <UsageCount Value="188"/>
    356         <Loaded Value="True"/>
     356        <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/stdctrls.pp"/>
     357        <UnitName Value="StdCtrls"/>
     358        <WindowIndex Value="0"/>
     359        <TopLine Value="1446"/>
     360        <CursorPos X="26" Y="1458"/>
     361        <UsageCount Value="5"/>
    357362        <DefaultSyntaxHighlighter Value="Delphi"/>
    358363      </Unit20>
    359364      <Unit21>
    360         <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/dialogs.pp"/>
    361         <UnitName Value="Dialogs"/>
    362         <WindowIndex Value="0"/>
    363         <TopLine Value="487"/>
    364         <CursorPos X="44" Y="500"/>
    365         <UsageCount Value="18"/>
    366         <DefaultSyntaxHighlighter Value="Delphi"/>
     365        <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/include/customlistview.inc"/>
     366        <WindowIndex Value="0"/>
     367        <TopLine Value="550"/>
     368        <CursorPos X="1" Y="561"/>
     369        <UsageCount Value="16"/>
    367370      </Unit21>
    368371      <Unit22>
    369         <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/controls.pp"/>
    370         <UnitName Value="Controls"/>
    371         <WindowIndex Value="0"/>
    372         <TopLine Value="1661"/>
    373         <CursorPos X="24" Y="1673"/>
    374         <UsageCount Value="18"/>
     372        <Filename Value="Forms/UImportStructureForm.pas"/>
     373        <IsPartOfProject Value="True"/>
     374        <ComponentName Value="ImportStructureForm"/>
     375        <ResourceBaseClass Value="Form"/>
     376        <UnitName Value="UImportStructureForm"/>
     377        <EditorIndex Value="8"/>
     378        <WindowIndex Value="0"/>
     379        <TopLine Value="149"/>
     380        <CursorPos X="44" Y="164"/>
     381        <UsageCount Value="121"/>
     382        <Loaded Value="True"/>
     383        <LoadedDesigner Value="True"/>
    375384        <DefaultSyntaxHighlighter Value="Delphi"/>
    376385      </Unit22>
    377386      <Unit23>
    378         <Filename Value="Application/UDataTypes.pas"/>
    379         <IsPartOfProject Value="True"/>
    380         <UnitName Value="UDataTypes"/>
    381         <EditorIndex Value="16"/>
    382         <WindowIndex Value="0"/>
    383         <TopLine Value="273"/>
    384         <CursorPos X="64" Y="289"/>
    385         <UsageCount Value="142"/>
    386         <Loaded Value="True"/>
    387         <DefaultSyntaxHighlighter Value="Delphi"/>
     387        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericDictionary.inc"/>
     388        <WindowIndex Value="0"/>
     389        <TopLine Value="51"/>
     390        <CursorPos X="1" Y="63"/>
     391        <UsageCount Value="28"/>
    388392      </Unit23>
    389393      <Unit24>
    390         <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/stdctrls.pp"/>
    391         <UnitName Value="StdCtrls"/>
    392         <WindowIndex Value="0"/>
    393         <TopLine Value="1446"/>
    394         <CursorPos X="26" Y="1458"/>
    395         <UsageCount Value="9"/>
    396         <DefaultSyntaxHighlighter Value="Delphi"/>
     394        <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/include/control.inc"/>
     395        <WindowIndex Value="0"/>
     396        <TopLine Value="2274"/>
     397        <CursorPos X="1" Y="2286"/>
     398        <UsageCount Value="28"/>
    397399      </Unit24>
    398400      <Unit25>
    399         <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/win32/system.pp"/>
    400         <UnitName Value="System"/>
    401         <WindowIndex Value="0"/>
    402         <TopLine Value="4"/>
    403         <CursorPos X="1" Y="16"/>
    404         <UsageCount Value="4"/>
    405         <DefaultSyntaxHighlighter Value="Delphi"/>
     401        <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/inc/systemh.inc"/>
     402        <WindowIndex Value="0"/>
     403        <TopLine Value="286"/>
     404        <CursorPos X="3" Y="298"/>
     405        <UsageCount Value="28"/>
    406406      </Unit25>
    407407      <Unit26>
    408         <Filename Value="H:/PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>
    409         <UnitName Value="USqlDatabase"/>
    410         <WindowIndex Value="0"/>
    411         <TopLine Value="1"/>
    412         <CursorPos X="1" Y="1"/>
    413         <UsageCount Value="0"/>
    414         <DefaultSyntaxHighlighter Value="Delphi"/>
     408        <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/i386/i386.inc"/>
     409        <WindowIndex Value="0"/>
     410        <TopLine Value="460"/>
     411        <CursorPos X="10" Y="427"/>
     412        <UsageCount Value="28"/>
    415413      </Unit26>
    416414      <Unit27>
    417         <Filename Value="H:/PascalClassLibrary/Network/CoolWeb/WebServer/UHTTPServer.pas"/>
    418         <UnitName Value="UHTTPServer"/>
    419         <WindowIndex Value="0"/>
    420         <TopLine Value="1"/>
    421         <CursorPos X="1" Y="1"/>
    422         <UsageCount Value="0"/>
    423         <DefaultSyntaxHighlighter Value="Delphi"/>
     415        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
     416        <WindowIndex Value="0"/>
     417        <TopLine Value="120"/>
     418        <CursorPos X="1" Y="134"/>
     419        <UsageCount Value="8"/>
    424420      </Unit27>
    425421      <Unit28>
    426         <Filename Value="H:/PascalClassLibrary/Network/CoolWeb/CoolWeb.pas"/>
    427         <UnitName Value="CoolWeb"/>
    428         <WindowIndex Value="0"/>
    429         <TopLine Value="5"/>
    430         <CursorPos X="50" Y="15"/>
    431         <UsageCount Value="0"/>
    432         <DefaultSyntaxHighlighter Value="Delphi"/>
     422        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListObject.inc"/>
     423        <WindowIndex Value="0"/>
     424        <TopLine Value="1"/>
     425        <CursorPos X="24" Y="4"/>
     426        <UsageCount Value="7"/>
    433427      </Unit28>
    434428      <Unit29>
    435         <Filename Value="H:/PascalClassLibrary/Common/UDebugLog.pas"/>
    436         <UnitName Value="UDebugLog"/>
    437         <WindowIndex Value="0"/>
    438         <TopLine Value="88"/>
    439         <CursorPos X="1" Y="109"/>
    440         <UsageCount Value="0"/>
    441         <DefaultSyntaxHighlighter Value="Delphi"/>
     429        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Specialized/SpecializedDictionary.pas"/>
     430        <UnitName Value="SpecializedDictionary"/>
     431        <WindowIndex Value="0"/>
     432        <TopLine Value="6"/>
     433        <CursorPos X="26" Y="18"/>
     434        <UsageCount Value="6"/>
    442435      </Unit29>
    443436      <Unit30>
    444         <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/objpas/classes/classesh.inc"/>
    445         <WindowIndex Value="0"/>
    446         <TopLine Value="1639"/>
    447         <CursorPos X="17" Y="1651"/>
    448         <UsageCount Value="0"/>
    449         <DefaultSyntaxHighlighter Value="Delphi"/>
     437        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
     438        <EditorIndex Value="14"/>
     439        <WindowIndex Value="0"/>
     440        <TopLine Value="120"/>
     441        <CursorPos X="29" Y="132"/>
     442        <UsageCount Value="36"/>
     443        <Loaded Value="True"/>
    450444      </Unit30>
    451445      <Unit31>
    452         <Filename Value="H:/PascalClassLibrary/Network/CoolWeb/Common/UCommon.pas"/>
    453         <UnitName Value="UCommon"/>
    454         <WindowIndex Value="0"/>
    455         <TopLine Value="28"/>
    456         <CursorPos X="1" Y="1"/>
    457         <UsageCount Value="0"/>
    458         <DefaultSyntaxHighlighter Value="Delphi"/>
     446        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericDictionary.inc"/>
     447        <EditorIndex Value="15"/>
     448        <WindowIndex Value="0"/>
     449        <TopLine Value="50"/>
     450        <CursorPos X="35" Y="67"/>
     451        <UsageCount Value="36"/>
     452        <Loaded Value="True"/>
    459453      </Unit31>
    460454      <Unit32>
    461         <Filename Value="H:/PascalClassLibrary/Common/UCommon.pas"/>
    462         <UnitName Value="UCommon"/>
    463         <WindowIndex Value="0"/>
    464         <TopLine Value="37"/>
    465         <CursorPos X="1" Y="1"/>
    466         <UsageCount Value="0"/>
     455        <Filename Value="Forms/UItemSelect.pas"/>
     456        <IsPartOfProject Value="True"/>
     457        <ComponentName Value="ItemSelectForm"/>
     458        <ResourceBaseClass Value="Form"/>
     459        <UnitName Value="UItemSelect"/>
     460        <EditorIndex Value="17"/>
     461        <WindowIndex Value="0"/>
     462        <TopLine Value="40"/>
     463        <CursorPos X="29" Y="54"/>
     464        <UsageCount Value="70"/>
     465        <Loaded Value="True"/>
     466        <LoadedDesigner Value="True"/>
    467467        <DefaultSyntaxHighlighter Value="Delphi"/>
    468468      </Unit32>
    469469      <Unit33>
    470         <Filename Value="H:/PascalClassLibrary/Common/Common.pas"/>
    471         <UnitName Value="Common"/>
    472         <WindowIndex Value="0"/>
    473         <TopLine Value="1"/>
    474         <CursorPos X="36" Y="13"/>
    475         <UsageCount Value="0"/>
    476         <DefaultSyntaxHighlighter Value="Delphi"/>
    477       </Unit33>
    478       <Unit34>
    479         <Filename Value="H:/PascalClassLibrary/Network/CoolWeb/WebServer/UHTTPSessionFile.pas"/>
    480         <UnitName Value="UHTTPSessionFile"/>
    481         <WindowIndex Value="0"/>
    482         <TopLine Value="15"/>
    483         <CursorPos X="19" Y="27"/>
    484         <UsageCount Value="0"/>
    485         <DefaultSyntaxHighlighter Value="Delphi"/>
    486       </Unit34>
    487       <Unit35>
    488         <Filename Value="H:/PascalClassLibrary/Common/StopWatch.pas"/>
    489         <UnitName Value="StopWatch"/>
    490         <WindowIndex Value="0"/>
    491         <TopLine Value="19"/>
    492         <CursorPos X="1" Y="1"/>
    493         <UsageCount Value="0"/>
    494         <DefaultSyntaxHighlighter Value="Delphi"/>
    495       </Unit35>
    496       <Unit36>
    497         <Filename Value="H:/PascalClassLibrary/Common/UThreading.pas"/>
    498         <UnitName Value="UThreading"/>
    499         <WindowIndex Value="0"/>
    500         <TopLine Value="28"/>
    501         <CursorPos X="1" Y="1"/>
    502         <UsageCount Value="0"/>
    503         <DefaultSyntaxHighlighter Value="Delphi"/>
    504       </Unit36>
    505       <Unit37>
    506         <Filename Value="H:/PascalClassLibrary/Common/UPrefixMultiplier.pas"/>
    507         <UnitName Value="UPrefixMultiplier"/>
    508         <WindowIndex Value="0"/>
    509         <TopLine Value="1"/>
    510         <CursorPos X="1" Y="1"/>
    511         <UsageCount Value="0"/>
    512         <DefaultSyntaxHighlighter Value="Delphi"/>
    513       </Unit37>
    514       <Unit38>
    515         <Filename Value="H:/PascalClassLibrary/Common/UDelay.pas"/>
    516         <UnitName Value="UDelay"/>
    517         <WindowIndex Value="0"/>
    518         <TopLine Value="16"/>
    519         <CursorPos X="1" Y="1"/>
    520         <UsageCount Value="0"/>
    521         <DefaultSyntaxHighlighter Value="Delphi"/>
    522       </Unit38>
    523       <Unit39>
    524         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListString.inc"/>
    525         <WindowIndex Value="0"/>
    526         <TopLine Value="8"/>
    527         <CursorPos X="62" Y="20"/>
    528         <UsageCount Value="0"/>
    529         <DefaultSyntaxHighlighter Value="Delphi"/>
    530       </Unit39>
    531       <Unit40>
    532         <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/objpas/sysutils/sysstrh.inc"/>
    533         <WindowIndex Value="0"/>
    534         <TopLine Value="70"/>
    535         <CursorPos X="10" Y="82"/>
    536         <UsageCount Value="0"/>
    537         <DefaultSyntaxHighlighter Value="Delphi"/>
    538       </Unit40>
    539       <Unit41>
    540         <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/objpas/sysutils/sysstr.inc"/>
    541         <WindowIndex Value="0"/>
    542         <TopLine Value="141"/>
    543         <CursorPos X="3" Y="144"/>
    544         <UsageCount Value="0"/>
    545         <DefaultSyntaxHighlighter Value="Delphi"/>
    546       </Unit41>
    547       <Unit42>
    548         <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/comctrls.pp"/>
    549         <UnitName Value="ComCtrls"/>
    550         <WindowIndex Value="0"/>
    551         <TopLine Value="602"/>
    552         <CursorPos X="17" Y="614"/>
    553         <UsageCount Value="2"/>
    554         <DefaultSyntaxHighlighter Value="Delphi"/>
    555       </Unit42>
    556       <Unit43>
    557         <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/objpas/classes/stringl.inc"/>
    558         <WindowIndex Value="0"/>
    559         <TopLine Value="575"/>
    560         <CursorPos X="15" Y="579"/>
    561         <UsageCount Value="1"/>
    562         <DefaultSyntaxHighlighter Value="Delphi"/>
    563       </Unit43>
    564       <Unit44>
    565         <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/include/customlistview.inc"/>
    566         <WindowIndex Value="0"/>
    567         <TopLine Value="550"/>
    568         <CursorPos X="1" Y="561"/>
    569         <UsageCount Value="20"/>
    570       </Unit44>
    571       <Unit45>
    572         <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/win32/classes.pp"/>
    573         <UnitName Value="Classes"/>
    574         <WindowIndex Value="0"/>
    575         <TopLine Value="1"/>
    576         <CursorPos X="19" Y="45"/>
    577         <UsageCount Value="4"/>
    578       </Unit45>
    579       <Unit46>
    580         <Filename Value="Forms/UImportStructureForm.pas"/>
    581         <IsPartOfProject Value="True"/>
    582         <ComponentName Value="ImportStructureForm"/>
    583         <ResourceBaseClass Value="Form"/>
    584         <UnitName Value="UImportStructureForm"/>
    585         <EditorIndex Value="8"/>
    586         <WindowIndex Value="0"/>
    587         <TopLine Value="149"/>
    588         <CursorPos X="44" Y="164"/>
    589         <UsageCount Value="78"/>
    590         <Loaded Value="True"/>
    591         <LoadedDesigner Value="True"/>
    592         <DefaultSyntaxHighlighter Value="Delphi"/>
    593       </Unit46>
    594       <Unit47>
    595         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericDictionary.inc"/>
    596         <WindowIndex Value="0"/>
    597         <TopLine Value="51"/>
    598         <CursorPos X="1" Y="63"/>
    599         <UsageCount Value="32"/>
    600       </Unit47>
    601       <Unit48>
    602         <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/include/control.inc"/>
    603         <WindowIndex Value="0"/>
    604         <TopLine Value="2274"/>
    605         <CursorPos X="1" Y="2286"/>
    606         <UsageCount Value="32"/>
    607       </Unit48>
    608       <Unit49>
    609         <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/inc/systemh.inc"/>
    610         <WindowIndex Value="0"/>
    611         <TopLine Value="286"/>
    612         <CursorPos X="3" Y="298"/>
    613         <UsageCount Value="32"/>
    614       </Unit49>
    615       <Unit50>
    616         <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/i386/i386.inc"/>
    617         <WindowIndex Value="0"/>
    618         <TopLine Value="460"/>
    619         <CursorPos X="10" Y="427"/>
    620         <UsageCount Value="32"/>
    621       </Unit50>
    622       <Unit51>
    623         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    624         <WindowIndex Value="0"/>
    625         <TopLine Value="120"/>
    626         <CursorPos X="1" Y="134"/>
    627         <UsageCount Value="12"/>
    628       </Unit51>
    629       <Unit52>
    630         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListObject.inc"/>
    631         <WindowIndex Value="0"/>
    632         <TopLine Value="1"/>
    633         <CursorPos X="24" Y="4"/>
    634         <UsageCount Value="11"/>
    635       </Unit52>
    636       <Unit53>
    637         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Specialized/SpecializedDictionary.pas"/>
    638         <UnitName Value="SpecializedDictionary"/>
    639         <WindowIndex Value="0"/>
    640         <TopLine Value="6"/>
    641         <CursorPos X="26" Y="18"/>
    642         <UsageCount Value="10"/>
    643       </Unit53>
    644       <Unit54>
    645         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    646         <EditorIndex Value="14"/>
    647         <WindowIndex Value="0"/>
    648         <TopLine Value="120"/>
    649         <CursorPos X="29" Y="132"/>
    650         <UsageCount Value="14"/>
    651         <Loaded Value="True"/>
    652       </Unit54>
    653       <Unit55>
    654         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericDictionary.inc"/>
    655         <EditorIndex Value="15"/>
    656         <WindowIndex Value="0"/>
    657         <TopLine Value="50"/>
    658         <CursorPos X="35" Y="67"/>
    659         <UsageCount Value="14"/>
    660         <Loaded Value="True"/>
    661       </Unit55>
    662       <Unit56>
    663         <Filename Value="Forms/UItemSelect.pas"/>
    664         <IsPartOfProject Value="True"/>
    665         <ComponentName Value="ItemSelectForm"/>
    666         <ResourceBaseClass Value="Form"/>
    667         <UnitName Value="UItemSelect"/>
    668         <EditorIndex Value="17"/>
    669         <WindowIndex Value="0"/>
    670         <TopLine Value="59"/>
    671         <CursorPos X="26" Y="73"/>
    672         <UsageCount Value="27"/>
    673         <Loaded Value="True"/>
    674         <LoadedDesigner Value="True"/>
    675         <DefaultSyntaxHighlighter Value="Delphi"/>
    676       </Unit56>
    677       <Unit57>
    678470        <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/comctrls.pp"/>
    679471        <UnitName Value="ComCtrls"/>
    … …  
    682474        <TopLine Value="1207"/>
    683475        <CursorPos X="20" Y="1219"/>
    684         <UsageCount Value="13"/>
    685         <Loaded Value="True"/>
    686       </Unit57>
    687       <Unit58>
     476        <UsageCount Value="35"/>
     477        <Loaded Value="True"/>
     478      </Unit33>
     479      <Unit34>
    688480        <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/include/customform.inc"/>
    689481        <EditorIndex Value="18"/>
    … …  
    691483        <TopLine Value="945"/>
    692484        <CursorPos X="29" Y="950"/>
    693         <UsageCount Value="12"/>
    694         <Loaded Value="True"/>
    695       </Unit58>
    696       <Unit59>
     485        <UsageCount Value="34"/>
     486        <Loaded Value="True"/>
     487      </Unit34>
     488      <Unit35>
    697489        <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/include/customlistview.inc"/>
    698490        <EditorIndex Value="1"/>
    … …  
    700492        <TopLine Value="549"/>
    701493        <CursorPos X="1" Y="561"/>
    702         <UsageCount Value="12"/>
    703         <Loaded Value="True"/>
    704       </Unit59>
    705       <Unit60>
     494        <UsageCount Value="34"/>
     495        <Loaded Value="True"/>
     496      </Unit35>
     497      <Unit36>
    706498        <Filename Value="H:/PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>
    707499        <UnitName Value="USqlDatabase"/>
    … …  
    710502        <TopLine Value="446"/>
    711503        <CursorPos X="58" Y="243"/>
    712         <UsageCount Value="10"/>
    713         <Loaded Value="True"/>
    714       </Unit60>
    715       <Unit61>
     504        <UsageCount Value="32"/>
     505        <Loaded Value="True"/>
     506      </Unit36>
     507      <Unit37>
    716508        <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/objpas/classes/classesh.inc"/>
    717509        <EditorIndex Value="13"/>
    … …  
    719511        <TopLine Value="495"/>
    720512        <CursorPos X="14" Y="510"/>
    721         <UsageCount Value="10"/>
    722         <Loaded Value="True"/>
    723       </Unit61>
    724       <Unit62>
     513        <UsageCount Value="32"/>
     514        <Loaded Value="True"/>
     515      </Unit37>
     516      <Unit38>
    725517        <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/include/control.inc"/>
    726518        <EditorIndex Value="6"/>
    … …  
    728520        <TopLine Value="2774"/>
    729521        <CursorPos X="1" Y="2786"/>
    730         <UsageCount Value="10"/>
    731         <Loaded Value="True"/>
    732       </Unit62>
     522        <UsageCount Value="32"/>
     523        <Loaded Value="True"/>
     524      </Unit38>
    733525    </Units>
    734526    <JumpHistory Count="30" HistoryIndex="29">
    … …  
    751543      <Position5>
    752544        <Filename Value="Forms/UItemEdit.pas"/>
    753         <Caret Line="60" Column="1" TopLine="54"/>
     545        <Caret Line="65" Column="5" TopLine="54"/>
    754546      </Position5>
    755547      <Position6>
    756548        <Filename Value="Forms/UItemEdit.pas"/>
    757         <Caret Line="61" Column="1" TopLine="54"/>
     549        <Caret Line="66" Column="1" TopLine="54"/>
    758550      </Position6>
    759551      <Position7>
    760         <Filename Value="Forms/UItemEdit.pas"/>
    761         <Caret Line="63" Column="1" TopLine="54"/>
     552        <Filename Value="H:/PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>
     553        <Caret Line="244" Column="1" TopLine="232"/>
    762554      </Position7>
    763555      <Position8>
    764556        <Filename Value="Forms/UItemEdit.pas"/>
    765         <Caret Line="60" Column="1" TopLine="54"/>
     557        <Caret Line="60" Column="83" TopLine="54"/>
    766558      </Position8>
    767559      <Position9>
    768560        <Filename Value="Forms/UItemEdit.pas"/>
    769         <Caret Line="61" Column="1" TopLine="54"/>
     561        <Caret Line="135" Column="22" TopLine="124"/>
    770562      </Position9>
    771563      <Position10>
    772         <Filename Value="Forms/UItemEdit.pas"/>
    773         <Caret Line="63" Column="1" TopLine="54"/>
     564        <Filename Value="Application/UDataTypes.pas"/>
     565        <Caret Line="83" Column="69" TopLine="67"/>
    774566      </Position10>
    775567      <Position11>
    776         <Filename Value="Forms/UItemEdit.pas"/>
    777         <Caret Line="60" Column="1" TopLine="54"/>
     568        <Filename Value="Forms/UMainForm.pas"/>
     569        <Caret Line="747" Column="24" TopLine="733"/>
    778570      </Position11>
    779571      <Position12>
    780         <Filename Value="Forms/UItemEdit.pas"/>
    781         <Caret Line="61" Column="1" TopLine="54"/>
     572        <Filename Value="USystem.pas"/>
     573        <Caret Line="600" Column="15" TopLine="595"/>
    782574      </Position12>
    783575      <Position13>
    784         <Filename Value="Forms/UItemEdit.pas"/>
    785         <Caret Line="63" Column="1" TopLine="54"/>
     576        <Filename Value="USystem.pas"/>
     577        <Caret Line="602" Column="18" TopLine="595"/>
    786578      </Position13>
    787579      <Position14>
    788         <Filename Value="Forms/UItemEdit.pas"/>
    789         <Caret Line="65" Column="5" TopLine="54"/>
     580        <Filename Value="USystem.pas"/>
     581        <Caret Line="607" Column="16" TopLine="595"/>
    790582      </Position14>
    791583      <Position15>
    792         <Filename Value="Forms/UItemEdit.pas"/>
    793         <Caret Line="66" Column="1" TopLine="54"/>
     584        <Filename Value="Forms/UItemAdd.pas"/>
     585        <Caret Line="64" Column="24" TopLine="51"/>
    794586      </Position15>
    795587      <Position16>
    796         <Filename Value="H:/PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>
    797         <Caret Line="244" Column="1" TopLine="232"/>
     588        <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/include/control.inc"/>
     589        <Caret Line="2786" Column="1" TopLine="2774"/>
    798590      </Position16>
    799591      <Position17>
    800         <Filename Value="Forms/UItemEdit.pas"/>
    801         <Caret Line="60" Column="83" TopLine="54"/>
     592        <Filename Value="Forms/UItemAdd.pas"/>
     593        <Caret Line="65" Column="23" TopLine="51"/>
    802594      </Position17>
    803595      <Position18>
    804         <Filename Value="Forms/UItemEdit.pas"/>
    805         <Caret Line="135" Column="22" TopLine="124"/>
     596        <Filename Value="Forms/UItemAdd.pas"/>
     597        <Caret Line="31" Column="1" TopLine="18"/>
    806598      </Position18>
    807599      <Position19>
    808         <Filename Value="Application/UDataTypes.pas"/>
    809         <Caret Line="83" Column="69" TopLine="67"/>
     600        <Filename Value="Forms/UItemAdd.pas"/>
     601        <Caret Line="84" Column="1" TopLine="72"/>
    810602      </Position19>
    811603      <Position20>
    812         <Filename Value="Forms/UMainForm.pas"/>
    813         <Caret Line="747" Column="24" TopLine="733"/>
     604        <Filename Value="Forms/UItemAdd.pas"/>
     605        <Caret Line="89" Column="1" TopLine="77"/>
    814606      </Position20>
    815607      <Position21>
    816         <Filename Value="USystem.pas"/>
    817         <Caret Line="600" Column="15" TopLine="595"/>
     608        <Filename Value="Forms/UItemAdd.pas"/>
     609        <Caret Line="119" Column="1" TopLine="107"/>
    818610      </Position21>
    819611      <Position22>
    820         <Filename Value="USystem.pas"/>
    821         <Caret Line="602" Column="18" TopLine="595"/>
     612        <Filename Value="Forms/UItemEdit.pas"/>
     613        <Caret Line="66" Column="1" TopLine="53"/>
    822614      </Position22>
    823615      <Position23>
    824         <Filename Value="USystem.pas"/>
    825         <Caret Line="607" Column="16" TopLine="595"/>
     616        <Filename Value="Forms/UItemEdit.pas"/>
     617        <Caret Line="102" Column="1" TopLine="87"/>
    826618      </Position23>
    827619      <Position24>
    828         <Filename Value="Forms/UItemAdd.pas"/>
    829         <Caret Line="64" Column="24" TopLine="51"/>
     620        <Filename Value="Forms/UItemSelect.pas"/>
     621        <Caret Line="50" Column="17" TopLine="41"/>
    830622      </Position24>
    831623      <Position25>
    832         <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/include/control.inc"/>
    833         <Caret Line="2786" Column="1" TopLine="2774"/>
     624        <Filename Value="Forms/UItemSelect.pas"/>
     625        <Caret Line="53" Column="21" TopLine="41"/>
    834626      </Position25>
    835627      <Position26>
    836         <Filename Value="Forms/UItemAdd.pas"/>
    837         <Caret Line="65" Column="23" TopLine="51"/>
     628        <Filename Value="Forms/UItemSelect.pas"/>
     629        <Caret Line="50" Column="17" TopLine="41"/>
    838630      </Position26>
    839631      <Position27>
    840         <Filename Value="Forms/UItemAdd.pas"/>
    841         <Caret Line="31" Column="1" TopLine="18"/>
     632        <Filename Value="Forms/UItemSelect.pas"/>
     633        <Caret Line="32" Column="53" TopLine="11"/>
    842634      </Position27>
    843635      <Position28>
    844         <Filename Value="Forms/UItemAdd.pas"/>
    845         <Caret Line="84" Column="1" TopLine="72"/>
     636        <Filename Value="Application/UDataTypes.pas"/>
     637        <Caret Line="258" Column="67" TopLine="246"/>
    846638      </Position28>
    847639      <Position29>
    848         <Filename Value="Forms/UItemAdd.pas"/>
    849         <Caret Line="89" Column="1" TopLine="77"/>
     640        <Filename Value="Application/UDataTypes.pas"/>
     641        <Caret Line="260" Column="1" TopLine="246"/>
    850642      </Position29>
    851643      <Position30>
    852         <Filename Value="Forms/UItemAdd.pas"/>
    853         <Caret Line="119" Column="1" TopLine="107"/>
     644        <Filename Value="Forms/UItemView.pas"/>
     645        <Caret Line="119" Column="39" TopLine="108"/>
    854646      </Position30>
    855647    </JumpHistory>
Note: See TracChangeset for help on using the changeset viewer.