Changeset 22 for trunk


Ignore:
Timestamp:
Jun 16, 2011, 12:18:21 PM (13 years ago)
Author:
george
Message:
  • Modified: Optimalized reloading of columns list in item list.
  • Fixed: Add and modify function.
Location:
trunk
Files:
15 edited

Legend:

Unmodified
Added
Removed

  • trunk/Application/UApplicationInfo.pas

    r19 r22  
    5050  Name := 'ChronIS';
    5151  Identification := 1;
    52   ReleaseDate := '14.6.2011';
     52  ReleaseDate := '16.6.2011';
    5353  MajorVersion := 0;
    5454  MinorVersion := 1;

  • trunk/Application/UDataTypes.pas

    r21 r22  
    8181    function CreateControl(Owner: TComponent): TWinControl; override;
    8282    procedure SetupControl(Control: TWinControl); override;
     83    function GetControlValue(Control: TWinControl): string; override;
    8384    procedure Load(CellValue: string); override;
    8485    procedure LoadDef(ACustomType: Integer); override;
    … …  
    270271end;
    271272
     273function TDataTypeRelationOne.GetControlValue(Control: TWinControl): string;
     274begin
     275  Result := TEditButton(Control).Text;
     276end;
     277
    272278procedure TDataTypeRelationOne.Load(CellValue: string);
    273279begin

  • trunk/Forms/UImportStructureForm.lfm

    r20 r22  
    11object ImportStructureForm: TImportStructureForm
    2   Left = 321
    3   Height = 465
    4   Top = 145
    5   Width = 553
     2  Left = 323
     3  Height = 461
     4  Top = 147
     5  Width = 549
    66  Caption = 'Import structure'
    7   ClientHeight = 465
    8   ClientWidth = 553
     7  ClientHeight = 461
     8  ClientWidth = 549
    99  OnCreate = FormCreate
    1010  OnDestroy = FormDestroy
    … …  
    7272  end
    7373  object Button1: TButton
    74     Left = 473
     74    Left = 469
    7575    Height = 25
    76     Top = 433
     76    Top = 429
    7777    Width = 75
    7878    Anchors = [akRight, akBottom]
    … …  
    8383  object Memo1: TMemo
    8484    Left = 184
    85     Height = 412
     85    Height = 408
    8686    Top = 8
    87     Width = 360
     87    Width = 356
    8888    Anchors = [akTop, akLeft, akRight, akBottom]
    8989    ScrollBars = ssAutoBoth

  • trunk/Forms/UItemAdd.lfm

    r20 r22  
    11object ItemAddForm: TItemAddForm
    2   Left = 401
    3   Height = 419
    4   Top = 131
    5   Width = 565
     2  Left = 403
     3  Height = 415
     4  Top = 133
     5  Width = 561
    66  ActiveControl = Panel1
    77  Caption = 'Add item'
    8   ClientHeight = 419
    9   ClientWidth = 565
     8  ClientHeight = 415
     9  ClientWidth = 561
    1010  OnClose = FormClose
    1111  OnCreate = FormCreate
    … …  
    1515  object Panel1: TPanel
    1616    Left = 0
    17     Height = 382
     17    Height = 378
    1818    Top = 0
    19     Width = 565
     19    Width = 561
    2020    Align = alTop
    2121    Anchors = [akLeft, akRight, akBottom]
    … …  
    2424  end
    2525  object ButtonCancel: TButton
    26     Left = 382
     26    Left = 378
    2727    Height = 25
    28     Top = 390
     28    Top = 386
    2929    Width = 75
    3030    Anchors = [akRight, akBottom]
    … …  
    3434  end
    3535  object ButtonSave: TButton
    36     Left = 470
     36    Left = 466
    3737    Height = 25
    38     Top = 390
     38    Top = 386
    3939    Width = 75
    4040    Anchors = [akRight, akBottom]

  • trunk/Forms/UItemAdd.pas

    r21 r22  
    2929  public
    3030    Report: TReport;
    31     ControlList: TListObject;
    32   end;
     31  end;
    3332
    3433var
    … …  
    5958    Data := TDictionaryStringString.Create;
    6059    for I := 0 to Report.Columns.Count - 1 do
    61     if TReportColumn(Report.Columns[I]).ColumnName <> 'Id' then begin
     60    if not (TReportColumn(Report.Columns[I]).CustomType is TDataTypeRelationMany) then
     61    if TReportColumn(Report.Columns[I]).ColumnName <> MainForm.SelectedObject.PrimaryKey then begin
    6262      DataType := TReportColumn(Report.Columns[I]).CustomType;
    63       Data.Add(TReportColumn(Report.Columns[I]).ColumnName, DataType.GetControlValue(TWinControl(ControlList[I])));
     63      Data.Add(TReportColumn(Report.Columns[I]).ColumnName,
     64        DataType.GetControlValue(TWinControl(TReportColumn(Report.Columns[I]).Control)));
    6465    end;
    6566    Database.Insert(MainForm.SelectedObject.Table, Data, MainForm.SelectedObject.Schema);
    … …  
    8182  Report := TReport.Create;
    8283  Report.Base := Core.System;
    83   ControlList := TListObject.Create;
    84   ControlList.OwnsObjects := False;
    8584end;
    8685
    … …  
    8887begin
    8988  Report.Free;
    90   ControlList.Free;
    9189end;
    9290
    … …  
    119117
    120118  // Load column names
    121   ControlList.Clear;
    122119    for I := 0 to Report.Columns.Count - 1 do
    123120    if TReportColumn(Report.Columns[I]).ColumnName <> 'Id' then begin
    … …  
    138135        NewControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2;
    139136        NewControl.Width := (Width div ColumnCount) div 2 - 20;
    140         ControlList.Add(NewControl);
     137        TReportColumn(Report.Columns[I]).Control := NewControl;
    141138
    142139        Column := (Column + 1) mod 2;
    143140        if Column = 0 then LastTop := LastTop + NewControl.Height + 4;
    144141      end;
    145     end else ControlList.Add(nil);
     142    end;
    146143end;
    147144

  • trunk/Forms/UItemEdit.lfm

    r20 r22  
    11object ItemEditForm: TItemEditForm
    2   Left = 296
    3   Height = 427
    4   Top = 123
    5   Width = 556
     2  Left = 298
     3  Height = 423
     4  Top = 125
     5  Width = 552
    66  ActiveControl = Panel1
    77  Caption = 'Edit item'
    8   ClientHeight = 427
    9   ClientWidth = 556
     8  ClientHeight = 423
     9  ClientWidth = 552
    1010  OnClose = FormClose
    1111  OnCreate = FormCreate
    … …  
    1515  object Panel1: TPanel
    1616    Left = 0
    17     Height = 384
     17    Height = 380
    1818    Top = 0
    19     Width = 556
     19    Width = 552
    2020    Align = alTop
    2121    Anchors = [akLeft, akRight, akBottom]
    … …  
    2424  end
    2525  object ButtonCancel: TButton
    26     Left = 382
     26    Left = 378
    2727    Height = 25
    28     Top = 398
     28    Top = 394
    2929    Width = 75
    3030    Anchors = [akRight, akBottom]
    … …  
    3434  end
    3535  object ButtonSave: TButton
    36     Left = 470
     36    Left = 466
    3737    Height = 25
    38     Top = 398
     38    Top = 394
    3939    Width = 75
    4040    Anchors = [akRight, akBottom]

  • trunk/Forms/UItemEdit.pas

    r21 r22  
    2828  public
    2929    Report: TReport;
    30     ControlList: TListObject;
    3130    procedure BuildControls;
    3231  end;
    … …  
    5958    Data := TDictionaryStringString.Create;
    6059    for I := 0 to Report.Columns.Count - 1 do
    61     if TReportColumn(Report.Columns[I]).ColumnName <> 'Id' then begin
     60    if not (TReportColumn(Report.Columns[I]).CustomType is TDataTypeRelationMany) then
     61    if TReportColumn(Report.Columns[I]).ColumnName <> MainForm.SelectedObject.PrimaryKey then begin
    6262      DataType := TReportColumn(Report.Columns[I]).CustomType;
    63       Data.Add(TReportColumn(Report.Columns[I]).ColumnName, DataType.GetControlValue(TWinControl(ControlList[I])));
     63      Data.Add(TReportColumn(Report.Columns[I]).ColumnName,
     64        DataType.GetControlValue(TWinControl(TReportColumn(Report.Columns[I]).Control)));
    6465    end;
    6566    Database.Update(MainForm.SelectedObject.Table, Data,
    66       '`Id` = ' + IntToStr(MainForm.SelectedItem), MainForm.SelectedObject.Schema);
     67      '`' + MainForm.SelectedObject.PrimaryKey + '` = ' + IntToStr(MainForm.SelectedItem), MainForm.SelectedObject.Schema);
    6768  finally
    6869    Data.Free;
    … …  
    8586  Report := TReport.Create;
    8687  Report.Base := Core.System;
    87   ControlList := TListObject.Create;
    88   ControlList.OwnsObjects := False;
    8988end;
    9089
    9190procedure TItemEditForm.FormDestroy(Sender: TObject);
    9291begin
    93   ControlList.Free;
    9492  Report.Free;
    9593end;
    … …  
    141139        NewControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2;
    142140        NewControl.Width := (Width div ColumnCount) div 2 - 20;
    143         ControlList.Add(NewControl);
     141        TReportColumn(Report.Columns[I]).Control := NewControl;
    144142
    145143        Column := (Column + 1) mod 2;
    146144        if Column = 0 then LastTop := LastTop + NewControl.Height + 4;
    147145      end;
    148    end else ControlList.Add(nil);
     146   end;
    149147end;
    150148

  • trunk/Forms/UItemSelect.lfm

    r21 r22  
    11object ItemSelectForm: TItemSelectForm
    2   Left = 344
    3   Height = 350
    4   Top = 151
    5   Width = 495
     2  Left = 346
     3  Height = 346
     4  Top = 153
     5  Width = 491
    66  Caption = 'Item select'
    7   ClientHeight = 350
    8   ClientWidth = 495
     7  ClientHeight = 346
     8  ClientWidth = 491
    99  OnCreate = FormCreate
    1010  OnDestroy = FormDestroy
    … …  
    1313  object ListView1: TListView
    1414    Left = 8
    15     Height = 304
     15    Height = 300
    1616    Top = 8
    17     Width = 482
     17    Width = 478
    1818    Anchors = [akTop, akLeft, akRight, akBottom]
    1919    Columns = <>
    … …  
    2727  end
    2828  object ButtonSelect: TButton
    29     Left = 417
     29    Left = 413
    3030    Height = 25
    31     Top = 320
     31    Top = 316
    3232    Width = 75
    3333    Anchors = [akRight, akBottom]
    … …  
    3737  end
    3838  object ButtonCancel: TButton
    39     Left = 328
     39    Left = 324
    4040    Height = 25
    41     Top = 320
     41    Top = 316
    4242    Width = 75
    4343    Anchors = [akRight, akBottom]

  • trunk/Forms/UItemView.lfm

    r20 r22  
    11object ItemViewForm: TItemViewForm
    2   Left = 312
    3   Height = 467
    4   Top = 111
    5   Width = 624
     2  Left = 314
     3  Height = 463
     4  Top = 113
     5  Width = 620
    66  Caption = 'View item'
    7   ClientHeight = 467
    8   ClientWidth = 624
     7  ClientHeight = 463
     8  ClientWidth = 620
    99  OnClose = FormClose
    1010  OnCreate = FormCreate
    … …  
    1414  LCLVersion = '0.9.31'
    1515  object ButtonClose: TButton
    16     Left = 544
     16    Left = 540
    1717    Height = 25
    18     Top = 437
     18    Top = 433
    1919    Width = 75
    2020    Anchors = [akRight, akBottom]
    … …  
    2424  end
    2525  object ButtonEdit: TButton
    26     Left = 456
     26    Left = 452
    2727    Height = 25
    28     Top = 437
     28    Top = 433
    2929    Width = 75
    3030    Anchors = [akRight, akBottom]
    … …  
    3535  object Panel1: TPanel
    3636    Left = 0
    37     Height = 431
     37    Height = 427
    3838    Top = 0
    39     Width = 624
     39    Width = 620
    4040    Align = alTop
    4141    Anchors = [akTop, akLeft, akRight, akBottom]
    4242    BevelOuter = bvNone
    43     ClientHeight = 431
    44     ClientWidth = 624
     43    ClientHeight = 427
     44    ClientWidth = 620
    4545    TabOrder = 2
    4646    object Panel2: TPanel
    4747      Left = 0
    4848      Height = 200
    49       Top = 231
    50       Width = 624
     49      Top = 227
     50      Width = 620
    5151      Align = alBottom
    5252      BevelOuter = bvNone
    5353      ClientHeight = 200
    54       ClientWidth = 624
     54      ClientWidth = 620
    5555      TabOrder = 0
    5656      object TabControl1: TTabControl
    … …  
    5858        Height = 24
    5959        Top = 0
    60         Width = 624
     60        Width = 620
    6161        Align = alTop
    6262        OnChange = TabControl1Change
    … …  
    7474        Height = 176
    7575        Top = 24
    76         Width = 624
     76        Width = 620
    7777        Align = alClient
    7878        Columns = <>
    … …  
    8989      Left = 0
    9090      Height = 3
    91       Top = 228
    92       Width = 624
     91      Top = 224
     92      Width = 620
    9393      Align = alBottom
    9494      ResizeAnchor = akBottom
    … …  
    9696    object PanelControls: TPanel
    9797      Left = 0
    98       Height = 228
     98      Height = 224
    9999      Top = 0
    100       Width = 624
     100      Width = 620
    101101      Align = alClient
    102102      Anchors = [akLeft, akRight, akBottom]

  • trunk/Forms/ULoginForm.lfm

    r20 r22  
    11object LoginForm: TLoginForm
    2   Left = 480
    3   Height = 175
    4   Top = 256
    5   Width = 403
     2  Left = 482
     3  Height = 171
     4  Top = 258
     5  Width = 399
    66  BorderIcons = [biSystemMenu]
    77  BorderStyle = bsDialog
    88  Caption = 'Login'
    9   ClientHeight = 175
    10   ClientWidth = 403
     9  ClientHeight = 171
     10  ClientWidth = 399
    1111  LCLVersion = '0.9.31'
    1212  object Label1: TLabel

  • trunk/Forms/UMainForm.lfm

    r21 r22  
    11object MainForm: TMainForm
    2   Left = 269
    3   Height = 450
    4   Top = 157
    5   Width = 644
     2  Left = 271
     3  Height = 447
     4  Top = 159
     5  Width = 640
    66  ActiveControl = Panel1
    77  Caption = 'ChronIS'
    8   ClientHeight = 431
    9   ClientWidth = 644
     8  ClientHeight = 427
     9  ClientWidth = 640
    1010  Menu = MainMenu1
    1111  OnClose = FormClose
    … …  
    1616  object Panel1: TPanel
    1717    Left = 0
    18     Height = 431
     18    Height = 427
    1919    Top = 0
    2020    Width = 184
    2121    Align = alLeft
    2222    BevelOuter = bvNone
    23     ClientHeight = 431
     23    ClientHeight = 427
    2424    ClientWidth = 184
    2525    TabOrder = 0
    … …  
    3434    object TreeView1: TTreeView
    3535      Left = 4
    36       Height = 407
     36      Height = 403
    3737      Top = 19
    3838      Width = 180
    … …  
    4848  object Panel2: TPanel
    4949    Left = 189
    50     Height = 431
     50    Height = 427
    5151    Top = 0
    52     Width = 455
     52    Width = 451
    5353    Align = alClient
    5454    BevelOuter = bvNone
    55     ClientHeight = 431
    56     ClientWidth = 455
     55    ClientHeight = 427
     56    ClientWidth = 451
    5757    TabOrder = 1
    5858    object Label2: TLabel
    … …  
    6666    object ListView1: TListView
    6767      Left = 2
    68       Height = 375
     68      Height = 371
    6969      Top = 19
    70       Width = 451
     70      Width = 447
    7171      Anchors = [akTop, akLeft, akRight, akBottom]
    7272      Columns = <>
    … …  
    8686      Left = 3
    8787      Height = 25
    88       Top = 402
     88      Top = 398
    8989      Width = 75
    9090      Action = AItemAdd
    … …  
    9595      Left = 83
    9696      Height = 25
    97       Top = 402
     97      Top = 398
    9898      Width = 75
    9999      Action = AItemDelete
    … …  
    104104  object Splitter1: TSplitter
    105105    Left = 184
    106     Height = 431
     106    Height = 427
    107107    Top = 0
    108108    Width = 5

  • trunk/Forms/USettingForm.lfm

    r20 r22  
    11object SettingForm: TSettingForm
    2   Left = 372
    3   Height = 326
    4   Top = 139
    5   Width = 444
     2  Left = 374
     3  Height = 322
     4  Top = 141
     5  Width = 440
    66  Caption = 'Settings'
    7   ClientHeight = 326
    8   ClientWidth = 444
     7  ClientHeight = 322
     8  ClientWidth = 440
    99  OnClose = FormClose
    1010  OnShow = FormShow
    … …  
    2626  end
    2727  object ButtonSave: TButton
    28     Left = 366
     28    Left = 362
    2929    Height = 25
    30     Top = 294
     30    Top = 290
    3131    Width = 75
    3232    Anchors = [akRight, akBottom]
    … …  
    3636  end
    3737  object ButtonCancel: TButton
    38     Left = 278
     38    Left = 274
    3939    Height = 25
    40     Top = 294
     40    Top = 290
    4141    Width = 75
    4242    Anchors = [akRight, akBottom]

  • trunk/UCore.lfm

    r20 r22  
    33  OnDestroy = DataModuleDestroy
    44  OldCreateOrder = False
    5   Height = 344
    6   HorizontalOffset = 234
    7   VerticalOffset = 72
    8   Width = 417
     5  Height = 340
     6  HorizontalOffset = 236
     7  VerticalOffset = 74
     8  Width = 413
    99  object CoolTranslator1: TCoolTranslator
    1010    POFilesFolder = 'Languages'

  • trunk/USystem.pas

    r21 r22  
    77uses
    88  Classes, SysUtils, SpecializedList, SpecializedDictionary, USqlDatabase,
    9   Strings, UDataTypes, Dialogs, ComCtrls, StdCtrls;
     9  Strings, UDataTypes, Dialogs, ComCtrls, StdCtrls, Controls;
    1010
    1111const
    … …  
    5151    ColumnName: string;
    5252    VirtualItem: Boolean;
     53    Control: TWinControl;
    5354  end;
    5455
    … …  
    597598  NewColumn: TListColumn;
    598599begin
    599   AColumns.Clear;
     600  while (AColumns.Count < Columns.Count) do
     601    AColumns.Add;
     602  while (AColumns.Count > Columns.Count) do
     603    AColumns.Delete(AColumns.Count - 1);
    600604  for I := 0 to Columns.Count - 1 do
    601605  if not TReportColumn(Columns[I]).VirtualItem then begin
    602     NewColumn := AColumns.Add;
    603     NewColumn.Caption := TReportColumn(Columns[I]).Caption;
     606    AColumns[I].Caption := TReportColumn(Columns[I]).Caption;
    604607  end;
    605608end;

  • trunk/chronis.lpi

    r21 r22  
    104104      </Item6>
    105105    </RequiredPackages>
    106     <Units Count="60">
     106    <Units Count="63">
    107107      <Unit0>
    108108        <Filename Value="chronis.lpr"/>
    … …  
    171171        <IsPartOfProject Value="True"/>
    172172        <UnitName Value="URegistry"/>
    173         <EditorIndex Value="17"/>
     173        <EditorIndex Value="20"/>
    174174        <WindowIndex Value="0"/>
    175175        <TopLine Value="19"/>
    … …  
    202202        <EditorIndex Value="3"/>
    203203        <WindowIndex Value="0"/>
    204         <TopLine Value="124"/>
    205         <CursorPos X="1" Y="135"/>
     204        <TopLine Value="52"/>
     205        <CursorPos X="1" Y="65"/>
    206206        <UsageCount Value="318"/>
    207207        <Loaded Value="True"/>
    … …  
    216216        <ResourceBaseClass Value="Form"/>
    217217        <UnitName Value="ULoginForm"/>
    218         <EditorIndex Value="18"/>
     218        <EditorIndex Value="21"/>
    219219        <WindowIndex Value="0"/>
    220220        <TopLine Value="14"/>
    … …  
    232232        <ResourceBaseClass Value="Form"/>
    233233        <UnitName Value="UMainForm"/>
    234         <IsVisibleTab Value="True"/>
    235         <EditorIndex Value="5"/>
     234        <EditorIndex Value="7"/>
    236235        <WindowIndex Value="0"/>
    237236        <TopLine Value="733"/>
    238         <CursorPos X="1" Y="748"/>
     237        <CursorPos X="24" Y="747"/>
    239238        <UsageCount Value="317"/>
    240239        <Loaded Value="True"/>
    … …  
    246245        <IsPartOfProject Value="True"/>
    247246        <UnitName Value="UTreeState"/>
    248         <EditorIndex Value="16"/>
     247        <EditorIndex Value="19"/>
    249248        <WindowIndex Value="0"/>
    250249        <TopLine Value="1"/>
    … …  
    260259        <ResourceBaseClass Value="Form"/>
    261260        <UnitName Value="UItemAdd"/>
    262         <EditorIndex Value="4"/>
    263         <WindowIndex Value="0"/>
    264         <TopLine Value="114"/>
    265         <CursorPos X="26" Y="127"/>
     261        <IsVisibleTab Value="True"/>
     262        <EditorIndex Value="5"/>
     263        <WindowIndex Value="0"/>
     264        <TopLine Value="124"/>
     265        <CursorPos X="8" Y="142"/>
    266266        <UsageCount Value="313"/>
    267267        <Loaded Value="True"/>
    … …  
    298298        <IsPartOfProject Value="True"/>
    299299        <UnitName Value="USystem"/>
    300         <EditorIndex Value="10"/>
    301         <WindowIndex Value="0"/>
    302         <TopLine Value="200"/>
    303         <CursorPos X="1" Y="215"/>
     300        <EditorIndex Value="12"/>
     301        <WindowIndex Value="0"/>
     302        <TopLine Value="588"/>
     303        <CursorPos X="57" Y="602"/>
    304304        <UsageCount Value="200"/>
    305305        <Loaded Value="True"/>
    … …  
    321321        <ResourceBaseClass Value="DataModule"/>
    322322        <UnitName Value="UCore"/>
    323         <EditorIndex Value="9"/>
     323        <EditorIndex Value="11"/>
    324324        <WindowIndex Value="0"/>
    325325        <TopLine Value="34"/>
    326326        <CursorPos X="59" Y="46"/>
    327         <UsageCount Value="185"/>
     327        <UsageCount Value="189"/>
    328328        <Loaded Value="True"/>
    329329        <LoadedDesigner Value="True"/>
    … …  
    336336        <ResourceBaseClass Value="Form"/>
    337337        <UnitName Value="USettingForm"/>
    338         <EditorIndex Value="8"/>
     338        <EditorIndex Value="10"/>
    339339        <WindowIndex Value="0"/>
    340340        <TopLine Value="1"/>
    341341        <CursorPos X="46" Y="11"/>
    342         <UsageCount Value="184"/>
     342        <UsageCount Value="188"/>
    343343        <Loaded Value="True"/>
    344344        <LoadedDesigner Value="True"/>
    … …  
    349349        <IsPartOfProject Value="True"/>
    350350        <UnitName Value="UApplicationInfo"/>
    351         <EditorIndex Value="7"/>
    352         <WindowIndex Value="0"/>
    353         <TopLine Value="37"/>
    354         <CursorPos X="21" Y="52"/>
    355         <UsageCount Value="184"/>
     351        <EditorIndex Value="9"/>
     352        <WindowIndex Value="0"/>
     353        <TopLine Value="34"/>
     354        <CursorPos X="25" Y="48"/>
     355        <UsageCount Value="188"/>
    356356        <Loaded Value="True"/>
    357357        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    379379        <IsPartOfProject Value="True"/>
    380380        <UnitName Value="UDataTypes"/>
    381         <EditorIndex Value="13"/>
    382         <WindowIndex Value="0"/>
    383         <TopLine Value="276"/>
    384         <CursorPos X="1" Y="286"/>
    385         <UsageCount Value="138"/>
     381        <EditorIndex Value="16"/>
     382        <WindowIndex Value="0"/>
     383        <TopLine Value="273"/>
     384        <CursorPos X="64" Y="289"/>
     385        <UsageCount Value="142"/>
    386386        <Loaded Value="True"/>
    387387        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    583583        <ResourceBaseClass Value="Form"/>
    584584        <UnitName Value="UImportStructureForm"/>
    585         <EditorIndex Value="6"/>
     585        <EditorIndex Value="8"/>
    586586        <WindowIndex Value="0"/>
    587587        <TopLine Value="149"/>
    588588        <CursorPos X="44" Y="164"/>
    589         <UsageCount Value="74"/>
     589        <UsageCount Value="78"/>
    590590        <Loaded Value="True"/>
    591591        <LoadedDesigner Value="True"/>
    … …  
    644644      <Unit54>
    645645        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    646         <EditorIndex Value="11"/>
     646        <EditorIndex Value="14"/>
    647647        <WindowIndex Value="0"/>
    648648        <TopLine Value="120"/>
    649         <CursorPos X="1" Y="132"/>
    650         <UsageCount Value="12"/>
     649        <CursorPos X="29" Y="132"/>
     650        <UsageCount Value="14"/>
    651651        <Loaded Value="True"/>
    652652      </Unit54>
    653653      <Unit55>
    654654        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericDictionary.inc"/>
    655         <EditorIndex Value="12"/>
     655        <EditorIndex Value="15"/>
    656656        <WindowIndex Value="0"/>
    657657        <TopLine Value="50"/>
    658658        <CursorPos X="35" Y="67"/>
    659         <UsageCount Value="12"/>
     659        <UsageCount Value="14"/>
    660660        <Loaded Value="True"/>
    661661      </Unit55>
    … …  
    666666        <ResourceBaseClass Value="Form"/>
    667667        <UnitName Value="UItemSelect"/>
    668         <EditorIndex Value="14"/>
     668        <EditorIndex Value="17"/>
    669669        <WindowIndex Value="0"/>
    670670        <TopLine Value="59"/>
    671671        <CursorPos X="26" Y="73"/>
    672         <UsageCount Value="23"/>
     672        <UsageCount Value="27"/>
    673673        <Loaded Value="True"/>
    674674        <LoadedDesigner Value="True"/>
    … …  
    682682        <TopLine Value="1207"/>
    683683        <CursorPos X="20" Y="1219"/>
    684         <UsageCount Value="12"/>
     684        <UsageCount Value="13"/>
    685685        <Loaded Value="True"/>
    686686      </Unit57>
    687687      <Unit58>
    688688        <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/include/customform.inc"/>
    689         <EditorIndex Value="15"/>
     689        <EditorIndex Value="18"/>
    690690        <WindowIndex Value="0"/>
    691691        <TopLine Value="945"/>
    692692        <CursorPos X="29" Y="950"/>
    693         <UsageCount Value="10"/>
     693        <UsageCount Value="12"/>
    694694        <Loaded Value="True"/>
    695695      </Unit58>
    … …  
    700700        <TopLine Value="549"/>
    701701        <CursorPos X="1" Y="561"/>
     702        <UsageCount Value="12"/>
     703        <Loaded Value="True"/>
     704      </Unit59>
     705      <Unit60>
     706        <Filename Value="H:/PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>
     707        <UnitName Value="USqlDatabase"/>
     708        <EditorIndex Value="4"/>
     709        <WindowIndex Value="0"/>
     710        <TopLine Value="446"/>
     711        <CursorPos X="58" Y="243"/>
    702712        <UsageCount Value="10"/>
    703713        <Loaded Value="True"/>
    704       </Unit59>
     714      </Unit60>
     715      <Unit61>
     716        <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/objpas/classes/classesh.inc"/>
     717        <EditorIndex Value="13"/>
     718        <WindowIndex Value="0"/>
     719        <TopLine Value="495"/>
     720        <CursorPos X="14" Y="510"/>
     721        <UsageCount Value="10"/>
     722        <Loaded Value="True"/>
     723      </Unit61>
     724      <Unit62>
     725        <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/include/control.inc"/>
     726        <EditorIndex Value="6"/>
     727        <WindowIndex Value="0"/>
     728        <TopLine Value="2774"/>
     729        <CursorPos X="1" Y="2786"/>
     730        <UsageCount Value="10"/>
     731        <Loaded Value="True"/>
     732      </Unit62>
    705733    </Units>
    706     <JumpHistory Count="29" HistoryIndex="28">
     734    <JumpHistory Count="30" HistoryIndex="29">
    707735      <Position1>
    708         <Filename Value="Application/UDataTypes.pas"/>
    709         <Caret Line="282" Column="1" TopLine="276"/>
     736        <Filename Value="Forms/UItemEdit.pas"/>
     737        <Caret Line="63" Column="1" TopLine="54"/>
    710738      </Position1>
    711739      <Position2>
    712         <Filename Value="Application/UDataTypes.pas"/>
    713         <Caret Line="283" Column="1" TopLine="276"/>
     740        <Filename Value="Forms/UItemEdit.pas"/>
     741        <Caret Line="60" Column="1" TopLine="54"/>
    714742      </Position2>
    715743      <Position3>
    716         <Filename Value="Application/UDataTypes.pas"/>
    717         <Caret Line="284" Column="1" TopLine="276"/>
     744        <Filename Value="Forms/UItemEdit.pas"/>
     745        <Caret Line="61" Column="1" TopLine="54"/>
    718746      </Position3>
    719747      <Position4>
    720         <Filename Value="Application/UDataTypes.pas"/>
    721         <Caret Line="286" Column="1" TopLine="276"/>
     748        <Filename Value="Forms/UItemEdit.pas"/>
     749        <Caret Line="63" Column="1" TopLine="54"/>
    722750      </Position4>
    723751      <Position5>
    724         <Filename Value="Application/UDataTypes.pas"/>
    725         <Caret Line="288" Column="1" TopLine="276"/>
     752        <Filename Value="Forms/UItemEdit.pas"/>
     753        <Caret Line="60" Column="1" TopLine="54"/>
    726754      </Position5>
    727755      <Position6>
    728         <Filename Value="Forms/UItemView.pas"/>
    729         <Caret Line="151" Column="1" TopLine="139"/>
     756        <Filename Value="Forms/UItemEdit.pas"/>
     757        <Caret Line="61" Column="1" TopLine="54"/>
    730758      </Position6>
    731759      <Position7>
    732         <Filename Value="Forms/UItemView.pas"/>
    733         <Caret Line="156" Column="1" TopLine="139"/>
     760        <Filename Value="Forms/UItemEdit.pas"/>
     761        <Caret Line="63" Column="1" TopLine="54"/>
    734762      </Position7>
    735763      <Position8>
    736         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    737         <Caret Line="132" Column="1" TopLine="120"/>
     764        <Filename Value="Forms/UItemEdit.pas"/>
     765        <Caret Line="60" Column="1" TopLine="54"/>
    738766      </Position8>
    739767      <Position9>
    740         <Filename Value="Forms/UItemView.pas"/>
    741         <Caret Line="120" Column="1" TopLine="108"/>
     768        <Filename Value="Forms/UItemEdit.pas"/>
     769        <Caret Line="61" Column="1" TopLine="54"/>
    742770      </Position9>
    743771      <Position10>
    744         <Filename Value="Forms/UItemAdd.pas"/>
    745         <Caret Line="132" Column="1" TopLine="114"/>
     772        <Filename Value="Forms/UItemEdit.pas"/>
     773        <Caret Line="63" Column="1" TopLine="54"/>
    746774      </Position10>
    747775      <Position11>
    748         <Filename Value="Forms/UItemSelect.pas"/>
    749         <Caret Line="91" Column="18" TopLine="68"/>
     776        <Filename Value="Forms/UItemEdit.pas"/>
     777        <Caret Line="60" Column="1" TopLine="54"/>
    750778      </Position11>
    751779      <Position12>
    752         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    753         <Caret Line="132" Column="1" TopLine="120"/>
     780        <Filename Value="Forms/UItemEdit.pas"/>
     781        <Caret Line="61" Column="1" TopLine="54"/>
    754782      </Position12>
    755783      <Position13>
    756         <Filename Value="Forms/UItemView.pas"/>
    757         <Caret Line="120" Column="1" TopLine="108"/>
     784        <Filename Value="Forms/UItemEdit.pas"/>
     785        <Caret Line="63" Column="1" TopLine="54"/>
    758786      </Position13>
    759787      <Position14>
    760         <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/include/customlistview.inc"/>
    761         <Caret Line="561" Column="1" TopLine="549"/>
     788        <Filename Value="Forms/UItemEdit.pas"/>
     789        <Caret Line="65" Column="5" TopLine="54"/>
    762790      </Position14>
    763791      <Position15>
    764         <Filename Value="Forms/UItemView.pas"/>
    765         <Caret Line="123" Column="65" TopLine="108"/>
     792        <Filename Value="Forms/UItemEdit.pas"/>
     793        <Caret Line="66" Column="1" TopLine="54"/>
    766794      </Position15>
    767795      <Position16>
    768         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    769         <Caret Line="132" Column="1" TopLine="120"/>
     796        <Filename Value="H:/PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>
     797        <Caret Line="244" Column="1" TopLine="232"/>
    770798      </Position16>
    771799      <Position17>
    772         <Filename Value="Forms/UItemSelect.pas"/>
    773         <Caret Line="73" Column="26" TopLine="59"/>
     800        <Filename Value="Forms/UItemEdit.pas"/>
     801        <Caret Line="60" Column="83" TopLine="54"/>
    774802      </Position17>
    775803      <Position18>
    776         <Filename Value="USystem.pas"/>
    777         <Caret Line="612" Column="32" TopLine="594"/>
     804        <Filename Value="Forms/UItemEdit.pas"/>
     805        <Caret Line="135" Column="22" TopLine="124"/>
    778806      </Position18>
    779807      <Position19>
    780         <Filename Value="USystem.pas"/>
    781         <Caret Line="215" Column="1" TopLine="200"/>
     808        <Filename Value="Application/UDataTypes.pas"/>
     809        <Caret Line="83" Column="69" TopLine="67"/>
    782810      </Position19>
    783811      <Position20>
    784         <Filename Value="USystem.pas"/>
    785         <Caret Line="216" Column="1" TopLine="200"/>
     812        <Filename Value="Forms/UMainForm.pas"/>
     813        <Caret Line="747" Column="24" TopLine="733"/>
    786814      </Position20>
    787815      <Position21>
    788816        <Filename Value="USystem.pas"/>
    789         <Caret Line="218" Column="1" TopLine="200"/>
     817        <Caret Line="600" Column="15" TopLine="595"/>
    790818      </Position21>
    791819      <Position22>
    792820        <Filename Value="USystem.pas"/>
    793         <Caret Line="219" Column="1" TopLine="200"/>
     821        <Caret Line="602" Column="18" TopLine="595"/>
    794822      </Position22>
    795823      <Position23>
    796824        <Filename Value="USystem.pas"/>
    797         <Caret Line="215" Column="1" TopLine="200"/>
     825        <Caret Line="607" Column="16" TopLine="595"/>
    798826      </Position23>
    799827      <Position24>
    800         <Filename Value="USystem.pas"/>
    801         <Caret Line="216" Column="1" TopLine="200"/>
     828        <Filename Value="Forms/UItemAdd.pas"/>
     829        <Caret Line="64" Column="24" TopLine="51"/>
    802830      </Position24>
    803831      <Position25>
    804         <Filename Value="USystem.pas"/>
    805         <Caret Line="218" Column="1" TopLine="200"/>
     832        <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/include/control.inc"/>
     833        <Caret Line="2786" Column="1" TopLine="2774"/>
    806834      </Position25>
    807835      <Position26>
    808         <Filename Value="USystem.pas"/>
    809         <Caret Line="210" Column="22" TopLine="200"/>
     836        <Filename Value="Forms/UItemAdd.pas"/>
     837        <Caret Line="65" Column="23" TopLine="51"/>
    810838      </Position26>
    811839      <Position27>
    812         <Filename Value="USystem.pas"/>
    813         <Caret Line="216" Column="1" TopLine="200"/>
     840        <Filename Value="Forms/UItemAdd.pas"/>
     841        <Caret Line="31" Column="1" TopLine="18"/>
    814842      </Position27>
    815843      <Position28>
    816         <Filename Value="USystem.pas"/>
    817         <Caret Line="218" Column="48" TopLine="200"/>
     844        <Filename Value="Forms/UItemAdd.pas"/>
     845        <Caret Line="84" Column="1" TopLine="72"/>
    818846      </Position28>
    819847      <Position29>
    820         <Filename Value="Forms/UImportStructureForm.pas"/>
    821         <Caret Line="164" Column="73" TopLine="152"/>
     848        <Filename Value="Forms/UItemAdd.pas"/>
     849        <Caret Line="89" Column="1" TopLine="77"/>
    822850      </Position29>
     851      <Position30>
     852        <Filename Value="Forms/UItemAdd.pas"/>
     853        <Caret Line="119" Column="1" TopLine="107"/>
     854      </Position30>
    823855    </JumpHistory>
    824856  </ProjectOptions>
Note: See TracChangeset for help on using the changeset viewer.