Changeset 12


Ignore:
Timestamp:
Jun 9, 2011, 1:04:45 PM (14 years ago)
Author:
george
Message:
  • Fixed: Display edit controls according property type.
  • Added: Interface language translation.
Location:
trunk
Files:
21 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UItemAdd.lfm

    r9 r12  
    1212  OnDestroy = FormDestroy
    1313  OnShow = FormShow
    14   LCLVersion = '0.9.29'
     14  LCLVersion = '0.9.31'
    1515  object Panel1: TPanel
    1616    Left = 0

  • trunk/Forms/UItemAdd.lrt

    r7 r12  
    1 TITEMADDFORM.ITEMADDFORM.CAPTION=Add item
     1TITEMADDFORM.CAPTION=Add item
    22TITEMADDFORM.BUTTONCANCEL.CAPTION=Cancel
    33TITEMADDFORM.BUTTONSAVE.CAPTION=Add

  • trunk/Forms/UItemAdd.pas

    r9 r12  
    103103      TLabel(NewControl).Caption := TReportColumn(Report.Columns[I]).Caption + ':';
    104104
    105       ValueType := TReportColumn(Report.Columns[I]).TypeId;
     105      ValueType := TReportColumn(Report.Columns[I]).TypeDef.TypeIndex;
    106106      if ValueType = Integer(vtInteger) then begin
    107107        NewControl := TSpinEdit.Create(Panel1);

  • trunk/Forms/UItemEdit.lfm

    r9 r12  
    1212  OnDestroy = FormDestroy
    1313  OnShow = FormShow
    14   LCLVersion = '0.9.29'
     14  LCLVersion = '0.9.31'
    1515  object Panel1: TPanel
    1616    Left = 0

  • trunk/Forms/UItemEdit.lrt

    r7 r12  
    1 TITEMEDITFORM.ITEMEDITFORM.CAPTION=Edit item
     1TITEMEDITFORM.CAPTION=Edit item
    22TITEMEDITFORM.BUTTONCANCEL.CAPTION=Cancel
    33TITEMEDITFORM.BUTTONSAVE.CAPTION=Save

  • trunk/Forms/UItemEdit.pas

    r9 r12  
    106106      TLabel(NewControl).Caption := TReportColumn(Report.Columns[I]).Caption + ':';
    107107
    108       ValueType := TReportColumn(Report.Columns[I]).TypeId;
     108      ValueType := TReportColumn(Report.Columns[I]).TypeDef.TypeIndex;
    109109      if ValueType = Integer(vtInteger) then begin
    110110        NewControl := TSpinEdit.Create(Panel1);

  • trunk/Forms/UItemView.lfm

    r9 r12  
    1111  OnDestroy = FormDestroy
    1212  OnShow = FormShow
    13   LCLVersion = '0.9.29'
     13  LCLVersion = '0.9.31'
    1414  object ButtonClose: TButton
    1515    Left = 546

  • trunk/Forms/UItemView.lrt

    r7 r12  
    1 TITEMVIEWFORM.ITEMVIEWFORM.CAPTION=View item
     1TITEMVIEWFORM.CAPTION=View item
    22TITEMVIEWFORM.BUTTONCLOSE.CAPTION=Close
    33TITEMVIEWFORM.BUTTONEDIT.CAPTION=Edit

  • trunk/Forms/UItemView.pas

    r9 r12  
    108108  if Report.Count = 1 then
    109109  for I := 0 to Report.Columns.Count - 1 do
    110   if TReportColumn(Report.Columns[I]).TypeId = 20 then begin
     110  if TReportColumn(Report.Columns[I]).TypeDef.TypeIndex = Integer(vtPointer) then begin
    111111    TabControl1.Tabs.Add(TReportColumn(Report.Columns[I]).Caption);
    112112  end else begin

  • trunk/Forms/UMainForm.pas

    r11 r12  
    121121
    122122uses
    123   UItemView, UItemEdit, UItemAdd, ULoginForm, USettingForm, UApplicationInfo;
     123  UItemView, UItemEdit, UItemAdd, ULoginForm, USettingForm, UApplicationInfo,
     124  UCore;
    124125
    125126{$R *.lfm}
    … …  
    138139    System.Database.UserName := ReadStringWithDefault('DatabaseUserName', 'chronis');
    139140    System.Database.Password := ReadStringWithDefault('DatabasePassword', '');
    140   finally
     141    with Core.CoolTranslator1 do
     142      Language := Languages.SearchByCode(ReadStringWithDefault('LanguageCode', ''));
     143 finally
    141144    Free;
    142145  end;
    … …  
    154157    WriteString('DatabaseUserName', System.Database.UserName);
    155158    WriteString('DatabasePassword', System.Database.Password);
     159    with Core.CoolTranslator1 do
     160      WriteString('LanguageCode', Language.Code);
    156161  finally
    157162    Free;
    … …  
    434439  System.Database.Connect;
    435440  InitStructure;
     441  System.LoadTypes;
    436442  LoadTree;
    437443end;

  • trunk/Forms/USettingForm.lfm

    r10 r12  
    77  ClientHeight = 328
    88  ClientWidth = 446
     9  OnClose = FormClose
     10  OnShow = FormShow
    911  LCLVersion = '0.9.31'
    1012  object Label1: TLabel
    … …  
    4345    TabOrder = 2
    4446  end
     47  object Label2: TLabel
     48    Left = 9
     49    Height = 14
     50    Top = 38
     51    Width = 52
     52    Caption = 'Language:'
     53    ParentColor = False
     54  end
     55  object ComboBoxLanguage: TComboBox
     56    Left = 116
     57    Height = 21
     58    Top = 32
     59    Width = 132
     60    ItemHeight = 13
     61    TabOrder = 3
     62    Text = 'ComboBoxLanguage'
     63  end
    4564end

  • trunk/Forms/USettingForm.lrt

    r10 r12  
    33TSETTINGFORM.BUTTONSAVE.CAPTION=Save
    44TSETTINGFORM.BUTTONCANCEL.CAPTION=Cancel
     5TSETTINGFORM.LABEL2.CAPTION=Language:
     6TSETTINGFORM.COMBOBOXLANGUAGE.TEXT=ComboBoxLanguage

  • trunk/Forms/USettingForm.pas

    r10 r12  
    66
    77uses
    8   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
     8  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
     9  CoolTranslator, ULanguages;
    910
    1011type
    … …  
    1516    ButtonSave: TButton;
    1617    ButtonCancel: TButton;
     18    ComboBoxLanguage: TComboBox;
    1719    Edit1: TEdit;
    1820    Label1: TLabel;
     21    Label2: TLabel;
     22    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     23    procedure FormShow(Sender: TObject);
    1924  private
    20     { private declarations }
     25    procedure Save;
     26    procedure Load;
    2127  public
    2228    { public declarations }
    … …  
    3036{$R *.lfm}
    3137
     38uses
     39  UCore, UMainForm;
     40
     41{ TSettingForm }
     42
     43procedure TSettingForm.FormShow(Sender: TObject);
     44begin
     45  MainForm.PersistentForm.Load(Self);
     46
     47  Load;
     48end;
     49
     50procedure TSettingForm.FormClose(Sender: TObject; var CloseAction: TCloseAction
     51  );
     52begin
     53  if ModalResult = mrOK then Save;
     54  MainForm.PersistentForm.Save(Self);
     55end;
     56
     57procedure TSettingForm.Save;
     58begin
     59  with Core.CoolTranslator1 do
     60    Language := TLanguage(Languages[ComboBoxLanguage.ItemIndex]);
     61end;
     62
     63procedure TSettingForm.Load;
     64begin
     65  with Core.CoolTranslator1 do begin
     66    LanguageListToStrings(ComboBoxLanguage.Items);
     67    if Assigned(Language) then begin
     68      ComboBoxLanguage.ItemIndex := ComboBoxLanguage.Items.IndexOfObject(Language);
     69      // Select automatic if no other match
     70      if ComboBoxLanguage.ItemIndex = -1 then ComboBoxLanguage.ItemIndex := 0;
     71    end else ComboBoxLanguage.ItemIndex := 0;
     72  end;
     73end;
     74
    3275end.
    3376

  • trunk/UCore.lfm

    r10 r12  
    11object Core: TCore
    22  OldCreateOrder = False
    3   Height = 50
     3  Height = 346
    44  HorizontalOffset = 233
    55  VerticalOffset = 71
    6   Width = 50
     6  Width = 419
     7  object CoolTranslator1: TCoolTranslator
     8    POFilesFolder = 'Languages'
     9    left = 103
     10    top = 55
     11  end
    712end

  • trunk/UCore.pas

    r10 r12  
    66
    77uses
    8   Classes, SysUtils, FileUtil;
     8  Classes, SysUtils, FileUtil, UCoolTranslator;
    99
    1010type
     11
     12  { TCore }
     13
    1114  TCore = class(TDataModule)
     15    CoolTranslator1: TCoolTranslator;
    1216  private
    1317    { private declarations }

  • trunk/USystem.pas

    r11 r12  
    3535  TReportColumn = class
    3636    Caption: string;
    37     TypeId: Integer;
    3837    TypeDef: TChronisType;
    3938    ColumnName: string;
    … …  
    7675  end;
    7776
     77  { TChronisTypeList }
     78
     79  TChronisTypeList = class(TListObject)
     80    function FindById(Id: Integer): TChronisType;
     81    function FindByTypeIndex(Id: Integer): TChronisType;
     82  end;
     83
    7884  { TChronisBase }
    7985
    8086  TChronisBase = class
    81     Types: TListObject;  // TList<TChronisType>
     87    Types: TChronisTypeList;
    8288    Database: TSQLDatabase;
    8389    function AddType(Name, DataType: string; TypeIndex: TDbValueType): Integer;
    … …  
    8591    function AddProperty(ObjectId: Integer; Name, ColumnName: string; DataType: Integer): Integer;
    8692    function AddObjectGroup(Name: string): Integer;
     93    procedure LoadTypes;
    8794    constructor Create;
    8895    destructor Destroy; override;
    … …  
    9299
    93100implementation
     101
     102{ TChronisTypeList }
     103
     104function TChronisTypeList.FindById(Id: Integer): TChronisType;
     105var
     106  I: Integer;
     107begin
     108  I := 0;
     109  while (I < Count) and (TChronisType(Items[I]).Id <> Id) do Inc(I);
     110  if I < Count then Result := TChronisType(Items[I])
     111    else Result := nil;
     112end;
     113
     114function TChronisTypeList.FindByTypeIndex(Id: Integer): TChronisType;
     115var
     116  I: Integer;
     117begin
     118  I := 0;
     119  while (I < Count) and (TChronisType(Items[I]).TypeIndex <> Id) do Inc(I);
     120  if I < Count then Result := TChronisType(Items[I])
     121    else Result := nil;
     122end;
    94123
    95124{ TReportLine }
    … …  
    128157      NewColumn.Caption := 'Id';
    129158      NewColumn.ColumnName := 'Id';
    130       NewColumn.TypeId := Integer(vtInteger);
     159      NewColumn.TypeDef := Base.Types.FindByTypeIndex(Integer(vtInteger));
    131160      for I := 0 to Properties.Count - 1 do
    132161      if Properties[I].Values['Type'] <> IntToStr(20) then begin
    … …  
    135164        NewColumn.Caption := Properties[I].Values['Name'];
    136165        NewColumn.ColumnName := Properties[I].Values['ColumnName'];;
    137         NewColumn.TypeId := StrToInt(Properties[I].Values['Type']);
     166        NewColumn.TypeDef := Base.Types.FindById(StrToInt(Properties[I].Values['Type']));
    138167      end;
    139168
    … …  
    241270end;
    242271
     272procedure TChronisBase.LoadTypes;
     273var
     274  DbRows: TDbRows;
     275  I: Integer;
     276begin
     277  try
     278    DbRows := TDbRows.Create;
     279    Types.Clear;
     280    Database.Select(DbRows, PropertyTypeTable);
     281    for I := 0 to DbRows.Count - 1 do begin
     282      with TChronisType(Types.AddNew(TChronisType.Create)) do
     283      with DbRows[I] do begin
     284        Id := StrToInt(Values['Id']);
     285        TypeIndex := StrToInt(Values['TypeIndex']);
     286        DbType := Values['DbType'];
     287        //Parent := StrToInt(Values['Parent']);
     288      end;
     289    end;
     290  finally
     291    DbRows.Free;
     292  end;
     293end;
     294
    243295constructor TChronisBase.Create;
    244296begin
    245297  Database := TSqlDatabase.Create;
    246   Types := TListObject.Create;
     298  Types := TChronisTypeList.Create;
    247299end;
    248300

  • trunk/chronis.lpi

    r11 r12  
    1313    <i18n>
    1414      <EnableI18N Value="True"/>
    15       <OutDir Value="languages"/>
     15      <OutDir Value="Languages"/>
    1616    </i18n>
    1717    <VersionInfo>
    … …  
    8181      </local>
    8282    </RunParams>
    83     <RequiredPackages Count="3">
     83    <RequiredPackages Count="4">
    8484      <Item1>
    85         <PackageName Value="LCLBase"/>
     85        <PackageName Value="CoolTranslator"/>
    8686        <MinVersion Valid="True"/>
    8787      </Item1>
    8888      <Item2>
    89         <PackageName Value="TemplateGenerics"/>
     89        <PackageName Value="LCLBase"/>
     90        <MinVersion Valid="True"/>
    9091      </Item2>
    9192      <Item3>
     93        <PackageName Value="TemplateGenerics"/>
     94      </Item3>
     95      <Item4>
    9296        <PackageName Value="LCL"/>
    93       </Item3>
     97      </Item4>
    9498    </RequiredPackages>
    95     <Units Count="31">
     99    <Units Count="33">
    96100      <Unit0>
    97101        <Filename Value="chronis.lpr"/>
    98102        <IsPartOfProject Value="True"/>
    99103        <UnitName Value="chronis"/>
    100         <EditorIndex Value="12"/>
     104        <EditorIndex Value="8"/>
    101105        <WindowIndex Value="0"/>
    102106        <TopLine Value="14"/>
    … …  
    144148        <IsPartOfProject Value="True"/>
    145149        <UnitName Value="UPersistentForm"/>
    146         <EditorIndex Value="14"/>
     150        <EditorIndex Value="10"/>
    147151        <WindowIndex Value="0"/>
    148152        <TopLine Value="55"/>
    … …  
    156160        <IsPartOfProject Value="True"/>
    157161        <UnitName Value="USqlDatabase"/>
    158         <EditorIndex Value="10"/>
     162        <EditorIndex Value="7"/>
    159163        <WindowIndex Value="0"/>
    160164        <TopLine Value="209"/>
    … …  
    168172        <IsPartOfProject Value="True"/>
    169173        <UnitName Value="URegistry"/>
    170         <EditorIndex Value="13"/>
     174        <EditorIndex Value="9"/>
    171175        <WindowIndex Value="0"/>
    172176        <TopLine Value="19"/>
    … …  
    184188        <EditorIndex Value="0"/>
    185189        <WindowIndex Value="0"/>
    186         <TopLine Value="107"/>
    187         <CursorPos X="69" Y="67"/>
     190        <TopLine Value="95"/>
     191        <CursorPos X="19" Y="113"/>
    188192        <UsageCount Value="327"/>
    189193        <Loaded Value="True"/>
    … …  
    199203        <EditorIndex Value="1"/>
    200204        <WindowIndex Value="0"/>
    201         <TopLine Value="91"/>
    202         <CursorPos X="56" Y="108"/>
     205        <TopLine Value="134"/>
     206        <CursorPos X="40" Y="141"/>
    203207        <UsageCount Value="318"/>
    204208        <Loaded Value="True"/>
    … …  
    213217        <ResourceBaseClass Value="Form"/>
    214218        <UnitName Value="ULoginForm"/>
    215         <EditorIndex Value="16"/>
     219        <EditorIndex Value="12"/>
    216220        <WindowIndex Value="0"/>
    217221        <TopLine Value="14"/>
    … …  
    229233        <ResourceBaseClass Value="Form"/>
    230234        <UnitName Value="UMainForm"/>
    231         <IsVisibleTab Value="True"/>
    232235        <EditorIndex Value="2"/>
    233236        <WindowIndex Value="0"/>
    234         <TopLine Value="285"/>
    235         <CursorPos X="58" Y="292"/>
     237        <TopLine Value="148"/>
     238        <CursorPos X="40" Y="160"/>
    236239        <UsageCount Value="317"/>
    237240        <Loaded Value="True"/>
    … …  
    252255        <ResourceBaseClass Value="Form"/>
    253256        <UnitName Value="UItemAdd"/>
    254         <EditorIndex Value="15"/>
    255         <WindowIndex Value="0"/>
    256         <TopLine Value="109"/>
    257         <CursorPos X="32" Y="127"/>
     257        <EditorIndex Value="11"/>
     258        <WindowIndex Value="0"/>
     259        <TopLine Value="85"/>
     260        <CursorPos X="70" Y="105"/>
    258261        <UsageCount Value="313"/>
    259262        <Loaded Value="True"/>
    … …  
    319322        <IsPartOfProject Value="True"/>
    320323        <UnitName Value="USystem"/>
    321         <EditorIndex Value="9"/>
    322         <WindowIndex Value="0"/>
    323         <TopLine Value="231"/>
    324         <CursorPos X="8" Y="251"/>
    325         <UsageCount Value="43"/>
     324        <EditorIndex Value="6"/>
     325        <WindowIndex Value="0"/>
     326        <TopLine Value="272"/>
     327        <CursorPos X="27" Y="286"/>
     328        <UsageCount Value="44"/>
    326329        <Loaded Value="True"/>
    327330        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    356359        <ResourceBaseClass Value="DataModule"/>
    357360        <UnitName Value="UCore"/>
    358         <EditorIndex Value="8"/>
     361        <EditorIndex Value="5"/>
    359362        <WindowIndex Value="0"/>
    360363        <TopLine Value="3"/>
    361         <CursorPos X="28" Y="15"/>
    362         <UsageCount Value="27"/>
     364        <CursorPos X="32" Y="17"/>
     365        <UsageCount Value="28"/>
    363366        <Loaded Value="True"/>
    364367        <LoadedDesigner Value="True"/>
    … …  
    371374        <ResourceBaseClass Value="Form"/>
    372375        <UnitName Value="USettingForm"/>
    373         <EditorIndex Value="7"/>
     376        <IsVisibleTab Value="True"/>
     377        <EditorIndex Value="4"/>
    374378        <WindowIndex Value="0"/>
    375379        <TopLine Value="1"/>
    376         <CursorPos X="1" Y="1"/>
     380        <CursorPos X="29" Y="9"/>
    377381        <UsageCount Value="27"/>
    378382        <Loaded Value="True"/>
    … …  
    384388        <IsPartOfProject Value="True"/>
    385389        <UnitName Value="UApplicationInfo"/>
    386         <EditorIndex Value="6"/>
     390        <EditorIndex Value="3"/>
    387391        <WindowIndex Value="0"/>
    388392        <TopLine Value="37"/>
    389393        <CursorPos X="48" Y="56"/>
    390         <UsageCount Value="26"/>
     394        <UsageCount Value="27"/>
    391395        <Loaded Value="True"/>
    392396        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    395399        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Specialized/SpecializedList.pas"/>
    396400        <UnitName Value="SpecializedList"/>
    397         <EditorIndex Value="11"/>
    398401        <WindowIndex Value="0"/>
    399402        <TopLine Value="97"/>
    400403        <CursorPos X="26" Y="109"/>
    401404        <UsageCount Value="13"/>
    402         <Loaded Value="True"/>
    403405      </Unit27>
    404406      <Unit28>
    405407        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    406         <EditorIndex Value="5"/>
    407408        <WindowIndex Value="0"/>
    408409        <TopLine Value="16"/>
    409410        <CursorPos X="14" Y="58"/>
    410         <UsageCount Value="12"/>
    411         <Loaded Value="True"/>
     411        <UsageCount Value="13"/>
    412412      </Unit28>
    413413      <Unit29>
    414414        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericDictionary.inc"/>
    415         <EditorIndex Value="4"/>
    416415        <WindowIndex Value="0"/>
    417416        <TopLine Value="87"/>
    418417        <CursorPos X="6" Y="103"/>
    419         <UsageCount Value="12"/>
    420         <Loaded Value="True"/>
     418        <UsageCount Value="13"/>
    421419      </Unit29>
    422420      <Unit30>
    423421        <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/inc/objpash.inc"/>
    424         <EditorIndex Value="3"/>
    425422        <WindowIndex Value="0"/>
    426423        <TopLine Value="372"/>
    427424        <CursorPos X="7" Y="384"/>
    428425        <UsageCount Value="10"/>
    429         <Loaded Value="True"/>
    430426      </Unit30>
     427      <Unit31>
     428        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListObject.inc"/>
     429        <WindowIndex Value="0"/>
     430        <TopLine Value="82"/>
     431        <CursorPos X="40" Y="94"/>
     432        <UsageCount Value="10"/>
     433      </Unit31>
     434      <Unit32>
     435        <Filename Value="H:/PascalClassLibrary/CoolTranslator/UCoolTranslator.pas"/>
     436        <UnitName Value="UCoolTranslator"/>
     437        <WindowIndex Value="0"/>
     438        <TopLine Value="301"/>
     439        <CursorPos X="3" Y="305"/>
     440        <UsageCount Value="10"/>
     441      </Unit32>
    431442    </Units>
    432     <JumpHistory Count="29" HistoryIndex="28">
     443    <JumpHistory Count="30" HistoryIndex="29">
    433444      <Position1>
    434445        <Filename Value="USystem.pas"/>
    435         <Caret Line="82" Column="44" TopLine="70"/>
     446        <Caret Line="256" Column="10" TopLine="236"/>
    436447      </Position1>
    437448      <Position2>
    438         <Filename Value="Forms/UMainForm.pas"/>
    439         <Caret Line="234" Column="23" TopLine="171"/>
     449        <Filename Value="USystem.pas"/>
     450        <Caret Line="257" Column="11" TopLine="236"/>
    440451      </Position2>
    441452      <Position3>
    442         <Filename Value="Forms/UMainForm.pas"/>
    443         <Caret Line="280" Column="32" TopLine="258"/>
     453        <Filename Value="USystem.pas"/>
     454        <Caret Line="259" Column="10" TopLine="236"/>
    444455      </Position3>
    445456      <Position4>
    446         <Filename Value="Forms/UMainForm.pas"/>
    447         <Caret Line="277" Column="37" TopLine="265"/>
     457        <Filename Value="USystem.pas"/>
     458        <Caret Line="260" Column="12" TopLine="248"/>
    448459      </Position4>
    449460      <Position5>
    450         <Filename Value="Forms/UMainForm.pas"/>
    451         <Caret Line="278" Column="36" TopLine="265"/>
     461        <Filename Value="Forms/UItemEdit.pas"/>
     462        <Caret Line="92" Column="13" TopLine="89"/>
    452463      </Position5>
    453464      <Position6>
    454465        <Filename Value="USystem.pas"/>
    455         <Caret Line="26" Column="40" TopLine="9"/>
     466        <Caret Line="138" Column="36" TopLine="126"/>
    456467      </Position6>
    457468      <Position7>
    458         <Filename Value="Forms/UMainForm.pas"/>
    459         <Caret Line="239" Column="47" TopLine="227"/>
     469        <Filename Value="USystem.pas"/>
     470        <Caret Line="92" Column="14" TopLine="69"/>
    460471      </Position7>
    461472      <Position8>
    462         <Filename Value="Forms/UItemEdit.pas"/>
    463         <Caret Line="108" Column="56" TopLine="91"/>
     473        <Filename Value="USystem.pas"/>
     474        <Caret Line="81" Column="50" TopLine="68"/>
    464475      </Position8>
    465476      <Position9>
    466477        <Filename Value="USystem.pas"/>
    467         <Caret Line="38" Column="23" TopLine="23"/>
     478        <Caret Line="109" Column="37" TopLine="104"/>
    468479      </Position9>
    469480      <Position10>
    470481        <Filename Value="USystem.pas"/>
    471         <Caret Line="4" Column="65" TopLine="1"/>
     482        <Caret Line="110" Column="6" TopLine="103"/>
    472483      </Position10>
    473484      <Position11>
    474         <Filename Value="USystem.pas"/>
    475         <Caret Line="24" Column="15" TopLine="4"/>
     485        <Filename Value="Forms/UItemEdit.pas"/>
     486        <Caret Line="92" Column="11" TopLine="89"/>
    476487      </Position11>
    477488      <Position12>
    478489        <Filename Value="USystem.pas"/>
    479         <Caret Line="38" Column="26" TopLine="18"/>
     490        <Caret Line="150" Column="20" TopLine="137"/>
    480491      </Position12>
    481492      <Position13>
    482493        <Filename Value="USystem.pas"/>
    483         <Caret Line="67" Column="15" TopLine="47"/>
     494        <Caret Line="149" Column="23" TopLine="137"/>
    484495      </Position13>
    485496      <Position14>
    486497        <Filename Value="USystem.pas"/>
    487         <Caret Line="75" Column="25" TopLine="55"/>
     498        <Caret Line="37" Column="1" TopLine="27"/>
    488499      </Position14>
    489500      <Position15>
    490501        <Filename Value="USystem.pas"/>
    491         <Caret Line="1" Column="5" TopLine="1"/>
     502        <Caret Line="149" Column="35" TopLine="137"/>
    492503      </Position15>
    493504      <Position16>
    494505        <Filename Value="USystem.pas"/>
    495         <Caret Line="81" Column="10" TopLine="61"/>
     506        <Caret Line="81" Column="29" TopLine="74"/>
    496507      </Position16>
    497508      <Position17>
    498         <Filename Value="USystem.pas"/>
    499         <Caret Line="246" Column="8" TopLine="226"/>
     509        <Filename Value="Forms/UItemView.pas"/>
     510        <Caret Line="110" Column="44" TopLine="98"/>
    500511      </Position17>
    501512      <Position18>
    502         <Filename Value="Forms/UMainForm.pas"/>
    503         <Caret Line="6" Column="68" TopLine="1"/>
     513        <Filename Value="Forms/UItemView.pas"/>
     514        <Caret Line="112" Column="39" TopLine="98"/>
    504515      </Position18>
    505516      <Position19>
    506         <Filename Value="Forms/UMainForm.pas"/>
    507         <Caret Line="261" Column="8" TopLine="241"/>
     517        <Filename Value="UCore.pas"/>
     518        <Caret Line="13" Column="32" TopLine="3"/>
    508519      </Position19>
    509520      <Position20>
    510521        <Filename Value="Forms/UMainForm.pas"/>
    511         <Caret Line="266" Column="8" TopLine="246"/>
     522        <Caret Line="323" Column="8" TopLine="309"/>
    512523      </Position20>
    513524      <Position21>
    514525        <Filename Value="Forms/UMainForm.pas"/>
    515         <Caret Line="286" Column="48" TopLine="266"/>
     526        <Caret Line="124" Column="8" TopLine="108"/>
    516527      </Position21>
    517528      <Position22>
    518529        <Filename Value="Forms/UMainForm.pas"/>
    519         <Caret Line="288" Column="48" TopLine="268"/>
     530        <Caret Line="324" Column="32" TopLine="312"/>
    520531      </Position22>
    521532      <Position23>
    522         <Filename Value="Forms/UMainForm.pas"/>
    523         <Caret Line="290" Column="52" TopLine="270"/>
     533        <Filename Value="Forms/USettingForm.pas"/>
     534        <Caret Line="3" Column="42" TopLine="10"/>
    524535      </Position23>
    525536      <Position24>
    526         <Filename Value="Forms/UMainForm.pas"/>
    527         <Caret Line="291" Column="50" TopLine="271"/>
     537        <Filename Value="Forms/USettingForm.pas"/>
     538        <Caret Line="22" Column="17" TopLine="10"/>
    528539      </Position24>
    529540      <Position25>
    530         <Filename Value="Forms/UMainForm.pas"/>
    531         <Caret Line="292" Column="61" TopLine="272"/>
     541        <Filename Value="Forms/USettingForm.pas"/>
     542        <Caret Line="24" Column="20" TopLine="7"/>
    532543      </Position25>
    533544      <Position26>
    534         <Filename Value="Forms/UMainForm.pas"/>
    535         <Caret Line="294" Column="40" TopLine="274"/>
     545        <Filename Value="Forms/USettingForm.pas"/>
     546        <Caret Line="44" Column="12" TopLine="31"/>
    536547      </Position26>
    537548      <Position27>
    538         <Filename Value="Forms/UMainForm.pas"/>
    539         <Caret Line="295" Column="48" TopLine="275"/>
     549        <Filename Value="Forms/USettingForm.pas"/>
     550        <Caret Line="46" Column="1" TopLine="23"/>
    540551      </Position27>
    541552      <Position28>
    542         <Filename Value="Forms/UMainForm.pas"/>
    543         <Caret Line="296" Column="50" TopLine="276"/>
     553        <Filename Value="Forms/USettingForm.pas"/>
     554        <Caret Line="53" Column="34" TopLine="34"/>
    544555      </Position28>
    545556      <Position29>
    546         <Filename Value="Forms/UMainForm.pas"/>
    547         <Caret Line="301" Column="48" TopLine="281"/>
     557        <Filename Value="Forms/USettingForm.pas"/>
     558        <Caret Line="47" Column="8" TopLine="35"/>
    548559      </Position29>
     560      <Position30>
     561        <Filename Value="Forms/USettingForm.pas"/>
     562        <Caret Line="59" Column="13" TopLine="47"/>
     563      </Position30>
    549564    </JumpHistory>
    550565  </ProjectOptions>
    … …  
    596611  </CompilerOptions>
    597612  <Debugging>
    598     <BreakPoints Count="1">
    599       <Item1>
    600         <Kind Value="bpkSource"/>
    601         <Source Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListObject.inc"/>
    602         <Line Value="52"/>
    603       </Item1>
    604     </BreakPoints>
    605613    <Exceptions Count="3">
    606614      <Item1>

  • trunk/chronis.lpr

    r10 r12  
    1010  Forms, UPersistentForm, URegistry, USqlDatabase, UTreeState, SysUtils,
    1111  UItemView, UItemEdit, ULoginForm, UMainForm, UItemAdd, TemplateGenerics,
    12   USystem, UCore, UApplicationInfo, USettingForm
     12  CoolTranslator, USystem, UCore, UApplicationInfo, USettingForm
    1313  { you can add units after this };
    1414

  • trunk/languages/chronis.cs.po

    r11 r12  
    2222msgstr "Přidat"
    2323
    24 #: TITEMADDFORM.ITEMADDFORM.CAPTION
    25 #| msgid "Přidání položky"
     24#: TITEMADDFORM.CAPTION
     25msgctxt "TITEMADDFORM.CAPTION"
    2626msgid "Add item"
    2727msgstr "Přidání položky"
    … …  
    3939msgstr "Uložit"
    4040
    41 #: TITEMEDITFORM.ITEMEDITFORM.CAPTION
    42 #| msgid "Úprava položky"
     41#: TITEMEDITFORM.CAPTION
     42msgctxt "TITEMEDITFORM.CAPTION"
    4343msgid "Edit item"
    4444msgstr "Upravit položku"
    … …  
    5656msgstr "Upravit"
    5757
    58 #: TITEMVIEWFORM.ITEMVIEWFORM.CAPTION
    59 #| msgid "Zobrazení položky"
     58#: TITEMVIEWFORM.CAPTION
     59msgctxt "TITEMVIEWFORM.CAPTION"
    6060msgid "View item"
    6161msgstr "Zobrazení položky"
    … …  
    105105msgctxt "TMAINFORM.AINITSYSTEMVALUES.CAPTION"
    106106msgid "Init system values"
    107 msgstr ""
     107msgstr "Inicializovat systémové hodnoty"
    108108
    109109#: TMAINFORM.AITEMADD.CAPTION
    … …  
    210210#: TMAINFORM.MENUITEM18.CAPTION
    211211msgid "Admin"
    212 msgstr ""
     212msgstr "Administrace"
    213213
    214214#: TSETTINGFORM.BUTTONCANCEL.CAPTION

  • trunk/languages/chronis.po

    r11 r12  
    1212msgstr ""
    1313
    14 #: TITEMADDFORM.ITEMADDFORM.CAPTION
     14#: TITEMADDFORM.CAPTION
     15msgctxt "TITEMADDFORM.CAPTION"
    1516msgid "Add item"
    1617msgstr ""
    … …  
    2627msgstr ""
    2728
    28 #: TITEMEDITFORM.ITEMEDITFORM.CAPTION
     29#: TITEMEDITFORM.CAPTION
     30msgctxt "TITEMEDITFORM.CAPTION"
    2931msgid "Edit item"
    3032msgstr ""
    … …  
    4042msgstr ""
    4143
    42 #: TITEMVIEWFORM.ITEMVIEWFORM.CAPTION
     44#: TITEMVIEWFORM.CAPTION
     45msgctxt "TITEMVIEWFORM.CAPTION"
    4346msgid "View item"
    4447msgstr ""
Note: See TracChangeset for help on using the changeset viewer.