Changeset 30


Ignore:
Timestamp:
Nov 24, 2011, 8:35:25 AM (13 years ago)
Author:
chronos
Message:
Location:
trunk
Files:
13 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UItemEdit.lfm

    r23 r30  
    11object ItemEditForm: TItemEditForm
    2   Left = 251
    3   Height = 423
    4   Top = 92
    5   Width = 552
    6   ActiveControl = Panel1
     2  Left = 274
     3  Height = 486
     4  Top = 137
     5  Width = 608
    76  Caption = 'Edit item'
    8   ClientHeight = 423
    9   ClientWidth = 552
     7  ClientHeight = 486
     8  ClientWidth = 608
    109  OnClose = FormClose
    1110  OnCreate = FormCreate
    … …  
    1312  OnShow = FormShow
    1413  LCLVersion = '0.9.31'
    15   object Panel1: TPanel
    16     Left = 0
    17     Height = 380
    18     Top = 0
    19     Width = 552
    20     Align = alTop
    21     Anchors = [akLeft, akRight, akBottom]
    22     BevelOuter = bvNone
    23     TabOrder = 0
    24   end
    2514  object ButtonCancel: TButton
    26     Left = 378
     15    Left = 434
    2716    Height = 25
    28     Top = 394
     17    Top = 457
    2918    Width = 75
    3019    Anchors = [akRight, akBottom]
    3120    Caption = 'Cancel'
    3221    OnClick = ButtonCancelClick
    33     TabOrder = 1
     22    TabOrder = 0
    3423  end
    3524  object ButtonSave: TButton
    36     Left = 466
     25    Left = 522
    3726    Height = 25
    38     Top = 394
     27    Top = 457
    3928    Width = 75
    4029    Anchors = [akRight, akBottom]
    4130    Caption = 'Save'
    4231    OnClick = ButtonSaveClick
     32    TabOrder = 1
     33  end
     34  object Panel1: TPanel
     35    Left = 0
     36    Height = 451
     37    Top = 0
     38    Width = 608
     39    Align = alTop
     40    Anchors = [akTop, akLeft, akRight, akBottom]
     41    BevelOuter = bvNone
     42    ClientHeight = 451
     43    ClientWidth = 608
    4344    TabOrder = 2
     45    object Splitter1: TSplitter
     46      Cursor = crVSplit
     47      Left = 0
     48      Height = 3
     49      Top = 248
     50      Width = 608
     51      Align = alBottom
     52      ResizeAnchor = akBottom
     53    end
     54    object PanelControls: TPanel
     55      Left = 0
     56      Height = 248
     57      Top = 0
     58      Width = 608
     59      Align = alClient
     60      Anchors = [akLeft, akRight, akBottom]
     61      BevelOuter = bvNone
     62      TabOrder = 1
     63    end
     64    object Panel2: TPanel
     65      Left = 0
     66      Height = 200
     67      Top = 251
     68      Width = 608
     69      Align = alBottom
     70      BevelOuter = bvNone
     71      ClientHeight = 200
     72      ClientWidth = 608
     73      TabOrder = 2
     74      object TabControl1: TTabControl
     75        Left = 0
     76        Height = 24
     77        Top = 0
     78        Width = 608
     79        TabStop = False
     80        OnChange = TabControl1Change
     81        TabIndex = 0
     82        Tabs.Strings = (
     83          'Tab1'
     84          'Tab2'
     85          'Tab3'
     86        )
     87        Align = alTop
     88        TabOrder = 0
     89      end
     90      object ListView1: TListView
     91        Left = 0
     92        Height = 144
     93        Top = 24
     94        Width = 608
     95        Align = alClient
     96        Columns = <>
     97        OwnerData = True
     98        ReadOnly = True
     99        RowSelect = True
     100        TabOrder = 1
     101        ViewStyle = vsReport
     102        OnData = ListView1Data
     103        OnDblClick = ListView1DblClick
     104        OnKeyPress = ListView1KeyPress
     105        OnResize = ListView1Resize
     106        OnSelectItem = ListView1SelectItem
     107      end
     108      object Panel3: TPanel
     109        Left = 0
     110        Height = 32
     111        Top = 168
     112        Width = 608
     113        Align = alBottom
     114        BevelOuter = bvNone
     115        ClientHeight = 32
     116        ClientWidth = 608
     117        TabOrder = 2
     118        object ButtonAdd: TButton
     119          Left = 8
     120          Height = 25
     121          Top = 6
     122          Width = 64
     123          Caption = 'Add'
     124          OnClick = ButtonAddClick
     125          TabOrder = 0
     126        end
     127        object ButtonDelete: TButton
     128          Left = 80
     129          Height = 25
     130          Top = 6
     131          Width = 67
     132          Caption = 'Delete'
     133          OnClick = ButtonDeleteClick
     134          TabOrder = 1
     135        end
     136        object ButtonView: TButton
     137          Left = 156
     138          Height = 25
     139          Top = 6
     140          Width = 64
     141          Caption = 'View'
     142          OnClick = ButtonViewClick
     143          TabOrder = 2
     144        end
     145        object ButtonEdit: TButton
     146          Left = 226
     147          Height = 25
     148          Top = 6
     149          Width = 62
     150          Caption = 'Edit'
     151          OnClick = ButtonEditClick
     152          TabOrder = 3
     153        end
     154      end
     155    end
    44156  end
    45157end

  • trunk/Forms/UItemEdit.lrt

    r12 r30  
    22TITEMEDITFORM.BUTTONCANCEL.CAPTION=Cancel
    33TITEMEDITFORM.BUTTONSAVE.CAPTION=Save
     4TITEMEDITFORM.BUTTONADD.CAPTION=Add
     5TITEMEDITFORM.BUTTONDELETE.CAPTION=Delete
     6TITEMEDITFORM.BUTTONVIEW.CAPTION=View
     7TITEMEDITFORM.BUTTONEDIT.CAPTION=Edit

  • trunk/Forms/UItemEdit.pas

    r22 r30  
    77uses
    88  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
    9   StdCtrls, Spin, EditBtn, USqlDatabase, MaskEdit, USystem,
     9  StdCtrls, Spin, EditBtn, USqlDatabase, MaskEdit, ComCtrls, USystem,
    1010  SpecializedList, SpecializedDictionary;
    1111
    … …  
    1515
    1616  TItemEditForm = class(TForm)
     17    ButtonAdd: TButton;
     18    ButtonDelete: TButton;
     19    ButtonEdit: TButton;
    1720    ButtonSave: TButton;
    1821    ButtonCancel: TButton;
     22    ButtonView: TButton;
     23    ListView1: TListView;
    1924    Panel1: TPanel;
     25    Panel2: TPanel;
     26    Panel3: TPanel;
     27    PanelControls: TPanel;
     28    Splitter1: TSplitter;
     29    TabControl1: TTabControl;
     30    procedure ButtonAddClick(Sender: TObject);
    2031    procedure ButtonCancelClick(Sender: TObject);
     32    procedure ButtonDeleteClick(Sender: TObject);
     33    procedure ButtonEditClick(Sender: TObject);
    2134    procedure ButtonSaveClick(Sender: TObject);
     35    procedure ButtonViewClick(Sender: TObject);
    2236    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    2337    procedure FormCreate(Sender: TObject);
    2438    procedure FormDestroy(Sender: TObject);
    2539    procedure FormShow(Sender: TObject);
     40    procedure ListView1Data(Sender: TObject; Item: TListItem);
     41    procedure ListView1DblClick(Sender: TObject);
     42    procedure ListView1KeyPress(Sender: TObject; var Key: char);
     43    procedure ListView1Resize(Sender: TObject);
     44    procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
     45      Selected: Boolean);
     46    procedure TabControl1Change(Sender: TObject);
    2647  private
    27     { private declarations }
     48    SelectedItem: Integer;
     49    SubListObject: TChronisObject;
     50    TabObjectList: TListInteger;
     51    TabDataTypeList: TListObject;
     52    procedure LoadSubList;
    2853  public
    2954    Report: TReport;
    … …  
    3762
    3863uses
    39   UMainForm, UDataTypes, UCore;
     64  UMainForm, UDataTypes, UCore, UItemAdd, UItemView;
    4065
    4166{$R *.lfm}
    … …  
    4772  Close;
    4873end;
     74
     75procedure TItemEditForm.ButtonDeleteClick(Sender: TObject);
     76begin
     77  if MessageDlg(SItemDeletion, SReallyWantToDelete, mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin
     78
     79  end;
     80end;
     81
     82procedure TItemEditForm.ButtonEditClick(Sender: TObject);
     83begin
     84  if Assigned(ListView1.Selected) then
     85    ItemEditForm.Show;
     86end;
     87
     88procedure TItemEditForm.ButtonAddClick(Sender: TObject);
     89begin
     90  if Assigned(ListView1.Selected) then
     91    ItemAddForm.Show;
     92end;
     93
     94procedure TItemEditForm.ListView1Data(Sender: TObject; Item: TListItem);
     95var
     96  I: Integer;
     97begin
     98  if Item.Index < Report.Count then
     99  with TReportLine(Report[Item.Index]) do begin
     100    Item.Caption := Items[0];
     101    for I := 1 to Items.Count - 1 do
     102    if not TReportColumn(Report.Columns[I]).VirtualItem then
     103      Item.SubItems.Add(Items[I]);
     104  end;
     105end;
     106
     107procedure TItemEditForm.ListView1DblClick(Sender: TObject);
     108begin
     109  if Assigned(ListView1.Selected) then ButtonView.Click;
     110end;
     111
     112procedure TItemEditForm.ListView1KeyPress(Sender: TObject; var Key: char);
     113begin
     114  if Key = #13 then ButtonView.Click;
     115end;
     116
    49117
    50118procedure TItemEditForm.ButtonSaveClick(Sender: TObject);
    … …  
    76144end;
    77145
     146procedure TItemEditForm.ButtonViewClick(Sender: TObject);
     147begin
     148  if Assigned(ListView1.Selected) then
     149    ItemViewForm.Show;
     150end;
     151
    78152procedure TItemEditForm.FormClose(Sender: TObject; var CloseAction: TCloseAction
    79153  );
    … …  
    84158procedure TItemEditForm.FormCreate(Sender: TObject);
    85159begin
     160  SubListObject := TChronisObject.Create;
     161  SubListObject.Base := Core.System;
    86162  Report := TReport.Create;
    87163  Report.Base := Core.System;
     164  TabObjectList := TListInteger.Create;
     165  TabDataTypeList := TListObject.Create;
     166  TabDataTypeList.OwnsObjects := False;
     167  TabControl1.Tabs.Clear;
    88168end;
    89169
    90170procedure TItemEditForm.FormDestroy(Sender: TObject);
    91171begin
     172  SubListObject.Free;
    92173  Report.Free;
     174  TabObjectList.Free;
     175  TabDataTypeList.Free;
    93176end;
    94177
    … …  
    97180  MainForm.PersistentForm.Load(Self);
    98181  BuildControls;
     182  LoadSubList;
    99183end;
    100184
    … …  
    106190  Column: Integer;
    107191  DataType: TDataType;
    108   NewControl: TWinControl;
    109   NewLabel: TLabel;
     192  NewControl: TControl;
     193  NewWinControl: TWinControl;
    110194const
    111195  ColumnCount = 2;
    … …  
    116200    IntToStr(MainForm.SelectedItem));
    117201
    118   for I := Panel1.ControlCount - 1 downto 0 do
    119     Panel1.Controls[I].Free;
    120 
     202  // Clear previous controls on panel
     203  for I := PanelControls.ControlCount - 1 downto 0 do
     204    PanelControls.Controls[I].Free;
     205
     206  TabControl1.Tabs.Clear;
     207  TabObjectList.Clear;
     208  TabDataTypeList.Clear;
    121209  if Report.Count = 1 then
    122210    for I := 0 to Report.Columns.Count - 1 do
    123211    if (TReportColumn(Report.Columns[I]).ColumnName <> 'Id') then begin
    124 
    125       NewLabel := TLabel.Create(Panel1);
    126       NewLabel.Parent := Panel1;
    127       NewLabel.Top := LastTop;
    128       NewLabel.Left := Column * Width div ColumnCount + 10;
    129       NewLabel.Caption := TReportColumn(Report.Columns[I]).Caption + ':';
    130 
    131212      DataType := TReportColumn(Report.Columns[I]).CustomType;
    132213      DataType.LoadDef(TReportColumn(Report.Columns[I]).CustomType.CustomType);
    133       if not (DataType is TDataTypeRelationMany) then begin
    134         NewControl := DataType.CreateControl(Panel1);
     214      if DataType is TDataTypeRelationMany then begin
     215        TabControl1.Tabs.Add(TReportColumn(Report.Columns[I]).Caption);
     216        TabDataTypeList.Add(DataType);
     217        TabObjectList.Add(MainForm.SelectedItem);
     218      end else begin
     219        NewControl := TLabel.Create(Panel1);
     220        NewControl.Parent := PanelControls;
     221        NewControl.Top := LastTop;
     222        NewControl.Left := Column * Width div ColumnCount + 10;
     223        TLabel(NewControl).Caption := TReportColumn(Report.Columns[I]).Caption + ':';
     224
     225        NewWinControl := DataType.CreateControl(Panel1);
    135226        DataType.Load(TReportLine(Report[0]).Items[I]);
    136         DataType.SetupControl(NewControl);
    137         NewControl.Parent := Panel1;
    138         NewControl.Top := LastTop;
    139         NewControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2;
    140         NewControl.Width := (Width div ColumnCount) div 2 - 20;
    141         TReportColumn(Report.Columns[I]).Control := NewControl;
     227        DataType.SetupControl(NewWinControl);
     228        NewWinControl.Parent := Panel1;
     229        NewWinControl.Top := LastTop;
     230        NewWinControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2;
     231        NewWinControl.Width := (Width div ColumnCount) div 2 - 20;
     232        TReportColumn(Report.Columns[I]).Control := NewWinControl;
    142233
    143234        Column := (Column + 1) mod 2;
    144         if Column = 0 then LastTop := LastTop + NewControl.Height + 4;
     235        if Column = 0 then LastTop := LastTop + NewWinControl.Height + 4;
    145236      end;
    146    end;
    147 end;
     237  end;
     238  // Panel1;
     239  // ListView1;
     240  // TabControl1;
     241  Panel2.Visible := TabControl1.Tabs.Count > 0;
     242end;
     243
     244procedure TItemEditForm.LoadSubList;
     245begin
     246  //SelectedObjectId := 0;
     247  if (TabControl1.TabIndex >= 0) and (TabControl1.TabIndex < TabControl1.Tabs.Count) then
     248  with ListView1 do
     249  with TDataTypeRelationMany(TabDataTypeList[TabControl1.TabIndex]) do begin
     250    Visible := True;
     251    SubListObject.Load(ObjectId);
     252    Report.Load(SubListObject, '`' + PropertyName + '`=' + IntToStr(TabObjectList[TabControl1.TabIndex]));
     253
     254    Report.FillListColumns(Columns);
     255    Items.Count := Report.Count;
     256    Refresh;
     257  end;
     258  ListView1Resize(Self);
     259end;
     260
     261procedure TItemEditForm.ListView1Resize(Sender: TObject);
     262var
     263  I: Integer;
     264begin
     265  for I := 0 to ListView1.Columns.Count - 1 do
     266    ListView1.Columns[I].Width := ListView1.Width div ListView1.Columns.Count;
     267end;
     268
     269procedure TItemEditForm.ListView1SelectItem(Sender: TObject; Item: TListItem;
     270  Selected: Boolean);
     271begin
     272  if Assigned(ListView1.Selected) then
     273    SelectedItem := TReportLine(Report[ListView1.Selected.Index]).Id
     274    else SelectedItem := 0;
     275
     276  ButtonDelete.Enabled := Assigned(ListView1.Selected);
     277  ButtonView.Enabled := Assigned(ListView1.Selected);
     278  ButtonEdit.Enabled := Assigned(ListView1.Selected);
     279end;
     280
     281procedure TItemEditForm.TabControl1Change(Sender: TObject);
     282begin
     283  LoadSubList;
     284end;
     285
    148286
    149287end.

  • trunk/Forms/UItemView.lfm

    r28 r30  
    5959        Top = 0
    6060        Width = 620
     61        TabStop = False
    6162        OnChange = TabControl1Change
    6263        TabIndex = 0
    … …  
    6667          'Tab3'
    6768        )
    68         TabStop = False
    6969        Align = alTop
    7070        TabOrder = 0

  • trunk/Forms/UItemView.pas

    r21 r30  
    149149    DataType := TReportColumn(Report.Columns[I]).CustomType;
    150150    DataType.LoadDef(TReportColumn(Report.Columns[I]).CustomType.CustomType);
    151   if DataType is TDataTypeRelationMany then begin
    152     TabControl1.Tabs.Add(TReportColumn(Report.Columns[I]).Caption);
    153     TabDataTypeList.Add(DataType);
    154     TabObjectList.Add(MainForm.SelectedItem);
    155   end else begin
    156     NewControl := TLabel.Create(PanelControls);
    157     NewControl.Parent := PanelControls;
    158     NewControl.Top := LastTop;
    159     NewControl.Left := Column * Width div ColumnCount + 10;
    160     TLabel(NewControl).Caption := TReportColumn(Report.Columns[I]).Caption + ':';
    161 
    162     NewControl := TLabel.Create(PanelControls);
    163     NewControl.Parent := PanelControls;
    164     NewControl.Top := LastTop;
    165     NewControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2;
    166     TLabel(NewControl).Caption := TReportLine(Report[0]).Items[I];
    167 
    168     Column := (Column + 1) mod 2;
    169     if Column = 0 then LastTop := LastTop + 24;
    170   end;
     151    if DataType is TDataTypeRelationMany then begin
     152      TabControl1.Tabs.Add(TReportColumn(Report.Columns[I]).Caption);
     153      TabDataTypeList.Add(DataType);
     154      TabObjectList.Add(MainForm.SelectedItem);
     155    end else begin
     156      NewControl := TLabel.Create(PanelControls);
     157      NewControl.Parent := PanelControls;
     158      NewControl.Top := LastTop;
     159      NewControl.Left := Column * Width div ColumnCount + 10;
     160      TLabel(NewControl).Caption := TReportColumn(Report.Columns[I]).Caption + ':';
     161
     162      NewControl := TLabel.Create(PanelControls);
     163      NewControl.Parent := PanelControls;
     164      NewControl.Top := LastTop;
     165      NewControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2;
     166      TLabel(NewControl).Caption := TReportLine(Report[0]).Items[I];
     167
     168      Column := (Column + 1) mod 2;
     169      if Column = 0 then LastTop := LastTop + 24;
     170    end;
    171171  end;
    172172  Panel2.Visible := TabControl1.Tabs.Count > 0;

  • trunk/Forms/ULoginForm.lfm

    r27 r30  
    3636    ModalResult = 11
    3737    OnClick = ButtonCancelClick
    38     TabOrder = 0
     38    TabOrder = 5
    3939  end
    4040  object ButtonLogin: TButton
    … …  
    4747    ModalResult = 1
    4848    OnClick = ButtonLoginClick
    49     TabOrder = 1
     49    TabOrder = 4
    5050  end
    5151  object EditUserName: TEdit
    … …  
    7171    ItemHeight = 13
    7272    Style = csDropDownList
    73     TabOrder = 3
     73    TabOrder = 0
    7474  end
    7575  object ButtonChange: TButton
    … …  
    8080    Caption = 'Change'
    8181    OnClick = ButtonChangeClick
    82     TabOrder = 4
     82    TabOrder = 1
    8383  end
    8484  object Image1: TImage
    … …  
    9595    EchoMode = emPassword
    9696    PasswordChar = '*'
    97     TabOrder = 5
     97    TabOrder = 3
    9898  end
    9999end

  • trunk/Forms/ULoginForm.pas

    r27 r30  
    6262  EditUserName.Text := Core.LastUserName;
    6363  EditPassword.Text := '';
     64  EditPassword.SetFocus;
    6465  Core.Profiles.FillStrings(ComboBoxConnection.Items);
    6566  ComboBoxConnection.ItemIndex := Core.LastProfile;

  • trunk/Forms/ULoginProfileForm.lfm

    r29 r30  
    33  Height = 395
    44  Top = 147
    5   Width = 521
     5  Width = 527
    66  Caption = 'Connection profile'
    77  ClientHeight = 395
    8   ClientWidth = 521
     8  ClientWidth = 527
    99  OnClose = FormClose
    1010  OnCreate = FormCreate
    … …  
    1313  LCLVersion = '0.9.31'
    1414  object LabelServer: TLabel
    15     Left = 267
    16     Height = 18
     15    Left = 278
     16    Height = 14
    1717    Top = 63
    18     Width = 47
     18    Width = 37
    1919    Anchors = [akTop, akRight]
    2020    Caption = 'Server:'
    … …  
    2222  end
    2323  object EditServer: TEdit
    24     Left = 339
    25     Height = 27
     24    Left = 345
     25    Height = 21
    2626    Top = 56
    2727    Width = 178
    … …  
    3434    Height = 289
    3535    Top = 25
    36     Width = 250
     36    Width = 256
    3737    Anchors = [akTop, akLeft, akRight, akBottom]
    3838    ItemHeight = 0
    … …  
    4040    ScrollWidth = 246
    4141    TabOrder = 1
    42     TopIndex = -1
    4342  end
    4443  object ButtonOk: TButton
    45     Left = 442
     44    Left = 448
    4645    Height = 25
    4746    Top = 362
    … …  
    5554  object Label1: TLabel
    5655    Left = 10
    57     Height = 18
     56    Height = 14
    5857    Top = 9
    59     Width = 53
     58    Width = 40
    6059    Caption = 'Profiles:'
    6160    ParentColor = False
    … …  
    6564    Height = 3
    6665    Top = 354
    67     Width = 509
     66    Width = 515
    6867    Anchors = [akLeft, akRight, akBottom]
    6968    BevelInner = bvSpace
    … …  
    7271  end
    7372  object SpinEditPort: TSpinEdit
    74     Left = 339
    75     Height = 27
     73    Left = 345
     74    Height = 21
    7675    Top = 84
    7776    Width = 178
    … …  
    8281  end
    8382  object Label2: TLabel
    84     Left = 267
    85     Height = 18
     83    Left = 278
     84    Height = 14
    8685    Top = 91
    87     Width = 31
     86    Width = 25
    8887    Anchors = [akTop, akRight]
    8988    Caption = 'Port:'
    … …  
    9190  end
    9291  object Label3: TLabel
    93     Left = 267
    94     Height = 18
     92    Left = 278
     93    Height = 14
    9594    Top = 120
    96     Width = 58
     95    Width = 44
    9796    Anchors = [akTop, akRight]
    9897    Caption = 'Protocol:'
    … …  
    10099  end
    101100  object ComboBoxProtocol: TComboBox
    102     Left = 339
    103     Height = 27
     101    Left = 345
     102    Height = 21
    104103    Top = 113
    105104    Width = 178
    106105    Anchors = [akTop, akRight]
    107     ItemHeight = 0
     106    ItemHeight = 13
    108107    OnChange = ComboBoxProtocolChange
    109108    Style = csDropDownList
    … …  
    111110  end
    112111  object Label4: TLabel
    113     Left = 267
    114     Height = 18
    115     Top = 154
    116     Width = 67
     112    Left = 278
     113    Height = 14
     114    Top = 152
     115    Width = 51
    117116    Anchors = [akTop, akRight]
    118117    Caption = 'Database:'
    … …  
    120119  end
    121120  object EditDatabase: TEdit
    122     Left = 339
    123     Height = 27
     121    Left = 345
     122    Height = 21
    124123    Top = 145
    125124    Width = 178
    … …  
    149148  end
    150149  object ButtonCancel: TButton
    151     Left = 360
     150    Left = 366
    152151    Height = 25
    153152    Top = 362
    … …  
    159158  end
    160159  object EditName: TEdit
    161     Left = 338
    162     Height = 27
     160    Left = 344
     161    Height = 21
    163162    Top = 26
    164163    Width = 179
    … …  
    168167  end
    169168  object Label5: TLabel
    170     Left = 267
    171     Height = 18
    172     Top = 32
    173     Width = 44
     169    Left = 278
     170    Height = 14
     171    Top = 33
     172    Width = 32
    174173    Anchors = [akTop, akRight]
    175174    Caption = 'Name:'

  • trunk/Forms/UMainForm.lfm

    r29 r30  
    66  ActiveControl = Panel1
    77  Caption = 'ChronIS'
    8   ClientHeight = 421
     8  ClientHeight = 427
    99  ClientWidth = 640
    1010  Icon.Data = {
    … …  
    153153  object Panel1: TPanel
    154154    Left = 0
    155     Height = 421
     155    Height = 427
    156156    Top = 0
    157157    Width = 184
    158158    Align = alLeft
    159159    BevelOuter = bvNone
    160     ClientHeight = 421
     160    ClientHeight = 427
    161161    ClientWidth = 184
    162162    TabOrder = 0
    163163    object Label1: TLabel
    164164      Left = 7
    165       Height = 18
     165      Height = 14
    166166      Top = 4
    167       Width = 51
     167      Width = 39
    168168      Caption = 'Groups:'
    169169      ParentColor = False
    … …  
    171171    object TreeView1: TTreeView
    172172      Left = 4
    173       Height = 397
     173      Height = 403
    174174      Top = 19
    175175      Width = 180
    176176      Anchors = [akTop, akLeft, akRight, akBottom]
     177      DefaultItemHeight = 16
    177178      Images = ImageListActions
    178179      ReadOnly = True
    … …  
    184185  object Panel2: TPanel
    185186    Left = 189
    186     Height = 421
     187    Height = 427
    187188    Top = 0
    188189    Width = 451
    189190    Align = alClient
    190191    BevelOuter = bvNone
    191     ClientHeight = 421
     192    ClientHeight = 427
    192193    ClientWidth = 451
    193194    TabOrder = 1
    194195    object Label2: TLabel
    195196      Left = 2
    196       Height = 18
     197      Height = 14
    197198      Top = 4
    198       Width = 54
     199      Width = 43
    199200      Caption = 'Reports:'
    200201      ParentColor = False
    … …  
    202203    object ListView1: TListView
    203204      Left = 2
    204       Height = 365
     205      Height = 371
    205206      Top = 19
    206207      Width = 447
    … …  
    222223      Left = 3
    223224      Height = 25
    224       Top = 392
     225      Top = 398
    225226      Width = 75
    226227      Action = AItemAdd
    … …  
    228229      TabOrder = 1
    229230    end
    230     object ButtonRemove: TButton
     231    object ButtonDelete: TButton
    231232      Left = 83
    232233      Height = 25
    233       Top = 392
     234      Top = 398
    234235      Width = 75
    235236      Action = AItemDelete
    … …  
    237238      TabOrder = 2
    238239    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
     257    end
    239258  end
    240259  object Splitter1: TSplitter
    241260    Left = 184
    242     Height = 421
     261    Height = 427
    243262    Top = 0
    244263    Width = 5
    … …  
    252271      Caption = 'Delete'
    253272      OnExecute = AItemDeleteExecute
     273      ShortCut = 16452
    254274    end
    255275    object AItemAdd: TAction
    … …  
    257277      Caption = 'Add'
    258278      OnExecute = AItemAddExecute
     279      ShortCut = 16449
    259280    end
    260281    object AItemEdit: TAction
    … …  
    262283      Caption = 'Edit'
    263284      OnExecute = AItemEditExecute
     285      ShortCut = 16453
    264286    end
    265287    object AItemView: TAction
    … …  
    267289      Caption = 'View'
    268290      OnExecute = AItemViewExecute
     291      ShortCut = 16470
    269292    end
    270293    object AObjectGroupDelete: TAction
    … …  
    298321      Caption = 'Exit'
    299322      OnExecute = AExitExecute
     323      ShortCut = 32883
    300324    end
    301325    object AToggleFullscreen: TAction

  • trunk/Forms/UMainForm.pas

    r29 r30  
    3434    AItemDelete: TAction;
    3535    ActionListItem: TActionList;
     36    ButtonEdit: TButton;
     37    ButtonView: TButton;
    3638    ButtonAdd: TButton;
    37     ButtonRemove: TButton;
     39    ButtonDelete: TButton;
    3840    ImageListActions: TImageList;
    3941    Label1: TLabel;
    … …  
    306308      LoadTree;
    307309    except
    308       on E:Exception do ShowMessage(E.Message);
     310      on E: Exception do ShowMessage(E.Message);
    309311    end;
    310312  end;
    … …  
    371373    else SelectedItem := 0;
    372374
    373   AItemDelete.Enabled := Assigned(ListView1.Selected);
    374   AItemView.Enabled := Assigned(ListView1.Selected);
    375   AItemEdit.Enabled := Assigned(ListView1.Selected);
     375  ButtonDelete.Enabled := Assigned(ListView1.Selected);
     376  ButtonView.Enabled := Assigned(ListView1.Selected);
     377  ButtonEdit.Enabled := Assigned(ListView1.Selected);
    376378end;
    377379

  • trunk/Languages/chronis.cs.po

    r29 r30  
    6161msgstr "Přidání položky"
    6262
     63#: TITEMEDITFORM.BUTTONADD.CAPTION
     64msgctxt "TITEMEDITFORM.BUTTONADD.CAPTION"
     65msgid "Add"
     66msgstr "Přidat"
     67
    6368#: TITEMEDITFORM.BUTTONCANCEL.CAPTION
    6469#| msgid "Zrušit"
    … …  
    6772msgstr "Zrušit"
    6873
     74#: TITEMEDITFORM.BUTTONDELETE.CAPTION
     75msgctxt "TITEMEDITFORM.BUTTONDELETE.CAPTION"
     76msgid "Delete"
     77msgstr "Odstranit"
     78
     79#: TITEMEDITFORM.BUTTONEDIT.CAPTION
     80msgctxt "TITEMEDITFORM.BUTTONEDIT.CAPTION"
     81msgid "Edit"
     82msgstr "Upravit"
     83
    6984#: TITEMEDITFORM.BUTTONSAVE.CAPTION
    7085#| msgid "Uložit"
    … …  
    7388msgstr "Uložit"
    7489
     90#: TITEMEDITFORM.BUTTONVIEW.CAPTION
     91msgctxt "TITEMEDITFORM.BUTTONVIEW.CAPTION"
     92msgid "View"
     93msgstr "Zobrazení"
     94
    7595#: TITEMEDITFORM.CAPTION
    7696msgctxt "TITEMEDITFORM.CAPTION"

  • trunk/Languages/chronis.po

    r29 r30  
    5151msgstr ""
    5252
     53#: TITEMEDITFORM.BUTTONADD.CAPTION
     54msgctxt "TITEMEDITFORM.BUTTONADD.CAPTION"
     55msgid "Add"
     56msgstr ""
     57
    5358#: TITEMEDITFORM.BUTTONCANCEL.CAPTION
    5459msgctxt "TITEMEDITFORM.BUTTONCANCEL.CAPTION"
    5560msgid "Cancel"
     61msgstr ""
     62
     63#: TITEMEDITFORM.BUTTONDELETE.CAPTION
     64msgctxt "TITEMEDITFORM.BUTTONDELETE.CAPTION"
     65msgid "Delete"
     66msgstr ""
     67
     68#: TITEMEDITFORM.BUTTONEDIT.CAPTION
     69msgctxt "TITEMEDITFORM.BUTTONEDIT.CAPTION"
     70msgid "Edit"
    5671msgstr ""
    5772
    … …  
    6176msgstr ""
    6277
     78#: TITEMEDITFORM.BUTTONVIEW.CAPTION
     79msgctxt "TITEMEDITFORM.BUTTONVIEW.CAPTION"
     80msgid "View"
     81msgstr ""
     82
    6383#: TITEMEDITFORM.CAPTION
    6484msgctxt "TITEMEDITFORM.CAPTION"

  • trunk/chronis.lpi

    r29 r30  
    3030          <SearchPaths>
    3131            <IncludeFiles Value="$(ProjOutDir)"/>
    32             <Libraries Value="/usr/lib/mysql/;/usr/lib64/mysql/"/>
     32            <Libraries Value="/usr/lib/mysql;/usr/lib64/mysql"/>
    3333            <OtherUnitFiles Value="Common;Forms"/>
    3434            <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
    … …  
    105105      </Item6>
    106106    </RequiredPackages>
    107     <Units Count="52">
     107    <Units Count="54">
    108108      <Unit0>
    109109        <Filename Value="chronis.lpr"/>
    110110        <IsPartOfProject Value="True"/>
    111111        <UnitName Value="chronis"/>
     112        <EditorIndex Value="8"/>
    112113        <WindowIndex Value="0"/>
    113114        <TopLine Value="14"/>
    114         <CursorPos X="55" Y="30"/>
     115        <CursorPos X="1" Y="24"/>
    115116        <UsageCount Value="274"/>
     117        <Loaded Value="True"/>
    116118        <DefaultSyntaxHighlighter Value="Delphi"/>
    117119      </Unit0>
    … …  
    186188        <EditorIndex Value="0"/>
    187189        <WindowIndex Value="0"/>
    188         <TopLine Value="108"/>
    189         <CursorPos X="39" Y="119"/>
     190        <TopLine Value="99"/>
     191        <CursorPos X="1" Y="101"/>
    190192        <UsageCount Value="327"/>
    191193        <Loaded Value="True"/>
    … …  
    199201        <ResourceBaseClass Value="Form"/>
    200202        <UnitName Value="UItemEdit"/>
     203        <IsVisibleTab Value="True"/>
    201204        <EditorIndex Value="1"/>
    202205        <WindowIndex Value="0"/>
    203         <TopLine Value="14"/>
    204         <CursorPos X="45" Y="24"/>
     206        <TopLine Value="263"/>
     207        <CursorPos X="9" Y="278"/>
    205208        <UsageCount Value="318"/>
    206209        <Loaded Value="True"/>
    … …  
    215218        <ResourceBaseClass Value="Form"/>
    216219        <UnitName Value="ULoginForm"/>
    217         <EditorIndex Value="13"/>
    218         <WindowIndex Value="0"/>
    219         <TopLine Value="47"/>
    220         <CursorPos X="3" Y="49"/>
     220        <EditorIndex Value="7"/>
     221        <WindowIndex Value="0"/>
     222        <TopLine Value="43"/>
     223        <CursorPos X="24" Y="64"/>
    221224        <UsageCount Value="317"/>
    222225        <Loaded Value="True"/>
    … …  
    231234        <ResourceBaseClass Value="Form"/>
    232235        <UnitName Value="UMainForm"/>
    233         <EditorIndex Value="3"/>
    234         <WindowIndex Value="0"/>
    235         <TopLine Value="286"/>
    236         <CursorPos X="1" Y="304"/>
     236        <EditorIndex Value="6"/>
     237        <WindowIndex Value="0"/>
     238        <TopLine Value="204"/>
     239        <CursorPos X="1" Y="208"/>
    237240        <UsageCount Value="317"/>
    238241        <Loaded Value="True"/>
    … …  
    256259        <ResourceBaseClass Value="Form"/>
    257260        <UnitName Value="UItemAdd"/>
    258         <EditorIndex Value="2"/>
     261        <EditorIndex Value="5"/>
    259262        <WindowIndex Value="0"/>
    260263        <TopLine Value="124"/>
    … …  
    269272        <IsPartOfProject Value="True"/>
    270273        <UnitName Value="USystem"/>
    271         <EditorIndex Value="7"/>
     274        <EditorIndex Value="14"/>
    272275        <WindowIndex Value="0"/>
    273276        <TopLine Value="242"/>
    … …  
    283286        <ResourceBaseClass Value="DataModule"/>
    284287        <UnitName Value="UCore"/>
    285         <EditorIndex Value="6"/>
     288        <EditorIndex Value="13"/>
    286289        <WindowIndex Value="0"/>
    287290        <TopLine Value="42"/>
    … …  
    298301        <ResourceBaseClass Value="Form"/>
    299302        <UnitName Value="USettingForm"/>
    300         <WindowIndex Value="0"/>
    301         <TopLine Value="48"/>
    302         <CursorPos X="42" Y="66"/>
     303        <EditorIndex Value="4"/>
     304        <WindowIndex Value="0"/>
     305        <TopLine Value="41"/>
     306        <CursorPos X="43" Y="52"/>
    303307        <UsageCount Value="229"/>
     308        <Loaded Value="True"/>
    304309        <DefaultSyntaxHighlighter Value="Delphi"/>
    305310      </Unit15>
    … …  
    308313        <IsPartOfProject Value="True"/>
    309314        <UnitName Value="UApplicationInfo"/>
    310         <IsVisibleTab Value="True"/>
    311         <EditorIndex Value="14"/>
    312315        <WindowIndex Value="0"/>
    313316        <TopLine Value="32"/>
    314317        <CursorPos X="41" Y="52"/>
    315318        <UsageCount Value="229"/>
    316         <Loaded Value="True"/>
    317319        <DefaultSyntaxHighlighter Value="Delphi"/>
    318320      </Unit16>
    … …  
    339341        <IsPartOfProject Value="True"/>
    340342        <UnitName Value="UDataTypes"/>
    341         <EditorIndex Value="8"/>
    342         <WindowIndex Value="0"/>
    343         <TopLine Value="1"/>
    344         <CursorPos X="12" Y="14"/>
     343        <EditorIndex Value="15"/>
     344        <WindowIndex Value="0"/>
     345        <TopLine Value="5"/>
     346        <CursorPos X="15" Y="18"/>
    345347        <UsageCount Value="204"/>
    346348        <Loaded Value="True"/>
    … …  
    373375        <TopLine Value="149"/>
    374376        <CursorPos X="44" Y="164"/>
    375         <UsageCount Value="143"/>
     377        <UsageCount Value="148"/>
    376378        <DefaultSyntaxHighlighter Value="Delphi"/>
    377379      </Unit22>
    … …  
    387389        <Filename Value="../../../Lazarus/0.9.31_2.5.1/lcl/include/control.inc"/>
    388390        <WindowIndex Value="0"/>
    389         <TopLine Value="2274"/>
    390         <CursorPos X="1" Y="2286"/>
     391        <TopLine Value="2363"/>
     392        <CursorPos X="1" Y="2376"/>
    391393        <UsageCount Value="25"/>
    392         <DefaultSyntaxHighlighter Value="Delphi"/>
    393394      </Unit24>
    394395      <Unit25>
    … …  
    442443        <TopLine Value="40"/>
    443444        <CursorPos X="29" Y="54"/>
    444         <UsageCount Value="92"/>
     445        <UsageCount Value="97"/>
    445446        <DefaultSyntaxHighlighter Value="Delphi"/>
    446447      </Unit30>
    … …  
    456457      <Unit32>
    457458        <Filename Value="../../../Lazarus/0.9.31_2.5.1/lcl/include/customform.inc"/>
    458         <WindowIndex Value="0"/>
    459         <TopLine Value="945"/>
    460         <CursorPos X="29" Y="950"/>
     459        <EditorIndex Value="2"/>
     460        <WindowIndex Value="0"/>
     461        <TopLine Value="865"/>
     462        <CursorPos X="1" Y="878"/>
    461463        <UsageCount Value="31"/>
    462         <DefaultSyntaxHighlighter Value="Delphi"/>
     464        <Loaded Value="True"/>
    463465      </Unit32>
    464466      <Unit33>
    … …  
    482484        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>
    483485        <UnitName Value="USqlDatabase"/>
    484         <EditorIndex Value="11"/>
    485486        <WindowIndex Value="0"/>
    486487        <TopLine Value="233"/>
    487488        <CursorPos X="80" Y="254"/>
    488         <UsageCount Value="18"/>
    489         <Loaded Value="True"/>
     489        <UsageCount Value="19"/>
    490490      </Unit35>
    491491      <Unit36>
    … …  
    495495        <ResourceBaseClass Value="Form"/>
    496496        <UnitName Value="ULoginProfileForm"/>
    497         <EditorIndex Value="15"/>
    498         <WindowIndex Value="0"/>
    499         <TopLine Value="167"/>
    500         <CursorPos X="53" Y="187"/>
    501         <UsageCount Value="42"/>
    502         <Loaded Value="True"/>
    503         <LoadedDesigner Value="True"/>
     497        <EditorIndex Value="3"/>
     498        <WindowIndex Value="0"/>
     499        <TopLine Value="175"/>
     500        <CursorPos X="3" Y="183"/>
     501        <UsageCount Value="47"/>
     502        <Loaded Value="True"/>
    504503        <DefaultSyntaxHighlighter Value="Delphi"/>
    505504      </Unit36>
    506505      <Unit37>
    507506        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListObject.inc"/>
    508         <EditorIndex Value="16"/>
    509507        <WindowIndex Value="0"/>
    510508        <TopLine Value="1"/>
    511509        <CursorPos X="24" Y="4"/>
    512         <UsageCount Value="17"/>
    513         <Loaded Value="True"/>
     510        <UsageCount Value="18"/>
    514511      </Unit37>
    515512      <Unit38>
    … …  
    548545        <TopLine Value="4"/>
    549546        <CursorPos X="20" Y="19"/>
    550         <UsageCount Value="36"/>
     547        <UsageCount Value="41"/>
    551548        <DefaultSyntaxHighlighter Value="Delphi"/>
    552549      </Unit41>
    … …  
    587584        <IsPartOfProject Value="True"/>
    588585        <UnitName Value="UChronisClient"/>
    589         <EditorIndex Value="4"/>
     586        <EditorIndex Value="11"/>
    590587        <WindowIndex Value="0"/>
    591588        <TopLine Value="11"/>
    592589        <CursorPos X="26" Y="40"/>
    593         <UsageCount Value="32"/>
     590        <UsageCount Value="37"/>
    594591        <Loaded Value="True"/>
    595592        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    599596        <IsPartOfProject Value="True"/>
    600597        <UnitName Value="UChronisServer"/>
    601         <EditorIndex Value="5"/>
     598        <EditorIndex Value="12"/>
    602599        <WindowIndex Value="0"/>
    603600        <TopLine Value="1"/>
    604601        <CursorPos X="1" Y="14"/>
    605         <UsageCount Value="32"/>
     602        <UsageCount Value="37"/>
    606603        <Loaded Value="True"/>
    607604        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    614611        <TopLine Value="8"/>
    615612        <CursorPos X="53" Y="32"/>
    616         <UsageCount Value="31"/>
     613        <UsageCount Value="36"/>
    617614        <DefaultSyntaxHighlighter Value="Delphi"/>
    618615      </Unit48>
    … …  
    621618        <IsPartOfProject Value="True"/>
    622619        <UnitName Value="UChronisModule"/>
    623         <EditorIndex Value="9"/>
     620        <EditorIndex Value="16"/>
    624621        <WindowIndex Value="0"/>
    625622        <TopLine Value="1"/>
    626623        <CursorPos X="5" Y="15"/>
    627         <UsageCount Value="22"/>
     624        <UsageCount Value="27"/>
    628625        <Loaded Value="True"/>
    629626        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    633630        <IsPartOfProject Value="True"/>
    634631        <UnitName Value="UModuleSystem"/>
    635         <EditorIndex Value="10"/>
    636         <WindowIndex Value="0"/>
    637         <TopLine Value="138"/>
    638         <CursorPos X="20" Y="164"/>
    639         <UsageCount Value="22"/>
     632        <EditorIndex Value="17"/>
     633        <WindowIndex Value="0"/>
     634        <TopLine Value="54"/>
     635        <CursorPos X="42" Y="66"/>
     636        <UsageCount Value="27"/>
    640637        <Loaded Value="True"/>
    641638        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    643640      <Unit51>
    644641        <Filename Value="../../../other/lazarus/lcl/include/customlistbox.inc"/>
    645         <EditorIndex Value="12"/>
    646642        <WindowIndex Value="0"/>
    647643        <TopLine Value="195"/>
    648644        <CursorPos X="40" Y="213"/>
    649645        <UsageCount Value="10"/>
    650         <Loaded Value="True"/>
    651646      </Unit51>
     647      <Unit52>
     648        <Filename Value="../../../Lazarus/0.9.31_2.5.1/lcl/include/containedaction.inc"/>
     649        <EditorIndex Value="9"/>
     650        <WindowIndex Value="0"/>
     651        <TopLine Value="91"/>
     652        <CursorPos X="1" Y="106"/>
     653        <UsageCount Value="11"/>
     654        <Loaded Value="True"/>
     655      </Unit52>
     656      <Unit53>
     657        <Filename Value="../../../Lazarus/0.9.31_2.5.1/lcl/include/customaction.inc"/>
     658        <EditorIndex Value="10"/>
     659        <WindowIndex Value="0"/>
     660        <TopLine Value="240"/>
     661        <CursorPos X="1" Y="253"/>
     662        <UsageCount Value="11"/>
     663        <Loaded Value="True"/>
     664      </Unit53>
    652665    </Units>
    653666    <JumpHistory Count="30" HistoryIndex="29">
    654667      <Position1>
    655         <Filename Value="USystem.pas"/>
    656         <Caret Line="641" Column="1" TopLine="633"/>
     668        <Filename Value="Forms/UItemEdit.pas"/>
     669        <Caret Line="1" Column="3" TopLine="1"/>
    657670      </Position1>
    658671      <Position2>
    659         <Filename Value="USystem.pas"/>
    660         <Caret Line="642" Column="1" TopLine="633"/>
     672        <Filename Value="Forms/UItemEdit.pas"/>
     673        <Caret Line="25" Column="11" TopLine="4"/>
    661674      </Position2>
    662675      <Position3>
    663         <Filename Value="USystem.pas"/>
    664         <Caret Line="643" Column="1" TopLine="633"/>
     676        <Filename Value="Forms/UItemEdit.pas"/>
     677        <Caret Line="68" Column="43" TopLine="47"/>
    665678      </Position3>
    666679      <Position4>
    667         <Filename Value="USystem.pas"/>
    668         <Caret Line="644" Column="1" TopLine="633"/>
     680        <Filename Value="Forms/UItemEdit.pas"/>
     681        <Caret Line="135" Column="1" TopLine="122"/>
    669682      </Position4>
    670683      <Position5>
    671         <Filename Value="USystem.pas"/>
    672         <Caret Line="645" Column="1" TopLine="633"/>
     684        <Filename Value="../../../Lazarus/0.9.31_2.5.1/lcl/include/customform.inc"/>
     685        <Caret Line="878" Column="1" TopLine="865"/>
    673686      </Position5>
    674687      <Position6>
    675         <Filename Value="USystem.pas"/>
    676         <Caret Line="647" Column="1" TopLine="633"/>
     688        <Filename Value="Forms/UItemEdit.pas"/>
     689        <Caret Line="170" Column="38" TopLine="158"/>
    677690      </Position6>
    678691      <Position7>
    679         <Filename Value="USystem.pas"/>
    680         <Caret Line="649" Column="1" TopLine="633"/>
     692        <Filename Value="Forms/UItemEdit.pas"/>
     693        <Caret Line="135" Column="1" TopLine="122"/>
    681694      </Position7>
    682695      <Position8>
    683         <Filename Value="Forms/UMainForm.pas"/>
    684         <Caret Line="305" Column="89" TopLine="286"/>
     696        <Filename Value="Forms/UItemView.pas"/>
     697        <Caret Line="136" Column="78" TopLine="130"/>
    685698      </Position8>
    686699      <Position9>
    687         <Filename Value="Module/UModuleSystem.pas"/>
    688         <Caret Line="165" Column="38" TopLine="141"/>
     700        <Filename Value="Forms/UMainForm.pas"/>
     701        <Caret Line="107" Column="54" TopLine="97"/>
    689702      </Position9>
    690703      <Position10>
    691         <Filename Value="Module/UModuleSystem.pas"/>
    692         <Caret Line="145" Column="1" TopLine="138"/>
     704        <Filename Value="Forms/UItemEdit.pas"/>
     705        <Caret Line="188" Column="49" TopLine="187"/>
    693706      </Position10>
    694707      <Position11>
    695         <Filename Value="Forms/UMainForm.pas"/>
    696         <Caret Line="304" Column="1" TopLine="286"/>
     708        <Filename Value="Forms/UItemEdit.pas"/>
     709        <Caret Line="36" Column="15" TopLine="30"/>
    697710      </Position11>
    698711      <Position12>
    699         <Filename Value="Module/UModuleSystem.pas"/>
    700         <Caret Line="165" Column="17" TopLine="138"/>
     712        <Filename Value="Forms/UItemEdit.pas"/>
     713        <Caret Line="58" Column="41" TopLine="39"/>
    701714      </Position12>
    702715      <Position13>
    703         <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>
    704         <Caret Line="241" Column="3" TopLine="235"/>
     716        <Filename Value="Forms/UItemEdit.pas"/>
     717        <Caret Line="75" Column="1" TopLine="61"/>
    705718      </Position13>
    706719      <Position14>
    707         <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>
    708         <Caret Line="240" Column="1" TopLine="233"/>
     720        <Filename Value="Forms/UMainForm.pas"/>
     721        <Caret Line="9" Column="49" TopLine="1"/>
    709722      </Position14>
    710723      <Position15>
    711         <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>
    712         <Caret Line="241" Column="1" TopLine="233"/>
     724        <Filename Value="Forms/UMainForm.pas"/>
     725        <Caret Line="170" Column="22" TopLine="149"/>
    713726      </Position15>
    714727      <Position16>
    715         <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>
    716         <Caret Line="242" Column="1" TopLine="233"/>
     728        <Filename Value="Forms/UMainForm.pas"/>
     729        <Caret Line="166" Column="34" TopLine="150"/>
    717730      </Position16>
    718731      <Position17>
    719         <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>
    720         <Caret Line="243" Column="1" TopLine="233"/>
     732        <Filename Value="Forms/UMainForm.pas"/>
     733        <Caret Line="170" Column="22" TopLine="150"/>
    721734      </Position17>
    722735      <Position18>
    723         <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>
    724         <Caret Line="244" Column="1" TopLine="233"/>
     736        <Filename Value="Forms/UMainForm.pas"/>
     737        <Caret Line="171" Column="19" TopLine="150"/>
    725738      </Position18>
    726739      <Position19>
    727         <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>
    728         <Caret Line="245" Column="1" TopLine="233"/>
     740        <Filename Value="Forms/UMainForm.pas"/>
     741        <Caret Line="172" Column="27" TopLine="151"/>
    729742      </Position19>
    730743      <Position20>
    731         <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>
    732         <Caret Line="249" Column="1" TopLine="233"/>
     744        <Filename Value="Forms/UMainForm.pas"/>
     745        <Caret Line="372" Column="14" TopLine="354"/>
    733746      </Position20>
    734747      <Position21>
    735         <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>
    736         <Caret Line="250" Column="1" TopLine="233"/>
     748        <Filename Value="Forms/UMainForm.pas"/>
     749        <Caret Line="376" Column="1" TopLine="355"/>
    737750      </Position21>
    738751      <Position22>
    739         <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>
    740         <Caret Line="263" Column="1" TopLine="234"/>
     752        <Filename Value="Forms/UItemEdit.pas"/>
     753        <Caret Line="46" Column="1" TopLine="28"/>
    741754      </Position22>
    742755      <Position23>
    743         <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>
    744         <Caret Line="264" Column="1" TopLine="235"/>
     756        <Filename Value="Forms/UItemEdit.pas"/>
     757        <Caret Line="82" Column="1" TopLine="78"/>
    745758      </Position23>
    746759      <Position24>
    747         <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>
    748         <Caret Line="201" Column="1" TopLine="183"/>
     760        <Filename Value="Forms/UMainForm.pas"/>
     761        <Caret Line="283" Column="1" TopLine="280"/>
    749762      </Position24>
    750763      <Position25>
    751         <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>
    752         <Caret Line="240" Column="1" TopLine="222"/>
     764        <Filename Value="Forms/UMainForm.pas"/>
     765        <Caret Line="290" Column="1" TopLine="285"/>
    753766      </Position25>
    754767      <Position26>
    755         <Filename Value="Module/UModuleSystem.pas"/>
    756         <Caret Line="165" Column="16" TopLine="138"/>
     768        <Filename Value="Forms/UItemEdit.pas"/>
     769        <Caret Line="79" Column="1" TopLine="74"/>
    757770      </Position26>
    758771      <Position27>
    759         <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>
    760         <Caret Line="241" Column="3" TopLine="235"/>
     772        <Filename Value="Forms/UItemEdit.pas"/>
     773        <Caret Line="143" Column="1" TopLine="139"/>
    761774      </Position27>
    762775      <Position28>
    763         <Filename Value="USystem.pas"/>
    764         <Caret Line="248" Column="51" TopLine="242"/>
     776        <Filename Value="Forms/UItemEdit.pas"/>
     777        <Caret Line="77" Column="3" TopLine="75"/>
    765778      </Position28>
    766779      <Position29>
    767         <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>
    768         <Caret Line="254" Column="80" TopLine="233"/>
     780        <Filename Value="Forms/UItemEdit.pas"/>
     781        <Caret Line="85" Column="17" TopLine="82"/>
    769782      </Position29>
    770783      <Position30>
    771         <Filename Value="../../../other/lazarus/lcl/include/customlistbox.inc"/>
    772         <Caret Line="213" Column="40" TopLine="195"/>
     784        <Filename Value="Forms/UItemEdit.pas"/>
     785        <Caret Line="64" Column="52" TopLine="45"/>
    773786      </Position30>
    774787    </JumpHistory>
    … …  
    781794    <SearchPaths>
    782795      <IncludeFiles Value="$(ProjOutDir)"/>
    783       <Libraries Value="/usr/lib/mysql/;/usr/lib64/mysql/"/>
     796      <Libraries Value="/usr/lib/mysql;/usr/lib64/mysql"/>
    784797      <OtherUnitFiles Value="Common;Forms;Application;Module"/>
    785798      <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
Note: See TracChangeset for help on using the changeset viewer.