- Timestamp:
- Jun 9, 2011, 1:04:45 PM (14 years ago)
- Location:
- trunk
- Files:
-
- 21 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UItemAdd.lfm
r9 r12 12 12 OnDestroy = FormDestroy 13 13 OnShow = FormShow 14 LCLVersion = '0.9. 29'14 LCLVersion = '0.9.31' 15 15 object Panel1: TPanel 16 16 Left = 0 -
trunk/Forms/UItemAdd.lrt
r7 r12 1 TITEMADDFORM. ITEMADDFORM.CAPTION=Add item1 TITEMADDFORM.CAPTION=Add item 2 2 TITEMADDFORM.BUTTONCANCEL.CAPTION=Cancel 3 3 TITEMADDFORM.BUTTONSAVE.CAPTION=Add -
trunk/Forms/UItemAdd.pas
r9 r12 103 103 TLabel(NewControl).Caption := TReportColumn(Report.Columns[I]).Caption + ':'; 104 104 105 ValueType := TReportColumn(Report.Columns[I]).Type Id;105 ValueType := TReportColumn(Report.Columns[I]).TypeDef.TypeIndex; 106 106 if ValueType = Integer(vtInteger) then begin 107 107 NewControl := TSpinEdit.Create(Panel1); -
trunk/Forms/UItemEdit.lfm
r9 r12 12 12 OnDestroy = FormDestroy 13 13 OnShow = FormShow 14 LCLVersion = '0.9. 29'14 LCLVersion = '0.9.31' 15 15 object Panel1: TPanel 16 16 Left = 0 -
trunk/Forms/UItemEdit.lrt
r7 r12 1 TITEMEDITFORM. ITEMEDITFORM.CAPTION=Edit item1 TITEMEDITFORM.CAPTION=Edit item 2 2 TITEMEDITFORM.BUTTONCANCEL.CAPTION=Cancel 3 3 TITEMEDITFORM.BUTTONSAVE.CAPTION=Save -
trunk/Forms/UItemEdit.pas
r9 r12 106 106 TLabel(NewControl).Caption := TReportColumn(Report.Columns[I]).Caption + ':'; 107 107 108 ValueType := TReportColumn(Report.Columns[I]).Type Id;108 ValueType := TReportColumn(Report.Columns[I]).TypeDef.TypeIndex; 109 109 if ValueType = Integer(vtInteger) then begin 110 110 NewControl := TSpinEdit.Create(Panel1); -
trunk/Forms/UItemView.lfm
r9 r12 11 11 OnDestroy = FormDestroy 12 12 OnShow = FormShow 13 LCLVersion = '0.9. 29'13 LCLVersion = '0.9.31' 14 14 object ButtonClose: TButton 15 15 Left = 546 -
trunk/Forms/UItemView.lrt
r7 r12 1 TITEMVIEWFORM. ITEMVIEWFORM.CAPTION=View item1 TITEMVIEWFORM.CAPTION=View item 2 2 TITEMVIEWFORM.BUTTONCLOSE.CAPTION=Close 3 3 TITEMVIEWFORM.BUTTONEDIT.CAPTION=Edit -
trunk/Forms/UItemView.pas
r9 r12 108 108 if Report.Count = 1 then 109 109 for I := 0 to Report.Columns.Count - 1 do 110 if TReportColumn(Report.Columns[I]).Type Id = 20then begin110 if TReportColumn(Report.Columns[I]).TypeDef.TypeIndex = Integer(vtPointer) then begin 111 111 TabControl1.Tabs.Add(TReportColumn(Report.Columns[I]).Caption); 112 112 end else begin -
trunk/Forms/UMainForm.pas
r11 r12 121 121 122 122 uses 123 UItemView, UItemEdit, UItemAdd, ULoginForm, USettingForm, UApplicationInfo; 123 UItemView, UItemEdit, UItemAdd, ULoginForm, USettingForm, UApplicationInfo, 124 UCore; 124 125 125 126 {$R *.lfm} … … 138 139 System.Database.UserName := ReadStringWithDefault('DatabaseUserName', 'chronis'); 139 140 System.Database.Password := ReadStringWithDefault('DatabasePassword', ''); 140 finally 141 with Core.CoolTranslator1 do 142 Language := Languages.SearchByCode(ReadStringWithDefault('LanguageCode', '')); 143 finally 141 144 Free; 142 145 end; … … 154 157 WriteString('DatabaseUserName', System.Database.UserName); 155 158 WriteString('DatabasePassword', System.Database.Password); 159 with Core.CoolTranslator1 do 160 WriteString('LanguageCode', Language.Code); 156 161 finally 157 162 Free; … … 434 439 System.Database.Connect; 435 440 InitStructure; 441 System.LoadTypes; 436 442 LoadTree; 437 443 end; -
trunk/Forms/USettingForm.lfm
r10 r12 7 7 ClientHeight = 328 8 8 ClientWidth = 446 9 OnClose = FormClose 10 OnShow = FormShow 9 11 LCLVersion = '0.9.31' 10 12 object Label1: TLabel … … 43 45 TabOrder = 2 44 46 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 45 64 end -
trunk/Forms/USettingForm.lrt
r10 r12 3 3 TSETTINGFORM.BUTTONSAVE.CAPTION=Save 4 4 TSETTINGFORM.BUTTONCANCEL.CAPTION=Cancel 5 TSETTINGFORM.LABEL2.CAPTION=Language: 6 TSETTINGFORM.COMBOBOXLANGUAGE.TEXT=ComboBoxLanguage -
trunk/Forms/USettingForm.pas
r10 r12 6 6 7 7 uses 8 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls; 8 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, 9 CoolTranslator, ULanguages; 9 10 10 11 type … … 15 16 ButtonSave: TButton; 16 17 ButtonCancel: TButton; 18 ComboBoxLanguage: TComboBox; 17 19 Edit1: TEdit; 18 20 Label1: TLabel; 21 Label2: TLabel; 22 procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); 23 procedure FormShow(Sender: TObject); 19 24 private 20 { private declarations } 25 procedure Save; 26 procedure Load; 21 27 public 22 28 { public declarations } … … 30 36 {$R *.lfm} 31 37 38 uses 39 UCore, UMainForm; 40 41 { TSettingForm } 42 43 procedure TSettingForm.FormShow(Sender: TObject); 44 begin 45 MainForm.PersistentForm.Load(Self); 46 47 Load; 48 end; 49 50 procedure TSettingForm.FormClose(Sender: TObject; var CloseAction: TCloseAction 51 ); 52 begin 53 if ModalResult = mrOK then Save; 54 MainForm.PersistentForm.Save(Self); 55 end; 56 57 procedure TSettingForm.Save; 58 begin 59 with Core.CoolTranslator1 do 60 Language := TLanguage(Languages[ComboBoxLanguage.ItemIndex]); 61 end; 62 63 procedure TSettingForm.Load; 64 begin 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; 73 end; 74 32 75 end. 33 76 -
trunk/UCore.lfm
r10 r12 1 1 object Core: TCore 2 2 OldCreateOrder = False 3 Height = 503 Height = 346 4 4 HorizontalOffset = 233 5 5 VerticalOffset = 71 6 Width = 50 6 Width = 419 7 object CoolTranslator1: TCoolTranslator 8 POFilesFolder = 'Languages' 9 left = 103 10 top = 55 11 end 7 12 end -
trunk/UCore.pas
r10 r12 6 6 7 7 uses 8 Classes, SysUtils, FileUtil ;8 Classes, SysUtils, FileUtil, UCoolTranslator; 9 9 10 10 type 11 12 { TCore } 13 11 14 TCore = class(TDataModule) 15 CoolTranslator1: TCoolTranslator; 12 16 private 13 17 { private declarations } -
trunk/USystem.pas
r11 r12 35 35 TReportColumn = class 36 36 Caption: string; 37 TypeId: Integer;38 37 TypeDef: TChronisType; 39 38 ColumnName: string; … … 76 75 end; 77 76 77 { TChronisTypeList } 78 79 TChronisTypeList = class(TListObject) 80 function FindById(Id: Integer): TChronisType; 81 function FindByTypeIndex(Id: Integer): TChronisType; 82 end; 83 78 84 { TChronisBase } 79 85 80 86 TChronisBase = class 81 Types: T ListObject; // TList<TChronisType>87 Types: TChronisTypeList; 82 88 Database: TSQLDatabase; 83 89 function AddType(Name, DataType: string; TypeIndex: TDbValueType): Integer; … … 85 91 function AddProperty(ObjectId: Integer; Name, ColumnName: string; DataType: Integer): Integer; 86 92 function AddObjectGroup(Name: string): Integer; 93 procedure LoadTypes; 87 94 constructor Create; 88 95 destructor Destroy; override; … … 92 99 93 100 implementation 101 102 { TChronisTypeList } 103 104 function TChronisTypeList.FindById(Id: Integer): TChronisType; 105 var 106 I: Integer; 107 begin 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; 112 end; 113 114 function TChronisTypeList.FindByTypeIndex(Id: Integer): TChronisType; 115 var 116 I: Integer; 117 begin 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; 122 end; 94 123 95 124 { TReportLine } … … 128 157 NewColumn.Caption := 'Id'; 129 158 NewColumn.ColumnName := 'Id'; 130 NewColumn.Type Id := Integer(vtInteger);159 NewColumn.TypeDef := Base.Types.FindByTypeIndex(Integer(vtInteger)); 131 160 for I := 0 to Properties.Count - 1 do 132 161 if Properties[I].Values['Type'] <> IntToStr(20) then begin … … 135 164 NewColumn.Caption := Properties[I].Values['Name']; 136 165 NewColumn.ColumnName := Properties[I].Values['ColumnName'];; 137 NewColumn.Type Id := StrToInt(Properties[I].Values['Type']);166 NewColumn.TypeDef := Base.Types.FindById(StrToInt(Properties[I].Values['Type'])); 138 167 end; 139 168 … … 241 270 end; 242 271 272 procedure TChronisBase.LoadTypes; 273 var 274 DbRows: TDbRows; 275 I: Integer; 276 begin 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; 293 end; 294 243 295 constructor TChronisBase.Create; 244 296 begin 245 297 Database := TSqlDatabase.Create; 246 Types := T ListObject.Create;298 Types := TChronisTypeList.Create; 247 299 end; 248 300 -
trunk/chronis.lpi
r11 r12 13 13 <i18n> 14 14 <EnableI18N Value="True"/> 15 <OutDir Value=" languages"/>15 <OutDir Value="Languages"/> 16 16 </i18n> 17 17 <VersionInfo> … … 81 81 </local> 82 82 </RunParams> 83 <RequiredPackages Count=" 3">83 <RequiredPackages Count="4"> 84 84 <Item1> 85 <PackageName Value=" LCLBase"/>85 <PackageName Value="CoolTranslator"/> 86 86 <MinVersion Valid="True"/> 87 87 </Item1> 88 88 <Item2> 89 <PackageName Value="TemplateGenerics"/> 89 <PackageName Value="LCLBase"/> 90 <MinVersion Valid="True"/> 90 91 </Item2> 91 92 <Item3> 93 <PackageName Value="TemplateGenerics"/> 94 </Item3> 95 <Item4> 92 96 <PackageName Value="LCL"/> 93 </Item 3>97 </Item4> 94 98 </RequiredPackages> 95 <Units Count="3 1">99 <Units Count="33"> 96 100 <Unit0> 97 101 <Filename Value="chronis.lpr"/> 98 102 <IsPartOfProject Value="True"/> 99 103 <UnitName Value="chronis"/> 100 <EditorIndex Value=" 12"/>104 <EditorIndex Value="8"/> 101 105 <WindowIndex Value="0"/> 102 106 <TopLine Value="14"/> … … 144 148 <IsPartOfProject Value="True"/> 145 149 <UnitName Value="UPersistentForm"/> 146 <EditorIndex Value="1 4"/>150 <EditorIndex Value="10"/> 147 151 <WindowIndex Value="0"/> 148 152 <TopLine Value="55"/> … … 156 160 <IsPartOfProject Value="True"/> 157 161 <UnitName Value="USqlDatabase"/> 158 <EditorIndex Value=" 10"/>162 <EditorIndex Value="7"/> 159 163 <WindowIndex Value="0"/> 160 164 <TopLine Value="209"/> … … 168 172 <IsPartOfProject Value="True"/> 169 173 <UnitName Value="URegistry"/> 170 <EditorIndex Value=" 13"/>174 <EditorIndex Value="9"/> 171 175 <WindowIndex Value="0"/> 172 176 <TopLine Value="19"/> … … 184 188 <EditorIndex Value="0"/> 185 189 <WindowIndex Value="0"/> 186 <TopLine Value=" 107"/>187 <CursorPos X=" 69" Y="67"/>190 <TopLine Value="95"/> 191 <CursorPos X="19" Y="113"/> 188 192 <UsageCount Value="327"/> 189 193 <Loaded Value="True"/> … … 199 203 <EditorIndex Value="1"/> 200 204 <WindowIndex Value="0"/> 201 <TopLine Value=" 91"/>202 <CursorPos X=" 56" Y="108"/>205 <TopLine Value="134"/> 206 <CursorPos X="40" Y="141"/> 203 207 <UsageCount Value="318"/> 204 208 <Loaded Value="True"/> … … 213 217 <ResourceBaseClass Value="Form"/> 214 218 <UnitName Value="ULoginForm"/> 215 <EditorIndex Value="1 6"/>219 <EditorIndex Value="12"/> 216 220 <WindowIndex Value="0"/> 217 221 <TopLine Value="14"/> … … 229 233 <ResourceBaseClass Value="Form"/> 230 234 <UnitName Value="UMainForm"/> 231 <IsVisibleTab Value="True"/>232 235 <EditorIndex Value="2"/> 233 236 <WindowIndex Value="0"/> 234 <TopLine Value=" 285"/>235 <CursorPos X=" 58" Y="292"/>237 <TopLine Value="148"/> 238 <CursorPos X="40" Y="160"/> 236 239 <UsageCount Value="317"/> 237 240 <Loaded Value="True"/> … … 252 255 <ResourceBaseClass Value="Form"/> 253 256 <UnitName Value="UItemAdd"/> 254 <EditorIndex Value="1 5"/>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"/> 258 261 <UsageCount Value="313"/> 259 262 <Loaded Value="True"/> … … 319 322 <IsPartOfProject Value="True"/> 320 323 <UnitName Value="USystem"/> 321 <EditorIndex Value=" 9"/>322 <WindowIndex Value="0"/> 323 <TopLine Value="2 31"/>324 <CursorPos X=" 8" Y="251"/>325 <UsageCount Value="4 3"/>324 <EditorIndex Value="6"/> 325 <WindowIndex Value="0"/> 326 <TopLine Value="272"/> 327 <CursorPos X="27" Y="286"/> 328 <UsageCount Value="44"/> 326 329 <Loaded Value="True"/> 327 330 <DefaultSyntaxHighlighter Value="Delphi"/> … … 356 359 <ResourceBaseClass Value="DataModule"/> 357 360 <UnitName Value="UCore"/> 358 <EditorIndex Value=" 8"/>361 <EditorIndex Value="5"/> 359 362 <WindowIndex Value="0"/> 360 363 <TopLine Value="3"/> 361 <CursorPos X=" 28" Y="15"/>362 <UsageCount Value="2 7"/>364 <CursorPos X="32" Y="17"/> 365 <UsageCount Value="28"/> 363 366 <Loaded Value="True"/> 364 367 <LoadedDesigner Value="True"/> … … 371 374 <ResourceBaseClass Value="Form"/> 372 375 <UnitName Value="USettingForm"/> 373 <EditorIndex Value="7"/> 376 <IsVisibleTab Value="True"/> 377 <EditorIndex Value="4"/> 374 378 <WindowIndex Value="0"/> 375 379 <TopLine Value="1"/> 376 <CursorPos X=" 1" Y="1"/>380 <CursorPos X="29" Y="9"/> 377 381 <UsageCount Value="27"/> 378 382 <Loaded Value="True"/> … … 384 388 <IsPartOfProject Value="True"/> 385 389 <UnitName Value="UApplicationInfo"/> 386 <EditorIndex Value=" 6"/>390 <EditorIndex Value="3"/> 387 391 <WindowIndex Value="0"/> 388 392 <TopLine Value="37"/> 389 393 <CursorPos X="48" Y="56"/> 390 <UsageCount Value="2 6"/>394 <UsageCount Value="27"/> 391 395 <Loaded Value="True"/> 392 396 <DefaultSyntaxHighlighter Value="Delphi"/> … … 395 399 <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Specialized/SpecializedList.pas"/> 396 400 <UnitName Value="SpecializedList"/> 397 <EditorIndex Value="11"/>398 401 <WindowIndex Value="0"/> 399 402 <TopLine Value="97"/> 400 403 <CursorPos X="26" Y="109"/> 401 404 <UsageCount Value="13"/> 402 <Loaded Value="True"/>403 405 </Unit27> 404 406 <Unit28> 405 407 <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/> 406 <EditorIndex Value="5"/>407 408 <WindowIndex Value="0"/> 408 409 <TopLine Value="16"/> 409 410 <CursorPos X="14" Y="58"/> 410 <UsageCount Value="12"/> 411 <Loaded Value="True"/> 411 <UsageCount Value="13"/> 412 412 </Unit28> 413 413 <Unit29> 414 414 <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericDictionary.inc"/> 415 <EditorIndex Value="4"/>416 415 <WindowIndex Value="0"/> 417 416 <TopLine Value="87"/> 418 417 <CursorPos X="6" Y="103"/> 419 <UsageCount Value="12"/> 420 <Loaded Value="True"/> 418 <UsageCount Value="13"/> 421 419 </Unit29> 422 420 <Unit30> 423 421 <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/inc/objpash.inc"/> 424 <EditorIndex Value="3"/>425 422 <WindowIndex Value="0"/> 426 423 <TopLine Value="372"/> 427 424 <CursorPos X="7" Y="384"/> 428 425 <UsageCount Value="10"/> 429 <Loaded Value="True"/>430 426 </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> 431 442 </Units> 432 <JumpHistory Count=" 29" HistoryIndex="28">443 <JumpHistory Count="30" HistoryIndex="29"> 433 444 <Position1> 434 445 <Filename Value="USystem.pas"/> 435 <Caret Line=" 82" Column="44" TopLine="70"/>446 <Caret Line="256" Column="10" TopLine="236"/> 436 447 </Position1> 437 448 <Position2> 438 <Filename Value=" Forms/UMainForm.pas"/>439 <Caret Line="2 34" Column="23" TopLine="171"/>449 <Filename Value="USystem.pas"/> 450 <Caret Line="257" Column="11" TopLine="236"/> 440 451 </Position2> 441 452 <Position3> 442 <Filename Value=" Forms/UMainForm.pas"/>443 <Caret Line="2 80" Column="32" TopLine="258"/>453 <Filename Value="USystem.pas"/> 454 <Caret Line="259" Column="10" TopLine="236"/> 444 455 </Position3> 445 456 <Position4> 446 <Filename Value=" Forms/UMainForm.pas"/>447 <Caret Line="2 77" Column="37" TopLine="265"/>457 <Filename Value="USystem.pas"/> 458 <Caret Line="260" Column="12" TopLine="248"/> 448 459 </Position4> 449 460 <Position5> 450 <Filename Value="Forms/U MainForm.pas"/>451 <Caret Line=" 278" Column="36" TopLine="265"/>461 <Filename Value="Forms/UItemEdit.pas"/> 462 <Caret Line="92" Column="13" TopLine="89"/> 452 463 </Position5> 453 464 <Position6> 454 465 <Filename Value="USystem.pas"/> 455 <Caret Line=" 26" Column="40" TopLine="9"/>466 <Caret Line="138" Column="36" TopLine="126"/> 456 467 </Position6> 457 468 <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"/> 460 471 </Position7> 461 472 <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"/> 464 475 </Position8> 465 476 <Position9> 466 477 <Filename Value="USystem.pas"/> 467 <Caret Line=" 38" Column="23" TopLine="23"/>478 <Caret Line="109" Column="37" TopLine="104"/> 468 479 </Position9> 469 480 <Position10> 470 481 <Filename Value="USystem.pas"/> 471 <Caret Line=" 4" Column="65" TopLine="1"/>482 <Caret Line="110" Column="6" TopLine="103"/> 472 483 </Position10> 473 484 <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"/> 476 487 </Position11> 477 488 <Position12> 478 489 <Filename Value="USystem.pas"/> 479 <Caret Line=" 38" Column="26" TopLine="18"/>490 <Caret Line="150" Column="20" TopLine="137"/> 480 491 </Position12> 481 492 <Position13> 482 493 <Filename Value="USystem.pas"/> 483 <Caret Line=" 67" Column="15" TopLine="47"/>494 <Caret Line="149" Column="23" TopLine="137"/> 484 495 </Position13> 485 496 <Position14> 486 497 <Filename Value="USystem.pas"/> 487 <Caret Line=" 75" Column="25" TopLine="55"/>498 <Caret Line="37" Column="1" TopLine="27"/> 488 499 </Position14> 489 500 <Position15> 490 501 <Filename Value="USystem.pas"/> 491 <Caret Line="1 " Column="5" TopLine="1"/>502 <Caret Line="149" Column="35" TopLine="137"/> 492 503 </Position15> 493 504 <Position16> 494 505 <Filename Value="USystem.pas"/> 495 <Caret Line="81" Column=" 10" TopLine="61"/>506 <Caret Line="81" Column="29" TopLine="74"/> 496 507 </Position16> 497 508 <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"/> 500 511 </Position17> 501 512 <Position18> 502 <Filename Value="Forms/U MainForm.pas"/>503 <Caret Line=" 6" Column="68" TopLine="1"/>513 <Filename Value="Forms/UItemView.pas"/> 514 <Caret Line="112" Column="39" TopLine="98"/> 504 515 </Position18> 505 516 <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"/> 508 519 </Position19> 509 520 <Position20> 510 521 <Filename Value="Forms/UMainForm.pas"/> 511 <Caret Line=" 266" Column="8" TopLine="246"/>522 <Caret Line="323" Column="8" TopLine="309"/> 512 523 </Position20> 513 524 <Position21> 514 525 <Filename Value="Forms/UMainForm.pas"/> 515 <Caret Line=" 286" Column="48" TopLine="266"/>526 <Caret Line="124" Column="8" TopLine="108"/> 516 527 </Position21> 517 528 <Position22> 518 529 <Filename Value="Forms/UMainForm.pas"/> 519 <Caret Line=" 288" Column="48" TopLine="268"/>530 <Caret Line="324" Column="32" TopLine="312"/> 520 531 </Position22> 521 532 <Position23> 522 <Filename Value="Forms/U MainForm.pas"/>523 <Caret Line=" 290" Column="52" TopLine="270"/>533 <Filename Value="Forms/USettingForm.pas"/> 534 <Caret Line="3" Column="42" TopLine="10"/> 524 535 </Position23> 525 536 <Position24> 526 <Filename Value="Forms/U MainForm.pas"/>527 <Caret Line="2 91" Column="50" TopLine="271"/>537 <Filename Value="Forms/USettingForm.pas"/> 538 <Caret Line="22" Column="17" TopLine="10"/> 528 539 </Position24> 529 540 <Position25> 530 <Filename Value="Forms/U MainForm.pas"/>531 <Caret Line="2 92" Column="61" TopLine="272"/>541 <Filename Value="Forms/USettingForm.pas"/> 542 <Caret Line="24" Column="20" TopLine="7"/> 532 543 </Position25> 533 544 <Position26> 534 <Filename Value="Forms/U MainForm.pas"/>535 <Caret Line=" 294" Column="40" TopLine="274"/>545 <Filename Value="Forms/USettingForm.pas"/> 546 <Caret Line="44" Column="12" TopLine="31"/> 536 547 </Position26> 537 548 <Position27> 538 <Filename Value="Forms/U MainForm.pas"/>539 <Caret Line=" 295" Column="48" TopLine="275"/>549 <Filename Value="Forms/USettingForm.pas"/> 550 <Caret Line="46" Column="1" TopLine="23"/> 540 551 </Position27> 541 552 <Position28> 542 <Filename Value="Forms/U MainForm.pas"/>543 <Caret Line=" 296" Column="50" TopLine="276"/>553 <Filename Value="Forms/USettingForm.pas"/> 554 <Caret Line="53" Column="34" TopLine="34"/> 544 555 </Position28> 545 556 <Position29> 546 <Filename Value="Forms/U MainForm.pas"/>547 <Caret Line=" 301" Column="48" TopLine="281"/>557 <Filename Value="Forms/USettingForm.pas"/> 558 <Caret Line="47" Column="8" TopLine="35"/> 548 559 </Position29> 560 <Position30> 561 <Filename Value="Forms/USettingForm.pas"/> 562 <Caret Line="59" Column="13" TopLine="47"/> 563 </Position30> 549 564 </JumpHistory> 550 565 </ProjectOptions> … … 596 611 </CompilerOptions> 597 612 <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>605 613 <Exceptions Count="3"> 606 614 <Item1> -
trunk/chronis.lpr
r10 r12 10 10 Forms, UPersistentForm, URegistry, USqlDatabase, UTreeState, SysUtils, 11 11 UItemView, UItemEdit, ULoginForm, UMainForm, UItemAdd, TemplateGenerics, 12 USystem, UCore, UApplicationInfo, USettingForm12 CoolTranslator, USystem, UCore, UApplicationInfo, USettingForm 13 13 { you can add units after this }; 14 14 -
trunk/languages/chronis.cs.po
r11 r12 22 22 msgstr "Přidat" 23 23 24 #: TITEMADDFORM. ITEMADDFORM.CAPTION25 #| msgid "Přidání položky"24 #: TITEMADDFORM.CAPTION 25 msgctxt "TITEMADDFORM.CAPTION" 26 26 msgid "Add item" 27 27 msgstr "Přidání položky" … … 39 39 msgstr "Uložit" 40 40 41 #: TITEMEDITFORM. ITEMEDITFORM.CAPTION42 #| msgid "Úprava položky"41 #: TITEMEDITFORM.CAPTION 42 msgctxt "TITEMEDITFORM.CAPTION" 43 43 msgid "Edit item" 44 44 msgstr "Upravit položku" … … 56 56 msgstr "Upravit" 57 57 58 #: TITEMVIEWFORM. ITEMVIEWFORM.CAPTION59 #| msgid "Zobrazení položky"58 #: TITEMVIEWFORM.CAPTION 59 msgctxt "TITEMVIEWFORM.CAPTION" 60 60 msgid "View item" 61 61 msgstr "Zobrazení položky" … … 105 105 msgctxt "TMAINFORM.AINITSYSTEMVALUES.CAPTION" 106 106 msgid "Init system values" 107 msgstr " "107 msgstr "Inicializovat systémové hodnoty" 108 108 109 109 #: TMAINFORM.AITEMADD.CAPTION … … 210 210 #: TMAINFORM.MENUITEM18.CAPTION 211 211 msgid "Admin" 212 msgstr " "212 msgstr "Administrace" 213 213 214 214 #: TSETTINGFORM.BUTTONCANCEL.CAPTION -
trunk/languages/chronis.po
r11 r12 12 12 msgstr "" 13 13 14 #: TITEMADDFORM.ITEMADDFORM.CAPTION 14 #: TITEMADDFORM.CAPTION 15 msgctxt "TITEMADDFORM.CAPTION" 15 16 msgid "Add item" 16 17 msgstr "" … … 26 27 msgstr "" 27 28 28 #: TITEMEDITFORM.ITEMEDITFORM.CAPTION 29 #: TITEMEDITFORM.CAPTION 30 msgctxt "TITEMEDITFORM.CAPTION" 29 31 msgid "Edit item" 30 32 msgstr "" … … 40 42 msgstr "" 41 43 42 #: TITEMVIEWFORM.ITEMVIEWFORM.CAPTION 44 #: TITEMVIEWFORM.CAPTION 45 msgctxt "TITEMVIEWFORM.CAPTION" 43 46 msgid "View item" 44 47 msgstr ""
Note:
See TracChangeset
for help on using the changeset viewer.