Changeset 27


Ignore:
Timestamp:
Nov 9, 2011, 4:11:56 PM (13 years ago)
Author:
george
Message:
  • Added: Partial client-server protocol layer implementation.
Location:
trunk
Files:
4 added
19 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/ULoginForm.lfm

    r25 r27  
    4444    Width = 75
    4545    Caption = 'Login'
     46    Default = True
    4647    ModalResult = 1
    4748    OnClick = ButtonLoginClick
    … …  
    5455    Width = 104
    5556    TabOrder = 2
    56   end
    57   object MaskEditPassword: TMaskEdit
    58     Left = 88
    59     Height = 21
    60     Top = 96
    61     Width = 104
    62     CharCase = ecNormal
    63     MaxLength = 1
    64     TabOrder = 3
    65     EditMask = '*'
    66     Text = '*'
    67     SpaceChar = '_'
    6857  end
    6958  object Label3: TLabel
    … …  
    8271    ItemHeight = 13
    8372    Style = csDropDownList
    84     TabOrder = 4
     73    TabOrder = 3
    8574  end
    8675  object ButtonChange: TButton
    … …  
    9180    Caption = 'Change'
    9281    OnClick = ButtonChangeClick
    93     TabOrder = 5
     82    TabOrder = 4
    9483  end
    9584  object Image1: TImage
    … …  
    9988    Width = 152
    10089  end
     90  object EditPassword: TEdit
     91    Left = 89
     92    Height = 21
     93    Top = 96
     94    Width = 104
     95    EchoMode = emPassword
     96    PasswordChar = '*'
     97    TabOrder = 5
     98  end
    10199end

  • trunk/Forms/ULoginForm.lrt

    r25 r27  
    44TLOGINFORM.BUTTONCANCEL.CAPTION=Close
    55TLOGINFORM.BUTTONLOGIN.CAPTION=Login
    6 TLOGINFORM.MASKEDITPASSWORD.TEXT=*
    76TLOGINFORM.LABEL3.CAPTION=Connection:
    87TLOGINFORM.BUTTONCHANGE.CAPTION=Change

  • trunk/Forms/ULoginForm.pas

    r25 r27  
    1919    ComboBoxConnection: TComboBox;
    2020    EditUserName: TEdit;
     21    EditPassword: TEdit;
    2122    Image1: TImage;
    2223    Label1: TLabel;
    2324    Label2: TLabel;
    2425    Label3: TLabel;
    25     MaskEditPassword: TMaskEdit;
    2626    procedure ButtonCancelClick(Sender: TObject);
    2727    procedure ButtonChangeClick(Sender: TObject);
    … …  
    4949  Core.LastUserName := EditUserName.Text;
    5050  Core.LastProfile := ComboBoxConnection.ItemIndex;
    51   Core.LastPassword := MaskEditPassword.Text;
     51  Core.LastPassword := EditPassword.Text;
    5252end;
    5353
    … …  
    6060begin
    6161  MainForm.PersistentForm.Load(Self);
     62  EditUserName.Text := Core.LastUserName;
     63  EditPassword.Text := '';
     64  Core.Profiles.FillStrings(ComboBoxConnection.Items);
    6265  ComboBoxConnection.ItemIndex := Core.LastProfile;
    63   EditUserName.Text := Core.LastUserName;
    64   MaskEditPassword.Text := '';
    65   Core.Profiles.FillStrings(ComboBoxConnection.Items);
     66  if (ComboBoxConnection.Items.Count > 0) and
     67    (ComboBoxConnection.ItemIndex = -1) then ComboBoxConnection.ItemIndex := 0;
    6668end;
    6769
    … …  
    7577  if LoginProfileForm.ShowModal = mrOk then begin
    7678    Core.Profiles.FillStrings(ComboBoxConnection.Items);
     79    Core.LastProfile := ComboBoxConnection.ItemIndex;
     80    ComboBoxConnection.ItemIndex := Core.LastProfile;
     81    if (ComboBoxConnection.Items.Count > 0) and
     82      (ComboBoxConnection.ItemIndex = -1) then ComboBoxConnection.ItemIndex := 0;
    7783  end;
    7884end;

  • trunk/Forms/ULoginProfileForm.lfm

    r25 r27  
    149149    Top = 312
    150150    Width = 75
     151    Anchors = [akTop, akRight]
    151152    Caption = 'Cancel'
    152153    ModalResult = 2

  • trunk/Forms/ULoginProfileForm.pas

    r25 r27  
    1010
    1111type
    12   TConnectProtocol = (cpXMLRPC);
     12  TConnectProtocol = (cpXMLRPC, cpDirect);
    1313
    1414  { TConnectProfile }
    … …  
    155155procedure TLoginProfileForm.ButtonAddClick(Sender: TObject);
    156156begin
    157   TConnectProfile(ProfileList.AddNew(TConnectProfile.Create));
     157  ProfileList.AddNew(TConnectProfile.Create);
    158158  ListBox1.Items.AddObject(TConnectProfile(ProfileList.Last).Name,
    159159    TConnectProfile(ProfileList.Last));
    … …  
    183183  ProfileList.Assign(Core.Profiles);
    184184  ProfileList.FillStrings(ListBox1.Items);
     185  ListBox1.ItemIndex := Core.LastProfile;
     186  if (ListBox1.Items.Count > 0) and
     187    (ListBox1.ItemIndex = -1) then ListBox1.ItemIndex := 0;
    185188end;
    186189
    … …  
    218221      OpenKey(AKey + '\ConnectProfile\' + IntToStr(I), True);
    219222      with TConnectProfile(AddNew(TConnectProfile.Create)) do begin
    220         HostName := ReadStringWithDefault('HostName', 'localhost');
    221         Port := ReadIntegerWithDefault('Port', 8090);
    222         Database := ReadStringWithDefault('Database', 'database');
    223         Protocol := TConnectProtocol(ReadIntegerWithDefault('Protocol', 0));
    224         UserName := ReadStringWithDefault('UserName', 'admin');
     223        Name := ReadStringWithDefault('Name', Name);
     224        HostName := ReadStringWithDefault('HostName', HostName);
     225        Port := ReadIntegerWithDefault('Port', Port);
     226        Database := ReadStringWithDefault('Database', Database);
     227        Protocol := TConnectProtocol(ReadIntegerWithDefault('Protocol', Integer(Protocol)));
     228        UserName := ReadStringWithDefault('UserName', UserName);
    225229      end;
    226230    end;
    … …  
    242246      OpenKey(AKey + '\ConnectProfile\' + IntToStr(I), True);
    243247      with TConnectProfile(Items[I]) do begin
     248        WriteString('Name', Name);
    244249        WriteString('HostName', HostName);
    245250        WriteInteger('Port', Port);

  • trunk/Forms/UMainForm.lfm

    r25 r27  
    11object MainForm: TMainForm
    2   Left = 271
     2  Left = 307
    33  Height = 446
    4   Top = 159
     4  Top = 126
    55  Width = 640
    66  ActiveControl = Panel1
    … …  
    88  ClientHeight = 427
    99  ClientWidth = 640
     10  Icon.Data = {
     11    BE1000000000010001002020000001002000A810000016000000280000002000
     12    0000400000000100200000000000001000006400000064000000000000000000
     13    0000000000000000000000000000000000000000000000000000000000000000
     14    0000000000000000000000000000000000000000000000000000000000000000
     15    0000000000000000000000000000000000000000000000000000000000000000
     16    0000000000000000000000000000000000000000000000000000000000000000
     17    00000000000000000000000000000000000000000000D6D2ABFFB7B06CFFB5AE
     18    66FFB9B370FFCFCA9CFF00000000000000000000000000000000000000000000
     19    0000000000000000000000000000000000000000000000000000E8E1B3FFDDD4
     20    91FFDDD491FFE4DDA7FF00000000000000000000000000000000000000000000
     21    000000000000000000000000000000000000A0963BFF877C09FF837700FF8377
     22    00FF837700FF847801FF978C29FFCDC999FF0000000000000000000000000000
     23    000000000000000000000000000000000000E3DBA4FFD3C86EFFD2C66AFFD2C6
     24    6AFFD2C66AFFD2C66AFFD4C871FFE0D89AFF0000000000000000000000000000
     25    00000000000000000000000000008F8418FF837700FF837700FF867A06FF877C
     26    09FF877B08FF847801FF837700FF877B07FFBAB371FF00000000000000000000
     27    0000000000000000000000000000DFD798FFD2C66AFFD2C66AFFD2C66AFFD5CA
     28    74FFD5CA74FFD2C86DFFD2C66AFFD2C66AFFDAD188FF00000000000000000000
     29    000000000000000000009A9030FF837700FF837700FFAAA251FF000000000000
     30    000000000000B2AA61FF857904FF837700FF857904FFBAB371FF000000000000
     31    00000000000000000000DED594FFD2C66AFFD2C66AFFD6CB79FF000000000000
     32    00000000000000000000DBD189FFD2C66AFFD2C66AFFE3DBA4FF000000000000
     33    000000000000BDB678FF847801FF847801FFAFA75CFF00000000000000000000
     34    00000000000000000000C0BA7DFF887C0AFF837700FF948A23FF000000000000
     35    000000000000DFD697FFD2C66AFFD2C66AFFD8CD7EFF00000000000000000000
     36    0000000000000000000000000000DAD085FFD2C66AFFD4C871FF000000000000
     37    000000000000998E2DFF837700FF8A7E0EFF0000000000000000000000000000
     38    0000000000000000000000000000CBC695FF9A9030FF00000000000000000000
     39    0000E0D89AFFD2C66AFFD2C66AFFD8CE81FF0000000000000000000000000000
     40    000000000000000000000000000000000000D2C66CFFD2C66AFF000000000000
     41    00000000000090851AFF837700FF988E2CFF0000000000000000000000000000
     42    000000000000000000000000000000000000000000000000000000000000E0D7
     43    9AFFD2C66AFFD2C66AFFD7CC7CFF000000000000000000000000000000000000
     44    000000000000000000000000000000000000D3C76DFFD2C66AFFDED594FF0000
     45    00000000000092871FFF837700FF91861CFF0000000000000000000000000000
     46    0000000000000000000000000000000000000000000000000000DED695FFD2C6
     47    6AFFD2C66AFFD6CA77FF00000000000000000000000000000000000000000000
     48    000000000000000000000000000000000000D5CA74FFD2C66AFFDED695FF0000
     49    000000000000A29941FF837700FF867A06FF0000000000000000000000000000
     50    00000000000000000000000000000000000000000000DED594FFD2C66AFFD2C6
     51    6AFFD7CC7CFF0000000000000000000000000000000000000000000000000000
     52    000000000000000000000000000000000000D3C76DFFD2C66AFF000000000000
     53    000000000000C2BD84FF847801FF837700FF968C29FF00000000000000000000
     54    000000000000000000000000000000000000DFD798FFD2C66AFFD2C66AFFD8CE
     55    81FF0000000000000000C9C490FFBEB87BFF0000000000000000000000000000
     56    0000000000000000000000000000D5CA74FFD2C66AFFD7CC7CFF000000000000
     57    000000000000000000009F9539FF837700FF837700FF9D9436FF000000000000
     58    0000000000000000000000000000E0D89AFFD2C66AFFD2C66AFFD8CE7FFF0000
     59    000000000000D1CCA1FF897D0BFF877B08FFBCB575FF00000000000000000000
     60    00000000000000000000D6CB79FFD2C66AFFD2C66CFFE7E1B1FF000000000000
     61    00000000000000000000000000009A9030FF837700FF837700FF9E9538FF0000
     62    00000000000000000000E2DAA0FFD2C66AFFD2C66AFFD6CC7AFF000000000000
     63    000000000000CFCA9CFF877B07FF837700FF867A06FFBBB473FF000000000000
     64    000000000000D9CF82FFD2C66AFFD2C66AFFE0D79AFF00000000000000000000
     65    000000000000000000000000000000000000978C29FF837700FF837700FF9B91
     66    31FF000000000000000000000000D7CC7CFFD6CB79FF00000000000000000000
     67    00000000000000000000CBC695FF877B07FF837700FF857A05FFBAB471FF0000
     68    00000000000000000000D2C66CFFDED594FF0000000000000000000000000000
     69    00000000000000000000000000000000000000000000978C29FF837700FF8377
     70    00FF968C27FF0000000000000000000000000000000000000000000000000000
     71    0000000000000000000000000000CBC695FF897D0DFF837700FF847801FFB7B0
     72    6CFF000000000000000000000000000000000000000000000000000000000000
     73    00000000000000000000000000000000000000000000000000009D9335FF8377
     74    00FF837700FF9B9131FF00000000000000000000000000000000000000000000
     75    000000000000000000000000000000000000CBC695FF8A7E0EFF837700FF8579
     76    04FFB2AA61FF0000000000000000000000000000000000000000000000000000
     77    0000000000000000000000000000000000000000000000000000000000009C93
     78    34FF837700FF837700FF9E9538FF000000000000000000000000000000000000
     79    00000000000000000000000000000000000000000000D1CCA1FF8E8215FF8377
     80    00FF857904FFB2AA61FF00000000000000000000000000000000000000000000
     81    0000000000000000000000000000000000000000000000000000000000000000
     82    0000988E2CFF837700FF837700FF9D9436FF0000000000000000000000000000
     83    0000000000000000000000000000EBE6C0FF000000000000000000000000887D
     84    0CFF837700FF857903FFB0A85DFF000000000000000000000000000000000000
     85    000000000000000000000000000000000000D4C871FFD5CA74FF000000000000
     86    000000000000978C29FF837700FF837700FF978C29FF00000000000000000000
     87    00000000000000000000E6DFADFFD3C76DFFD8CD7EFF00000000000000000000
     88    00008E8215FF837700FF847801FFAEA659FF0000000000000000000000000000
     89    0000000000000000000000000000D5CA74FFD2C66AFFD2C66AFFE7E1B1FF0000
     90    000000000000000000009A9030FF837700FF837700FF988E2CFF000000000000
     91    000000000000E7E1B1FFD3C76DFFD2C66AFFD5CA74FF00000000000000000000
     92    00000000000091861CFF837700FF847801FFB0A85DFF00000000000000000000
     93    00000000000000000000DCD38DFFD2C66AFFD2C66AFFE5DEAAFF000000000000
     94    00000000000000000000000000009D9335FF837801FF9B9131FF000000000000
     95    0000E7E1B1FFD3C86EFFD2C66AFFD5CA74FF0000000000000000000000000000
     96    000000000000000000008F8418FF837700FF857903FFC2BC81FF000000000000
     97    00000000000000000000D2C66AFFD2C66AFFE2DAA0FF00000000000000000000
     98    000000000000000000000000000000000000ACA455FF0000000000000000E7E1
     99    B1FFD3C86EFFD2C66AFFD4C871FF000000000000000000000000000000000000
     100    00000000000000000000D2CEA3FF857A05FF837700FF938921FF000000000000
     101    000000000000DBD38CFFD2C66AFFD4C871FF0000000000000000000000000000
     102    0000000000000000000000000000000000000000000000000000E6E0B0FFD3C8
     103    6EFFD2C66AFFD2C66CFF00000000000000000000000000000000000000000000
     104    0000000000000000000000000000B0A85DFF837700FF837700FFCEC99BFF0000
     105    000000000000D7CC7CFFD2C66AFFD7CC7CFF0000000000000000000000000000
     106    00000000000000000000000000000000000000000000E5DEADFFD2C66CFFD2C6
     107    6AFFD5C973FF0000000000000000000000000000000000000000000000000000
     108    000000000000000000000000000000000000867A06FF837700FFB3AB64FF0000
     109    000000000000D7CC7CFFD2C66AFFDAD085FF0000000000000000000000000000
     110    000000000000000000000000000000000000E6DFB0FFD3C76DFFD2C66AFFD5CA
     111    74FF000000000000000000000000000000000000000000000000000000000000
     112    000000000000000000000000000000000000877B08FF837700FFB6AF68FF0000
     113    000000000000DACF84FFD2C66AFFD5CA74FF0000000000000000000000000000
     114    0000000000000000000000000000E7E1B1FFD3C86EFFD2C66AFFD5CA74FF0000
     115    00000000000000000000AFA85CFF988E2BFF0000000000000000000000000000
     116    0000000000000000000000000000C4BE86FF847801FF847801FF000000000000
     117    000000000000EAE5BCFFD2C66AFFD2C66AFFE9E4B9FF00000000000000000000
     118    00000000000000000000E7E1B1FFD3C86EFFD2C66AFFD3C76DFF000000000000
     119    000000000000B9B471FF837700FF837700FF958A25FF00000000000000000000
     120    00000000000000000000000000008F8418FF837700FF90851AFF000000000000
     121    00000000000000000000DAD085FFD2C66AFFD2C66AFFE1D99CFF000000000000
     122    000000000000E0D89AFFD2C66AFFD2C66AFFD3C870FF00000000000000000000
     123    00000000000000000000978C29FF837700FF837700FF8F8418FFC7C28CFF0000
     124    000000000000C8C38EFF8C8113FF837700FF837700FFBDB678FF000000000000
     125    0000000000000000000000000000D8CD7EFFD2C66AFFD2C66AFFD3C86EFFD4C8
     126    6FFFD3C76DFFD2C66AFFD2C66AFFD5CA74FF0000000000000000000000000000
     127    00000000000000000000000000009F9539FF847801FF837700FF857904FF877C
     128    09FF877C09FF857904FF837700FF837700FFA69D48FF00000000000000000000
     129    000000000000000000000000000000000000DBD38CFFD2C66CFFD2C66AFFD2C6
     130    6AFFD2C66AFFD2C66AFFD7CC7CFFEBE5BDFF0000000000000000000000000000
     131    000000000000000000000000000000000000BAB371FF938921FF837700FF8377
     132    00FF837700FF837700FF8A7E0EFFBDB678FF0000000000000000000000000000
     133    0000000000000000000000000000000000000000000000000000E6DFADFFE3DC
     134    A5FFEBE6BEFF0000000000000000000000000000000000000000000000000000
     135    000000000000000000000000000000000000000000000000000000000000B7B0
     136    6CFFB5AE66FFC2BC81FF00000000000000000000000000000000000000000000
     137    0000000000000000000000000000000000000000000000000000000000000000
     138    0000000000000000000000000000000000000000000000000000000000000000
     139    0000000000000000000000000000000000000000000000000000000000000000
     140    0000000000000000000000000000000000000000000000000000000000000000
     141    0000000000000000000000000000000000000000000000000000000000000000
     142    0000000000000000000000000000000000000000000000000000000000000000
     143    0000000000000000000000000000000000000000000000000000000000000000
     144    0000000000000000000000000000000000000000000000000000000000000000
     145    0000
     146  }
    10147  Menu = MainMenu1
    11148  OnClose = FormClose
    … …  
    189326      Caption = 'About'
    190327      OnExecute = AAboutExecute
     328    end
     329    object ADisconnect: TAction
     330      Caption = 'Disconnect'
     331      OnExecute = ADisconnectExecute
    191332    end
    192333  end
    … …  
    323464        OnClick = MenuItem17Click
    324465      end
     466      object MenuItem22: TMenuItem
     467        Action = ADisconnect
     468      end
    325469      object MenuItem14: TMenuItem
    326470        Action = AExit

  • trunk/Forms/UMainForm.lrt

    r25 r27  
    2121TMAINFORM.AIMPORTSTRUCTURE.CAPTION=Import structure...
    2222TMAINFORM.AABOUT.CAPTION=About
     23TMAINFORM.ADISCONNECT.CAPTION=Disconnect
    2324TMAINFORM.MENUITEM13.CAPTION=Server
    2425TMAINFORM.MENUITEM11.CAPTION=View

  • trunk/Forms/UMainForm.pas

    r25 r27  
    1818    AConnect: TAction;
    1919    AAbout: TAction;
     20    ADisconnect: TAction;
    2021    AImportStructure: TAction;
    2122    AInitSystemValues: TAction;
    … …  
    5556    MenuItem20: TMenuItem;
    5657    MenuItem21: TMenuItem;
     58    MenuItem22: TMenuItem;
    5759    MenuItem3: TMenuItem;
    5860    MenuItem4: TMenuItem;
    … …  
    7173    procedure AAboutExecute(Sender: TObject);
    7274    procedure AConnectExecute(Sender: TObject);
     75    procedure ADisconnectExecute(Sender: TObject);
    7376    procedure AExitExecute(Sender: TObject);
    7477    procedure AImportStructureExecute(Sender: TObject);
    … …  
    111114    TreeState: TTreeState;
    112115    Report: TReport;
     116    procedure UpdateInterface;
    113117    procedure LoadTree;
    114118    procedure LoadItemList;
    … …  
    130134uses
    131135  UItemView, UItemEdit, UItemAdd, ULoginForm, USettingForm, UApplicationInfo,
    132   UCore, UImportStructureForm, UAboutForm, ULoginProfileForm;
     136  UCore, UImportStructureForm, UAboutForm, ULoginProfileForm, UChronisClientDirect;
    133137
    134138{$R *.lfm}
    … …  
    507511end;
    508512
     513procedure TMainForm.UpdateInterface;
     514begin
     515  ADisconnect.Enabled := Core.System.Database.Connected;
     516  AConnect.Enabled := not Core.System.Database.Connected;
     517  AInitSystemValues.Enabled := Core.System.Database.Connected;
     518  AImportStructure.Enabled := Core.System.Database.Connected;
     519end;
     520
    509521procedure TMainForm.FormCreate(Sender: TObject);
    510522begin
    … …  
    639651      Core.System.Database.UserName := Core.LastUserName;
    640652      Core.System.Database.Password := Core.LastPassword;
     653      Core.System.Database.Port := Port;
     654      if Protocol = cpDirect then Core.Client := TChronisClientDirect.Create;
     655    end;
     656    try
    641657      Core.System.Database.Connect;
    642     end;
    643     InitStructure;
    644     Core.System.LoadTypes;
    645     LoadTree;
    646   end;
     658      InitStructure;
     659      Core.System.LoadTypes;
     660      LoadTree;
     661    except
     662      on E:Exception do ShowMessage(E.Message);
     663    end;
     664  end;
     665end;
     666
     667procedure TMainForm.ADisconnectExecute(Sender: TObject);
     668begin
     669  Core.System.Database.Disconnect;
     670  TreeView1.Items.Clear;
     671  ListView1.Items.Clear;
     672  Core.System.Types.Clear;
     673  FreeAndNil(Core.Client);
    647674end;
    648675

  • trunk/Forms/USettingForm.lfm

    r22 r27  
    1010  OnShow = FormShow
    1111  LCLVersion = '0.9.31'
    12   object Label1: TLabel
    13     Left = 8
    14     Height = 14
    15     Top = 8
    16     Width = 78
    17     Caption = 'Server address:'
    18     ParentColor = False
    19   end
    20   object Edit1: TEdit
    21     Left = 116
    22     Height = 21
    23     Top = 8
    24     Width = 252
    25     TabOrder = 0
    26   end
    2712  object ButtonSave: TButton
    2813    Left = 362
    … …  
    3318    Caption = 'Save'
    3419    ModalResult = 1
    35     TabOrder = 1
     20    TabOrder = 0
    3621  end
    3722  object ButtonCancel: TButton
    … …  
    4328    Caption = 'Cancel'
    4429    ModalResult = 2
    45     TabOrder = 2
     30    TabOrder = 1
    4631  end
    4732  object Label2: TLabel
    … …  
    5944    Width = 132
    6045    ItemHeight = 13
    61     TabOrder = 3
     46    TabOrder = 2
    6247  end
    6348end

  • trunk/Forms/USettingForm.lrt

    r18 r27  
    11TSETTINGFORM.CAPTION=Settings
    2 TSETTINGFORM.LABEL1.CAPTION=Server address:
    32TSETTINGFORM.BUTTONSAVE.CAPTION=Save
    43TSETTINGFORM.BUTTONCANCEL.CAPTION=Cancel

  • trunk/Forms/USettingForm.pas

    r12 r27  
    1717    ButtonCancel: TButton;
    1818    ComboBoxLanguage: TComboBox;
    19     Edit1: TEdit;
    20     Label1: TLabel;
    2119    Label2: TLabel;
    2220    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);

  • trunk/Languages/chronis.cs.po

    r26 r27  
    140140msgstr "Spojení:"
    141141
    142 #: TLOGINFORM.MASKEDITPASSWORD.TEXT
    143 msgctxt "TLOGINFORM.MASKEDITPASSWORD.TEXT"
    144 msgid "*"
    145 msgstr "*"
    146 
    147142#: TLOGINPROFILEFORM.BUTTONADD.CAPTION
    148143msgctxt "TLOGINPROFILEFORM.BUTTONADD.CAPTION"
    … …  
    206201msgid "Connect"
    207202msgstr "Připojit"
     203
     204#: TMAINFORM.ADISCONNECT.CAPTION
     205msgid "Disconnect"
     206msgstr ""
    208207
    209208#: TMAINFORM.AEXIT.CAPTION
    … …  
    340339msgstr "Nastavení"
    341340
    342 #: TSETTINGFORM.LABEL1.CAPTION
    343 msgid "Server address:"
    344 msgstr "Adresa serveru:"
    345 
    346341#: TSETTINGFORM.LABEL2.CAPTION
    347342msgid "Language:"

  • trunk/Languages/chronis.po

    r26 r27  
    126126msgstr ""
    127127
    128 #: TLOGINFORM.MASKEDITPASSWORD.TEXT
    129 msgctxt "TLOGINFORM.MASKEDITPASSWORD.TEXT"
    130 msgid "*"
    131 msgstr ""
    132 
    133128#: TLOGINPROFILEFORM.BUTTONADD.CAPTION
    134129msgctxt "TLOGINPROFILEFORM.BUTTONADD.CAPTION"
    … …  
    193188msgstr ""
    194189
     190#: TMAINFORM.ADISCONNECT.CAPTION
     191msgid "Disconnect"
     192msgstr ""
     193
    195194#: TMAINFORM.AEXIT.CAPTION
    196195msgid "Exit"
    … …  
    313312msgstr ""
    314313
    315 #: TSETTINGFORM.LABEL1.CAPTION
    316 msgid "Server address:"
    317 msgstr ""
    318 
    319314#: TSETTINGFORM.LABEL2.CAPTION
    320315msgid "Language:"

  • trunk/UCore.pas

    r25 r27  
    77uses
    88  Classes, SysUtils, FileUtil, UCoolTranslator, UDebugLog, USystem, Registry,
    9   USqlDatabase, ULoginProfileForm, URegistry;
     9  USqlDatabase, ULoginProfileForm, URegistry, UChronisClient;
    1010
    1111type
    … …  
    3232    RegistryRootKey: HKEY;
    3333    System: TChronisBase;
     34    Client: TChronisClient;
    3435  end;
    3536

  • trunk/USystem.pas

    r24 r27  
    66
    77uses
    8   Classes, SysUtils, SpecializedList, SpecializedDictionary, USqlDatabase,
    9   Strings, UDataTypes, Dialogs, ComCtrls, StdCtrls, Controls;
     8  Classes, SysUtils, SpecializedList, SpecializedDictionary,
     9  Strings, UDataTypes, Dialogs, ComCtrls, StdCtrls, Controls, UChronisClient;
    1010
    1111const
    … …  
    103103  TChronisBase = class
    104104    Types: TChronisTypeList;
    105     Database: TSQLDatabase;
     105    Client: TChronisClient;
    106106    function AddType(Name, DataType: string; TypeIndex: TDbValueType): Integer;
    107107    function AddGroup(Name: string; ParentGroupId: Integer = 0): Integer;
    … …  
    180180procedure TReport.Load(Obj: TChronisObject; Filter: string = '');
    181181var
    182   Properties: TDbRows;
    183   Values: TDbRows;
     182  Properties: TItemList;
     183  Values: TItemList;
    184184  I: Integer;
    185185  C: Integer;
    … …  
    193193    // Load column names
    194194    try
    195       Properties := TDbRows.Create;
     195      Properties := TItemList.Create;
     196      Base.Client.GetItemList(PropertyTable, Condition, Properties);
     197      ?
    196198      Base.Database.Query(Properties, 'SELECT * FROM `' + PropertyTable +
    197199        '` WHERE `Object`=' + IntToStr(Obj.Id));
    … …  
    627629begin
    628630  Types := TChronisTypeList.Create;
     631  Client := nil;
    629632end;
    630633
    … …  
    632635begin
    633636  Types.Free;
     637  Client.Free;
    634638  inherited Destroy;
    635639end;

  • trunk/chronis.lpi

    r25 r27  
    88      <ResourceType Value="res"/>
    99      <UseXPManifest Value="True"/>
     10      <Icon Value="0"/>
    1011      <ActiveWindowIndexAtStart Value="0"/>
    1112    </General>
    … …  
    104105      </Item6>
    105106    </RequiredPackages>
    106     <Units Count="44">
     107    <Units Count="49">
    107108      <Unit0>
    108109        <Filename Value="chronis.lpr"/>
    … …  
    121122        <TopLine Value="330"/>
    122123        <CursorPos X="1" Y="347"/>
    123         <UsageCount Value="29"/>
     124        <UsageCount Value="28"/>
    124125        <DefaultSyntaxHighlighter Value="Delphi"/>
    125126      </Unit1>
    … …  
    133134        <TopLine Value="118"/>
    134135        <CursorPos X="25" Y="144"/>
    135         <UsageCount Value="83"/>
     136        <UsageCount Value="82"/>
    136137        <DefaultSyntaxHighlighter Value="Delphi"/>
    137138      </Unit2>
    … …  
    145146        <TopLine Value="1"/>
    146147        <CursorPos X="24" Y="14"/>
    147         <UsageCount Value="83"/>
     148        <UsageCount Value="82"/>
    148149        <DefaultSyntaxHighlighter Value="Delphi"/>
    149150      </Unit3>
    … …  
    164165        <TopLine Value="58"/>
    165166        <CursorPos X="73" Y="232"/>
    166         <UsageCount Value="249"/>
     167        <UsageCount Value="248"/>
    167168        <DefaultSyntaxHighlighter Value="Delphi"/>
    168169      </Unit5>
    … …  
    214215        <ResourceBaseClass Value="Form"/>
    215216        <UnitName Value="ULoginForm"/>
    216         <EditorIndex Value="11"/>
    217         <WindowIndex Value="0"/>
    218         <TopLine Value="54"/>
    219         <CursorPos X="31" Y="56"/>
     217        <EditorIndex Value="13"/>
     218        <WindowIndex Value="0"/>
     219        <TopLine Value="14"/>
     220        <CursorPos X="41" Y="18"/>
    220221        <UsageCount Value="317"/>
    221222        <Loaded Value="True"/>
    … …  
    232233        <EditorIndex Value="3"/>
    233234        <WindowIndex Value="0"/>
    234         <TopLine Value="157"/>
    235         <CursorPos X="3" Y="170"/>
     235        <TopLine Value="643"/>
     236        <CursorPos X="23" Y="649"/>
    236237        <UsageCount Value="317"/>
    237238        <Loaded Value="True"/>
    … …  
    268269        <IsPartOfProject Value="True"/>
    269270        <UnitName Value="USystem"/>
    270         <EditorIndex Value="9"/>
    271         <WindowIndex Value="0"/>
    272         <TopLine Value="133"/>
    273         <CursorPos X="33" Y="96"/>
     271        <IsVisibleTab Value="True"/>
     272        <EditorIndex Value="11"/>
     273        <WindowIndex Value="0"/>
     274        <TopLine Value="189"/>
     275        <CursorPos X="8" Y="197"/>
    274276        <UsageCount Value="200"/>
    275277        <Loaded Value="True"/>
    … …  
    282284        <ResourceBaseClass Value="DataModule"/>
    283285        <UnitName Value="UCore"/>
    284         <EditorIndex Value="8"/>
    285         <WindowIndex Value="0"/>
    286         <TopLine Value="17"/>
    287         <CursorPos X="18" Y="30"/>
     286        <EditorIndex Value="9"/>
     287        <WindowIndex Value="0"/>
     288        <TopLine Value="14"/>
     289        <CursorPos X="21" Y="32"/>
    288290        <UsageCount Value="230"/>
    289291        <Loaded Value="True"/>
    … …  
    297299        <ResourceBaseClass Value="Form"/>
    298300        <UnitName Value="USettingForm"/>
    299         <EditorIndex Value="7"/>
    300         <WindowIndex Value="0"/>
    301         <TopLine Value="12"/>
    302         <CursorPos X="15" Y="25"/>
     301        <EditorIndex Value="8"/>
     302        <WindowIndex Value="0"/>
     303        <TopLine Value="48"/>
     304        <CursorPos X="42" Y="66"/>
    303305        <UsageCount Value="229"/>
    304306        <Loaded Value="True"/>
    … …  
    310312        <IsPartOfProject Value="True"/>
    311313        <UnitName Value="UApplicationInfo"/>
    312         <EditorIndex Value="12"/>
     314        <EditorIndex Value="14"/>
    313315        <WindowIndex Value="0"/>
    314316        <TopLine Value="39"/>
    … …  
    324326        <TopLine Value="487"/>
    325327        <CursorPos X="44" Y="500"/>
    326         <UsageCount Value="13"/>
    327         <DefaultSyntaxHighlighter Value="Delphi"/>
     328        <UsageCount Value="12"/>
    328329      </Unit17>
    329330      <Unit18>
    … …  
    333334        <TopLine Value="1661"/>
    334335        <CursorPos X="24" Y="1673"/>
    335         <UsageCount Value="13"/>
    336         <DefaultSyntaxHighlighter Value="Delphi"/>
     336        <UsageCount Value="12"/>
    337337      </Unit18>
    338338      <Unit19>
    … …  
    340340        <IsPartOfProject Value="True"/>
    341341        <UnitName Value="UDataTypes"/>
    342         <EditorIndex Value="10"/>
     342        <EditorIndex Value="12"/>
    343343        <WindowIndex Value="0"/>
    344344        <TopLine Value="246"/>
    345345        <CursorPos X="47" Y="256"/>
    346         <UsageCount Value="195"/>
     346        <UsageCount Value="198"/>
    347347        <Loaded Value="True"/>
    348348        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    354354        <TopLine Value="1446"/>
    355355        <CursorPos X="26" Y="1458"/>
    356         <UsageCount Value="4"/>
    357         <DefaultSyntaxHighlighter Value="Delphi"/>
     356        <UsageCount Value="3"/>
    358357      </Unit20>
    359358      <Unit21>
    … …  
    362361        <TopLine Value="550"/>
    363362        <CursorPos X="1" Y="561"/>
    364         <UsageCount Value="15"/>
    365         <DefaultSyntaxHighlighter Value="Delphi"/>
     363        <UsageCount Value="14"/>
    366364      </Unit21>
    367365      <Unit22>
    … …  
    371369        <ResourceBaseClass Value="Form"/>
    372370        <UnitName Value="UImportStructureForm"/>
    373         <EditorIndex Value="6"/>
    374371        <WindowIndex Value="0"/>
    375372        <TopLine Value="149"/>
    376373        <CursorPos X="44" Y="164"/>
    377         <UsageCount Value="131"/>
    378         <Loaded Value="True"/>
    379         <LoadedDesigner Value="True"/>
     374        <UsageCount Value="134"/>
    380375        <DefaultSyntaxHighlighter Value="Delphi"/>
    381376      </Unit22>
    … …  
    385380        <TopLine Value="51"/>
    386381        <CursorPos X="1" Y="63"/>
    387         <UsageCount Value="27"/>
     382        <UsageCount Value="26"/>
    388383        <DefaultSyntaxHighlighter Value="Delphi"/>
    389384      </Unit23>
    … …  
    393388        <TopLine Value="2274"/>
    394389        <CursorPos X="1" Y="2286"/>
    395         <UsageCount Value="27"/>
    396         <DefaultSyntaxHighlighter Value="Delphi"/>
     390        <UsageCount Value="26"/>
    397391      </Unit24>
    398392      <Unit25>
    … …  
    401395        <TopLine Value="286"/>
    402396        <CursorPos X="3" Y="298"/>
    403         <UsageCount Value="27"/>
    404         <DefaultSyntaxHighlighter Value="Delphi"/>
     397        <UsageCount Value="26"/>
    405398      </Unit25>
    406399      <Unit26>
    … …  
    409402        <TopLine Value="460"/>
    410403        <CursorPos X="10" Y="427"/>
    411         <UsageCount Value="27"/>
    412         <DefaultSyntaxHighlighter Value="Delphi"/>
     404        <UsageCount Value="26"/>
    413405      </Unit26>
    414406      <Unit27>
    … …  
    417409        <TopLine Value="120"/>
    418410        <CursorPos X="1" Y="134"/>
    419         <UsageCount Value="7"/>
     411        <UsageCount Value="6"/>
    420412        <DefaultSyntaxHighlighter Value="Delphi"/>
    421413      </Unit27>
    … …  
    425417        <TopLine Value="1"/>
    426418        <CursorPos X="24" Y="4"/>
    427         <UsageCount Value="6"/>
     419        <UsageCount Value="5"/>
    428420        <DefaultSyntaxHighlighter Value="Delphi"/>
    429421      </Unit28>
    … …  
    434426        <TopLine Value="6"/>
    435427        <CursorPos X="26" Y="18"/>
    436         <UsageCount Value="5"/>
     428        <UsageCount Value="4"/>
    437429        <DefaultSyntaxHighlighter Value="Delphi"/>
    438430      </Unit29>
    … …  
    446438        <TopLine Value="40"/>
    447439        <CursorPos X="29" Y="54"/>
    448         <UsageCount Value="80"/>
     440        <UsageCount Value="83"/>
    449441        <DefaultSyntaxHighlighter Value="Delphi"/>
    450442      </Unit30>
    … …  
    455447        <TopLine Value="1207"/>
    456448        <CursorPos X="20" Y="1219"/>
    457         <UsageCount Value="34"/>
    458         <DefaultSyntaxHighlighter Value="Delphi"/>
     449        <UsageCount Value="33"/>
    459450      </Unit31>
    460451      <Unit32>
    … …  
    463454        <TopLine Value="945"/>
    464455        <CursorPos X="29" Y="950"/>
    465         <UsageCount Value="33"/>
    466         <DefaultSyntaxHighlighter Value="Delphi"/>
     456        <UsageCount Value="32"/>
    467457      </Unit32>
    468458      <Unit33>
    … …  
    472462        <TopLine Value="446"/>
    473463        <CursorPos X="58" Y="243"/>
    474         <UsageCount Value="31"/>
     464        <UsageCount Value="30"/>
    475465        <DefaultSyntaxHighlighter Value="Delphi"/>
    476466      </Unit33>
    … …  
    480470        <TopLine Value="495"/>
    481471        <CursorPos X="14" Y="510"/>
    482         <UsageCount Value="31"/>
    483         <DefaultSyntaxHighlighter Value="Delphi"/>
     472        <UsageCount Value="30"/>
    484473      </Unit34>
    485474      <Unit35>
    486475        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>
    487476        <UnitName Value="USqlDatabase"/>
    488         <WindowIndex Value="0"/>
    489         <TopLine Value="174"/>
    490         <CursorPos X="11" Y="177"/>
    491         <UsageCount Value="14"/>
     477        <EditorIndex Value="4"/>
     478        <WindowIndex Value="0"/>
     479        <TopLine Value="14"/>
     480        <CursorPos X="14" Y="27"/>
     481        <UsageCount Value="15"/>
     482        <Loaded Value="True"/>
    492483      </Unit35>
    493484      <Unit36>
    … …  
    497488        <ResourceBaseClass Value="Form"/>
    498489        <UnitName Value="ULoginProfileForm"/>
    499         <IsVisibleTab Value="True"/>
    500         <EditorIndex Value="13"/>
    501         <WindowIndex Value="0"/>
    502         <TopLine Value="119"/>
    503         <CursorPos X="70" Y="132"/>
    504         <UsageCount Value="30"/>
     490        <EditorIndex Value="15"/>
     491        <WindowIndex Value="0"/>
     492        <TopLine Value="1"/>
     493        <CursorPos X="41" Y="12"/>
     494        <UsageCount Value="33"/>
    505495        <Loaded Value="True"/>
    506496        <LoadedDesigner Value="True"/>
    … …  
    509499      <Unit37>
    510500        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListObject.inc"/>
    511         <EditorIndex Value="14"/>
     501        <EditorIndex Value="16"/>
    512502        <WindowIndex Value="0"/>
    513503        <TopLine Value="1"/>
    514504        <CursorPos X="24" Y="4"/>
    515         <UsageCount Value="11"/>
     505        <UsageCount Value="13"/>
    516506        <Loaded Value="True"/>
    517507      </Unit37>
    … …  
    536526        <TopLine Value="104"/>
    537527        <CursorPos X="23" Y="112"/>
    538         <UsageCount Value="10"/>
     528        <UsageCount Value="9"/>
    539529      </Unit40>
    540530      <Unit41>
    … …  
    545535        <ResourceBaseClass Value="Form"/>
    546536        <UnitName Value="UAboutForm"/>
    547         <EditorIndex Value="5"/>
    548537        <WindowIndex Value="0"/>
    549538        <TopLine Value="4"/>
    550539        <CursorPos X="20" Y="19"/>
    551         <UsageCount Value="24"/>
    552         <Loaded Value="True"/>
    553         <LoadedDesigner Value="True"/>
     540        <UsageCount Value="27"/>
    554541        <DefaultSyntaxHighlighter Value="Delphi"/>
    555542      </Unit41>
    556543      <Unit42>
    557544        <Filename Value="../../../Lazarus/0.9.31_2.5.1/lcl/include/fileutil.inc"/>
    558         <EditorIndex Value="4"/>
    559545        <WindowIndex Value="0"/>
    560546        <TopLine Value="1575"/>
    561         <CursorPos X="6" Y="1578"/>
     547        <CursorPos X="1" Y="1589"/>
    562548        <UsageCount Value="12"/>
    563         <Loaded Value="True"/>
    564549      </Unit42>
    565550      <Unit43>
    … …  
    570555        <UsageCount Value="10"/>
    571556      </Unit43>
     557      <Unit44>
     558        <Filename Value="../../PascalClassLibrary/Common/UDebugLog.pas"/>
     559        <UnitName Value="UDebugLog"/>
     560        <EditorIndex Value="10"/>
     561        <WindowIndex Value="0"/>
     562        <TopLine Value="90"/>
     563        <CursorPos X="3" Y="104"/>
     564        <UsageCount Value="11"/>
     565        <Loaded Value="True"/>
     566      </Unit44>
     567      <Unit45>
     568        <Filename Value="../../../Lazarus/0.9.31_2.5.1/lcl/fileutil.pas"/>
     569        <UnitName Value="FileUtil"/>
     570        <WindowIndex Value="0"/>
     571        <TopLine Value="202"/>
     572        <CursorPos X="10" Y="215"/>
     573        <UsageCount Value="10"/>
     574      </Unit45>
     575      <Unit46>
     576        <Filename Value="Application/UChronisClient.pas"/>
     577        <IsPartOfProject Value="True"/>
     578        <UnitName Value="UChronisClient"/>
     579        <EditorIndex Value="5"/>
     580        <WindowIndex Value="0"/>
     581        <TopLine Value="22"/>
     582        <CursorPos X="42" Y="36"/>
     583        <UsageCount Value="23"/>
     584        <Loaded Value="True"/>
     585        <DefaultSyntaxHighlighter Value="Delphi"/>
     586      </Unit46>
     587      <Unit47>
     588        <Filename Value="Application/UChronisServer.pas"/>
     589        <IsPartOfProject Value="True"/>
     590        <UnitName Value="UChronisServer"/>
     591        <EditorIndex Value="6"/>
     592        <WindowIndex Value="0"/>
     593        <TopLine Value="1"/>
     594        <CursorPos X="1" Y="14"/>
     595        <UsageCount Value="23"/>
     596        <Loaded Value="True"/>
     597        <DefaultSyntaxHighlighter Value="Delphi"/>
     598      </Unit47>
     599      <Unit48>
     600        <Filename Value="Application/UChronisClientDirect.pas"/>
     601        <IsPartOfProject Value="True"/>
     602        <UnitName Value="UChronisClientDirect"/>
     603        <EditorIndex Value="7"/>
     604        <WindowIndex Value="0"/>
     605        <TopLine Value="6"/>
     606        <CursorPos X="16" Y="19"/>
     607        <UsageCount Value="22"/>
     608        <Loaded Value="True"/>
     609        <DefaultSyntaxHighlighter Value="Delphi"/>
     610      </Unit48>
    572611    </Units>
    573     <JumpHistory Count="30" HistoryIndex="29">
     612    <JumpHistory Count="30" HistoryIndex="28">
    574613      <Position1>
    575         <Filename Value="Forms/ULoginProfileForm.pas"/>
    576         <Caret Line="157" Column="32" TopLine="145"/>
     614        <Filename Value="Application/UChronisClient.pas"/>
     615        <Caret Line="33" Column="69" TopLine="17"/>
    577616      </Position1>
    578617      <Position2>
    579         <Filename Value="Forms/ULoginProfileForm.pas"/>
    580         <Caret Line="155" Column="16" TopLine="144"/>
     618        <Filename Value="Application/UChronisClient.pas"/>
     619        <Caret Line="22" Column="34" TopLine="6"/>
    581620      </Position2>
    582621      <Position3>
    583         <Filename Value="Forms/ULoginProfileForm.pas"/>
    584         <Caret Line="153" Column="1" TopLine="144"/>
     622        <Filename Value="Application/UChronisClient.pas"/>
     623        <Caret Line="49" Column="15" TopLine="28"/>
    585624      </Position3>
    586625      <Position4>
    587         <Filename Value="Forms/ULoginProfileForm.pas"/>
    588         <Caret Line="154" Column="1" TopLine="144"/>
     626        <Filename Value="Application/UChronisClientDirect.pas"/>
     627        <Caret Line="16" Column="80" TopLine="1"/>
    589628      </Position4>
    590629      <Position5>
    591         <Filename Value="Forms/ULoginProfileForm.pas"/>
    592         <Caret Line="155" Column="1" TopLine="144"/>
     630        <Filename Value="Application/UChronisClientDirect.pas"/>
     631        <Caret Line="26" Column="3" TopLine="10"/>
    593632      </Position5>
    594633      <Position6>
    595         <Filename Value="Forms/ULoginProfileForm.pas"/>
    596         <Caret Line="156" Column="1" TopLine="144"/>
     634        <Filename Value="Forms/UMainForm.pas"/>
     635        <Caret Line="518" Column="19" TopLine="513"/>
    597636      </Position6>
    598637      <Position7>
    599         <Filename Value="Forms/ULoginProfileForm.pas"/>
    600         <Caret Line="157" Column="1" TopLine="144"/>
     638        <Filename Value="Application/UChronisClientDirect.pas"/>
     639        <Caret Line="14" Column="43" TopLine="2"/>
    601640      </Position7>
    602641      <Position8>
    603         <Filename Value="Forms/ULoginProfileForm.pas"/>
    604         <Caret Line="158" Column="1" TopLine="144"/>
     642        <Filename Value="Application/UChronisClientDirect.pas"/>
     643        <Caret Line="18" Column="43" TopLine="2"/>
    605644      </Position8>
    606645      <Position9>
    607         <Filename Value="Forms/ULoginProfileForm.pas"/>
    608         <Caret Line="160" Column="1" TopLine="144"/>
     646        <Filename Value="Application/UChronisClientDirect.pas"/>
     647        <Caret Line="46" Column="15" TopLine="23"/>
    609648      </Position9>
    610649      <Position10>
    611         <Filename Value="Forms/ULoginProfileForm.pas"/>
    612         <Caret Line="153" Column="1" TopLine="144"/>
     650        <Filename Value="Forms/UMainForm.pas"/>
     651        <Caret Line="75" Column="20" TopLine="68"/>
    613652      </Position10>
    614653      <Position11>
    615         <Filename Value="Forms/ULoginProfileForm.pas"/>
    616         <Caret Line="154" Column="1" TopLine="144"/>
     654        <Filename Value="Forms/UMainForm.pas"/>
     655        <Caret Line="672" Column="26" TopLine="666"/>
    617656      </Position11>
    618657      <Position12>
    619         <Filename Value="Forms/ULoginProfileForm.pas"/>
    620         <Caret Line="155" Column="1" TopLine="144"/>
     658        <Filename Value="Forms/UMainForm.pas"/>
     659        <Caret Line="74" Column="15" TopLine="62"/>
    621660      </Position12>
    622661      <Position13>
    623         <Filename Value="Forms/ULoginProfileForm.pas"/>
    624         <Caret Line="156" Column="1" TopLine="144"/>
     662        <Filename Value="Forms/UMainForm.pas"/>
     663        <Caret Line="656" Column="37" TopLine="643"/>
    625664      </Position13>
    626665      <Position14>
    627         <Filename Value="Forms/ULoginProfileForm.pas"/>
    628         <Caret Line="157" Column="6" TopLine="144"/>
     666        <Filename Value="Forms/UMainForm.pas"/>
     667        <Caret Line="654" Column="26" TopLine="643"/>
    629668      </Position14>
    630669      <Position15>
    631         <Filename Value="Forms/ULoginProfileForm.pas"/>
    632         <Caret Line="60" Column="15" TopLine="48"/>
     670        <Filename Value="Forms/UMainForm.pas"/>
     671        <Caret Line="649" Column="23" TopLine="643"/>
    633672      </Position15>
    634673      <Position16>
    635         <Filename Value="Forms/ULoginProfileForm.pas"/>
    636         <Caret Line="146" Column="30" TopLine="141"/>
     674        <Filename Value="USystem.pas"/>
     675        <Caret Line="106" Column="5" TopLine="92"/>
    637676      </Position16>
    638677      <Position17>
    639         <Filename Value="Forms/ULoginProfileForm.pas"/>
    640         <Caret Line="108" Column="31" TopLine="87"/>
     678        <Filename Value="USystem.pas"/>
     679        <Caret Line="241" Column="3" TopLine="236"/>
    641680      </Position17>
    642681      <Position18>
    643         <Filename Value="Forms/ULoginProfileForm.pas"/>
    644         <Caret Line="122" Column="1" TopLine="118"/>
     682        <Filename Value="USystem.pas"/>
     683        <Caret Line="133" Column="28" TopLine="119"/>
    645684      </Position18>
    646685      <Position19>
    647         <Filename Value="Forms/ULoginProfileForm.pas"/>
    648         <Caret Line="183" Column="80" TopLine="180"/>
     686        <Filename Value="USystem.pas"/>
     687        <Caret Line="628" Column="3" TopLine="626"/>
    649688      </Position19>
    650689      <Position20>
    651         <Filename Value="Forms/ULoginProfileForm.pas"/>
    652         <Caret Line="123" Column="92" TopLine="120"/>
     690        <Filename Value="USystem.pas"/>
     691        <Caret Line="134" Column="17" TopLine="120"/>
    653692      </Position20>
    654693      <Position21>
    655         <Filename Value="Forms/ULoginProfileForm.pas"/>
    656         <Caret Line="129" Column="78" TopLine="126"/>
     694        <Filename Value="USystem.pas"/>
     695        <Caret Line="633" Column="3" TopLine="631"/>
    657696      </Position21>
    658697      <Position22>
    659         <Filename Value="Forms/ULoginProfileForm.pas"/>
    660         <Caret Line="141" Column="36" TopLine="115"/>
     698        <Filename Value="USystem.pas"/>
     699        <Caret Line="133" Column="16" TopLine="121"/>
    661700      </Position22>
    662701      <Position23>
    663         <Filename Value="Forms/ULoginProfileForm.pas"/>
    664         <Caret Line="123" Column="110" TopLine="110"/>
     702        <Filename Value="USystem.pas"/>
     703        <Caret Line="629" Column="16" TopLine="626"/>
    665704      </Position23>
    666705      <Position24>
    667         <Filename Value="Forms/ULoginProfileForm.pas"/>
    668         <Caret Line="183" Column="25" TopLine="177"/>
     706        <Filename Value="USystem.pas"/>
     707        <Caret Line="133" Column="17" TopLine="120"/>
    669708      </Position24>
    670709      <Position25>
    671         <Filename Value="Forms/ULoginProfileForm.pas"/>
    672         <Caret Line="184" Column="25" TopLine="178"/>
     710        <Filename Value="USystem.pas"/>
     711        <Caret Line="8" Column="61" TopLine="1"/>
    673712      </Position25>
    674713      <Position26>
    675         <Filename Value="Forms/ULoginProfileForm.pas"/>
    676         <Caret Line="193" Column="27" TopLine="185"/>
     714        <Filename Value="USystem.pas"/>
     715        <Caret Line="182" Column="24" TopLine="169"/>
    677716      </Position26>
    678717      <Position27>
    679         <Filename Value="Forms/ULoginProfileForm.pas"/>
    680         <Caret Line="133" Column="57" TopLine="129"/>
     718        <Filename Value="USystem.pas"/>
     719        <Caret Line="183" Column="20" TopLine="170"/>
    681720      </Position27>
    682721      <Position28>
    683         <Filename Value="Forms/ULoginProfileForm.pas"/>
    684         <Caret Line="131" Column="36" TopLine="118"/>
     722        <Filename Value="USystem.pas"/>
     723        <Caret Line="195" Column="30" TopLine="182"/>
    685724      </Position28>
    686725      <Position29>
    687         <Filename Value="Forms/ULoginProfileForm.pas"/>
    688         <Caret Line="67" Column="21" TopLine="47"/>
     726        <Filename Value="USystem.pas"/>
     727        <Caret Line="196" Column="27" TopLine="189"/>
    689728      </Position29>
    690729      <Position30>
    691         <Filename Value="Forms/ULoginProfileForm.pas"/>
    692         <Caret Line="196" Column="27" TopLine="187"/>
     730        <Filename Value="Application/UChronisClient.pas"/>
     731        <Caret Line="36" Column="42" TopLine="22"/>
    693732      </Position30>
    694733    </JumpHistory>
    … …  
    720759        <StackChecks Value="True"/>
    721760      </Checks>
    722       <VerifyObjMethodCallValidity Value="True"/>
    723761    </CodeGeneration>
    724762    <Linking>

  • trunk/chronis.lpr

    r25 r27  
    1010  Forms, UPersistentForm, URegistry, UTreeState, SysUtils, UItemView, UItemEdit,
    1111  ULoginForm, UMainForm, UItemAdd, TemplateGenerics, CoolTranslator, Common,
    12   CoolWeb, USystem, UCore, UApplicationInfo, USettingForm, UDataTypes,
    13 UImportStructureForm, UItemSelect, ULoginProfileForm, UAboutForm
     12  CoolWeb, USystem, UCore, UApplicationInfo, USettingForm, UDataTypes,
     13  UImportStructureForm, UItemSelect, ULoginProfileForm, UAboutForm,
     14  UChronisClient, UChronisServer, UChronisClientDirect
    1415  { you can add units after this };
    1516
Note: See TracChangeset for help on using the changeset viewer.