Changeset 31 for trunk


Ignore:
Timestamp:
Nov 24, 2011, 10:03:48 AM (13 years ago)
Author:
chronos
Message:
  • Modified: Item list is separated from MainForm as ItemListForm.
  • Modified: Now it is possible to open multiple forms for same operation as View, Edit, Add, List. Open forms are listed in main windows tab list.
Location:
trunk
Files:
3 added
14 edited

Legend:

Unmodified
Added
Removed

  • trunk/Application/UApplicationInfo.pas

    r29 r31  
    5050  Name := 'ChronIS';
    5151  Identification := 1;
    52   ReleaseDate := EncodeDate(2011, 11, 23);
     52  ReleaseDate := EncodeDate(2011, 11, 24);
    5353  MajorVersion := 0;
    5454  MinorVersion := 1;

  • trunk/Common/UPersistentForm.pas

    r2 r31  
    3232    try
    3333      RootKey := RegistryRootKey;
    34       OpenKey (RegistryKey + '\Forms\' + Form.Name, True);
     34      OpenKey(RegistryKey + '\Forms\' + Form.Name, True);
    3535
    3636      Form.Width := ReadIntegerWithDefault('Width', Form.Width);

  • trunk/Forms/UItemAdd.pas

    r22 r31  
    2828    { private declarations }
    2929  public
     30    SelectedObject: TChronisObject;
     31    SelectedItemId: Integer;
    3032    Report: TReport;
    3133  end;
    … …  
    5961    for I := 0 to Report.Columns.Count - 1 do
    6062    if not (TReportColumn(Report.Columns[I]).CustomType is TDataTypeRelationMany) then
    61     if TReportColumn(Report.Columns[I]).ColumnName <> MainForm.SelectedObject.PrimaryKey then begin
     63    if TReportColumn(Report.Columns[I]).ColumnName <> SelectedObject.PrimaryKey then begin
    6264      DataType := TReportColumn(Report.Columns[I]).CustomType;
    6365      Data.Add(TReportColumn(Report.Columns[I]).ColumnName,
    6466        DataType.GetControlValue(TWinControl(TReportColumn(Report.Columns[I]).Control)));
    6567    end;
    66     Database.Insert(MainForm.SelectedObject.Table, Data, MainForm.SelectedObject.Schema);
     68    Database.Insert(SelectedObject.Table, Data, SelectedObject.Schema);
    6769  finally
    6870    Data.Free;
    6971  end;
    70   MainForm.LoadItemList;
     72  //MainForm.LoadItemList;
    7173  Close;
    7274end;
    … …  
    8284  Report := TReport.Create;
    8385  Report.Base := Core.System;
     86  SelectedObject := TChronisObject.Create;
     87  SelectedObject.Base := Core.System;
    8488end;
    8589
    … …  
    8791begin
    8892  Report.Free;
     93  SelectedObject.Free;
    8994end;
    9095
    … …  
    113118    Panel1.Controls[I].Free;
    114119
    115   Report.Load(MainForm.SelectedObject, MainForm.SelectedObject.PrimaryKey + ' = ' +
    116     IntToStr(MainForm.SelectedItem));
     120  Report.Load(SelectedObject, SelectedObject.PrimaryKey + ' = ' +
     121    IntToStr(SelectedItemId));
    117122
    118123  // Load column names

  • trunk/Forms/UItemEdit.lfm

    r30 r31  
    131131          Width = 67
    132132          Caption = 'Delete'
     133          Enabled = False
    133134          OnClick = ButtonDeleteClick
    134135          TabOrder = 1
    … …  
    140141          Width = 64
    141142          Caption = 'View'
     143          Enabled = False
    142144          OnClick = ButtonViewClick
    143145          TabOrder = 2
    … …  
    149151          Width = 62
    150152          Caption = 'Edit'
     153          Enabled = False
    151154          OnClick = ButtonEditClick
    152155          TabOrder = 3

  • trunk/Forms/UItemEdit.pas

    r30 r31  
    4646    procedure TabControl1Change(Sender: TObject);
    4747  private
    48     SelectedItem: Integer;
    4948    SubListObject: TChronisObject;
    5049    TabObjectList: TListInteger;
    … …  
    5251    procedure LoadSubList;
    5352  public
     53    SelectedObject: TChronisObject;
     54    SelectedItemId: Integer;
    5455    Report: TReport;
    5556    procedure BuildControls;
    … …  
    8889procedure TItemEditForm.ButtonAddClick(Sender: TObject);
    8990begin
    90   if Assigned(ListView1.Selected) then
    91     ItemAddForm.Show;
     91  ItemAddForm.Show;
    9292end;
    9393
    … …  
    9999  with TReportLine(Report[Item.Index]) do begin
    100100    Item.Caption := Items[0];
     101    Item.Data := Pointer(Id);
    101102    for I := 1 to Items.Count - 1 do
    102103    if not TReportColumn(Report.Columns[I]).VirtualItem then
    … …  
    127128    for I := 0 to Report.Columns.Count - 1 do
    128129    if not (TReportColumn(Report.Columns[I]).CustomType is TDataTypeRelationMany) then
    129     if TReportColumn(Report.Columns[I]).ColumnName <> MainForm.SelectedObject.PrimaryKey then begin
     130    if TReportColumn(Report.Columns[I]).ColumnName <> SelectedObject.PrimaryKey then begin
    130131      DataType := TReportColumn(Report.Columns[I]).CustomType;
    131132      Data.Add(TReportColumn(Report.Columns[I]).ColumnName,
    132133        DataType.GetControlValue(TWinControl(TReportColumn(Report.Columns[I]).Control)));
    133134    end;
    134     Database.Update(MainForm.SelectedObject.Table, Data,
    135       '`' + MainForm.SelectedObject.PrimaryKey + '` = ' + IntToStr(MainForm.SelectedItem), MainForm.SelectedObject.Schema);
     135    Database.Update(SelectedObject.Table, Data,
     136      '`' + SelectedObject.PrimaryKey + '` = ' + IntToStr(SelectedItemId), SelectedObject.Schema);
    136137  finally
    137138    Data.Free;
    138139  end;
    139   if (MainForm.SelectedObject.Table = ObjectGroupTable) or
    140   (MainForm.SelectedObject.Table = ObjectTable) then
     140  if (SelectedObject.Table = ObjectGroupTable) or
     141  (SelectedObject.Table = ObjectTable) then
    141142    MainForm.LoadTree;
    142   MainForm.LoadItemList;
     143  //MainForm.LoadItemList;
    143144  Close;
    144145end;
    … …  
    166167  TabDataTypeList.OwnsObjects := False;
    167168  TabControl1.Tabs.Clear;
     169  SelectedObject := TChronisObject.Create;
     170  SelectedObject.Base := Core.System;
    168171end;
    169172
    … …  
    174177  TabObjectList.Free;
    175178  TabDataTypeList.Free;
     179  SelectedObject.Free;
    176180end;
    177181
    … …  
    197201  LastTop := 8;
    198202  Column := 0;
    199   Report.Load(MainForm.SelectedObject, MainForm.SelectedObject.PrimaryKey + ' = ' +
    200     IntToStr(MainForm.SelectedItem));
     203  Report.Load(SelectedObject, SelectedObject.PrimaryKey + ' = ' +
     204    IntToStr(SelectedItemId));
    201205
    202206  // Clear previous controls on panel
    … …  
    215219        TabControl1.Tabs.Add(TReportColumn(Report.Columns[I]).Caption);
    216220        TabDataTypeList.Add(DataType);
    217         TabObjectList.Add(MainForm.SelectedItem);
     221        TabObjectList.Add(SelectedItemId);
    218222      end else begin
    219223        NewControl := TLabel.Create(Panel1);
    … …  
    270274  Selected: Boolean);
    271275begin
    272   if Assigned(ListView1.Selected) then
    273     SelectedItem := TReportLine(Report[ListView1.Selected.Index]).Id
    274     else SelectedItem := 0;
    275 
    276276  ButtonDelete.Enabled := Assigned(ListView1.Selected);
    277277  ButtonView.Enabled := Assigned(ListView1.Selected);

  • trunk/Forms/UItemView.pas

    r30 r31  
    4040    { private declarations }
    4141  public
     42    SelectedObject: TChronisObject;
     43    SelectedItemId: Integer;
    4244    Report: TReport;
    4345    procedure BuildControls;
    … …  
    7274  TabDataTypeList.OwnsObjects := False;
    7375  TabControl1.Tabs.Clear;
     76  SelectedObject := TChronisObject.Create;
     77  SelectedObject.Base := Core.System;
    7478end;
    7579
    … …  
    8084  TabObjectList.Free;
    8185  TabDataTypeList.Free;
     86  SelectedObject.Free;
    8287end;
    8388
    … …  
    98103
    99104procedure TItemViewForm.ButtonEditClick(Sender: TObject);
     105var
     106  NewItemEditForm: TItemEditForm;
    100107begin
    101108  Close;
    102   ItemEditForm.Show;
     109  NewItemEditForm := TItemEditForm.Create(nil);
     110  NewItemEditForm.SelectedObject.Assign(SelectedObject);
     111  NewItemEditForm.SelectedItemId := SelectedItemId;
     112  MainForm.AddTabForm(NewItemEditForm);
    103113end;
    104114
    … …  
    135145  LastTop := 8;
    136146  Column := 0;
    137   Report.Load(MainForm.SelectedObject, MainForm.SelectedObject.PrimaryKey + ' = ' +
    138     IntToStr(MainForm.SelectedItem));
     147  Report.Load(SelectedObject, SelectedObject.PrimaryKey + ' = ' +
     148    IntToStr(SelectedItemId));
    139149  for I := PanelControls.ControlCount - 1 downto 0 do
    140150    PanelControls.Controls[I].Free;
    … …  
    152162      TabControl1.Tabs.Add(TReportColumn(Report.Columns[I]).Caption);
    153163      TabDataTypeList.Add(DataType);
    154       TabObjectList.Add(MainForm.SelectedItem);
     164      TabObjectList.Add(SelectedItemId);
    155165    end else begin
    156166      NewControl := TLabel.Create(PanelControls);

  • trunk/Forms/UMainForm.lfm

    r30 r31  
    180180      TabOrder = 0
    181181      OnChange = TreeView1Change
     182      OnDblClick = TreeView1DblClick
    182183      Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
    183184    end
    … …  
    193194    ClientWidth = 451
    194195    TabOrder = 1
    195     object Label2: TLabel
    196       Left = 2
    197       Height = 14
    198       Top = 4
    199       Width = 43
    200       Caption = 'Reports:'
    201       ParentColor = False
    202     end
    203     object ListView1: TListView
    204       Left = 2
    205       Height = 371
    206       Top = 19
    207       Width = 447
    208       Anchors = [akTop, akLeft, akRight, akBottom]
    209       Columns = <>
    210       OwnerData = True
    211       PopupMenu = PopupMenuItem
    212       ReadOnly = True
    213       RowSelect = True
     196    object PageControl1: TPageControl
     197      Left = 0
     198      Height = 427
     199      Top = 0
     200      Width = 451
     201      Align = alClient
    214202      TabOrder = 0
    215       ViewStyle = vsReport
    216       OnData = ListView1Data
    217       OnDblClick = ListView1DblClick
    218       OnKeyPress = ListView1KeyPress
    219       OnResize = ListView1Resize
    220       OnSelectItem = ListView1SelectItem
    221     end
    222     object ButtonAdd: TButton
    223       Left = 3
    224       Height = 25
    225       Top = 398
    226       Width = 75
    227       Action = AItemAdd
    228       Anchors = [akLeft, akBottom]
    229       TabOrder = 1
    230     end
    231     object ButtonDelete: TButton
    232       Left = 83
    233       Height = 25
    234       Top = 398
    235       Width = 75
    236       Action = AItemDelete
    237       Anchors = [akLeft, akBottom]
    238       TabOrder = 2
    239     end
    240     object ButtonView: TButton
    241       Left = 163
    242       Height = 25
    243       Top = 398
    244       Width = 75
    245       Action = AItemView
    246       Anchors = [akLeft, akBottom]
    247       TabOrder = 3
    248     end
    249     object ButtonEdit: TButton
    250       Left = 243
    251       Height = 25
    252       Top = 398
    253       Width = 75
    254       Action = AItemEdit
    255       Anchors = [akLeft, akBottom]
    256       TabOrder = 4
    257203    end
    258204  end
    … …  
    267213    left = 360
    268214    top = 120
    269     object AItemDelete: TAction
    270       Category = 'Item'
    271       Caption = 'Delete'
    272       OnExecute = AItemDeleteExecute
    273       ShortCut = 16452
    274     end
    275     object AItemAdd: TAction
    276       Category = 'Item'
    277       Caption = 'Add'
    278       OnExecute = AItemAddExecute
    279       ShortCut = 16449
    280     end
    281     object AItemEdit: TAction
    282       Category = 'Item'
    283       Caption = 'Edit'
    284       OnExecute = AItemEditExecute
    285       ShortCut = 16453
    286     end
    287     object AItemView: TAction
    288       Category = 'Item'
    289       Caption = 'View'
    290       OnExecute = AItemViewExecute
    291       ShortCut = 16470
    292     end
    293215    object AObjectGroupDelete: TAction
    294216      Category = 'ObjectGroup'
    … …  
    356278    top = 120
    357279    object MenuItem1: TMenuItem
    358       Action = AItemView
     280      Caption = 'View'
    359281      Default = True
    360       OnClick = AItemViewExecute
     282      ShortCut = 16470
    361283    end
    362284    object MenuItem4: TMenuItem
    363       Action = AItemEdit
    364       OnClick = AItemEditExecute
     285      Caption = 'Edit'
     286      ShortCut = 16453
    365287    end
    366288    object MenuItem3: TMenuItem
    367       Action = AItemDelete
     289      Caption = 'Delete'
     290      ShortCut = 16452
    368291    end
    369292    object MenuItem2: TMenuItem
    370       Action = AItemAdd
    371       OnClick = AItemAddExecute
     293      Caption = 'Add'
     294      ShortCut = 16449
    372295    end
    373296  end

  • trunk/Forms/UMainForm.lrt

    r30 r31  
    11TMAINFORM.CAPTION=ChronIS
    22TMAINFORM.LABEL1.CAPTION=Groups:
    3 TMAINFORM.LABEL2.CAPTION=Reports:
    4 TMAINFORM.AITEMDELETE.CAPTION=Delete
    5 TMAINFORM.AITEMADD.CAPTION=Add
    6 TMAINFORM.AITEMEDIT.CAPTION=Edit
    7 TMAINFORM.AITEMVIEW.CAPTION=View
    83TMAINFORM.AOBJECTGROUPDELETE.CAPTION=Delete
    94TMAINFORM.AOBJECTGROUPADDGROUP.CAPTION=Add group
    … …  
    2116TMAINFORM.AABOUT.CAPTION=About
    2217TMAINFORM.ADISCONNECT.CAPTION=Disconnect
     18TMAINFORM.MENUITEM1.CAPTION=View
     19TMAINFORM.MENUITEM4.CAPTION=Edit
     20TMAINFORM.MENUITEM3.CAPTION=Delete
     21TMAINFORM.MENUITEM2.CAPTION=Add
    2322TMAINFORM.MENUITEM13.CAPTION=Server
    2423TMAINFORM.MENUITEM11.CAPTION=View

  • trunk/Forms/UMainForm.pas

    r30 r31  
    2929    AObjectGroupAddGroup: TAction;
    3030    AObjectGroupDelete: TAction;
    31     AItemView: TAction;
    32     AItemEdit: TAction;
    33     AItemAdd: TAction;
    34     AItemDelete: TAction;
    3531    ActionListItem: TActionList;
    36     ButtonEdit: TButton;
    37     ButtonView: TButton;
    38     ButtonAdd: TButton;
    39     ButtonDelete: TButton;
    4032    ImageListActions: TImageList;
    4133    Label1: TLabel;
    42     Label2: TLabel;
    43     ListView1: TListView;
    4434    MainMenu1: TMainMenu;
    4535    MenuItem1: TMenuItem;
    … …  
    6454    MenuItem8: TMenuItem;
    6555    MenuItem9: TMenuItem;
     56    PageControl1: TPageControl;
    6657    Panel1: TPanel;
    6758    Panel2: TPanel;
    … …  
    7667    procedure AExitExecute(Sender: TObject);
    7768    procedure AImportStructureExecute(Sender: TObject);
    78     procedure AItemAddExecute(Sender: TObject);
    79     procedure AItemDeleteExecute(Sender: TObject);
    80     procedure AItemEditExecute(Sender: TObject);
    81     procedure AItemViewExecute(Sender: TObject);
    8269    procedure AObjectEditExecute(Sender: TObject);
    8370    procedure AObjectGroupAddGroupExecute(Sender: TObject);
    … …  
    8572    procedure ASettingsExecute(Sender: TObject);
    8673    procedure AToggleFullscreenExecute(Sender: TObject);
    87     procedure ButtonAddClick(Sender: TObject);
    8874    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    8975    procedure FormCreate(Sender: TObject);
    9076    procedure FormDestroy(Sender: TObject);
    9177    procedure FormShow(Sender: TObject);
    92     procedure ListView1Data(Sender: TObject; Item: TListItem);
    93     procedure ListView1DblClick(Sender: TObject);
    94     procedure ListView1KeyPress(Sender: TObject; var Key: char);
    95     procedure ListView1Resize(Sender: TObject);
    96     procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
    97       Selected: Boolean);
    9878    procedure MenuItem17Click(Sender: TObject);
    9979    procedure MenuItem19Click(Sender: TObject);
    10080    procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
     81    procedure TreeView1DblClick(Sender: TObject);
    10182  private
    10283    OriginalBounds: TRect;
    … …  
    10687    procedure SaveToRegistry;
    10788  public
    108     SelectedObjectId: Integer;
    109     SelectedObject: TChronisObject;
    110     SelectedItem: Integer;
    11189    PersistentForm: TPersistentForm;
    11290    TreeState: TTreeState;
    11391    Report: TReport;
     92    TabForms: TListObject; // TListObject<TForm>
    11493    procedure UpdateInterface;
    11594    procedure LoadTree;
    116     procedure LoadItemList;
    117   end; 
     95    procedure AddTabForm(Form: TForm);
     96  end;
    11897
    11998var
    … …  
    132111uses
    133112  UItemView, UItemEdit, UItemAdd, ULoginForm, USettingForm, UApplicationInfo,
    134   UCore, UImportStructureForm, UAboutForm, ULoginProfileForm, UChronisClientDirect;
     113  UCore, UImportStructureForm, UAboutForm, ULoginProfileForm, UChronisClientDirect,
     114  UItemList;
    135115
    136116{$R *.lfm}
    … …  
    175155procedure TMainForm.FormCreate(Sender: TObject);
    176156begin
     157  TabForms := TListObject.Create;
     158  TabForms.OwnsObjects := False;
    177159  TreeState := TTreeState.Create;
    178160  Report := TReport.Create;
    179161  Report.Base := Core.System;
    180   SelectedObject := TChronisObject.Create;
    181   SelectedObject.Base := Core.System;
    182162  PersistentForm := TPersistentForm.Create;
    183163  PersistentForm.RegistryKey := Core.RegistryKey;
    … …  
    189169  TreeState.Free;
    190170  PersistentForm.Free;
     171  TabForms.Free;
    191172end;
    192173
    193174procedure TMainForm.FormClose(Sender: TObject; var CloseAction: TCloseAction);
    194175begin
     176  ADisconnect.Execute;
    195177  PersistentForm.Save(Self);
    196178  SaveToRegistry;
    197179end;
    198180
    199 procedure TMainForm.ButtonAddClick(Sender: TObject);
    200 begin
    201 
    202 end;
    203 
    204 procedure TMainForm.AItemViewExecute(Sender: TObject);
    205 begin
    206   if Assigned(ListView1.Selected) then
    207     ItemViewForm.Show;
    208 end;
    209 
    210181procedure TMainForm.AObjectEditExecute(Sender: TObject);
    211182begin
    212   if Assigned(TreeView1.Selected) then begin
     183(*  if Assigned(TreeView1.Selected) then begin
    213184    SelectedObjectId := 9;
    214185    SelectedItem := Integer(TreeView1.Selected.Data);
    215186    ItemEditForm.Show;
    216   end;
     187  end;*)
    217188end;
    218189
    … …  
    224195procedure TMainForm.AObjectGroupEditExecute(Sender: TObject);
    225196begin
    226   if Assigned(TreeView1.Selected) then begin
     197(*  if Assigned(TreeView1.Selected) then begin
    227198    SelectedObjectId := 8;
    228199    SelectedItem := Integer(TreeView1.Selected.Data);
    229200    ItemEditForm.Show;
    230   end;
     201  end;*)
    231202end;
    232203
    … …  
    263234end;
    264235
    265 procedure TMainForm.AItemEditExecute(Sender: TObject);
    266 begin
    267   ItemEditForm.Show;
    268 end;
    269 
    270236procedure TMainForm.AExitExecute(Sender: TObject);
    271237begin
    … …  
    276242begin
    277243  ImportStructureForm.ShowModal;
    278 end;
    279 
    280 procedure TMainForm.AItemAddExecute(Sender: TObject);
    281 begin
    282   ItemAddForm.ShowModal;
    283 end;
    284 
    285 procedure TMainForm.AItemDeleteExecute(Sender: TObject);
    286 begin
    287   if MessageDlg(SItemDeletion, SReallyWantToDelete, mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin
    288 
    289   end;
    290244end;
    291245
    … …  
    315269procedure TMainForm.ADisconnectExecute(Sender: TObject);
    316270begin
    317   Core.System.Database.Disconnect;
    318   TreeView1.Items.Clear;
    319   ListView1.Items.Clear;
    320   Core.System.Types.Clear;
    321   FreeAndNil(Core.Client);
     271  if Core.System.Database.Connected then begin
     272    Core.System.Database.Disconnect;
     273    TreeView1.Items.Clear;
     274    Core.System.Types.Clear;
     275    FreeAndNil(Core.Client);
     276  end;
    322277end;
    323278
    324279procedure TMainForm.AAboutExecute(Sender: TObject);
    325280begin
    326   AboutForm.ShowModal;
     281  try
     282    AboutForm := TAboutForm.Create(nil);
     283    AboutForm.ShowModal;
     284  finally
     285    FreeAndNil(AboutForm);
     286  end;
    327287end;
    328288
    … …  
    332292  LoadFromRegistry;
    333293  AConnect.Execute;
    334 end;
    335 
    336 procedure TMainForm.ListView1Data(Sender: TObject; Item: TListItem);
    337 var
    338   I: Integer;
    339 begin
    340   if Item.Index < Report.Count then
    341   with TReportLine(Report[Item.Index]) do begin
    342     Item.Caption := Items[0];
    343     for I := 1 to Report.Columns.Count - 1 do
    344     if not TReportColumn(Report.Columns[I]).VirtualItem then begin
    345       Item.SubItems.Add(Items[I]);
    346     end;
    347   end;
    348 end;
    349 
    350 procedure TMainForm.ListView1DblClick(Sender: TObject);
    351 begin
    352   AItemViewExecute(Self);
    353 end;
    354 
    355 procedure TMainForm.ListView1KeyPress(Sender: TObject; var Key: char);
    356 begin
    357   if Key = #13 then AItemViewExecute(Self);
    358 end;
    359 
    360 procedure TMainForm.ListView1Resize(Sender: TObject);
    361 var
    362   I: Integer;
    363 begin
    364   for I := 0 to ListView1.Columns.Count - 1 do
    365     ListView1.Columns[I].Width := ListView1.Width div ListView1.Columns.Count;
    366 end;
    367 
    368 procedure TMainForm.ListView1SelectItem(Sender: TObject; Item: TListItem;
    369   Selected: Boolean);
    370 begin
    371   if Assigned(ListView1.Selected) then
    372     SelectedItem := TReportLine(Report[ListView1.Selected.Index]).Id
    373     else SelectedItem := 0;
    374 
    375   ButtonDelete.Enabled := Assigned(ListView1.Selected);
    376   ButtonView.Enabled := Assigned(ListView1.Selected);
    377   ButtonEdit.Enabled := Assigned(ListView1.Selected);
    378294end;
    379295
    … …  
    395311    if TreeView1.Selected.ImageIndex = 0 then begin
    396312      TreeView1.PopupMenu := PopupMenuObjectGroup;
    397       ListView1.Visible := False;
     313      PageControl1.Visible := False;
    398314    end;
    399315    if TreeView1.Selected.ImageIndex = 1 then begin
    400316      TreeView1.PopupMenu := PopupMenuObject;
    401       LoadItemList;
    402     end;
     317      //LoadItemList;
     318    end;
     319  end;
     320end;
     321
     322procedure TMainForm.TreeView1DblClick(Sender: TObject);
     323var
     324  NewItemListForm: TItemListForm;
     325begin
     326  if Assigned(TreeView1.Selected) then begin
     327    NewItemListForm := TItemListForm.Create(Self);
     328    NewItemListForm.SelectedObject.Id := Integer(TreeView1.Selected.Data);
     329    AddTabForm(NewItemListForm);
    403330  end;
    404331end;
    … …  
    448375end;
    449376
    450 procedure TMainForm.LoadItemList;
     377procedure TMainForm.AddTabForm(Form: TForm);
    451378var
    452   NewColumn: TListColumn;
    453   I: Integer;
    454 begin
    455   SelectedObjectId := 0;
    456   if Assigned(TreeView1.Selected) then
    457   with ListView1 do begin
    458     Visible := True;
    459     SelectedObject.Load(Integer(TreeView1.Selected.Data));
    460     Report.Load(SelectedObject);
    461 
    462     Report.FillListColumns(Columns);
    463     Items.Count := Report.Count;
    464     Refresh;
    465   end;
    466   ListView1Resize(Self);
    467   ListView1SelectItem(Self, nil, False);
     379  NewTabSheet: TTabSheet;
     380begin
     381  TabForms.Add(Form);
     382  NewTabSheet := PageControl1.AddTabSheet;
     383  NewTabSheet.DockSite := True;
     384  NewTabSheet.UseDockManager := True;
     385  NewTabSheet.Caption := Form.Caption;
     386  Form.DragKind := dkDock;
     387  Form.DragMode := dmAutomatic;
     388  Form.Show;
     389  Form.ManualDock(NewTabSheet);
     390  PageControl1.TabIndex := PageControl1.PageCount - 1;
    468391end;
    469392

  • trunk/Languages/chronis.cs.po

    r30 r31  
    9898msgstr "Upravit položku"
    9999
     100#: TITEMLISTFORM.ACLOSE.CAPTION
     101msgctxt "TITEMLISTFORM.ACLOSE.CAPTION"
     102msgid "Close"
     103msgstr "Zavřít"
     104
     105#: TITEMLISTFORM.AITEMADD.CAPTION
     106msgctxt "TITEMLISTFORM.AITEMADD.CAPTION"
     107msgid "Add"
     108msgstr "Přidat"
     109
     110#: TITEMLISTFORM.AITEMDELETE.CAPTION
     111msgctxt "TITEMLISTFORM.AITEMDELETE.CAPTION"
     112msgid "Delete"
     113msgstr "Odstranit"
     114
     115#: TITEMLISTFORM.AITEMEDIT.CAPTION
     116msgctxt "TITEMLISTFORM.AITEMEDIT.CAPTION"
     117msgid "Edit"
     118msgstr "Upravit"
     119
     120#: TITEMLISTFORM.AITEMVIEW.CAPTION
     121msgctxt "TITEMLISTFORM.AITEMVIEW.CAPTION"
     122msgid "View"
     123msgstr "Zobrazení"
     124
     125#: TITEMLISTFORM.CAPTION
     126msgid "Item list"
     127msgstr ""
     128
    100129#: TITEMSELECTFORM.BUTTONCANCEL.CAPTION
    101130msgctxt "TITEMSELECTFORM.BUTTONCANCEL.CAPTION"
    … …  
    234263msgstr "Importovat strukturu..."
    235264
    236 #: TMAINFORM.AITEMADD.CAPTION
    237 #| msgid "Přidat"
    238 msgctxt "TMAINFORM.AITEMADD.CAPTION"
    239 msgid "Add"
    240 msgstr "Přidat"
    241 
    242 #: TMAINFORM.AITEMDELETE.CAPTION
    243 #| msgid "Smazat"
    244 msgctxt "TMAINFORM.AITEMDELETE.CAPTION"
    245 msgid "Delete"
    246 msgstr "Smazat"
    247 
    248 #: TMAINFORM.AITEMEDIT.CAPTION
    249 #| msgid "Upravit"
    250 msgctxt "TMAINFORM.AITEMEDIT.CAPTION"
    251 msgid "Edit"
    252 msgstr "Upravit"
    253 
    254 #: TMAINFORM.AITEMVIEW.CAPTION
    255 #| msgid "Zobrazit"
    256 msgctxt "TMAINFORM.AITEMVIEW.CAPTION"
    257 msgid "View"
    258 msgstr "Zobrazit"
    259 
    260265#: TMAINFORM.AOBJECTDELETE.CAPTION
    261266#| msgid "Odstranit"
    … …  
    317322msgstr "Skupiny:"
    318323
    319 #: TMAINFORM.LABEL2.CAPTION
    320 #| msgid "Výpisy:"
    321 msgid "Reports:"
    322 msgstr "Výpisy:"
     324#: TMAINFORM.MENUITEM1.CAPTION
     325msgctxt "TMAINFORM.MENUITEM1.CAPTION"
     326msgid "View"
     327msgstr "Zobrazení"
    323328
    324329#: TMAINFORM.MENUITEM11.CAPTION
    … …  
    339344msgstr "Administrace"
    340345
     346#: TMAINFORM.MENUITEM2.CAPTION
     347msgctxt "TMAINFORM.MENUITEM2.CAPTION"
     348msgid "Add"
     349msgstr "Přidat"
     350
     351#: TMAINFORM.MENUITEM3.CAPTION
     352msgctxt "TMAINFORM.MENUITEM3.CAPTION"
     353msgid "Delete"
     354msgstr "Smazat"
     355
     356#: TMAINFORM.MENUITEM4.CAPTION
     357msgctxt "TMAINFORM.MENUITEM4.CAPTION"
     358msgid "Edit"
     359msgstr "Upravit"
     360
    341361#: TSETTINGFORM.BUTTONCANCEL.CAPTION
    342362msgctxt "TSETTINGFORM.BUTTONCANCEL.CAPTION"

  • trunk/Languages/chronis.po

    r30 r31  
    8686msgstr ""
    8787
     88#: TITEMLISTFORM.ACLOSE.CAPTION
     89msgctxt "TITEMLISTFORM.ACLOSE.CAPTION"
     90msgid "Close"
     91msgstr ""
     92
     93#: TITEMLISTFORM.AITEMADD.CAPTION
     94msgctxt "TITEMLISTFORM.AITEMADD.CAPTION"
     95msgid "Add"
     96msgstr ""
     97
     98#: TITEMLISTFORM.AITEMDELETE.CAPTION
     99msgctxt "TITEMLISTFORM.AITEMDELETE.CAPTION"
     100msgid "Delete"
     101msgstr ""
     102
     103#: TITEMLISTFORM.AITEMEDIT.CAPTION
     104msgctxt "TITEMLISTFORM.AITEMEDIT.CAPTION"
     105msgid "Edit"
     106msgstr ""
     107
     108#: TITEMLISTFORM.AITEMVIEW.CAPTION
     109msgctxt "TITEMLISTFORM.AITEMVIEW.CAPTION"
     110msgid "View"
     111msgstr ""
     112
     113#: TITEMLISTFORM.CAPTION
     114msgid "Item list"
     115msgstr ""
     116
    88117#: TITEMSELECTFORM.BUTTONCANCEL.CAPTION
    89118msgctxt "TITEMSELECTFORM.BUTTONCANCEL.CAPTION"
    … …  
    220249msgstr ""
    221250
    222 #: TMAINFORM.AITEMADD.CAPTION
    223 msgctxt "TMAINFORM.AITEMADD.CAPTION"
    224 msgid "Add"
    225 msgstr ""
    226 
    227 #: TMAINFORM.AITEMDELETE.CAPTION
    228 msgctxt "TMAINFORM.AITEMDELETE.CAPTION"
    229 msgid "Delete"
    230 msgstr ""
    231 
    232 #: TMAINFORM.AITEMEDIT.CAPTION
    233 msgctxt "TMAINFORM.AITEMEDIT.CAPTION"
    234 msgid "Edit"
    235 msgstr ""
    236 
    237 #: TMAINFORM.AITEMVIEW.CAPTION
    238 msgctxt "TMAINFORM.AITEMVIEW.CAPTION"
    239 msgid "View"
    240 msgstr ""
    241 
    242251#: TMAINFORM.AOBJECTDELETE.CAPTION
    243252msgctxt "TMAINFORM.AOBJECTDELETE.CAPTION"
    … …  
    291300msgstr ""
    292301
    293 #: TMAINFORM.LABEL2.CAPTION
    294 msgid "Reports:"
     302#: TMAINFORM.MENUITEM1.CAPTION
     303msgctxt "TMAINFORM.MENUITEM1.CAPTION"
     304msgid "View"
    295305msgstr ""
    296306
    … …  
    312322msgstr ""
    313323
     324#: TMAINFORM.MENUITEM2.CAPTION
     325msgctxt "TMAINFORM.MENUITEM2.CAPTION"
     326msgid "Add"
     327msgstr ""
     328
     329#: TMAINFORM.MENUITEM3.CAPTION
     330msgctxt "TMAINFORM.MENUITEM3.CAPTION"
     331msgid "Delete"
     332msgstr ""
     333
     334#: TMAINFORM.MENUITEM4.CAPTION
     335msgctxt "TMAINFORM.MENUITEM4.CAPTION"
     336msgid "Edit"
     337msgstr ""
     338
    314339#: TSETTINGFORM.BUTTONCANCEL.CAPTION
    315340msgctxt "TSETTINGFORM.BUTTONCANCEL.CAPTION"

  • trunk/USystem.pas

    r29 r31  
    8282    Base: TChronisBase;
    8383    procedure Load(ObjectId: Integer);
     84    procedure Assign(Source: TChronisObject);
    8485  end;
    8586
    … …  
    719720end;
    720721
     722procedure TChronisObject.Assign(Source: TChronisObject);
     723begin
     724  Id := Source.Id;
     725  Table := Source.Table;
     726  Schema := Source.Schema;
     727  Name := Source.Name;
     728  Base := Source.Base;
     729  GroupId := Source.GroupId;
     730  PrimaryKey := Source.PrimaryKey;
     731end;
     732
    721733end.
    722734

  • trunk/chronis.lpi

    r30 r31  
    105105      </Item6>
    106106    </RequiredPackages>
    107     <Units Count="54">
     107    <Units Count="56">
    108108      <Unit0>
    109109        <Filename Value="chronis.lpr"/>
    110110        <IsPartOfProject Value="True"/>
    111111        <UnitName Value="chronis"/>
    112         <EditorIndex Value="8"/>
    113         <WindowIndex Value="0"/>
    114         <TopLine Value="14"/>
    115         <CursorPos X="1" Y="24"/>
     112        <WindowIndex Value="0"/>
     113        <TopLine Value="2"/>
     114        <CursorPos X="20" Y="17"/>
    116115        <UsageCount Value="274"/>
    117         <Loaded Value="True"/>
    118116        <DefaultSyntaxHighlighter Value="Delphi"/>
    119117      </Unit0>
    … …  
    124122        <TopLine Value="330"/>
    125123        <CursorPos X="1" Y="347"/>
    126         <UsageCount Value="27"/>
     124        <UsageCount Value="26"/>
    127125        <DefaultSyntaxHighlighter Value="Delphi"/>
    128126      </Unit1>
    … …  
    136134        <TopLine Value="118"/>
    137135        <CursorPos X="25" Y="144"/>
    138         <UsageCount Value="81"/>
     136        <UsageCount Value="80"/>
    139137        <DefaultSyntaxHighlighter Value="Delphi"/>
    140138      </Unit2>
    … …  
    148146        <TopLine Value="1"/>
    149147        <CursorPos X="24" Y="14"/>
    150         <UsageCount Value="81"/>
     148        <UsageCount Value="80"/>
    151149        <DefaultSyntaxHighlighter Value="Delphi"/>
    152150      </Unit3>
    … …  
    155153        <IsPartOfProject Value="True"/>
    156154        <UnitName Value="UPersistentForm"/>
    157         <WindowIndex Value="0"/>
    158         <TopLine Value="55"/>
    159         <CursorPos X="3" Y="84"/>
     155        <IsVisibleTab Value="True"/>
     156        <EditorIndex Value="5"/>
     157        <WindowIndex Value="0"/>
     158        <TopLine Value="21"/>
     159        <CursorPos X="14" Y="34"/>
    160160        <UsageCount Value="264"/>
     161        <Loaded Value="True"/>
    161162        <DefaultSyntaxHighlighter Value="Delphi"/>
    162163      </Unit4>
    … …  
    167168        <TopLine Value="58"/>
    168169        <CursorPos X="73" Y="232"/>
    169         <UsageCount Value="247"/>
     170        <UsageCount Value="246"/>
    170171        <DefaultSyntaxHighlighter Value="Delphi"/>
    171172      </Unit5>
    … …  
    188189        <EditorIndex Value="0"/>
    189190        <WindowIndex Value="0"/>
    190         <TopLine Value="99"/>
    191         <CursorPos X="1" Y="101"/>
     191        <TopLine Value="104"/>
     192        <CursorPos X="20" Y="112"/>
    192193        <UsageCount Value="327"/>
    193194        <Loaded Value="True"/>
    … …  
    201202        <ResourceBaseClass Value="Form"/>
    202203        <UnitName Value="UItemEdit"/>
    203         <IsVisibleTab Value="True"/>
    204204        <EditorIndex Value="1"/>
    205205        <WindowIndex Value="0"/>
    206         <TopLine Value="263"/>
    207         <CursorPos X="9" Y="278"/>
     206        <TopLine Value="27"/>
     207        <CursorPos X="15" Y="40"/>
    208208        <UsageCount Value="318"/>
    209209        <Loaded Value="True"/>
    … …  
    218218        <ResourceBaseClass Value="Form"/>
    219219        <UnitName Value="ULoginForm"/>
    220         <EditorIndex Value="7"/>
     220        <EditorIndex Value="6"/>
    221221        <WindowIndex Value="0"/>
    222222        <TopLine Value="43"/>
    … …  
    234234        <ResourceBaseClass Value="Form"/>
    235235        <UnitName Value="UMainForm"/>
    236         <EditorIndex Value="6"/>
    237         <WindowIndex Value="0"/>
    238         <TopLine Value="204"/>
    239         <CursorPos X="1" Y="208"/>
     236        <EditorIndex Value="3"/>
     237        <WindowIndex Value="0"/>
     238        <TopLine Value="369"/>
     239        <CursorPos X="21" Y="389"/>
    240240        <UsageCount Value="317"/>
    241241        <Loaded Value="True"/>
    … …  
    259259        <ResourceBaseClass Value="Form"/>
    260260        <UnitName Value="UItemAdd"/>
    261         <EditorIndex Value="5"/>
    262         <WindowIndex Value="0"/>
    263         <TopLine Value="124"/>
    264         <CursorPos X="8" Y="142"/>
     261        <EditorIndex Value="2"/>
     262        <WindowIndex Value="0"/>
     263        <TopLine Value="14"/>
     264        <CursorPos X="29" Y="31"/>
    265265        <UsageCount Value="313"/>
    266266        <Loaded Value="True"/>
    … …  
    272272        <IsPartOfProject Value="True"/>
    273273        <UnitName Value="USystem"/>
    274         <EditorIndex Value="14"/>
    275         <WindowIndex Value="0"/>
    276         <TopLine Value="242"/>
    277         <CursorPos X="51" Y="248"/>
     274        <EditorIndex Value="9"/>
     275        <WindowIndex Value="0"/>
     276        <TopLine Value="70"/>
     277        <CursorPos X="9" Y="91"/>
    278278        <UsageCount Value="200"/>
    279279        <Loaded Value="True"/>
    … …  
    286286        <ResourceBaseClass Value="DataModule"/>
    287287        <UnitName Value="UCore"/>
    288         <EditorIndex Value="13"/>
     288        <EditorIndex Value="8"/>
    289289        <WindowIndex Value="0"/>
    290290        <TopLine Value="42"/>
    … …  
    301301        <ResourceBaseClass Value="Form"/>
    302302        <UnitName Value="USettingForm"/>
    303         <EditorIndex Value="4"/>
    304303        <WindowIndex Value="0"/>
    305304        <TopLine Value="41"/>
    306305        <CursorPos X="43" Y="52"/>
    307306        <UsageCount Value="229"/>
    308         <Loaded Value="True"/>
    309307        <DefaultSyntaxHighlighter Value="Delphi"/>
    310308      </Unit15>
    … …  
    325323        <TopLine Value="487"/>
    326324        <CursorPos X="44" Y="500"/>
    327         <UsageCount Value="11"/>
    328         <DefaultSyntaxHighlighter Value="Delphi"/>
     325        <UsageCount Value="10"/>
    329326      </Unit17>
    330327      <Unit18>
    … …  
    332329        <UnitName Value="Controls"/>
    333330        <WindowIndex Value="0"/>
    334         <TopLine Value="1661"/>
    335         <CursorPos X="24" Y="1673"/>
     331        <TopLine Value="1241"/>
     332        <CursorPos X="14" Y="1254"/>
    336333        <UsageCount Value="11"/>
    337         <DefaultSyntaxHighlighter Value="Delphi"/>
    338334      </Unit18>
    339335      <Unit19>
    … …  
    341337        <IsPartOfProject Value="True"/>
    342338        <UnitName Value="UDataTypes"/>
    343         <EditorIndex Value="15"/>
     339        <EditorIndex Value="11"/>
    344340        <WindowIndex Value="0"/>
    345341        <TopLine Value="5"/>
    … …  
    355351        <TopLine Value="1446"/>
    356352        <CursorPos X="26" Y="1458"/>
    357         <UsageCount Value="2"/>
    358         <DefaultSyntaxHighlighter Value="Delphi"/>
     353        <UsageCount Value="1"/>
    359354      </Unit20>
    360355      <Unit21>
    … …  
    363358        <TopLine Value="550"/>
    364359        <CursorPos X="1" Y="561"/>
    365         <UsageCount Value="13"/>
    366         <DefaultSyntaxHighlighter Value="Delphi"/>
     360        <UsageCount Value="12"/>
    367361      </Unit21>
    368362      <Unit22>
    … …  
    375369        <TopLine Value="149"/>
    376370        <CursorPos X="44" Y="164"/>
    377         <UsageCount Value="148"/>
     371        <UsageCount Value="151"/>
    378372        <DefaultSyntaxHighlighter Value="Delphi"/>
    379373      </Unit22>
    … …  
    383377        <TopLine Value="51"/>
    384378        <CursorPos X="1" Y="63"/>
    385         <UsageCount Value="25"/>
     379        <UsageCount Value="24"/>
    386380        <DefaultSyntaxHighlighter Value="Delphi"/>
    387381      </Unit23>
    … …  
    389383        <Filename Value="../../../Lazarus/0.9.31_2.5.1/lcl/include/control.inc"/>
    390384        <WindowIndex Value="0"/>
    391         <TopLine Value="2363"/>
    392         <CursorPos X="1" Y="2376"/>
     385        <TopLine Value="2393"/>
     386        <CursorPos X="1" Y="2406"/>
    393387        <UsageCount Value="25"/>
    394388      </Unit24>
    … …  
    398392        <TopLine Value="286"/>
    399393        <CursorPos X="3" Y="298"/>
    400         <UsageCount Value="25"/>
    401         <DefaultSyntaxHighlighter Value="Delphi"/>
     394        <UsageCount Value="24"/>
    402395      </Unit25>
    403396      <Unit26>
    … …  
    406399        <TopLine Value="460"/>
    407400        <CursorPos X="10" Y="427"/>
    408         <UsageCount Value="25"/>
    409         <DefaultSyntaxHighlighter Value="Delphi"/>
     401        <UsageCount Value="24"/>
    410402      </Unit26>
    411403      <Unit27>
    … …  
    414406        <TopLine Value="120"/>
    415407        <CursorPos X="1" Y="134"/>
    416         <UsageCount Value="5"/>
     408        <UsageCount Value="4"/>
    417409        <DefaultSyntaxHighlighter Value="Delphi"/>
    418410      </Unit27>
    … …  
    422414        <TopLine Value="1"/>
    423415        <CursorPos X="24" Y="4"/>
    424         <UsageCount Value="4"/>
     416        <UsageCount Value="3"/>
    425417        <DefaultSyntaxHighlighter Value="Delphi"/>
    426418      </Unit28>
    … …  
    431423        <TopLine Value="6"/>
    432424        <CursorPos X="26" Y="18"/>
    433         <UsageCount Value="3"/>
     425        <UsageCount Value="2"/>
    434426        <DefaultSyntaxHighlighter Value="Delphi"/>
    435427      </Unit29>
    … …  
    443435        <TopLine Value="40"/>
    444436        <CursorPos X="29" Y="54"/>
    445         <UsageCount Value="97"/>
     437        <UsageCount Value="100"/>
    446438        <DefaultSyntaxHighlighter Value="Delphi"/>
    447439      </Unit30>
    … …  
    452444        <TopLine Value="1207"/>
    453445        <CursorPos X="20" Y="1219"/>
    454         <UsageCount Value="32"/>
    455         <DefaultSyntaxHighlighter Value="Delphi"/>
     446        <UsageCount Value="31"/>
    456447      </Unit31>
    457448      <Unit32>
    458449        <Filename Value="../../../Lazarus/0.9.31_2.5.1/lcl/include/customform.inc"/>
    459         <EditorIndex Value="2"/>
    460         <WindowIndex Value="0"/>
    461         <TopLine Value="865"/>
    462         <CursorPos X="1" Y="878"/>
     450        <EditorIndex Value="10"/>
     451        <WindowIndex Value="0"/>
     452        <TopLine Value="2102"/>
     453        <CursorPos X="21" Y="2107"/>
    463454        <UsageCount Value="31"/>
    464455        <Loaded Value="True"/>
    … …  
    470461        <TopLine Value="446"/>
    471462        <CursorPos X="58" Y="243"/>
    472         <UsageCount Value="29"/>
     463        <UsageCount Value="28"/>
    473464        <DefaultSyntaxHighlighter Value="Delphi"/>
    474465      </Unit33>
    … …  
    478469        <TopLine Value="495"/>
    479470        <CursorPos X="14" Y="510"/>
    480         <UsageCount Value="29"/>
    481         <DefaultSyntaxHighlighter Value="Delphi"/>
     471        <UsageCount Value="28"/>
    482472      </Unit34>
    483473      <Unit35>
    … …  
    486476        <WindowIndex Value="0"/>
    487477        <TopLine Value="233"/>
    488         <CursorPos X="80" Y="254"/>
    489         <UsageCount Value="19"/>
     478        <CursorPos X="1" Y="246"/>
     479        <UsageCount Value="20"/>
    490480      </Unit35>
    491481      <Unit36>
    … …  
    495485        <ResourceBaseClass Value="Form"/>
    496486        <UnitName Value="ULoginProfileForm"/>
    497         <EditorIndex Value="3"/>
    498487        <WindowIndex Value="0"/>
    499488        <TopLine Value="175"/>
    500489        <CursorPos X="3" Y="183"/>
    501         <UsageCount Value="47"/>
    502         <Loaded Value="True"/>
     490        <UsageCount Value="50"/>
    503491        <DefaultSyntaxHighlighter Value="Delphi"/>
    504492      </Unit36>
    … …  
    508496        <TopLine Value="1"/>
    509497        <CursorPos X="24" Y="4"/>
    510         <UsageCount Value="18"/>
     498        <UsageCount Value="17"/>
    511499      </Unit37>
    512500      <Unit38>
    … …  
    516504        <TopLine Value="68"/>
    517505        <CursorPos X="14" Y="81"/>
    518         <UsageCount Value="11"/>
    519         <DefaultSyntaxHighlighter Value="Delphi"/>
     506        <UsageCount Value="10"/>
    520507      </Unit38>
    521508      <Unit39>
    … …  
    524511        <TopLine Value="239"/>
    525512        <CursorPos X="3" Y="245"/>
    526         <UsageCount Value="11"/>
    527         <DefaultSyntaxHighlighter Value="Delphi"/>
     513        <UsageCount Value="10"/>
    528514      </Unit39>
    529515      <Unit40>
    … …  
    532518        <TopLine Value="104"/>
    533519        <CursorPos X="23" Y="112"/>
    534         <UsageCount Value="8"/>
    535         <DefaultSyntaxHighlighter Value="Delphi"/>
     520        <UsageCount Value="7"/>
    536521      </Unit40>
    537522      <Unit41>
    … …  
    544529        <WindowIndex Value="0"/>
    545530        <TopLine Value="4"/>
    546         <CursorPos X="20" Y="19"/>
    547         <UsageCount Value="41"/>
     531        <CursorPos X="33" Y="19"/>
     532        <UsageCount Value="44"/>
    548533        <DefaultSyntaxHighlighter Value="Delphi"/>
    549534      </Unit41>
    … …  
    553538        <TopLine Value="1575"/>
    554539        <CursorPos X="1" Y="1589"/>
    555         <UsageCount Value="11"/>
    556         <DefaultSyntaxHighlighter Value="Delphi"/>
     540        <UsageCount Value="10"/>
    557541      </Unit42>
    558542      <Unit43>
    … …  
    561545        <TopLine Value="119"/>
    562546        <CursorPos X="1" Y="132"/>
    563         <UsageCount Value="9"/>
     547        <UsageCount Value="8"/>
    564548      </Unit43>
    565549      <Unit44>
    … …  
    569553        <TopLine Value="90"/>
    570554        <CursorPos X="3" Y="104"/>
    571         <UsageCount Value="14"/>
     555        <UsageCount Value="13"/>
    572556      </Unit44>
    573557      <Unit45>
    … …  
    577561        <TopLine Value="202"/>
    578562        <CursorPos X="10" Y="215"/>
    579         <UsageCount Value="9"/>
    580         <DefaultSyntaxHighlighter Value="Delphi"/>
     563        <UsageCount Value="8"/>
    581564      </Unit45>
    582565      <Unit46>
    … …  
    584567        <IsPartOfProject Value="True"/>
    585568        <UnitName Value="UChronisClient"/>
    586         <EditorIndex Value="11"/>
     569        <EditorIndex Value="7"/>
    587570        <WindowIndex Value="0"/>
    588571        <TopLine Value="11"/>
    589572        <CursorPos X="26" Y="40"/>
    590         <UsageCount Value="37"/>
     573        <UsageCount Value="40"/>
    591574        <Loaded Value="True"/>
    592575        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    596579        <IsPartOfProject Value="True"/>
    597580        <UnitName Value="UChronisServer"/>
    598         <EditorIndex Value="12"/>
    599581        <WindowIndex Value="0"/>
    600582        <TopLine Value="1"/>
    601583        <CursorPos X="1" Y="14"/>
    602         <UsageCount Value="37"/>
    603         <Loaded Value="True"/>
     584        <UsageCount Value="40"/>
    604585        <DefaultSyntaxHighlighter Value="Delphi"/>
    605586      </Unit47>
    … …  
    611592        <TopLine Value="8"/>
    612593        <CursorPos X="53" Y="32"/>
    613         <UsageCount Value="36"/>
     594        <UsageCount Value="39"/>
    614595        <DefaultSyntaxHighlighter Value="Delphi"/>
    615596      </Unit48>
    … …  
    618599        <IsPartOfProject Value="True"/>
    619600        <UnitName Value="UChronisModule"/>
    620         <EditorIndex Value="16"/>
     601        <EditorIndex Value="12"/>
    621602        <WindowIndex Value="0"/>
    622603        <TopLine Value="1"/>
    623604        <CursorPos X="5" Y="15"/>
    624         <UsageCount Value="27"/>
     605        <UsageCount Value="30"/>
    625606        <Loaded Value="True"/>
    626607        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    630611        <IsPartOfProject Value="True"/>
    631612        <UnitName Value="UModuleSystem"/>
    632         <EditorIndex Value="17"/>
     613        <EditorIndex Value="13"/>
    633614        <WindowIndex Value="0"/>
    634615        <TopLine Value="54"/>
    635616        <CursorPos X="42" Y="66"/>
    636         <UsageCount Value="27"/>
     617        <UsageCount Value="30"/>
    637618        <Loaded Value="True"/>
    638619        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    643624        <TopLine Value="195"/>
    644625        <CursorPos X="40" Y="213"/>
    645         <UsageCount Value="10"/>
     626        <UsageCount Value="9"/>
     627        <DefaultSyntaxHighlighter Value="Delphi"/>
    646628      </Unit51>
    647629      <Unit52>
    648630        <Filename Value="../../../Lazarus/0.9.31_2.5.1/lcl/include/containedaction.inc"/>
    649         <EditorIndex Value="9"/>
    650631        <WindowIndex Value="0"/>
    651632        <TopLine Value="91"/>
    652633        <CursorPos X="1" Y="106"/>
    653         <UsageCount Value="11"/>
    654         <Loaded Value="True"/>
     634        <UsageCount Value="13"/>
    655635      </Unit52>
    656636      <Unit53>
    657637        <Filename Value="../../../Lazarus/0.9.31_2.5.1/lcl/include/customaction.inc"/>
    658         <EditorIndex Value="10"/>
    659638        <WindowIndex Value="0"/>
    660639        <TopLine Value="240"/>
    661640        <CursorPos X="1" Y="253"/>
    662         <UsageCount Value="11"/>
    663         <Loaded Value="True"/>
     641        <UsageCount Value="13"/>
    664642      </Unit53>
     643      <Unit54>
     644        <Filename Value="Forms/UItemList.pas"/>
     645        <IsPartOfProject Value="True"/>
     646        <ComponentName Value="ItemListForm"/>
     647        <ResourceBaseClass Value="Form"/>
     648        <UnitName Value="UItemList"/>
     649        <EditorIndex Value="4"/>
     650        <WindowIndex Value="0"/>
     651        <TopLine Value="162"/>
     652        <CursorPos X="3" Y="181"/>
     653        <UsageCount Value="22"/>
     654        <Loaded Value="True"/>
     655        <LoadedDesigner Value="True"/>
     656        <DefaultSyntaxHighlighter Value="Delphi"/>
     657      </Unit54>
     658      <Unit55>
     659        <Filename Value="../../../Lazarus/0.9.31_2.5.1/lcl/forms.pp"/>
     660        <UnitName Value="Forms"/>
     661        <WindowIndex Value="0"/>
     662        <TopLine Value="735"/>
     663        <CursorPos X="17" Y="748"/>
     664        <UsageCount Value="10"/>
     665      </Unit55>
    665666    </Units>
    666667    <JumpHistory Count="30" HistoryIndex="29">
    667668      <Position1>
    668         <Filename Value="Forms/UItemEdit.pas"/>
    669         <Caret Line="1" Column="3" TopLine="1"/>
     669        <Filename Value="Forms/UItemList.pas"/>
     670        <Caret Line="119" Column="13" TopLine="105"/>
    670671      </Position1>
    671672      <Position2>
    672         <Filename Value="Forms/UItemEdit.pas"/>
    673         <Caret Line="25" Column="11" TopLine="4"/>
     673        <Filename Value="Forms/UItemList.pas"/>
     674        <Caret Line="116" Column="1" TopLine="105"/>
    674675      </Position2>
    675676      <Position3>
    676         <Filename Value="Forms/UItemEdit.pas"/>
    677         <Caret Line="68" Column="43" TopLine="47"/>
     677        <Filename Value="Forms/UItemList.pas"/>
     678        <Caret Line="112" Column="1" TopLine="92"/>
    678679      </Position3>
    679680      <Position4>
    680         <Filename Value="Forms/UItemEdit.pas"/>
    681         <Caret Line="135" Column="1" TopLine="122"/>
     681        <Filename Value="Forms/UItemList.pas"/>
     682        <Caret Line="85" Column="42" TopLine="72"/>
    682683      </Position4>
    683684      <Position5>
    684         <Filename Value="../../../Lazarus/0.9.31_2.5.1/lcl/include/customform.inc"/>
    685         <Caret Line="878" Column="1" TopLine="865"/>
     685        <Filename Value="Forms/UMainForm.pas"/>
     686        <Caret Line="389" Column="1" TopLine="367"/>
    686687      </Position5>
    687688      <Position6>
    688         <Filename Value="Forms/UItemEdit.pas"/>
    689         <Caret Line="170" Column="38" TopLine="158"/>
     689        <Filename Value="USystem.pas"/>
     690        <Caret Line="226" Column="28" TopLine="212"/>
    690691      </Position6>
    691692      <Position7>
    692         <Filename Value="Forms/UItemEdit.pas"/>
    693         <Caret Line="135" Column="1" TopLine="122"/>
     693        <Filename Value="USystem.pas"/>
     694        <Caret Line="223" Column="1" TopLine="197"/>
    694695      </Position7>
    695696      <Position8>
    696697        <Filename Value="Forms/UItemView.pas"/>
    697         <Caret Line="136" Column="78" TopLine="130"/>
     698        <Caret Line="143" Column="14" TopLine="131"/>
    698699      </Position8>
    699700      <Position9>
    700         <Filename Value="Forms/UMainForm.pas"/>
    701         <Caret Line="107" Column="54" TopLine="97"/>
     701        <Filename Value="Forms/UItemView.pas"/>
     702        <Caret Line="44" Column="10" TopLine="33"/>
    702703      </Position9>
    703704      <Position10>
    704         <Filename Value="Forms/UItemEdit.pas"/>
    705         <Caret Line="188" Column="49" TopLine="187"/>
     705        <Filename Value="USystem.pas"/>
     706        <Caret Line="223" Column="1" TopLine="210"/>
    706707      </Position10>
    707708      <Position11>
    708         <Filename Value="Forms/UItemEdit.pas"/>
    709         <Caret Line="36" Column="15" TopLine="30"/>
     709        <Filename Value="Forms/UItemView.pas"/>
     710        <Caret Line="113" Column="1" TopLine="100"/>
    710711      </Position11>
    711712      <Position12>
    712         <Filename Value="Forms/UItemEdit.pas"/>
    713         <Caret Line="58" Column="41" TopLine="39"/>
     713        <Filename Value="Forms/UItemView.pas"/>
     714        <Caret Line="143" Column="1" TopLine="130"/>
    714715      </Position12>
    715716      <Position13>
    716         <Filename Value="Forms/UItemEdit.pas"/>
    717         <Caret Line="75" Column="1" TopLine="61"/>
     717        <Filename Value="Forms/UItemView.pas"/>
     718        <Caret Line="44" Column="15" TopLine="31"/>
    718719      </Position13>
    719720      <Position14>
    720         <Filename Value="Forms/UMainForm.pas"/>
    721         <Caret Line="9" Column="49" TopLine="1"/>
     721        <Filename Value="USystem.pas"/>
     722        <Caret Line="223" Column="1" TopLine="210"/>
    722723      </Position14>
    723724      <Position15>
    724         <Filename Value="Forms/UMainForm.pas"/>
    725         <Caret Line="170" Column="22" TopLine="149"/>
     725        <Filename Value="Forms/UItemList.pas"/>
     726        <Caret Line="86" Column="33" TopLine="80"/>
    726727      </Position15>
    727728      <Position16>
    728         <Filename Value="Forms/UMainForm.pas"/>
    729         <Caret Line="166" Column="34" TopLine="150"/>
     729        <Filename Value="Forms/UItemView.pas"/>
     730        <Caret Line="42" Column="24" TopLine="29"/>
    730731      </Position16>
    731732      <Position17>
    732         <Filename Value="Forms/UMainForm.pas"/>
    733         <Caret Line="170" Column="22" TopLine="150"/>
     733        <Filename Value="USystem.pas"/>
     734        <Caret Line="84" Column="46" TopLine="62"/>
    734735      </Position17>
    735736      <Position18>
    736         <Filename Value="Forms/UMainForm.pas"/>
    737         <Caret Line="171" Column="19" TopLine="150"/>
     737        <Filename Value="USystem.pas"/>
     738        <Caret Line="91" Column="9" TopLine="70"/>
    738739      </Position18>
    739740      <Position19>
    740         <Filename Value="Forms/UMainForm.pas"/>
    741         <Caret Line="172" Column="27" TopLine="151"/>
     741        <Filename Value="Forms/UItemList.pas"/>
     742        <Caret Line="129" Column="30" TopLine="124"/>
    742743      </Position19>
    743744      <Position20>
    744         <Filename Value="Forms/UMainForm.pas"/>
    745         <Caret Line="372" Column="14" TopLine="354"/>
     745        <Filename Value="Forms/UItemView.pas"/>
     746        <Caret Line="42" Column="24" TopLine="29"/>
    746747      </Position20>
    747748      <Position21>
    748         <Filename Value="Forms/UMainForm.pas"/>
    749         <Caret Line="376" Column="1" TopLine="355"/>
     749        <Filename Value="Forms/UItemEdit.pas"/>
     750        <Caret Line="54" Column="19" TopLine="35"/>
    750751      </Position21>
    751752      <Position22>
    752         <Filename Value="Forms/UItemEdit.pas"/>
    753         <Caret Line="46" Column="1" TopLine="28"/>
     753        <Filename Value="Forms/UItemAdd.pas"/>
     754        <Caret Line="31" Column="1" TopLine="17"/>
    754755      </Position22>
    755756      <Position23>
    756         <Filename Value="Forms/UItemEdit.pas"/>
    757         <Caret Line="82" Column="1" TopLine="78"/>
     757        <Filename Value="Forms/UItemAdd.pas"/>
     758        <Caret Line="120" Column="28" TopLine="107"/>
    758759      </Position23>
    759760      <Position24>
    760         <Filename Value="Forms/UMainForm.pas"/>
    761         <Caret Line="283" Column="1" TopLine="280"/>
     761        <Filename Value="Forms/UItemEdit.pas"/>
     762        <Caret Line="203" Column="28" TopLine="191"/>
    762763      </Position24>
    763764      <Position25>
    764         <Filename Value="Forms/UMainForm.pas"/>
    765         <Caret Line="290" Column="1" TopLine="285"/>
     765        <Filename Value="Forms/UItemEdit.pas"/>
     766        <Caret Line="135" Column="73" TopLine="122"/>
    766767      </Position25>
    767768      <Position26>
    768769        <Filename Value="Forms/UItemEdit.pas"/>
    769         <Caret Line="79" Column="1" TopLine="74"/>
     770        <Caret Line="220" Column="41" TopLine="207"/>
    770771      </Position26>
    771772      <Position27>
    772773        <Filename Value="Forms/UItemEdit.pas"/>
    773         <Caret Line="143" Column="1" TopLine="139"/>
     774        <Caret Line="276" Column="19" TopLine="263"/>
    774775      </Position27>
    775776      <Position28>
    776         <Filename Value="Forms/UItemEdit.pas"/>
    777         <Caret Line="77" Column="3" TopLine="75"/>
     777        <Filename Value="Forms/UItemView.pas"/>
     778        <Caret Line="112" Column="20" TopLine="104"/>
    778779      </Position28>
    779780      <Position29>
    780         <Filename Value="Forms/UItemEdit.pas"/>
    781         <Caret Line="85" Column="17" TopLine="82"/>
     781        <Filename Value="Forms/UItemList.pas"/>
     782        <Caret Line="119" Column="15" TopLine="112"/>
    782783      </Position29>
    783784      <Position30>
    784         <Filename Value="Forms/UItemEdit.pas"/>
    785         <Caret Line="64" Column="52" TopLine="45"/>
     785        <Filename Value="Forms/UItemList.pas"/>
     786        <Caret Line="181" Column="3" TopLine="162"/>
    786787      </Position30>
    787788    </JumpHistory>

  • trunk/chronis.lpr

    r29 r31  
    1212  CoolWeb, USystem, UCore, UApplicationInfo, USettingForm, UDataTypes,
    1313  UImportStructureForm, UItemSelect, ULoginProfileForm, UAboutForm,
    14   UChronisClient, UChronisServer, UChronisClientDirect, UChronisModule, UModuleSystem
     14  UChronisClient, UChronisServer, UChronisClientDirect, UChronisModule,
     15  UModuleSystem, UItemList, LDockTree
    1516  { you can add units after this };
    1617
    … …  
    3334  Application.CreateForm(TMainForm, MainForm);
    3435  Application.CreateForm(TLoginForm, LoginForm);
    35   Application.CreateForm(TItemViewForm, ItemViewForm);
    36   Application.CreateForm(TItemEditForm, ItemEditForm);
    37   Application.CreateForm(TItemAddForm, ItemAddForm);
     36  Application.CreateForm(TImportStructureForm, ImportStructureForm);
     37  Application.CreateForm(TLoginProfileForm, LoginProfileForm);
    3838  Application.CreateForm(TSettingForm, SettingForm);
    39   Application.CreateForm(TImportStructureForm, ImportStructureForm);
    40   Application.CreateForm(TItemSelectForm, ItemSelectForm);
    41   Application.CreateForm(TLoginProfileForm, LoginProfileForm);
    42   Application.CreateForm(TAboutForm, AboutForm);
    4339  Application.Run;
    4440end.
Note: See TracChangeset for help on using the changeset viewer.