Changeset 25


Ignore:
Timestamp:
Nov 9, 2011, 1:58:00 PM (13 years ago)
Author:
george
Message:
  • Modified: Login form now use connection profile form for selecting connection parameters.
  • Added: About application dialog.
Location:
trunk
Files:
7 added
1 deleted
14 edited

Legend:

Unmodified
Added
Removed

  • trunk/Application/UApplicationInfo.pas

    r22 r25  
    66
    77uses
    8   SysUtils;
     8  SysUtils, DateUtils;
    99
    1010type
    … …  
    2626    AuthorsName: string;
    2727    EmailContact: string;
    28     ReleaseDate: string;
     28    ReleaseDate: TDateTime;
    2929    property Version: string read GetVersion;
    3030  end;
    … …  
    5050  Name := 'ChronIS';
    5151  Identification := 1;
    52   ReleaseDate := '16.6.2011';
     52  ReleaseDate := EncodeDate(2011, 11, 9);
    5353  MajorVersion := 0;
    5454  MinorVersion := 1;

  • trunk/Forms/ULoginForm.lfm

    r22 r25  
    11object LoginForm: TLoginForm
    2   Left = 482
    3   Height = 171
    4   Top = 258
    5   Width = 399
     2  Left = 312
     3  Height = 163
     4  Top = 186
     5  Width = 433
    66  BorderIcons = [biSystemMenu]
    77  BorderStyle = bsDialog
    88  Caption = 'Login'
    9   ClientHeight = 171
    10   ClientWidth = 399
     9  ClientHeight = 163
     10  ClientWidth = 433
     11  OnClose = FormClose
     12  OnShow = FormShow
    1113  LCLVersion = '0.9.31'
    1214  object Label1: TLabel
    1315    Left = 16
    1416    Height = 14
    15     Top = 48
     17    Top = 64
    1618    Width = 53
    1719    Caption = 'Username:'
    … …  
    2123    Left = 16
    2224    Height = 14
    23     Top = 80
     25    Top = 96
    2426    Width = 51
    2527    Caption = 'Password:'
    … …  
    3234    Width = 75
    3335    Caption = 'Close'
     36    ModalResult = 11
     37    OnClick = ButtonCancelClick
    3438    TabOrder = 0
    3539  end
    … …  
    4044    Width = 75
    4145    Caption = 'Login'
     46    ModalResult = 1
     47    OnClick = ButtonLoginClick
    4248    TabOrder = 1
    4349  end
    44   object Edit1: TEdit
     50  object EditUserName: TEdit
    4551    Left = 88
    4652    Height = 21
    47     Top = 40
     53    Top = 64
    4854    Width = 104
    4955    TabOrder = 2
    5056  end
    51   object MaskEdit1: TMaskEdit
     57  object MaskEditPassword: TMaskEdit
    5258    Left = 88
    5359    Height = 21
    54     Top = 71
     60    Top = 96
    5561    Width = 104
    5662    CharCase = ecNormal
    … …  
    6167    SpaceChar = '_'
    6268  end
     69  object Label3: TLabel
     70    Left = 16
     71    Height = 14
     72    Top = 12
     73    Width = 59
     74    Caption = 'Connection:'
     75    ParentColor = False
     76  end
     77  object ComboBoxConnection: TComboBox
     78    Left = 88
     79    Height = 21
     80    Top = 12
     81    Width = 105
     82    ItemHeight = 13
     83    Style = csDropDownList
     84    TabOrder = 4
     85  end
     86  object ButtonChange: TButton
     87    Left = 198
     88    Height = 25
     89    Top = 9
     90    Width = 67
     91    Caption = 'Change'
     92    OnClick = ButtonChangeClick
     93    TabOrder = 5
     94  end
    6395  object Image1: TImage
    64     Left = 216
    65     Height = 152
    66     Top = 16
    67     Width = 168
     96    Left = 272
     97    Height = 140
     98    Top = 12
     99    Width = 152
    68100  end
    69101end

  • trunk/Forms/ULoginForm.lrt

    r10 r25  
    44TLOGINFORM.BUTTONCANCEL.CAPTION=Close
    55TLOGINFORM.BUTTONLOGIN.CAPTION=Login
    6 TLOGINFORM.MASKEDIT1.TEXT=*
     6TLOGINFORM.MASKEDITPASSWORD.TEXT=*
     7TLOGINFORM.LABEL3.CAPTION=Connection:
     8TLOGINFORM.BUTTONCHANGE.CAPTION=Change

  • trunk/Forms/ULoginForm.pas

    r3 r25  
    77uses
    88  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
    9   MaskEdit, ExtCtrls;
     9  MaskEdit, ExtCtrls, URegistry, Registry;
    1010
    1111type
    … …  
    1414
    1515  TLoginForm = class(TForm)
     16    ButtonChange: TButton;
    1617    ButtonCancel: TButton;
    1718    ButtonLogin: TButton;
    18     Edit1: TEdit;
     19    ComboBoxConnection: TComboBox;
     20    EditUserName: TEdit;
    1921    Image1: TImage;
    2022    Label1: TLabel;
    2123    Label2: TLabel;
    22     MaskEdit1: TMaskEdit;
     24    Label3: TLabel;
     25    MaskEditPassword: TMaskEdit;
     26    procedure ButtonCancelClick(Sender: TObject);
     27    procedure ButtonChangeClick(Sender: TObject);
     28    procedure ButtonLoginClick(Sender: TObject);
     29    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     30    procedure FormShow(Sender: TObject);
    2331  private
    24     { private declarations }
    2532  public
    26     { public declarations }
    27   end;
     33  end;
    2834
    2935var
    … …  
    3440{$R *.lfm}
    3541
     42uses
     43  UCore, ULoginProfileForm, UMainForm;
     44
     45{ TLoginForm }
     46
     47procedure TLoginForm.ButtonLoginClick(Sender: TObject);
     48begin
     49  Core.LastUserName := EditUserName.Text;
     50  Core.LastProfile := ComboBoxConnection.ItemIndex;
     51  Core.LastPassword := MaskEditPassword.Text;
     52end;
     53
     54procedure TLoginForm.FormClose(Sender: TObject; var CloseAction: TCloseAction);
     55begin
     56  MainForm.PersistentForm.Save(Self);
     57end;
     58
     59procedure TLoginForm.FormShow(Sender: TObject);
     60begin
     61  MainForm.PersistentForm.Load(Self);
     62  ComboBoxConnection.ItemIndex := Core.LastProfile;
     63  EditUserName.Text := Core.LastUserName;
     64  MaskEditPassword.Text := '';
     65  Core.Profiles.FillStrings(ComboBoxConnection.Items);
     66end;
     67
     68procedure TLoginForm.ButtonCancelClick(Sender: TObject);
     69begin
     70  Close;
     71end;
     72
     73procedure TLoginForm.ButtonChangeClick(Sender: TObject);
     74begin
     75  if LoginProfileForm.ShowModal = mrOk then begin
     76    Core.Profiles.FillStrings(ComboBoxConnection.Items);
     77  end;
     78end;
     79
    3680end.
    3781

  • trunk/Forms/UMainForm.lfm

    r24 r25  
    66  ActiveControl = Panel1
    77  Caption = 'ChronIS'
    8   ClientHeight = 422
     8  ClientHeight = 427
    99  ClientWidth = 640
    1010  Menu = MainMenu1
    … …  
    1616  object Panel1: TPanel
    1717    Left = 0
    18     Height = 422
     18    Height = 427
    1919    Top = 0
    2020    Width = 184
    2121    Align = alLeft
    2222    BevelOuter = bvNone
    23     ClientHeight = 422
     23    ClientHeight = 427
    2424    ClientWidth = 184
    2525    TabOrder = 0
    2626    object Label1: TLabel
    2727      Left = 7
    28       Height = 18
     28      Height = 14
    2929      Top = 4
    30       Width = 51
     30      Width = 39
    3131      Caption = 'Groups:'
    3232      ParentColor = False
    … …  
    3434    object TreeView1: TTreeView
    3535      Left = 4
    36       Height = 398
     36      Height = 403
    3737      Top = 19
    3838      Width = 180
    3939      Anchors = [akTop, akLeft, akRight, akBottom]
     40      DefaultItemHeight = 16
    4041      Images = ImageListActions
    4142      ReadOnly = True
    … …  
    4748  object Panel2: TPanel
    4849    Left = 189
    49     Height = 422
     50    Height = 427
    5051    Top = 0
    5152    Width = 451
    5253    Align = alClient
    5354    BevelOuter = bvNone
    54     ClientHeight = 422
     55    ClientHeight = 427
    5556    ClientWidth = 451
    5657    TabOrder = 1
    5758    object Label2: TLabel
    5859      Left = 2
    59       Height = 18
     60      Height = 14
    6061      Top = 4
    61       Width = 54
     62      Width = 43
    6263      Caption = 'Reports:'
    6364      ParentColor = False
    … …  
    6566    object ListView1: TListView
    6667      Left = 2
    67       Height = 366
     68      Height = 371
    6869      Top = 19
    6970      Width = 447
    … …  
    8586      Left = 3
    8687      Height = 25
    87       Top = 393
     88      Top = 398
    8889      Width = 75
    8990      Action = AItemAdd
    … …  
    9495      Left = 83
    9596      Height = 25
    96       Top = 393
     97      Top = 398
    9798      Width = 75
    9899      Action = AItemDelete
    … …  
    103104  object Splitter1: TSplitter
    104105    Left = 184
    105     Height = 422
     106    Height = 427
    106107    Top = 0
    107108    Width = 5
    … …  
    184185      Caption = 'Import structure...'
    185186      OnExecute = AImportStructureExecute
     187    end
     188    object AAbout: TAction
     189      Caption = 'About'
     190      OnExecute = AAboutExecute
    186191    end
    187192  end
    … …  
    316321      object MenuItem17: TMenuItem
    317322        Action = AConnect
     323        OnClick = MenuItem17Click
    318324      end
    319325      object MenuItem14: TMenuItem
    … …  
    341347    object MenuItem12: TMenuItem
    342348      Caption = 'Help'
     349      object MenuItem21: TMenuItem
     350        Action = AAbout
     351      end
    343352    end
    344353  end

  • trunk/Forms/UMainForm.lrt

    r24 r25  
    2020TMAINFORM.AINITSYSTEMVALUES.CAPTION=Init system values
    2121TMAINFORM.AIMPORTSTRUCTURE.CAPTION=Import structure...
     22TMAINFORM.AABOUT.CAPTION=About
    2223TMAINFORM.MENUITEM13.CAPTION=Server
    2324TMAINFORM.MENUITEM11.CAPTION=View

  • trunk/Forms/UMainForm.pas

    r24 r25  
    1717  published
    1818    AConnect: TAction;
     19    AAbout: TAction;
    1920    AImportStructure: TAction;
    2021    AInitSystemValues: TAction;
    … …  
    5354    MenuItem2: TMenuItem;
    5455    MenuItem20: TMenuItem;
     56    MenuItem21: TMenuItem;
    5557    MenuItem3: TMenuItem;
    5658    MenuItem4: TMenuItem;
    … …  
    6769    Splitter1: TSplitter;
    6870    TreeView1: TTreeView;
     71    procedure AAboutExecute(Sender: TObject);
    6972    procedure AConnectExecute(Sender: TObject);
    7073    procedure AExitExecute(Sender: TObject);
    … …  
    9194    procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
    9295      Selected: Boolean);
     96    procedure MenuItem17Click(Sender: TObject);
    9397    procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
    9498  private
    … …  
    96100    OriginalWindowState: TWindowState;
    97101    ScreenBounds: TRect;
    98     RegistryKey: string;
    99     RegistryRootKey: HKEY;
    100102    procedure LoadFromRegistry;
    101103    procedure SaveToRegistry;
    … …  
    128130uses
    129131  UItemView, UItemEdit, UItemAdd, ULoginForm, USettingForm, UApplicationInfo,
    130   UCore, UImportStructureForm;
     132  UCore, UImportStructureForm, UAboutForm, ULoginProfileForm;
    131133
    132134{$R *.lfm}
    … …  
    138140  with TRegistryEx.Create do
    139141  try
    140     RootKey := RegistryRootKey;
    141     OpenKey(RegistryKey, True);
     142    RootKey := Core.RegistryRootKey;
     143    OpenKey(Core.RegistryKey, True);
    142144    Panel1.Width := ReadIntegerWithDefault('GroupTreeWidth', 200);
    143     Core.System.Database.Database := ReadStringWithDefault('DatabaseSchema', 'chronis');
    144     Core.System.Database.Hostname := ReadStringWithDefault('DatabaseHostName', 'localhost');
    145     Core.System.Database.UserName := ReadStringWithDefault('DatabaseUserName', 'chronis');
    146     Core.System.Database.Password := ReadStringWithDefault('DatabasePassword', '');
    147145    with Core.CoolTranslator1 do
    148146      Language := Languages.SearchByCode(ReadStringWithDefault('LanguageCode', ''));
    … …  
    156154  with TRegistryEx.Create do
    157155  try
    158     RootKey := RegistryRootKey;
    159     OpenKey(RegistryKey, True);
     156    RootKey := Core.RegistryRootKey;
     157    OpenKey(Core.RegistryKey, True);
    160158    WriteInteger('GroupTreeWidth', Panel1.Width);
    161     WriteString('DatabaseSchema', Core.System.Database.Database);
    162     WriteString('DatabaseHostName', Core.System.Database.Hostname);
    163     WriteString('DatabaseUserName', Core.System.Database.UserName);
    164     WriteString('DatabasePassword', Core.System.Database.Password);
    165159    with Core.CoolTranslator1 do
    166160      WriteString('LanguageCode', Language.Code);
    … …  
    520514  SelectedObject := TChronisObject.Create;
    521515  SelectedObject.Base := Core.System;
    522   RegistryRootKey := HKEY_CURRENT_USER;
    523   RegistryKey := '\Software\' + ApplicationInfo.CompanyName + '\' +
    524     ApplicationInfo.Name;
    525516  PersistentForm := TPersistentForm.Create;
    526   PersistentForm.RegistryKey := RegistryKey;
     517  PersistentForm.RegistryKey := Core.RegistryKey;
    527518end;
    528519
    … …  
    641632procedure TMainForm.AConnectExecute(Sender: TObject);
    642633begin
    643   LoginForm.ShowModal;
     634  Core.Profiles.LoadFromRegistry(Core.RegistryRootKey, Core.RegistryKey);
     635  if LoginForm.ShowModal = mrOK then begin
     636    with TConnectProfile(Core.Profiles[Core.LastProfile]) do begin
     637      Core.System.Database.HostName := HostName;
     638      Core.System.Database.Database := Database;
     639      Core.System.Database.UserName := Core.LastUserName;
     640      Core.System.Database.Password := Core.LastPassword;
     641      Core.System.Database.Connect;
     642    end;
     643    InitStructure;
     644    Core.System.LoadTypes;
     645    LoadTree;
     646  end;
     647end;
     648
     649procedure TMainForm.AAboutExecute(Sender: TObject);
     650begin
     651  AboutForm.ShowModal;
    644652end;
    645653
    … …  
    648656  PersistentForm.Load(Self);
    649657  LoadFromRegistry;
    650   Core.System.Database.Connect;
    651   InitStructure;
    652   Core.System.LoadTypes;
    653   LoadTree;
     658  AConnect.Execute;
    654659end;
    655660
    … …  
    696701  AItemView.Enabled := Assigned(ListView1.Selected);
    697702  AItemEdit.Enabled := Assigned(ListView1.Selected);
     703end;
     704
     705procedure TMainForm.MenuItem17Click(Sender: TObject);
     706begin
     707  LoginForm.ShowModal;
    698708end;
    699709

  • trunk/UCore.pas

    r15 r25  
    66
    77uses
    8   Classes, SysUtils, FileUtil, UCoolTranslator, UDebugLog, USystem,
    9   USqlDatabase;
     8  Classes, SysUtils, FileUtil, UCoolTranslator, UDebugLog, USystem, Registry,
     9  USqlDatabase, ULoginProfileForm, URegistry;
    1010
    1111type
    … …  
    2121    procedure SqlDatabase1LogQuery(Sender: TObject; Text: string);
    2222  private
     23    procedure LoadFromRegistry;
     24    procedure SaveToRegistry;
    2325    { private declarations }
    2426  public
     27    LastUserName: string;
     28    LastProfile: Integer;
     29    LastPassword: string;
     30    Profiles: TProfileList;
     31    RegistryKey: string;
     32    RegistryRootKey: HKEY;
    2533    System: TChronisBase;
    2634  end;
    … …  
    3341{$R *.lfm}
    3442
     43uses
     44  UApplicationInfo;
     45
    3546{ TCore }
    3647
    3748procedure TCore.DataModuleCreate(Sender: TObject);
    3849begin
     50  Profiles := TProfileList.Create;
     51  RegistryRootKey := HKEY_CURRENT_USER;
     52  RegistryKey := '\Software\' + ApplicationInfo.CompanyName + '\' +
     53    ApplicationInfo.Name;
     54  LoadFromRegistry;
    3955  System := TChronisBase.Create;
    4056  System.Database := SqlDatabase1;
    … …  
    4662procedure TCore.DataModuleDestroy(Sender: TObject);
    4763begin
     64  SaveToRegistry;
    4865  System.Free;
     66  Profiles.Free;
    4967end;
    5068
    … …  
    5472end;
    5573
     74procedure TCore.LoadFromRegistry;
     75begin
     76  with TRegistryEx.Create do
     77  try
     78    RootKey := RegistryRootKey;
     79    OpenKey(RegistryKey, True);
     80    LastProfile := ReadIntegerWithDefault('LastConnectProfile', -1);
     81    LastUserName := ReadStringWithDefault('LastUserName', 'admin');
     82  finally
     83    Free;
     84  end;
     85end;
     86
     87procedure TCore.SaveToRegistry;
     88begin
     89  with TRegistryEx.Create do
     90  try
     91    RootKey := RegistryRootKey;
     92    OpenKey(RegistryKey, True);
     93    WriteInteger('LastConnectProfile', LastProfile);
     94    WriteString('LastUserName', LastUserName);
     95  finally
     96    Free;
     97  end;
     98end;
     99
     100
    56101end.
    57102

  • trunk/chronis.lpi

    r23 r25  
    88      <ResourceType Value="res"/>
    99      <UseXPManifest Value="True"/>
    10       <Icon Value="0"/>
    1110      <ActiveWindowIndexAtStart Value="0"/>
    1211    </General>
    … …  
    5251          <Linking>
    5352            <Debugging>
     53              <DebugInfoType Value="dsAuto"/>
    5454              <UseLineInfoUnit Value="False"/>
    5555            </Debugging>
    … …  
    104104      </Item6>
    105105    </RequiredPackages>
    106     <Units Count="39">
     106    <Units Count="44">
    107107      <Unit0>
    108108        <Filename Value="chronis.lpr"/>
    … …  
    111111        <WindowIndex Value="0"/>
    112112        <TopLine Value="14"/>
    113         <CursorPos X="1" Y="33"/>
     113        <CursorPos X="55" Y="30"/>
    114114        <UsageCount Value="274"/>
    115115        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    121121        <TopLine Value="330"/>
    122122        <CursorPos X="1" Y="347"/>
    123         <UsageCount Value="30"/>
     123        <UsageCount Value="29"/>
    124124        <DefaultSyntaxHighlighter Value="Delphi"/>
    125125      </Unit1>
    … …  
    133133        <TopLine Value="118"/>
    134134        <CursorPos X="25" Y="144"/>
    135         <UsageCount Value="84"/>
     135        <UsageCount Value="83"/>
    136136        <DefaultSyntaxHighlighter Value="Delphi"/>
    137137      </Unit2>
    … …  
    145145        <TopLine Value="1"/>
    146146        <CursorPos X="24" Y="14"/>
    147         <UsageCount Value="84"/>
     147        <UsageCount Value="83"/>
    148148        <DefaultSyntaxHighlighter Value="Delphi"/>
    149149      </Unit3>
    … …  
    164164        <TopLine Value="58"/>
    165165        <CursorPos X="73" Y="232"/>
    166         <UsageCount Value="250"/>
     166        <UsageCount Value="249"/>
    167167        <DefaultSyntaxHighlighter Value="Delphi"/>
    168168      </Unit5>
    … …  
    171171        <IsPartOfProject Value="True"/>
    172172        <UnitName Value="URegistry"/>
    173         <EditorIndex Value="20"/>
    174173        <WindowIndex Value="0"/>
    175174        <TopLine Value="19"/>
    176175        <CursorPos X="1" Y="31"/>
    177176        <UsageCount Value="264"/>
    178         <Loaded Value="True"/>
    179177        <DefaultSyntaxHighlighter Value="Delphi"/>
    180178      </Unit6>
    … …  
    200198        <ResourceBaseClass Value="Form"/>
    201199        <UnitName Value="UItemEdit"/>
    202         <EditorIndex Value="3"/>
     200        <EditorIndex Value="1"/>
    203201        <WindowIndex Value="0"/>
    204202        <TopLine Value="14"/>
    … …  
    216214        <ResourceBaseClass Value="Form"/>
    217215        <UnitName Value="ULoginForm"/>
    218         <EditorIndex Value="21"/>
    219         <WindowIndex Value="0"/>
    220         <TopLine Value="14"/>
    221         <CursorPos X="54" Y="24"/>
     216        <EditorIndex Value="11"/>
     217        <WindowIndex Value="0"/>
     218        <TopLine Value="54"/>
     219        <CursorPos X="31" Y="56"/>
    222220        <UsageCount Value="317"/>
    223221        <Loaded Value="True"/>
    … …  
    232230        <ResourceBaseClass Value="Form"/>
    233231        <UnitName Value="UMainForm"/>
    234         <EditorIndex Value="7"/>
    235         <WindowIndex Value="0"/>
    236         <TopLine Value="733"/>
    237         <CursorPos X="24" Y="747"/>
     232        <EditorIndex Value="3"/>
     233        <WindowIndex Value="0"/>
     234        <TopLine Value="157"/>
     235        <CursorPos X="3" Y="170"/>
    238236        <UsageCount Value="317"/>
    239237        <Loaded Value="True"/>
    … …  
    245243        <IsPartOfProject Value="True"/>
    246244        <UnitName Value="UTreeState"/>
    247         <EditorIndex Value="19"/>
    248245        <WindowIndex Value="0"/>
    249246        <TopLine Value="1"/>
    250247        <CursorPos X="1" Y="1"/>
    251248        <UsageCount Value="314"/>
    252         <Loaded Value="True"/>
    253249        <DefaultSyntaxHighlighter Value="Delphi"/>
    254250      </Unit11>
    … …  
    259255        <ResourceBaseClass Value="Form"/>
    260256        <UnitName Value="UItemAdd"/>
    261         <EditorIndex Value="5"/>
     257        <EditorIndex Value="2"/>
    262258        <WindowIndex Value="0"/>
    263259        <TopLine Value="124"/>
    … …  
    272268        <IsPartOfProject Value="True"/>
    273269        <UnitName Value="USystem"/>
    274         <EditorIndex Value="12"/>
    275         <WindowIndex Value="0"/>
    276         <TopLine Value="28"/>
    277         <CursorPos X="21" Y="41"/>
     270        <EditorIndex Value="9"/>
     271        <WindowIndex Value="0"/>
     272        <TopLine Value="133"/>
     273        <CursorPos X="33" Y="96"/>
    278274        <UsageCount Value="200"/>
    279275        <Loaded Value="True"/>
    … …  
    286282        <ResourceBaseClass Value="DataModule"/>
    287283        <UnitName Value="UCore"/>
    288         <EditorIndex Value="11"/>
    289         <WindowIndex Value="0"/>
    290         <TopLine Value="34"/>
    291         <CursorPos X="59" Y="46"/>
     284        <EditorIndex Value="8"/>
     285        <WindowIndex Value="0"/>
     286        <TopLine Value="17"/>
     287        <CursorPos X="18" Y="30"/>
    292288        <UsageCount Value="230"/>
    293289        <Loaded Value="True"/>
    … …  
    301297        <ResourceBaseClass Value="Form"/>
    302298        <UnitName Value="USettingForm"/>
    303         <EditorIndex Value="10"/>
    304         <WindowIndex Value="0"/>
    305         <TopLine Value="1"/>
    306         <CursorPos X="46" Y="11"/>
     299        <EditorIndex Value="7"/>
     300        <WindowIndex Value="0"/>
     301        <TopLine Value="12"/>
     302        <CursorPos X="15" Y="25"/>
    307303        <UsageCount Value="229"/>
    308304        <Loaded Value="True"/>
    … …  
    314310        <IsPartOfProject Value="True"/>
    315311        <UnitName Value="UApplicationInfo"/>
    316         <EditorIndex Value="9"/>
    317         <WindowIndex Value="0"/>
    318         <TopLine Value="34"/>
    319         <CursorPos X="25" Y="48"/>
     312        <EditorIndex Value="12"/>
     313        <WindowIndex Value="0"/>
     314        <TopLine Value="39"/>
     315        <CursorPos X="32" Y="54"/>
    320316        <UsageCount Value="229"/>
    321317        <Loaded Value="True"/>
    … …  
    323319      </Unit16>
    324320      <Unit17>
    325         <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/dialogs.pp"/>
     321        <Filename Value="../../../Lazarus/0.9.31_2.5.1/lcl/dialogs.pp"/>
    326322        <UnitName Value="Dialogs"/>
    327323        <WindowIndex Value="0"/>
    328324        <TopLine Value="487"/>
    329325        <CursorPos X="44" Y="500"/>
    330         <UsageCount Value="14"/>
     326        <UsageCount Value="13"/>
    331327        <DefaultSyntaxHighlighter Value="Delphi"/>
    332328      </Unit17>
    333329      <Unit18>
    334         <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/controls.pp"/>
     330        <Filename Value="../../../Lazarus/0.9.31_2.5.1/lcl/controls.pp"/>
    335331        <UnitName Value="Controls"/>
    336332        <WindowIndex Value="0"/>
    337333        <TopLine Value="1661"/>
    338334        <CursorPos X="24" Y="1673"/>
    339         <UsageCount Value="14"/>
     335        <UsageCount Value="13"/>
    340336        <DefaultSyntaxHighlighter Value="Delphi"/>
    341337      </Unit18>
    … …  
    344340        <IsPartOfProject Value="True"/>
    345341        <UnitName Value="UDataTypes"/>
    346         <IsVisibleTab Value="True"/>
    347         <EditorIndex Value="16"/>
     342        <EditorIndex Value="10"/>
    348343        <WindowIndex Value="0"/>
    349344        <TopLine Value="246"/>
    350345        <CursorPos X="47" Y="256"/>
    351         <UsageCount Value="185"/>
     346        <UsageCount Value="195"/>
    352347        <Loaded Value="True"/>
    353348        <DefaultSyntaxHighlighter Value="Delphi"/>
    354349      </Unit19>
    355350      <Unit20>
    356         <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/stdctrls.pp"/>
     351        <Filename Value="../../../Lazarus/0.9.31_2.5.1/lcl/stdctrls.pp"/>
    357352        <UnitName Value="StdCtrls"/>
    358353        <WindowIndex Value="0"/>
    359354        <TopLine Value="1446"/>
    360355        <CursorPos X="26" Y="1458"/>
    361         <UsageCount Value="5"/>
     356        <UsageCount Value="4"/>
    362357        <DefaultSyntaxHighlighter Value="Delphi"/>
    363358      </Unit20>
    364359      <Unit21>
    365         <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/include/customlistview.inc"/>
     360        <Filename Value="../../../Lazarus/0.9.31_2.5.1/lcl/include/customlistview.inc"/>
    366361        <WindowIndex Value="0"/>
    367362        <TopLine Value="550"/>
    368363        <CursorPos X="1" Y="561"/>
    369         <UsageCount Value="16"/>
     364        <UsageCount Value="15"/>
     365        <DefaultSyntaxHighlighter Value="Delphi"/>
    370366      </Unit21>
    371367      <Unit22>
    … …  
    375371        <ResourceBaseClass Value="Form"/>
    376372        <UnitName Value="UImportStructureForm"/>
    377         <EditorIndex Value="8"/>
     373        <EditorIndex Value="6"/>
    378374        <WindowIndex Value="0"/>
    379375        <TopLine Value="149"/>
    380376        <CursorPos X="44" Y="164"/>
    381         <UsageCount Value="121"/>
     377        <UsageCount Value="131"/>
    382378        <Loaded Value="True"/>
    383379        <LoadedDesigner Value="True"/>
    … …  
    385381      </Unit22>
    386382      <Unit23>
    387         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericDictionary.inc"/>
     383        <Filename Value="../../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericDictionary.inc"/>
    388384        <WindowIndex Value="0"/>
    389385        <TopLine Value="51"/>
    390386        <CursorPos X="1" Y="63"/>
    391         <UsageCount Value="28"/>
     387        <UsageCount Value="27"/>
     388        <DefaultSyntaxHighlighter Value="Delphi"/>
    392389      </Unit23>
    393390      <Unit24>
    394         <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/include/control.inc"/>
     391        <Filename Value="../../../Lazarus/0.9.31_2.5.1/lcl/include/control.inc"/>
    395392        <WindowIndex Value="0"/>
    396393        <TopLine Value="2274"/>
    397394        <CursorPos X="1" Y="2286"/>
    398         <UsageCount Value="28"/>
     395        <UsageCount Value="27"/>
     396        <DefaultSyntaxHighlighter Value="Delphi"/>
    399397      </Unit24>
    400398      <Unit25>
    401         <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/inc/systemh.inc"/>
     399        <Filename Value="../../../Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/inc/systemh.inc"/>
    402400        <WindowIndex Value="0"/>
    403401        <TopLine Value="286"/>
    404402        <CursorPos X="3" Y="298"/>
    405         <UsageCount Value="28"/>
     403        <UsageCount Value="27"/>
     404        <DefaultSyntaxHighlighter Value="Delphi"/>
    406405      </Unit25>
    407406      <Unit26>
    408         <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/i386/i386.inc"/>
     407        <Filename Value="../../../Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/i386/i386.inc"/>
    409408        <WindowIndex Value="0"/>
    410409        <TopLine Value="460"/>
    411410        <CursorPos X="10" Y="427"/>
    412         <UsageCount Value="28"/>
     411        <UsageCount Value="27"/>
     412        <DefaultSyntaxHighlighter Value="Delphi"/>
    413413      </Unit26>
    414414      <Unit27>
    415         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
     415        <Filename Value="../../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    416416        <WindowIndex Value="0"/>
    417417        <TopLine Value="120"/>
    418418        <CursorPos X="1" Y="134"/>
    419         <UsageCount Value="8"/>
     419        <UsageCount Value="7"/>
     420        <DefaultSyntaxHighlighter Value="Delphi"/>
    420421      </Unit27>
    421422      <Unit28>
    422         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListObject.inc"/>
     423        <Filename Value="../../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListObject.inc"/>
    423424        <WindowIndex Value="0"/>
    424425        <TopLine Value="1"/>
    425426        <CursorPos X="24" Y="4"/>
    426         <UsageCount Value="7"/>
     427        <UsageCount Value="6"/>
     428        <DefaultSyntaxHighlighter Value="Delphi"/>
    427429      </Unit28>
    428430      <Unit29>
    429         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Specialized/SpecializedDictionary.pas"/>
     431        <Filename Value="../../../PascalClassLibrary/Generics/TemplateGenerics/Specialized/SpecializedDictionary.pas"/>
    430432        <UnitName Value="SpecializedDictionary"/>
    431433        <WindowIndex Value="0"/>
    432434        <TopLine Value="6"/>
    433435        <CursorPos X="26" Y="18"/>
    434         <UsageCount Value="6"/>
     436        <UsageCount Value="5"/>
     437        <DefaultSyntaxHighlighter Value="Delphi"/>
    435438      </Unit29>
    436439      <Unit30>
    437         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    438         <EditorIndex Value="14"/>
    439         <WindowIndex Value="0"/>
    440         <TopLine Value="120"/>
    441         <CursorPos X="29" Y="132"/>
    442         <UsageCount Value="36"/>
    443         <Loaded Value="True"/>
     440        <Filename Value="Forms/UItemSelect.pas"/>
     441        <IsPartOfProject Value="True"/>
     442        <ComponentName Value="ItemSelectForm"/>
     443        <ResourceBaseClass Value="Form"/>
     444        <UnitName Value="UItemSelect"/>
     445        <WindowIndex Value="0"/>
     446        <TopLine Value="40"/>
     447        <CursorPos X="29" Y="54"/>
     448        <UsageCount Value="80"/>
     449        <DefaultSyntaxHighlighter Value="Delphi"/>
    444450      </Unit30>
    445451      <Unit31>
    446         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericDictionary.inc"/>
    447         <EditorIndex Value="15"/>
    448         <WindowIndex Value="0"/>
    449         <TopLine Value="50"/>
    450         <CursorPos X="35" Y="67"/>
    451         <UsageCount Value="36"/>
    452         <Loaded Value="True"/>
     452        <Filename Value="../../../Lazarus/0.9.31_2.5.1/lcl/comctrls.pp"/>
     453        <UnitName Value="ComCtrls"/>
     454        <WindowIndex Value="0"/>
     455        <TopLine Value="1207"/>
     456        <CursorPos X="20" Y="1219"/>
     457        <UsageCount Value="34"/>
     458        <DefaultSyntaxHighlighter Value="Delphi"/>
    453459      </Unit31>
    454460      <Unit32>
    455         <Filename Value="Forms/UItemSelect.pas"/>
    456         <IsPartOfProject Value="True"/>
    457         <ComponentName Value="ItemSelectForm"/>
    458         <ResourceBaseClass Value="Form"/>
    459         <UnitName Value="UItemSelect"/>
    460         <EditorIndex Value="17"/>
    461         <WindowIndex Value="0"/>
    462         <TopLine Value="40"/>
    463         <CursorPos X="29" Y="54"/>
    464         <UsageCount Value="70"/>
    465         <Loaded Value="True"/>
    466         <LoadedDesigner Value="True"/>
     461        <Filename Value="../../../Lazarus/0.9.31_2.5.1/lcl/include/customform.inc"/>
     462        <WindowIndex Value="0"/>
     463        <TopLine Value="945"/>
     464        <CursorPos X="29" Y="950"/>
     465        <UsageCount Value="33"/>
    467466        <DefaultSyntaxHighlighter Value="Delphi"/>
    468467      </Unit32>
    469468      <Unit33>
    470         <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/comctrls.pp"/>
    471         <UnitName Value="ComCtrls"/>
    472         <EditorIndex Value="2"/>
    473         <WindowIndex Value="0"/>
    474         <TopLine Value="1207"/>
    475         <CursorPos X="20" Y="1219"/>
    476         <UsageCount Value="35"/>
    477         <Loaded Value="True"/>
     469        <Filename Value="../../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>
     470        <UnitName Value="USqlDatabase"/>
     471        <WindowIndex Value="0"/>
     472        <TopLine Value="446"/>
     473        <CursorPos X="58" Y="243"/>
     474        <UsageCount Value="31"/>
     475        <DefaultSyntaxHighlighter Value="Delphi"/>
    478476      </Unit33>
    479477      <Unit34>
    480         <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/include/customform.inc"/>
    481         <EditorIndex Value="18"/>
    482         <WindowIndex Value="0"/>
    483         <TopLine Value="945"/>
    484         <CursorPos X="29" Y="950"/>
    485         <UsageCount Value="34"/>
    486         <Loaded Value="True"/>
     478        <Filename Value="../../../Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/objpas/classes/classesh.inc"/>
     479        <WindowIndex Value="0"/>
     480        <TopLine Value="495"/>
     481        <CursorPos X="14" Y="510"/>
     482        <UsageCount Value="31"/>
     483        <DefaultSyntaxHighlighter Value="Delphi"/>
    487484      </Unit34>
    488485      <Unit35>
    489         <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/include/customlistview.inc"/>
    490         <EditorIndex Value="1"/>
    491         <WindowIndex Value="0"/>
    492         <TopLine Value="549"/>
    493         <CursorPos X="1" Y="561"/>
    494         <UsageCount Value="34"/>
    495         <Loaded Value="True"/>
     486        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>
     487        <UnitName Value="USqlDatabase"/>
     488        <WindowIndex Value="0"/>
     489        <TopLine Value="174"/>
     490        <CursorPos X="11" Y="177"/>
     491        <UsageCount Value="14"/>
    496492      </Unit35>
    497493      <Unit36>
    498         <Filename Value="H:/PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>
    499         <UnitName Value="USqlDatabase"/>
    500         <EditorIndex Value="4"/>
    501         <WindowIndex Value="0"/>
    502         <TopLine Value="446"/>
    503         <CursorPos X="58" Y="243"/>
    504         <UsageCount Value="32"/>
    505         <Loaded Value="True"/>
     494        <Filename Value="Forms/ULoginProfileForm.pas"/>
     495        <IsPartOfProject Value="True"/>
     496        <ComponentName Value="LoginProfileForm"/>
     497        <ResourceBaseClass Value="Form"/>
     498        <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"/>
     505        <Loaded Value="True"/>
     506        <LoadedDesigner Value="True"/>
     507        <DefaultSyntaxHighlighter Value="Delphi"/>
    506508      </Unit36>
    507509      <Unit37>
    508         <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/objpas/classes/classesh.inc"/>
    509         <EditorIndex Value="13"/>
    510         <WindowIndex Value="0"/>
    511         <TopLine Value="495"/>
    512         <CursorPos X="14" Y="510"/>
    513         <UsageCount Value="32"/>
     510        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListObject.inc"/>
     511        <EditorIndex Value="14"/>
     512        <WindowIndex Value="0"/>
     513        <TopLine Value="1"/>
     514        <CursorPos X="24" Y="4"/>
     515        <UsageCount Value="11"/>
    514516        <Loaded Value="True"/>
    515517      </Unit37>
    516518      <Unit38>
    517         <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/include/control.inc"/>
    518         <EditorIndex Value="6"/>
    519         <WindowIndex Value="0"/>
    520         <TopLine Value="2774"/>
    521         <CursorPos X="1" Y="2786"/>
    522         <UsageCount Value="32"/>
    523         <Loaded Value="True"/>
     519        <Filename Value="../../../Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/packages/fcl-registry/src/registry.pp"/>
     520        <UnitName Value="registry"/>
     521        <WindowIndex Value="0"/>
     522        <TopLine Value="68"/>
     523        <CursorPos X="14" Y="81"/>
     524        <UsageCount Value="12"/>
    524525      </Unit38>
     526      <Unit39>
     527        <Filename Value="../../../Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/packages/fcl-registry/src/winreg.inc"/>
     528        <WindowIndex Value="0"/>
     529        <TopLine Value="239"/>
     530        <CursorPos X="3" Y="245"/>
     531        <UsageCount Value="12"/>
     532      </Unit39>
     533      <Unit40>
     534        <Filename Value="../../../Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/objpas/sysutils/datih.inc"/>
     535        <WindowIndex Value="0"/>
     536        <TopLine Value="104"/>
     537        <CursorPos X="23" Y="112"/>
     538        <UsageCount Value="10"/>
     539      </Unit40>
     540      <Unit41>
     541        <Filename Value="Forms/UAboutForm.pas"/>
     542        <IsPartOfProject Value="True"/>
     543        <ComponentName Value="AboutForm"/>
     544        <HasResources Value="True"/>
     545        <ResourceBaseClass Value="Form"/>
     546        <UnitName Value="UAboutForm"/>
     547        <EditorIndex Value="5"/>
     548        <WindowIndex Value="0"/>
     549        <TopLine Value="4"/>
     550        <CursorPos X="20" Y="19"/>
     551        <UsageCount Value="24"/>
     552        <Loaded Value="True"/>
     553        <LoadedDesigner Value="True"/>
     554        <DefaultSyntaxHighlighter Value="Delphi"/>
     555      </Unit41>
     556      <Unit42>
     557        <Filename Value="../../../Lazarus/0.9.31_2.5.1/lcl/include/fileutil.inc"/>
     558        <EditorIndex Value="4"/>
     559        <WindowIndex Value="0"/>
     560        <TopLine Value="1575"/>
     561        <CursorPos X="6" Y="1578"/>
     562        <UsageCount Value="12"/>
     563        <Loaded Value="True"/>
     564      </Unit42>
     565      <Unit43>
     566        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
     567        <WindowIndex Value="0"/>
     568        <TopLine Value="119"/>
     569        <CursorPos X="1" Y="132"/>
     570        <UsageCount Value="10"/>
     571      </Unit43>
    525572    </Units>
    526573    <JumpHistory Count="30" HistoryIndex="29">
    527574      <Position1>
    528         <Filename Value="Forms/UItemEdit.pas"/>
    529         <Caret Line="63" Column="1" TopLine="54"/>
     575        <Filename Value="Forms/ULoginProfileForm.pas"/>
     576        <Caret Line="157" Column="32" TopLine="145"/>
    530577      </Position1>
    531578      <Position2>
    532         <Filename Value="Forms/UItemEdit.pas"/>
    533         <Caret Line="60" Column="1" TopLine="54"/>
     579        <Filename Value="Forms/ULoginProfileForm.pas"/>
     580        <Caret Line="155" Column="16" TopLine="144"/>
    534581      </Position2>
    535582      <Position3>
    536         <Filename Value="Forms/UItemEdit.pas"/>
    537         <Caret Line="61" Column="1" TopLine="54"/>
     583        <Filename Value="Forms/ULoginProfileForm.pas"/>
     584        <Caret Line="153" Column="1" TopLine="144"/>
    538585      </Position3>
    539586      <Position4>
    540         <Filename Value="Forms/UItemEdit.pas"/>
    541         <Caret Line="63" Column="1" TopLine="54"/>
     587        <Filename Value="Forms/ULoginProfileForm.pas"/>
     588        <Caret Line="154" Column="1" TopLine="144"/>
    542589      </Position4>
    543590      <Position5>
    544         <Filename Value="Forms/UItemEdit.pas"/>
    545         <Caret Line="65" Column="5" TopLine="54"/>
     591        <Filename Value="Forms/ULoginProfileForm.pas"/>
     592        <Caret Line="155" Column="1" TopLine="144"/>
    546593      </Position5>
    547594      <Position6>
    548         <Filename Value="Forms/UItemEdit.pas"/>
    549         <Caret Line="66" Column="1" TopLine="54"/>
     595        <Filename Value="Forms/ULoginProfileForm.pas"/>
     596        <Caret Line="156" Column="1" TopLine="144"/>
    550597      </Position6>
    551598      <Position7>
    552         <Filename Value="H:/PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>
    553         <Caret Line="244" Column="1" TopLine="232"/>
     599        <Filename Value="Forms/ULoginProfileForm.pas"/>
     600        <Caret Line="157" Column="1" TopLine="144"/>
    554601      </Position7>
    555602      <Position8>
    556         <Filename Value="Forms/UItemEdit.pas"/>
    557         <Caret Line="60" Column="83" TopLine="54"/>
     603        <Filename Value="Forms/ULoginProfileForm.pas"/>
     604        <Caret Line="158" Column="1" TopLine="144"/>
    558605      </Position8>
    559606      <Position9>
    560         <Filename Value="Forms/UItemEdit.pas"/>
    561         <Caret Line="135" Column="22" TopLine="124"/>
     607        <Filename Value="Forms/ULoginProfileForm.pas"/>
     608        <Caret Line="160" Column="1" TopLine="144"/>
    562609      </Position9>
    563610      <Position10>
    564         <Filename Value="Application/UDataTypes.pas"/>
    565         <Caret Line="83" Column="69" TopLine="67"/>
     611        <Filename Value="Forms/ULoginProfileForm.pas"/>
     612        <Caret Line="153" Column="1" TopLine="144"/>
    566613      </Position10>
    567614      <Position11>
    568         <Filename Value="Forms/UMainForm.pas"/>
    569         <Caret Line="747" Column="24" TopLine="733"/>
     615        <Filename Value="Forms/ULoginProfileForm.pas"/>
     616        <Caret Line="154" Column="1" TopLine="144"/>
    570617      </Position11>
    571618      <Position12>
    572         <Filename Value="USystem.pas"/>
    573         <Caret Line="600" Column="15" TopLine="595"/>
     619        <Filename Value="Forms/ULoginProfileForm.pas"/>
     620        <Caret Line="155" Column="1" TopLine="144"/>
    574621      </Position12>
    575622      <Position13>
    576         <Filename Value="USystem.pas"/>
    577         <Caret Line="602" Column="18" TopLine="595"/>
     623        <Filename Value="Forms/ULoginProfileForm.pas"/>
     624        <Caret Line="156" Column="1" TopLine="144"/>
    578625      </Position13>
    579626      <Position14>
    580         <Filename Value="USystem.pas"/>
    581         <Caret Line="607" Column="16" TopLine="595"/>
     627        <Filename Value="Forms/ULoginProfileForm.pas"/>
     628        <Caret Line="157" Column="6" TopLine="144"/>
    582629      </Position14>
    583630      <Position15>
    584         <Filename Value="Forms/UItemAdd.pas"/>
    585         <Caret Line="64" Column="24" TopLine="51"/>
     631        <Filename Value="Forms/ULoginProfileForm.pas"/>
     632        <Caret Line="60" Column="15" TopLine="48"/>
    586633      </Position15>
    587634      <Position16>
    588         <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/include/control.inc"/>
    589         <Caret Line="2786" Column="1" TopLine="2774"/>
     635        <Filename Value="Forms/ULoginProfileForm.pas"/>
     636        <Caret Line="146" Column="30" TopLine="141"/>
    590637      </Position16>
    591638      <Position17>
    592         <Filename Value="Forms/UItemAdd.pas"/>
    593         <Caret Line="65" Column="23" TopLine="51"/>
     639        <Filename Value="Forms/ULoginProfileForm.pas"/>
     640        <Caret Line="108" Column="31" TopLine="87"/>
    594641      </Position17>
    595642      <Position18>
    596         <Filename Value="Forms/UItemAdd.pas"/>
    597         <Caret Line="31" Column="1" TopLine="18"/>
     643        <Filename Value="Forms/ULoginProfileForm.pas"/>
     644        <Caret Line="122" Column="1" TopLine="118"/>
    598645      </Position18>
    599646      <Position19>
    600         <Filename Value="Forms/UItemAdd.pas"/>
    601         <Caret Line="84" Column="1" TopLine="72"/>
     647        <Filename Value="Forms/ULoginProfileForm.pas"/>
     648        <Caret Line="183" Column="80" TopLine="180"/>
    602649      </Position19>
    603650      <Position20>
    604         <Filename Value="Forms/UItemAdd.pas"/>
    605         <Caret Line="89" Column="1" TopLine="77"/>
     651        <Filename Value="Forms/ULoginProfileForm.pas"/>
     652        <Caret Line="123" Column="92" TopLine="120"/>
    606653      </Position20>
    607654      <Position21>
    608         <Filename Value="Forms/UItemAdd.pas"/>
    609         <Caret Line="119" Column="1" TopLine="107"/>
     655        <Filename Value="Forms/ULoginProfileForm.pas"/>
     656        <Caret Line="129" Column="78" TopLine="126"/>
    610657      </Position21>
    611658      <Position22>
    612         <Filename Value="Forms/UItemEdit.pas"/>
    613         <Caret Line="66" Column="1" TopLine="53"/>
     659        <Filename Value="Forms/ULoginProfileForm.pas"/>
     660        <Caret Line="141" Column="36" TopLine="115"/>
    614661      </Position22>
    615662      <Position23>
    616         <Filename Value="Forms/UItemEdit.pas"/>
    617         <Caret Line="102" Column="1" TopLine="87"/>
     663        <Filename Value="Forms/ULoginProfileForm.pas"/>
     664        <Caret Line="123" Column="110" TopLine="110"/>
    618665      </Position23>
    619666      <Position24>
    620         <Filename Value="Forms/UItemSelect.pas"/>
    621         <Caret Line="50" Column="17" TopLine="41"/>
     667        <Filename Value="Forms/ULoginProfileForm.pas"/>
     668        <Caret Line="183" Column="25" TopLine="177"/>
    622669      </Position24>
    623670      <Position25>
    624         <Filename Value="Forms/UItemSelect.pas"/>
    625         <Caret Line="53" Column="21" TopLine="41"/>
     671        <Filename Value="Forms/ULoginProfileForm.pas"/>
     672        <Caret Line="184" Column="25" TopLine="178"/>
    626673      </Position25>
    627674      <Position26>
    628         <Filename Value="Forms/UItemSelect.pas"/>
    629         <Caret Line="50" Column="17" TopLine="41"/>
     675        <Filename Value="Forms/ULoginProfileForm.pas"/>
     676        <Caret Line="193" Column="27" TopLine="185"/>
    630677      </Position26>
    631678      <Position27>
    632         <Filename Value="Forms/UItemSelect.pas"/>
    633         <Caret Line="32" Column="53" TopLine="11"/>
     679        <Filename Value="Forms/ULoginProfileForm.pas"/>
     680        <Caret Line="133" Column="57" TopLine="129"/>
    634681      </Position27>
    635682      <Position28>
    636         <Filename Value="Application/UDataTypes.pas"/>
    637         <Caret Line="258" Column="67" TopLine="246"/>
     683        <Filename Value="Forms/ULoginProfileForm.pas"/>
     684        <Caret Line="131" Column="36" TopLine="118"/>
    638685      </Position28>
    639686      <Position29>
    640         <Filename Value="Application/UDataTypes.pas"/>
    641         <Caret Line="260" Column="1" TopLine="246"/>
     687        <Filename Value="Forms/ULoginProfileForm.pas"/>
     688        <Caret Line="67" Column="21" TopLine="47"/>
    642689      </Position29>
    643690      <Position30>
    644         <Filename Value="Forms/UItemView.pas"/>
    645         <Caret Line="119" Column="39" TopLine="108"/>
     691        <Filename Value="Forms/ULoginProfileForm.pas"/>
     692        <Caret Line="196" Column="27" TopLine="187"/>
    646693      </Position30>
    647694    </JumpHistory>
    … …  
    678725      <Debugging>
    679726        <GenerateDebugInfo Value="True"/>
     727        <DebugInfoType Value="dsStabs"/>
    680728        <UseHeaptrc Value="True"/>
    681729      </Debugging>

  • trunk/chronis.lpr

    r21 r25  
    1111  ULoginForm, UMainForm, UItemAdd, TemplateGenerics, CoolTranslator, Common,
    1212  CoolWeb, USystem, UCore, UApplicationInfo, USettingForm, UDataTypes,
    13 UImportStructureForm, UItemSelect
     13UImportStructureForm, UItemSelect, ULoginProfileForm, UAboutForm
    1414  { you can add units after this };
    1515
    … …  
    3838  Application.CreateForm(TImportStructureForm, ImportStructureForm);
    3939  Application.CreateForm(TItemSelectForm, ItemSelectForm);
     40  Application.CreateForm(TLoginProfileForm, LoginProfileForm);
     41  Application.CreateForm(TAboutForm, AboutForm);
    4042  Application.Run;
    4143end.

  • trunk/languages/chronis.cs.po

    r18 r25  
    55"POT-Creation-Date: \n"
    66"PO-Revision-Date: \n"
    7 "Last-Translator: Jiří Hajda <software@mezservis.cz>\n"
     7"Last-Translator: Chronos <robie@centrum.cz>\n"
    88"Language-Team: \n"
    99"MIME-Version: 1.0\n"
    1010"Content-Transfer-Encoding: 8bit\n"
     11
     12#: TABOUTFORM.CAPTION
     13msgctxt "TABOUTFORM.CAPTION"
     14msgid "About"
     15msgstr "O programu"
     16
     17#: TABOUTFORM.OKBUTTON.CAPTION
     18msgid "OK"
     19msgstr "OK"
     20
     21#: TIMPORTSTRUCTUREFORM.BUTTON1.CAPTION
     22msgid "Import"
     23msgstr "Import"
     24
     25#: TIMPORTSTRUCTUREFORM.CAPTION
     26msgid "Import structure"
     27msgstr "Importovat strukturu"
     28
     29#: TIMPORTSTRUCTUREFORM.LABEL1.CAPTION
     30msgid "Schema:"
     31msgstr "Schéma:"
     32
     33#: TIMPORTSTRUCTUREFORM.LABEL2.CAPTION
     34msgid "Host:"
     35msgstr "Hostitel:"
     36
     37#: TIMPORTSTRUCTUREFORM.LABEL3.CAPTION
     38msgid "User:"
     39msgstr "Uživatel:"
     40
     41#: TIMPORTSTRUCTUREFORM.LABEL4.CAPTION
     42msgctxt "TIMPORTSTRUCTUREFORM.LABEL4.CAPTION"
     43msgid "Password:"
     44msgstr "Heslo:"
    1145
    1246#: TITEMADDFORM.BUTTONCANCEL.CAPTION
    … …  
    4478msgstr "Upravit položku"
    4579
     80#: TITEMSELECTFORM.BUTTONCANCEL.CAPTION
     81msgctxt "TITEMSELECTFORM.BUTTONCANCEL.CAPTION"
     82msgid "Cancel"
     83msgstr "Zrušit"
     84
     85#: TITEMSELECTFORM.BUTTONSELECT.CAPTION
     86msgid "Select"
     87msgstr "Vybrat"
     88
     89#: TITEMSELECTFORM.CAPTION
     90msgid "Item select"
     91msgstr "Výběr položky"
     92
    4693#: TITEMVIEWFORM.BUTTONCLOSE.CAPTION
    4794#| msgid "Zavřít"
    … …  
    66113msgstr "Zavřít"
    67114
     115#: TLOGINFORM.BUTTONCHANGE.CAPTION
     116msgid "Change"
     117msgstr "Změnit"
     118
    68119#: TLOGINFORM.BUTTONLOGIN.CAPTION
    69120msgctxt "TLOGINFORM.BUTTONLOGIN.CAPTION"
    … …  
    81132
    82133#: TLOGINFORM.LABEL2.CAPTION
     134msgctxt "TLOGINFORM.LABEL2.CAPTION"
    83135msgid "Password:"
    84136msgstr "Heslo:"
    85137
    86 #: TLOGINFORM.MASKEDIT1.TEXT
     138#: TLOGINFORM.LABEL3.CAPTION
     139msgid "Connection:"
     140msgstr "Spojení:"
     141
     142#: TLOGINFORM.MASKEDITPASSWORD.TEXT
     143msgctxt "TLOGINFORM.MASKEDITPASSWORD.TEXT"
    87144msgid "*"
    88145msgstr "*"
     146
     147#: TLOGINPROFILEFORM.BUTTONADD.CAPTION
     148msgctxt "TLOGINPROFILEFORM.BUTTONADD.CAPTION"
     149msgid "Add"
     150msgstr "Přidat"
     151
     152#: TLOGINPROFILEFORM.BUTTONCANCEL.CAPTION
     153msgctxt "TLOGINPROFILEFORM.BUTTONCANCEL.CAPTION"
     154msgid "Cancel"
     155msgstr "Zrušit"
     156
     157#: TLOGINPROFILEFORM.BUTTONDELETE.CAPTION
     158msgctxt "TLOGINPROFILEFORM.BUTTONDELETE.CAPTION"
     159msgid "Delete"
     160msgstr "Odebrat"
     161
     162#: TLOGINPROFILEFORM.BUTTONOK.CAPTION
     163msgid "Ok"
     164msgstr "Ok"
     165
     166#: TLOGINPROFILEFORM.CAPTION
     167msgid "Connection profile"
     168msgstr "Profil připojení"
     169
     170#: TLOGINPROFILEFORM.LABEL1.CAPTION
     171msgid "Profiles:"
     172msgstr "Profily:"
     173
     174#: TLOGINPROFILEFORM.LABEL2.CAPTION
     175msgid "Port:"
     176msgstr "Zásuvka:"
     177
     178#: TLOGINPROFILEFORM.LABEL3.CAPTION
     179msgid "Protocol:"
     180msgstr "Protokol:"
     181
     182#: TLOGINPROFILEFORM.LABEL4.CAPTION
     183msgid "Database:"
     184msgstr "Databáze:"
     185
     186#: TLOGINPROFILEFORM.LABEL5.CAPTION
     187msgid "Name:"
     188msgstr "Jméno:"
     189
     190#: TLOGINPROFILEFORM.LABELSERVER.CAPTION
     191msgid "Server:"
     192msgstr "Server:"
     193
     194#: TMAINFORM.AABOUT.CAPTION
     195msgctxt "TMAINFORM.AABOUT.CAPTION"
     196msgid "About"
     197msgstr "O programu"
    89198
    90199#: TMAINFORM.ACONNECT.CAPTION
    … …  
    101210msgid "Exit"
    102211msgstr "Ukončit"
     212
     213#: TMAINFORM.AIMPORTSTRUCTURE.CAPTION
     214msgid "Import structure..."
     215msgstr "Importovat strukturu..."
    103216
    104217#: TMAINFORM.AINITSYSTEMVALUES.CAPTION
    … …  
    235348msgstr "Jazyk:"
    236349
     350#: uaboutform.sapplicationname
     351msgid "Application name"
     352msgstr "Jméno aplikace"
     353
     354#: uaboutform.semail
     355msgid "E-mail"
     356msgstr "E-mail"
     357
     358#: uaboutform.smanufacturer
     359msgid "Company"
     360msgstr "Společnost"
     361
     362#: uaboutform.sreleasedate
     363msgid "Release date"
     364msgstr "Datum uvolnění"
     365
     366#: uaboutform.sversion
     367msgid "Version"
     368msgstr "Verze"
     369
     370#: uloginprofileform.sprofile
     371msgid "Profile"
     372msgstr "Profil"
     373
     374#: uloginprofileform.sprotocolxmlrpc
     375msgid "XML-RPC"
     376msgstr "XML-RPC"
     377
    237378#: umainform.sgroup
    238379msgid "Groups"

  • trunk/languages/chronis.po

    r18 r25  
    11msgid ""
    22msgstr "Content-Type: text/plain; charset=UTF-8"
     3
     4#: TABOUTFORM.CAPTION
     5msgctxt "TABOUTFORM.CAPTION"
     6msgid "About"
     7msgstr ""
     8
     9#: TABOUTFORM.OKBUTTON.CAPTION
     10msgid "OK"
     11msgstr ""
     12
     13#: TIMPORTSTRUCTUREFORM.BUTTON1.CAPTION
     14msgid "Import"
     15msgstr ""
     16
     17#: TIMPORTSTRUCTUREFORM.CAPTION
     18msgid "Import structure"
     19msgstr ""
     20
     21#: TIMPORTSTRUCTUREFORM.LABEL1.CAPTION
     22msgid "Schema:"
     23msgstr ""
     24
     25#: TIMPORTSTRUCTUREFORM.LABEL2.CAPTION
     26msgid "Host:"
     27msgstr ""
     28
     29#: TIMPORTSTRUCTUREFORM.LABEL3.CAPTION
     30msgid "User:"
     31msgstr ""
     32
     33#: TIMPORTSTRUCTUREFORM.LABEL4.CAPTION
     34msgctxt "TIMPORTSTRUCTUREFORM.LABEL4.CAPTION"
     35msgid "Password:"
     36msgstr ""
    337
    438#: TITEMADDFORM.BUTTONCANCEL.CAPTION
    … …  
    3266msgstr ""
    3367
     68#: TITEMSELECTFORM.BUTTONCANCEL.CAPTION
     69msgctxt "TITEMSELECTFORM.BUTTONCANCEL.CAPTION"
     70msgid "Cancel"
     71msgstr ""
     72
     73#: TITEMSELECTFORM.BUTTONSELECT.CAPTION
     74msgid "Select"
     75msgstr ""
     76
     77#: TITEMSELECTFORM.CAPTION
     78msgid "Item select"
     79msgstr ""
     80
    3481#: TITEMVIEWFORM.BUTTONCLOSE.CAPTION
    3582msgctxt "TITEMVIEWFORM.BUTTONCLOSE.CAPTION"
    … …  
    5299msgstr ""
    53100
     101#: TLOGINFORM.BUTTONCHANGE.CAPTION
     102msgid "Change"
     103msgstr ""
     104
    54105#: TLOGINFORM.BUTTONLOGIN.CAPTION
    55106msgctxt "TLOGINFORM.BUTTONLOGIN.CAPTION"
    … …  
    67118
    68119#: TLOGINFORM.LABEL2.CAPTION
     120msgctxt "TLOGINFORM.LABEL2.CAPTION"
    69121msgid "Password:"
    70122msgstr ""
    71123
    72 #: TLOGINFORM.MASKEDIT1.TEXT
     124#: TLOGINFORM.LABEL3.CAPTION
     125msgid "Connection:"
     126msgstr ""
     127
     128#: TLOGINFORM.MASKEDITPASSWORD.TEXT
     129msgctxt "TLOGINFORM.MASKEDITPASSWORD.TEXT"
    73130msgid "*"
     131msgstr ""
     132
     133#: TLOGINPROFILEFORM.BUTTONADD.CAPTION
     134msgctxt "TLOGINPROFILEFORM.BUTTONADD.CAPTION"
     135msgid "Add"
     136msgstr ""
     137
     138#: TLOGINPROFILEFORM.BUTTONCANCEL.CAPTION
     139msgctxt "TLOGINPROFILEFORM.BUTTONCANCEL.CAPTION"
     140msgid "Cancel"
     141msgstr ""
     142
     143#: TLOGINPROFILEFORM.BUTTONDELETE.CAPTION
     144msgctxt "TLOGINPROFILEFORM.BUTTONDELETE.CAPTION"
     145msgid "Delete"
     146msgstr ""
     147
     148#: TLOGINPROFILEFORM.BUTTONOK.CAPTION
     149msgid "Ok"
     150msgstr ""
     151
     152#: TLOGINPROFILEFORM.CAPTION
     153msgid "Connection profile"
     154msgstr ""
     155
     156#: TLOGINPROFILEFORM.LABEL1.CAPTION
     157msgid "Profiles:"
     158msgstr ""
     159
     160#: TLOGINPROFILEFORM.LABEL2.CAPTION
     161msgid "Port:"
     162msgstr ""
     163
     164#: TLOGINPROFILEFORM.LABEL3.CAPTION
     165msgid "Protocol:"
     166msgstr ""
     167
     168#: TLOGINPROFILEFORM.LABEL4.CAPTION
     169msgid "Database:"
     170msgstr ""
     171
     172#: TLOGINPROFILEFORM.LABEL5.CAPTION
     173msgid "Name:"
     174msgstr ""
     175
     176#: TLOGINPROFILEFORM.LABELSERVER.CAPTION
     177msgid "Server:"
     178msgstr ""
     179
     180#: TMAINFORM.AABOUT.CAPTION
     181msgctxt "TMAINFORM.AABOUT.CAPTION"
     182msgid "About"
    74183msgstr ""
    75184
    … …  
    88197msgstr ""
    89198
     199#: TMAINFORM.AIMPORTSTRUCTURE.CAPTION
     200msgid "Import structure..."
     201msgstr ""
     202
    90203#: TMAINFORM.AINITSYSTEMVALUES.CAPTION
    91204msgctxt "TMAINFORM.AINITSYSTEMVALUES.CAPTION"
    … …  
    208321msgstr ""
    209322
     323#: uaboutform.sapplicationname
     324msgid "Application name"
     325msgstr ""
     326
     327#: uaboutform.semail
     328msgid "E-mail"
     329msgstr ""
     330
     331#: uaboutform.smanufacturer
     332msgid "Company"
     333msgstr ""
     334
     335#: uaboutform.sreleasedate
     336msgid "Release date"
     337msgstr ""
     338
     339#: uaboutform.sversion
     340msgid "Version"
     341msgstr ""
     342
     343#: uloginprofileform.sprofile
     344msgid "Profile"
     345msgstr ""
     346
     347#: uloginprofileform.sprotocolxmlrpc
     348msgid "XML-RPC"
     349msgstr ""
     350
    210351#: umainform.sgroup
    211352msgid "Groups"
Note: See TracChangeset for help on using the changeset viewer.