Changeset 17 for trunk


Ignore:
Timestamp:
Jun 13, 2011, 2:35:01 PM (14 years ago)
Author:
george
Message:
  • Fixed: Loading content of RelationMany sublist in item view.
Location:
trunk
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • trunk/Application/UDataTypes.pas

    r16 r17  
    8686    ObjectId: Integer;
    8787    PropertyID: Integer;
     88    PropertyName: string;
    8889    SelectedItemName: string;
    8990    function CreateControl(Owner: TComponent): TWinControl; override;
    9091    procedure SetupControl(Control: TWinControl); override;
    9192    procedure Load(CellValue: string); override;
     93    procedure LoadDef(ACustomType: Integer); override;
    9294  end;
    9395
    … …  
    185187end;
    186188
     189procedure TDataTypeRelationMany.LoadDef(ACustomType: Integer);
     190var
     191  DbRows: TDbRows;
     192  BaseType: Integer;
     193begin
     194  try
     195    DbRows := TDbRows.Create;
     196    Core.System.Database.Select(DbRows, TypeRelationMany, '*', 'CustomType=' + IntToStr(ACustomType));
     197    PropertyID := StrToInt(DbRows[0].Values['ObjectProperty']);
     198  finally
     199    DbRows.Free;
     200  end;
     201  try
     202    DbRows := TDbRows.Create;
     203    Core.System.Database.Select(DbRows, PropertyTable, '*', 'Id=' + IntToStr(PropertyID));
     204    ObjectId := StrToInt(DbRows[0].Values['Object']);
     205    PropertyName := DbRows[0].Values['ColumnName'];
     206  finally
     207    DbRows.Free;
     208  end;
     209end;
     210
    187211{ TDataTypeRelationOne }
    188212

  • trunk/Forms/UItemView.lfm

    r12 r17  
    1010  OnCreate = FormCreate
    1111  OnDestroy = FormDestroy
     12  OnResize = FormResize
    1213  OnShow = FormShow
    1314  LCLVersion = '0.9.31'
    … …  
    5556      object TabControl1: TTabControl
    5657        Left = 0
    57         Height = 32
     58        Height = 24
    5859        Top = 0
    5960        Width = 626
    6061        Align = alTop
     62        OnChange = TabControl1Change
    6163        TabIndex = 0
    6264        TabOrder = 0
    … …  
    7072      object ListView1: TListView
    7173        Left = 0
    72         Height = 168
    73         Top = 32
     74        Height = 176
     75        Top = 24
    7476        Width = 626
    7577        Align = alClient
    7678        Columns = <>
     79        OwnerData = True
     80        ReadOnly = True
     81        RowSelect = True
    7782        TabOrder = 1
     83        ViewStyle = vsReport
     84        OnData = ListView1Data
    7885      end
    7986    end

  • trunk/Forms/UItemView.pas

    r16 r17  
    77uses
    88  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
    9   ExtCtrls, ComCtrls, USqlDatabase, USystem;
     9  ExtCtrls, ComCtrls, USqlDatabase, USystem, SpecializedList;
    1010
    1111type
    … …  
    2828    procedure FormCreate(Sender: TObject);
    2929    procedure FormDestroy(Sender: TObject);
     30    procedure FormResize(Sender: TObject);
    3031    procedure FormShow(Sender: TObject);
     32    procedure ListView1Data(Sender: TObject; Item: TListItem);
     33    procedure ListView1Resize(Sender: TObject);
     34    procedure TabControl1Change(Sender: TObject);
    3135  private
     36    SubListObject: TChronisObject;
     37    TabObjectList: TListInteger;
     38    TabDataTypeList: TListObject;
     39    procedure LoadSubList;
    3240    { private declarations }
    3341  public
    … …  
    5664procedure TItemViewForm.FormCreate(Sender: TObject);
    5765begin
     66  SubListObject := TChronisObject.Create;
     67  SubListObject.Base := Core.System;
    5868  Report := TReport.Create;
    5969  Report.Base := Core.System;
     70  TabObjectList := TListInteger.Create;
     71  TabDataTypeList := TListObject.Create;
     72  TabDataTypeList.OwnsObjects := False;
     73  TabControl1.Tabs.Clear;
    6074end;
    6175
    6276procedure TItemViewForm.FormDestroy(Sender: TObject);
    6377begin
     78  SubListObject.Free;
    6479  Report.Free;
     80  TabObjectList.Free;
     81  TabDataTypeList.Free;
     82end;
     83
     84procedure TItemViewForm.FormResize(Sender: TObject);
     85begin
     86  ListView1Resize(Self);
    6587end;
    6688
    … …  
    85107  MainForm.PersistentForm.Load(Self);
    86108  BuildControls;
     109  LoadSubList;
     110end;
     111
     112procedure TItemViewForm.ListView1Data(Sender: TObject; Item: TListItem);
     113var
     114  I: Integer;
     115begin
     116  if Item.Index < Report.Count then
     117  with TReportLine(Report[Item.Index]) do begin
     118    Item.Caption := Items[0];
     119    for I := 1 to Items.Count - 1 do
     120    if not TReportColumn(Report.Columns[I]).VirtualItem then
     121      Item.SubItems.Add(Items[I]);
     122  end;
    87123end;
    88124
    … …  
    105141
    106142  TabControl1.Tabs.Clear;
     143  TabObjectList.Clear;
     144  TabDataTypeList.Clear;
    107145  // Load column names
    108146
    … …  
    110148  for I := 0 to Report.Columns.Count - 1 do begin
    111149    DataType := TReportColumn(Report.Columns[I]).CustomType;
     150    DataType.LoadDef(TReportColumn(Report.Columns[I]).CustomType.CustomType);
    112151  if DataType is TDataTypeRelationMany then begin
    113152    TabControl1.Tabs.Add(TReportColumn(Report.Columns[I]).Caption);
     153    TabDataTypeList.Add(DataType);
     154    TabObjectList.Add(MainForm.SelectedItem);
    114155  end else begin
    115156    NewControl := TLabel.Create(PanelControls);
    … …  
    132173end;
    133174
     175procedure TItemViewForm.LoadSubList;
     176var
     177  NewColumn: TListColumn;
     178  I: Integer;
     179begin
     180  //SelectedObjectId := 0;
     181  if (TabControl1.TabIndex >= 0) and (TabControl1.TabIndex < TabControl1.Tabs.Count) then
     182  with ListView1 do
     183  with TDataTypeRelationMany(TabDataTypeList[TabControl1.TabIndex]) do begin
     184    Visible := True;
     185    SubListObject.Load(ObjectId);
     186    Report.Load(SubListObject, '`' + PropertyName + '`=' + IntToStr(TabObjectList[TabControl1.TabIndex]));
     187
     188    Columns.Clear;
     189    for I := 0 to Report.Columns.Count - 1 do
     190    if not TReportColumn(Report.Columns[I]).VirtualItem then begin
     191      NewColumn := Columns.Add;
     192      NewColumn.Caption := TReportColumn(Report.Columns[I]).Caption;
     193    end;
     194    Items.Count := Report.Count;
     195    Refresh;
     196  end;
     197  ListView1Resize(Self);
     198end;
     199
     200procedure TItemViewForm.ListView1Resize(Sender: TObject);
     201var
     202  I: Integer;
     203begin
     204  for I := 0 to ListView1.Columns.Count - 1 do
     205    ListView1.Columns[I].Width := ListView1.Width div ListView1.Columns.Count;
     206end;
     207
     208procedure TItemViewForm.TabControl1Change(Sender: TObject);
     209begin
     210  LoadSubList;
     211end;
     212
     213
    134214end.
    135215

  • trunk/Forms/UMainForm.pas

    r16 r17  
    440440  ObjectPropertyId := AddObject('Properties', 'Property', Core.System.Database.Database, GroupId);
    441441    AddPropertyString(ObjectPropertyId, 'Name', 'Name');
    442     PropertyObjectId := AddPropertyRelationOne(ObjectPropertyId, 'Object', 'Object', ObjectId);
     442    PropertyParentId := AddPropertyRelationOne(ObjectPropertyId, 'Object', 'Object', ObjectId);
    443443    ObjectPropertyIdGroup := AddPropertyRelationOne(ObjectPropertyId, 'Property group', 'PropertyGroup', ObjectPropertyGroupId);
    444444    AddPropertyNumber(ObjectPropertyId, 'Custom type', 'CustomType');
    … …  
    597597  with TReportLine(Report[Item.Index]) do begin
    598598    Item.Caption := Items[0];
    599     for I := 1 to Items.Count - 1 do
    600     if not TReportColumn(Report.Columns[I]).VirtualItem then
     599    for I := 1 to Report.Columns.Count - 1 do
     600    if not TReportColumn(Report.Columns[I]).VirtualItem then begin
    601601      Item.SubItems.Add(Items[I]);
     602    end;
    602603  end;
    603604end;

  • trunk/USystem.pas

    r16 r17  
    77uses
    88  Classes, SysUtils, SpecializedList, SpecializedDictionary, USqlDatabase,
    9   Strings, UDataTypes;
     9  Strings, UDataTypes, Dialogs;
    1010
    1111const
    … …  
    207207      for I := 0 to Values.Count - 1 do begin
    208208        NewItem := TReportLine.Create;
    209         NewItem.Items.Add(Values[I].Values[Obj.PrimaryKey]);
     209        //NewItem.Items.Add(Values[I].Values[Obj.PrimaryKey]);
    210210        NewItem.Id := StrToInt(Values[I].Values[Obj.PrimaryKey]);
    211         for C := 0 to Properties.Count - 1 do
     211        for C := 0 to Columns.Count - 1 do
    212212        if not TReportColumn(Columns[C]).VirtualItem then begin
    213213          NewItem.Items.Add(Values[I].Values[TReportColumn(Columns[C]).ColumnName]);

  • trunk/chronis.lpi

    r16 r17  
    104104      </Item6>
    105105    </RequiredPackages>
    106     <Units Count="59">
     106    <Units Count="60">
    107107      <Unit0>
    108108        <Filename Value="chronis.lpr"/>
    … …  
    187187        <EditorIndex Value="0"/>
    188188        <WindowIndex Value="0"/>
    189         <TopLine Value="106"/>
    190         <CursorPos X="45" Y="116"/>
     189        <TopLine Value="112"/>
     190        <CursorPos X="32" Y="121"/>
    191191        <UsageCount Value="327"/>
    192192        <Loaded Value="True"/>
    … …  
    200200        <ResourceBaseClass Value="Form"/>
    201201        <UnitName Value="UItemEdit"/>
    202         <EditorIndex Value="1"/>
    203         <WindowIndex Value="0"/>
    204         <TopLine Value="51"/>
    205         <CursorPos X="47" Y="71"/>
     202        <EditorIndex Value="4"/>
     203        <WindowIndex Value="0"/>
     204        <TopLine Value="44"/>
     205        <CursorPos X="46" Y="64"/>
    206206        <UsageCount Value="318"/>
    207207        <Loaded Value="True"/>
    … …  
    233233        <UnitName Value="UMainForm"/>
    234234        <IsVisibleTab Value="True"/>
    235         <EditorIndex Value="3"/>
    236         <WindowIndex Value="0"/>
    237         <TopLine Value="478"/>
    238         <CursorPos X="34" Y="490"/>
     235        <EditorIndex Value="6"/>
     236        <WindowIndex Value="0"/>
     237        <TopLine Value="592"/>
     238        <CursorPos X="1" Y="602"/>
    239239        <UsageCount Value="317"/>
    240240        <Loaded Value="True"/>
    … …  
    260260        <ResourceBaseClass Value="Form"/>
    261261        <UnitName Value="UItemAdd"/>
    262         <EditorIndex Value="2"/>
    263         <WindowIndex Value="0"/>
    264         <TopLine Value="49"/>
    265         <CursorPos X="1" Y="32"/>
     262        <EditorIndex Value="5"/>
     263        <WindowIndex Value="0"/>
     264        <TopLine Value="124"/>
     265        <CursorPos X="78" Y="63"/>
    266266        <UsageCount Value="313"/>
    267267        <Loaded Value="True"/>
    … …  
    331331        <IsPartOfProject Value="True"/>
    332332        <UnitName Value="USystem"/>
    333         <EditorIndex Value="7"/>
    334         <WindowIndex Value="0"/>
    335         <TopLine Value="314"/>
    336         <CursorPos X="25" Y="333"/>
    337         <UsageCount Value="107"/>
     333        <EditorIndex Value="10"/>
     334        <WindowIndex Value="0"/>
     335        <TopLine Value="202"/>
     336        <CursorPos X="67" Y="214"/>
     337        <UsageCount Value="111"/>
    338338        <Loaded Value="True"/>
    339339        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    370370        <ResourceBaseClass Value="DataModule"/>
    371371        <UnitName Value="UCore"/>
    372         <EditorIndex Value="5"/>
     372        <EditorIndex Value="9"/>
    373373        <WindowIndex Value="0"/>
    374374        <TopLine Value="34"/>
    375375        <CursorPos X="59" Y="46"/>
    376         <UsageCount Value="91"/>
     376        <UsageCount Value="95"/>
    377377        <Loaded Value="True"/>
    378378        <LoadedDesigner Value="True"/>
    … …  
    385385        <ResourceBaseClass Value="Form"/>
    386386        <UnitName Value="USettingForm"/>
    387         <EditorIndex Value="4"/>
     387        <EditorIndex Value="8"/>
    388388        <WindowIndex Value="0"/>
    389389        <TopLine Value="40"/>
    390390        <CursorPos X="45" Y="15"/>
    391         <UsageCount Value="90"/>
     391        <UsageCount Value="94"/>
    392392        <Loaded Value="True"/>
    393393        <LoadedDesigner Value="True"/>
    … …  
    401401        <TopLine Value="37"/>
    402402        <CursorPos X="21" Y="52"/>
    403         <UsageCount Value="90"/>
     403        <UsageCount Value="94"/>
    404404        <DefaultSyntaxHighlighter Value="Delphi"/>
    405405      </Unit26>
    … …  
    478478        <EditorIndex Value="11"/>
    479479        <WindowIndex Value="0"/>
    480         <TopLine Value="113"/>
    481         <CursorPos X="29" Y="87"/>
    482         <UsageCount Value="44"/>
     480        <TopLine Value="189"/>
     481        <CursorPos X="1" Y="207"/>
     482        <UsageCount Value="48"/>
    483483        <Loaded Value="True"/>
    484484        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    509509        <CursorPos X="1" Y="1"/>
    510510        <UsageCount Value="9"/>
     511        <DefaultSyntaxHighlighter Value="Delphi"/>
    511512      </Unit38>
    512513      <Unit39>
    … …  
    517518        <CursorPos X="1" Y="1"/>
    518519        <UsageCount Value="9"/>
     520        <DefaultSyntaxHighlighter Value="Delphi"/>
    519521      </Unit39>
    520522      <Unit40>
    … …  
    525527        <CursorPos X="50" Y="15"/>
    526528        <UsageCount Value="9"/>
     529        <DefaultSyntaxHighlighter Value="Delphi"/>
    527530      </Unit40>
    528531      <Unit41>
    … …  
    533536        <CursorPos X="1" Y="109"/>
    534537        <UsageCount Value="9"/>
     538        <DefaultSyntaxHighlighter Value="Delphi"/>
    535539      </Unit41>
    536540      <Unit42>
    … …  
    540544        <CursorPos X="17" Y="1651"/>
    541545        <UsageCount Value="9"/>
     546        <DefaultSyntaxHighlighter Value="Delphi"/>
    542547      </Unit42>
    543548      <Unit43>
    … …  
    548553        <CursorPos X="1" Y="1"/>
    549554        <UsageCount Value="9"/>
     555        <DefaultSyntaxHighlighter Value="Delphi"/>
    550556      </Unit43>
    551557      <Unit44>
    … …  
    556562        <CursorPos X="1" Y="1"/>
    557563        <UsageCount Value="9"/>
     564        <DefaultSyntaxHighlighter Value="Delphi"/>
    558565      </Unit44>
    559566      <Unit45>
    … …  
    564571        <CursorPos X="36" Y="13"/>
    565572        <UsageCount Value="9"/>
     573        <DefaultSyntaxHighlighter Value="Delphi"/>
    566574      </Unit45>
    567575      <Unit46>
    … …  
    572580        <CursorPos X="19" Y="27"/>
    573581        <UsageCount Value="9"/>
     582        <DefaultSyntaxHighlighter Value="Delphi"/>
    574583      </Unit46>
    575584      <Unit47>
    … …  
    580589        <CursorPos X="1" Y="1"/>
    581590        <UsageCount Value="9"/>
     591        <DefaultSyntaxHighlighter Value="Delphi"/>
    582592      </Unit47>
    583593      <Unit48>
    … …  
    588598        <CursorPos X="1" Y="1"/>
    589599        <UsageCount Value="9"/>
     600        <DefaultSyntaxHighlighter Value="Delphi"/>
    590601      </Unit48>
    591602      <Unit49>
    … …  
    596607        <CursorPos X="1" Y="1"/>
    597608        <UsageCount Value="9"/>
     609        <DefaultSyntaxHighlighter Value="Delphi"/>
    598610      </Unit49>
    599611      <Unit50>
    … …  
    604616        <CursorPos X="1" Y="1"/>
    605617        <UsageCount Value="9"/>
     618        <DefaultSyntaxHighlighter Value="Delphi"/>
    606619      </Unit50>
    607620      <Unit51>
    608         <Filename Value="H:/PascalClassLibrary/Common/UDebugLog.pas"/>
    609         <UnitName Value="UDebugLog"/>
    610         <WindowIndex Value="0"/>
    611         <TopLine Value="77"/>
    612         <CursorPos X="38" Y="90"/>
    613         <UsageCount Value="9"/>
     621        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListString.inc"/>
     622        <WindowIndex Value="0"/>
     623        <TopLine Value="8"/>
     624        <CursorPos X="62" Y="20"/>
     625        <UsageCount Value="9"/>
     626        <DefaultSyntaxHighlighter Value="Delphi"/>
    614627      </Unit51>
    615628      <Unit52>
     629        <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/objpas/sysutils/sysstrh.inc"/>
     630        <WindowIndex Value="0"/>
     631        <TopLine Value="70"/>
     632        <CursorPos X="10" Y="82"/>
     633        <UsageCount Value="9"/>
     634        <DefaultSyntaxHighlighter Value="Delphi"/>
     635      </Unit52>
     636      <Unit53>
     637        <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/objpas/sysutils/sysstr.inc"/>
     638        <WindowIndex Value="0"/>
     639        <TopLine Value="141"/>
     640        <CursorPos X="3" Y="144"/>
     641        <UsageCount Value="9"/>
     642        <DefaultSyntaxHighlighter Value="Delphi"/>
     643      </Unit53>
     644      <Unit54>
     645        <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/comctrls.pp"/>
     646        <UnitName Value="ComCtrls"/>
     647        <WindowIndex Value="0"/>
     648        <TopLine Value="602"/>
     649        <CursorPos X="17" Y="614"/>
     650        <UsageCount Value="11"/>
     651        <DefaultSyntaxHighlighter Value="Delphi"/>
     652      </Unit54>
     653      <Unit55>
     654        <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/objpas/classes/stringl.inc"/>
     655        <WindowIndex Value="0"/>
     656        <TopLine Value="575"/>
     657        <CursorPos X="15" Y="579"/>
     658        <UsageCount Value="10"/>
     659        <DefaultSyntaxHighlighter Value="Delphi"/>
     660      </Unit55>
     661      <Unit56>
     662        <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/objpas/classes/classesh.inc"/>
     663        <EditorIndex Value="2"/>
     664        <WindowIndex Value="0"/>
     665        <TopLine Value="623"/>
     666        <CursorPos X="58" Y="635"/>
     667        <UsageCount Value="11"/>
     668        <Loaded Value="True"/>
     669      </Unit56>
     670      <Unit57>
     671        <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/objpas/classes/stringl.inc"/>
     672        <EditorIndex Value="3"/>
     673        <WindowIndex Value="0"/>
     674        <TopLine Value="426"/>
     675        <CursorPos X="3" Y="429"/>
     676        <UsageCount Value="11"/>
     677        <Loaded Value="True"/>
     678      </Unit57>
     679      <Unit58>
    616680        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    617         <EditorIndex Value="9"/>
     681        <EditorIndex Value="1"/>
    618682        <WindowIndex Value="0"/>
    619683        <TopLine Value="120"/>
    … …  
    621685        <UsageCount Value="10"/>
    622686        <Loaded Value="True"/>
    623       </Unit52>
    624       <Unit53>
    625         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListString.inc"/>
    626         <WindowIndex Value="0"/>
    627         <TopLine Value="8"/>
    628         <CursorPos X="62" Y="20"/>
    629         <UsageCount Value="9"/>
    630       </Unit53>
    631       <Unit54>
    632         <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/objpas/sysutils/sysstrh.inc"/>
    633         <WindowIndex Value="0"/>
    634         <TopLine Value="70"/>
    635         <CursorPos X="10" Y="82"/>
    636         <UsageCount Value="9"/>
    637       </Unit54>
    638       <Unit55>
    639         <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/objpas/sysutils/sysstr.inc"/>
    640         <WindowIndex Value="0"/>
    641         <TopLine Value="141"/>
    642         <CursorPos X="3" Y="144"/>
    643         <UsageCount Value="9"/>
    644       </Unit55>
    645       <Unit56>
    646         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericDictionary.inc"/>
    647         <EditorIndex Value="10"/>
    648         <WindowIndex Value="0"/>
    649         <TopLine Value="50"/>
    650         <CursorPos X="1" Y="62"/>
     687      </Unit58>
     688      <Unit59>
     689        <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/include/customlistview.inc"/>
     690        <EditorIndex Value="7"/>
     691        <WindowIndex Value="0"/>
     692        <TopLine Value="550"/>
     693        <CursorPos X="1" Y="561"/>
    651694        <UsageCount Value="10"/>
    652695        <Loaded Value="True"/>
    653       </Unit56>
    654       <Unit57>
    655         <Filename Value="H:/PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>
    656         <UnitName Value="USqlDatabase"/>
    657         <EditorIndex Value="6"/>
    658         <WindowIndex Value="0"/>
    659         <TopLine Value="232"/>
    660         <CursorPos X="31" Y="243"/>
    661         <UsageCount Value="14"/>
    662         <Loaded Value="True"/>
    663       </Unit57>
    664       <Unit58>
    665         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListObject.inc"/>
    666         <EditorIndex Value="8"/>
    667         <WindowIndex Value="0"/>
    668         <TopLine Value="1"/>
    669         <CursorPos X="24" Y="4"/>
    670         <UsageCount Value="10"/>
    671         <Loaded Value="True"/>
    672       </Unit58>
     696      </Unit59>
    673697    </Units>
    674     <JumpHistory Count="30" HistoryIndex="29">
     698    <JumpHistory Count="28" HistoryIndex="25">
    675699      <Position1>
    676         <Filename Value="Application/UDataTypes.pas"/>
    677         <Caret Line="149" Column="22" TopLine="130"/>
     700        <Filename Value="Forms/UItemView.pas"/>
     701        <Caret Line="86" Column="23" TopLine="84"/>
    678702      </Position1>
    679703      <Position2>
    680         <Filename Value="Application/UDataTypes.pas"/>
    681         <Caret Line="90" Column="35" TopLine="70"/>
     704        <Filename Value="Forms/UItemView.pas"/>
     705        <Caret Line="186" Column="13" TopLine="176"/>
    682706      </Position2>
    683707      <Position3>
    684         <Filename Value="USystem.pas"/>
    685         <Caret Line="109" Column="37" TopLine="94"/>
     708        <Filename Value="Forms/UMainForm.pas"/>
     709        <Caret Line="603" Column="37" TopLine="592"/>
    686710      </Position3>
    687711      <Position4>
    688         <Filename Value="USystem.pas"/>
    689         <Caret Line="373" Column="44" TopLine="358"/>
     712        <Filename Value="Forms/UMainForm.pas"/>
     713        <Caret Line="598" Column="1" TopLine="592"/>
    690714      </Position4>
    691715      <Position5>
    692716        <Filename Value="Forms/UMainForm.pas"/>
    693         <Caret Line="374" Column="32" TopLine="427"/>
     717        <Caret Line="599" Column="1" TopLine="592"/>
    694718      </Position5>
    695719      <Position6>
    696720        <Filename Value="Forms/UMainForm.pas"/>
    697         <Caret Line="452" Column="92" TopLine="450"/>
     721        <Caret Line="600" Column="1" TopLine="592"/>
    698722      </Position6>
    699723      <Position7>
    700724        <Filename Value="Forms/UMainForm.pas"/>
    701         <Caret Line="443" Column="37" TopLine="424"/>
     725        <Caret Line="599" Column="19" TopLine="592"/>
    702726      </Position7>
    703727      <Position8>
    704         <Filename Value="H:/PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>
    705         <Caret Line="244" Column="1" TopLine="232"/>
     728        <Filename Value="Forms/UMainForm.pas"/>
     729        <Caret Line="600" Column="1" TopLine="592"/>
    706730      </Position8>
    707731      <Position9>
    708         <Filename Value="USystem.pas"/>
    709         <Caret Line="188" Column="51" TopLine="175"/>
     732        <Filename Value="Forms/UMainForm.pas"/>
     733        <Caret Line="601" Column="1" TopLine="592"/>
    710734      </Position9>
    711735      <Position10>
    712         <Filename Value="USystem.pas"/>
    713         <Caret Line="187" Column="79" TopLine="176"/>
     736        <Filename Value="Forms/UMainForm.pas"/>
     737        <Caret Line="600" Column="1" TopLine="592"/>
    714738      </Position10>
    715739      <Position11>
    716         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    717         <Caret Line="132" Column="1" TopLine="120"/>
     740        <Filename Value="Forms/UMainForm.pas"/>
     741        <Caret Line="601" Column="1" TopLine="592"/>
    718742      </Position11>
    719743      <Position12>
    720         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericDictionary.inc"/>
    721         <Caret Line="62" Column="1" TopLine="50"/>
     744        <Filename Value="Forms/UMainForm.pas"/>
     745        <Caret Line="600" Column="1" TopLine="592"/>
    722746      </Position12>
    723747      <Position13>
    724         <Filename Value="USystem.pas"/>
    725         <Caret Line="211" Column="17" TopLine="197"/>
     748        <Filename Value="Forms/UMainForm.pas"/>
     749        <Caret Line="601" Column="1" TopLine="592"/>
    726750      </Position13>
    727751      <Position14>
    728         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    729         <Caret Line="132" Column="1" TopLine="120"/>
     752        <Filename Value="Forms/UMainForm.pas"/>
     753        <Caret Line="600" Column="1" TopLine="592"/>
    730754      </Position14>
    731755      <Position15>
    732         <Filename Value="USystem.pas"/>
    733         <Caret Line="212" Column="71" TopLine="200"/>
     756        <Filename Value="Forms/UMainForm.pas"/>
     757        <Caret Line="601" Column="1" TopLine="592"/>
    734758      </Position15>
    735759      <Position16>
    736         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    737         <Caret Line="132" Column="1" TopLine="120"/>
     760        <Filename Value="Forms/UMainForm.pas"/>
     761        <Caret Line="600" Column="1" TopLine="592"/>
    738762      </Position16>
    739763      <Position17>
    740         <Filename Value="USystem.pas"/>
    741         <Caret Line="213" Column="40" TopLine="200"/>
     764        <Filename Value="Forms/UMainForm.pas"/>
     765        <Caret Line="601" Column="1" TopLine="592"/>
    742766      </Position17>
    743767      <Position18>
    744         <Filename Value="H:/PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>
    745         <Caret Line="244" Column="1" TopLine="232"/>
     768        <Filename Value="Forms/UMainForm.pas"/>
     769        <Caret Line="600" Column="1" TopLine="592"/>
    746770      </Position18>
    747771      <Position19>
    748         <Filename Value="USystem.pas"/>
    749         <Caret Line="191" Column="26" TopLine="173"/>
     772        <Filename Value="Forms/UMainForm.pas"/>
     773        <Caret Line="603" Column="1" TopLine="592"/>
    750774      </Position19>
    751775      <Position20>
    752         <Filename Value="USystem.pas"/>
    753         <Caret Line="214" Column="11" TopLine="194"/>
     776        <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/include/customlistview.inc"/>
     777        <Caret Line="562" Column="1" TopLine="550"/>
    754778      </Position20>
    755779      <Position21>
    756         <Filename Value="USystem.pas"/>
    757         <Caret Line="213" Column="85" TopLine="202"/>
     780        <Filename Value="Forms/UMainForm.pas"/>
     781        <Caret Line="602" Column="9" TopLine="592"/>
    758782      </Position21>
    759783      <Position22>
    760         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    761         <Caret Line="132" Column="1" TopLine="120"/>
     784        <Filename Value="Forms/UMainForm.pas"/>
     785        <Caret Line="599" Column="1" TopLine="592"/>
    762786      </Position22>
    763787      <Position23>
    764788        <Filename Value="Forms/UMainForm.pas"/>
    765         <Caret Line="599" Column="61" TopLine="592"/>
     789        <Caret Line="600" Column="1" TopLine="592"/>
    766790      </Position23>
    767791      <Position24>
    768792        <Filename Value="Forms/UMainForm.pas"/>
    769         <Caret Line="435" Column="52" TopLine="417"/>
     793        <Caret Line="601" Column="1" TopLine="592"/>
    770794      </Position24>
    771795      <Position25>
    772796        <Filename Value="Forms/UMainForm.pas"/>
    773         <Caret Line="436" Column="44" TopLine="417"/>
     797        <Caret Line="706" Column="15" TopLine="696"/>
    774798      </Position25>
    775799      <Position26>
    776800        <Filename Value="Forms/UMainForm.pas"/>
    777         <Caret Line="432" Column="15" TopLine="417"/>
     801        <Caret Line="599" Column="23" TopLine="592"/>
    778802      </Position26>
    779803      <Position27>
    780         <Filename Value="Forms/UMainForm.pas"/>
    781         <Caret Line="425" Column="58" TopLine="417"/>
     804        <Filename Value="USystem.pas"/>
     805        <Caret Line="214" Column="67" TopLine="202"/>
    782806      </Position27>
    783807      <Position28>
    784         <Filename Value="Forms/UMainForm.pas"/>
    785         <Caret Line="606" Column="13" TopLine="604"/>
     808        <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/objpas/classes/classesh.inc"/>
     809        <Caret Line="635" Column="58" TopLine="623"/>
    786810      </Position28>
    787       <Position29>
    788         <Filename Value="Forms/UMainForm.pas"/>
    789         <Caret Line="490" Column="15" TopLine="478"/>
    790       </Position29>
    791       <Position30>
    792         <Filename Value="Forms/UMainForm.pas"/>
    793         <Caret Line="679" Column="35" TopLine="667"/>
    794       </Position30>
    795811    </JumpHistory>
    796812  </ProjectOptions>
    … …  
    821837        <StackChecks Value="True"/>
    822838      </Checks>
     839      <VerifyObjMethodCallValidity Value="True"/>
    823840    </CodeGeneration>
    824841    <Linking>
Note: See TracChangeset for help on using the changeset viewer.