Changeset 11


Ignore:
Timestamp:
Feb 16, 2015, 10:42:24 PM (10 years ago)
Author:
chronos
Message:
  • Added: Czech translation for most of interface texts.
  • Fixed: Creation of new table fields.
  • Fixed: Saving XML database on exit.
Location:
trunk
Files:
24 added
13 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormDatabases.lfm

    r9 r11  
    4848    ButtonHeight = 32
    4949    ButtonWidth = 32
    50     Caption = 'ToolBar1'
    5150    Images = Core.ImageList1
     51    ParentShowHint = False
     52    ShowHint = True
    5253    TabOrder = 1
    5354    object ToolButton1: TToolButton

  • trunk/Forms/UFormDatabases.pas

    r9 r11  
    109109
    110110procedure TFormDatabases.FormShow(Sender: TObject);
     111var
     112  I: Integer;
    111113begin
     114  for I := 0 to ToolBar1.ButtonCount - 1 do
     115    ToolBar1.Buttons[I].Hint := ToolBar1.Buttons[I].Caption;
    112116  ReloadList;
    113117end;

  • trunk/Forms/UFormFields.lfm

    r8 r11  
    1818    ButtonHeight = 32
    1919    ButtonWidth = 32
    20     Caption = 'ToolBar1'
    2120    Images = Core.ImageList1
     21    ParentShowHint = False
     22    ShowHint = True
    2223    TabOrder = 0
    2324    object ToolButton1: TToolButton

  • trunk/Forms/UFormFields.pas

    r8 r11  
    5959{$R *.lfm}
    6060
     61resourcestring
     62  SNewField = 'New field';
     63  SFieldsNotSet = 'Fields not set';
     64  STableFields = 'Table fields - %s';
     65
    6166{ TFormFields }
    6267
    6368procedure TFormFields.FormShow(Sender: TObject);
     69var
     70  I: Integer;
    6471begin
     72  for I := 0 to ToolBar1.ButtonCount - 1 do
     73    ToolBar1.Buttons[I].Hint := ToolBar1.Buttons[I].Caption;
    6574  if not Assigned(Fields) then
    66     raise Exception.Create('Fields not set');
    67   Caption := 'Table fields - ' + TableName;
     75    raise Exception.Create(SFieldsNotSet);
     76  Caption := Format(STableFields, [TableName]);
    6877  UpdateInterface;
    6978  ReloadList;
    … …  
    7685  NewField := TField.Create;
    7786  NewField.Table := Fields.Table;
    78   NewField.Name := 'New field';
     87  NewField.Name := SNewField;
     88  if Fields.Table.Database.Engine.DataTypes.Count > 0 then
     89    NewField.DataType := TDataType(Fields.Table.Database.Engine.DataTypes[0]);
    7990  FormField.Load(NewField);
    8091  if FormField.ShowModal = mrOk then begin

  • trunk/Forms/UFormMain.lfm

    r9 r11  
    2121  object MainMenu1: TMainMenu
    2222    Images = Core.ImageList1
    23     left = 870
    24     top = 200
     23    left = 824
     24    top = 216
    2525    object MenuItem1: TMenuItem
    2626      Caption = 'Database'

  • trunk/Forms/UFormRecords.lfm

    r9 r11  
    4444    ButtonHeight = 32
    4545    ButtonWidth = 32
    46     Caption = 'ToolBar1'
    4746    Images = Core.ImageList1
     47    ParentShowHint = False
     48    ShowHint = True
    4849    TabOrder = 1
    4950    object ToolButton1: TToolButton

  • trunk/Forms/UFormRecords.pas

    r4 r11  
    5252{$R *.lfm}
    5353
     54resourcestring
     55  STable = 'Table';
     56  SRemoveRecord = 'Remove record';
     57  SRemoveRecordConfirm = 'Do you want to remove record?';
     58
    5459{ TFormRecords }
    5560
    5661procedure TFormRecords.FormShow(Sender: TObject);
     62var
     63  I: Integer;
    5764begin
    58   Caption := 'Table - ' + Table.Caption;
     65  for I := 0 to ToolBar1.ButtonCount - 1 do
     66    ToolBar1.Buttons[I].Hint := ToolBar1.Buttons[I].Caption;
     67  Caption := STable + ' - ' + Table.Caption;
    5968  ReloadList;
    6069end;
    … …  
    94103procedure TFormRecords.ARemoveExecute(Sender: TObject);
    95104begin
    96   if Assigned(ListView1.Selected) then begin
     105  if Assigned(ListView1.Selected) then
     106  if MessageDlg(SRemoveRecord, SRemoveRecordConfirm,
     107  mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin
    97108    Table.Records.Remove(ListView1.Selected.Data);
    98109    ReloadList;

  • trunk/Forms/UFormTables.lfm

    r9 r11  
    4545    ButtonHeight = 32
    4646    ButtonWidth = 32
    47     Caption = 'ToolBar1'
    4847    Images = Core.ImageList1
     48    ParentShowHint = False
     49    ShowHint = True
    4950    TabOrder = 1
    5051    object ToolButton1: TToolButton

  • trunk/Forms/UFormTables.pas

    r9 r11  
    6464{$R *.lfm}
    6565
     66resourcestring
     67  SRemoveTable = 'Remove table';
     68  SRemoveTableConfirm = 'Do you want to really remove table ''%s'' ?';
     69  SNewTable = 'New table';
     70
     71
    6672{ TFormTables }
    6773
    … …  
    104110begin
    105111  NewTable := TTable.Create;
    106   NewTable.Name := 'New table';
     112  NewTable.Name := SNewTable;
    107113  NewTable.Database := Database;
    108114  FormTable.Load(NewTable);
    … …  
    128134begin
    129135  if Assigned(ListView1.Selected) then begin
    130     if MessageDlg('Remove table', 'Do you want to really remove table ' +
    131     TTable(ListView1.Selected.Data).Name, mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin
     136    if MessageDlg(SRemoveTable, Format(SRemoveTableConfirm, [TTable(ListView1.Selected.Data).Name]),
     137    mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin
    132138      Database.Tables.Remove(ListView1.Selected.Data);
    133139      ReloadList;
    … …  
    200206
    201207procedure TFormTables.FormShow(Sender: TObject);
    202 begin
     208var
     209  I: Integer;
     210begin
     211  for I := 0 to ToolBar1.ButtonCount - 1 do
     212    ToolBar1.Buttons[I].Hint := ToolBar1.Buttons[I].Caption;
    203213  UpdateInterface;
    204214end;

  • trunk/Languages/MyData.cs.po

    r10 r11  
    1111"X-Generator: Poedit 1.5.4\n"
    1212
     13#: tcore.adatabaseconnect.caption
     14msgid "Connect"
     15msgstr "Připojit"
     16
     17#: tcore.adatabasedisconnect.caption
     18msgid "Disconnect"
     19msgstr "Odpojit"
     20
     21#: tcore.aexit.caption
     22msgid "Exit"
     23msgstr "Ukončit"
     24
     25#: tcore.apreferences.caption
     26msgctxt "tcore.apreferences.caption"
     27msgid "Preferences"
     28msgstr "Předvolby"
     29
     30#: tformdatabases.aadd.caption
     31msgid "New"
     32msgstr "Nová"
     33
     34#: tformdatabases.amodify.caption
     35msgctxt "tformdatabases.amodify.caption"
     36msgid "Modify"
     37msgstr "Upravit"
     38
     39#: tformdatabases.aopen.caption
     40msgid "Open"
     41msgstr "Otevřít"
     42
     43#: tformdatabases.aremove.caption
     44msgctxt "tformdatabases.aremove.caption"
     45msgid "Remove"
     46msgstr "Odstranit"
     47
     48#: tformdatabases.caption
     49msgid "Databases"
     50msgstr "Databáze"
     51
     52#: tformdatabases.listview1.columns[0].caption
     53msgctxt "tformdatabases.listview1.columns[0].caption"
     54msgid "Name"
     55msgstr "Jméno"
     56
     57#: tformdatabases.listview1.columns[1].caption
     58msgctxt "tformdatabases.listview1.columns[1].caption"
     59msgid "Type"
     60msgstr "Typ"
     61
     62#: tformdatabases.listview1.columns[2].caption
     63msgid "Connection string"
     64msgstr "Připojovací řetězec"
     65
     66#: tformfield.buttoncancel.caption
     67msgctxt "tformfield.buttoncancel.caption"
     68msgid "Cancel"
     69msgstr "Zrušit"
     70
     71#: tformfield.buttonok.caption
     72msgctxt "tformfield.buttonok.caption"
     73msgid "Ok"
     74msgstr "Ok"
     75
     76#: tformfield.caption
     77msgid "Field"
     78msgstr "Pole"
     79
     80#: tformfield.dateeditmax.cancelcaption
     81msgctxt "tformfield.dateeditmax.cancelcaption"
     82msgid "Cancel"
     83msgstr "Zrušit"
     84
     85#: tformfield.dateeditmax.okcaption
     86msgctxt "tformfield.dateeditmax.okcaption"
     87msgid "OK"
     88msgstr "OK"
     89
     90#: tformfield.dateeditmin.cancelcaption
     91msgctxt "tformfield.dateeditmin.cancelcaption"
     92msgid "Cancel"
     93msgstr "Zrušit"
     94
     95#: tformfield.dateeditmin.okcaption
     96msgctxt "tformfield.dateeditmin.okcaption"
     97msgid "OK"
     98msgstr "OK"
     99
     100#: tformfield.label1.caption
     101msgid "Name:"
     102msgstr "Jméno:"
     103
     104#: tformfield.label10.caption
     105msgctxt "tformfield.label10.caption"
     106msgid "Minimum:"
     107msgstr "Minimum:"
     108
     109#: tformfield.label11.caption
     110msgctxt "tformfield.label11.caption"
     111msgid "Maximum:"
     112msgstr "Maximum:"
     113
     114#: tformfield.label2.caption
     115msgid "Text before:"
     116msgstr "Text za:"
     117
     118#: tformfield.label3.caption
     119msgid "Text after:"
     120msgstr "Text před:"
     121
     122#: tformfield.label4.caption
     123msgid "Data type:"
     124msgstr "Datový typ:"
     125
     126#: tformfield.label5.caption
     127msgid "Default value:"
     128msgstr "Výchozí hodnota:"
     129
     130#: tformfield.label6.caption
     131msgctxt "tformfield.label6.caption"
     132msgid "Minimum:"
     133msgstr "Minimum:"
     134
     135#: tformfield.label7.caption
     136msgctxt "tformfield.label7.caption"
     137msgid "Maximum:"
     138msgstr "Maximum:"
     139
     140#: tformfield.label8.caption
     141msgctxt "tformfield.label8.caption"
     142msgid "Minimum:"
     143msgstr "Minimum:"
     144
     145#: tformfield.label9.caption
     146msgctxt "tformfield.label9.caption"
     147msgid "Maximum:"
     148msgstr "Maximum:"
     149
     150#: tformfield.tabsheetboolean.caption
     151msgid "TabSheetBoolean"
     152msgstr ""
     153
     154#: tformfield.tabsheetdatetime.caption
     155msgid "TabSheetDateTime"
     156msgstr ""
     157
     158#: tformfield.tabsheetfloat.caption
     159msgid "TabSheetFloat"
     160msgstr ""
     161
     162#: tformfield.tabsheetinteger.caption
     163msgid "TabSheetInteger"
     164msgstr ""
     165
     166#: tformfield.tabsheetstring.caption
     167msgid "TabSheetString"
     168msgstr ""
     169
     170#: tformfields.aadd.caption
     171msgctxt "tformfields.aadd.caption"
     172msgid "Add"
     173msgstr "Přidat"
     174
     175#: tformfields.acancel.caption
     176msgctxt "tformfields.acancel.caption"
     177msgid "Cancel"
     178msgstr "Zrušít"
     179
     180#: tformfields.amodify.caption
     181msgctxt "tformfields.amodify.caption"
     182msgid "Modify"
     183msgstr "Upravit"
     184
     185#: tformfields.aok.caption
     186msgctxt "tformfields.aok.caption"
     187msgid "Ok"
     188msgstr "Ok"
     189
     190#: tformfields.aremove.caption
     191msgctxt "tformfields.aremove.caption"
     192msgid "Remove"
     193msgstr "Odstranit"
     194
     195#: tformfields.caption
     196msgid "Fields"
     197msgstr "Pole"
     198
     199#: tformfields.listview1.columns[0].caption
     200msgctxt "tformfields.listview1.columns[0].caption"
     201msgid "Name"
     202msgstr "Jméno"
     203
     204#: tformfields.listview1.columns[1].caption
     205msgctxt "tformfields.listview1.columns[1].caption"
     206msgid "Type"
     207msgstr "Typ"
     208
     209#: tformfields.listview1.columns[2].caption
     210msgid "Required"
     211msgstr "Vyžadováno"
     212
     213#: tformfields.listview1.columns[3].caption
     214msgid "TextBefore"
     215msgstr "Text před"
     216
     217#: tformfields.listview1.columns[4].caption
     218msgid "TextAfter"
     219msgstr "Text za"
     220
     221#: tformmain.caption
     222msgid "MyData"
     223msgstr "MyData"
     224
     225#: tformmain.menuitem1.caption
     226msgid "Database"
     227msgstr "Databáze"
     228
     229#: tformmain.menuitem5.caption
     230msgid "-"
     231msgstr "-"
     232
     233#: tformmain.menuitempreferences.caption
     234msgid "Tools"
     235msgstr "Nástroje"
     236
    13237#: tformpreferences.buttoncancel.caption
     238msgctxt "tformpreferences.buttoncancel.caption"
    14239msgid "Cancel"
    15240msgstr "Zrušít"
    … …  
    20245
    21246#: tformpreferences.caption
     247msgctxt "tformpreferences.caption"
    22248msgid "Preferences"
    23249msgstr "Předvolby"
    … …  
    31257msgstr "Jazyk:"
    32258
     259#: tformrecords.aadd.caption
     260msgctxt "tformrecords.aadd.caption"
     261msgid "Add"
     262msgstr "Přidat"
     263
     264#: tformrecords.amodify.caption
     265msgctxt "tformrecords.amodify.caption"
     266msgid "Modify"
     267msgstr "Upravit"
     268
     269#: tformrecords.aremove.caption
     270msgctxt "tformrecords.aremove.caption"
     271msgid "Remove"
     272msgstr "Odstranit"
     273
     274#: tformrecords.caption
     275msgctxt "tformrecords.caption"
     276msgid "Records"
     277msgstr "Záznamy"
     278
     279#: tformrecords.listview1.columns[0].caption
     280msgctxt "tformrecords.listview1.columns[0].caption"
     281msgid "Name"
     282msgstr "Jméno"
     283
     284#: tformrecords.listview1.columns[1].caption
     285msgctxt "tformrecords.listview1.columns[1].caption"
     286msgid "Records"
     287msgstr "Záznamy"
     288
     289#: tformtables.aadd.caption
     290msgctxt "tformtables.aadd.caption"
     291msgid "Add"
     292msgstr "Přidat"
     293
     294#: tformtables.amodify.caption
     295msgctxt "tformtables.amodify.caption"
     296msgid "Modify"
     297msgstr "Upravit"
     298
     299#: tformtables.aremove.caption
     300msgctxt "tformtables.aremove.caption"
     301msgid "Remove"
     302msgstr "Odstranit"
     303
     304#: tformtables.ashowfields.caption
     305msgid "Design"
     306msgstr "Návrh"
     307
     308#: tformtables.ashowrecords.caption
     309msgctxt "tformtables.ashowrecords.caption"
     310msgid "Records"
     311msgstr "Záznamy"
     312
     313#: tformtables.caption
     314msgid "Tables"
     315msgstr "Tabulky"
     316
     317#: tformtables.listview1.columns[0].caption
     318msgctxt "tformtables.listview1.columns[0].caption"
     319msgid "Name"
     320msgstr "Jméno"
     321
     322#: tformtables.listview1.columns[1].caption
     323msgctxt "tformtables.listview1.columns[1].caption"
     324msgid "Records"
     325msgstr "Záznamy"
     326
     327#: ucore.stypeboolean
     328msgid "Boolean"
     329msgstr "Logická hodnota"
     330
     331#: ucore.stypedate
     332msgid "Date"
     333msgstr "Datum"
     334
     335#: ucore.stypedatetime
     336msgid "Date and time"
     337msgstr "Datum a čas"
     338
     339#: ucore.stypefloat
     340msgid "Float"
     341msgstr "Desetinné číslo"
     342
     343#: ucore.stypeimage
     344msgid "Image"
     345msgstr "Obrázek"
     346
     347#: ucore.stypeinteger
     348msgid "Integer"
     349msgstr "Celé číslo"
     350
     351#: ucore.stypemapposition
     352msgid "Map position"
     353msgstr "Pozice na mapě"
     354
     355#: ucore.stypestring
     356msgid "String"
     357msgstr "Řetězec"
     358
     359#: ucore.stypetime
     360msgid "Time"
     361msgstr "Čas"
     362
    33363#: uenginexml.swrongfileformat
    34364msgid "Wrong file format"
    35365msgstr "Špatný formát souboru"
     366
     367#: uformfields.sfieldsnotset
     368msgid "Fields not set"
     369msgstr "Políčka nejsou nastavena"
     370
     371#: uformfields.snewfield
     372msgid "New field"
     373msgstr "Nové políčko"
     374
     375#: uformfields.stablefields
     376msgid "Table fields - %s"
     377msgstr "Políčka tabulky - %s"
     378
     379#: uformrecords.sremoverecord
     380msgid "Remove record"
     381msgstr "Odstranit záznam"
     382
     383#: uformrecords.sremoverecordconfirm
     384msgid "Do you want to remove record?"
     385msgstr "Opravdu chcete odstranit záznam?"
     386
     387#: uformrecords.stable
     388msgid "Table"
     389msgstr "Tabulka"
     390
     391#: uformtables.snewtable
     392msgid "New table"
     393msgstr "Nová tabulka"
     394
     395#: uformtables.sremovetable
     396msgid "Remove table"
     397msgstr "Odstranit tabulku"
     398
     399#: uformtables.sremovetableconfirm
     400msgid "Do you want to really remove table '%s' ?"
     401msgstr "Opravdu chcete odstranit tabulku '%s'?"

  • trunk/Languages/MyData.po

    r10 r11  
    22msgstr "Content-Type: text/plain; charset=UTF-8"
    33
     4#: tcore.adatabaseconnect.caption
     5msgid "Connect"
     6msgstr ""
     7
     8#: tcore.adatabasedisconnect.caption
     9msgid "Disconnect"
     10msgstr ""
     11
     12#: tcore.aexit.caption
     13msgid "Exit"
     14msgstr ""
     15
     16#: tcore.apreferences.caption
     17msgctxt "TCORE.APREFERENCES.CAPTION"
     18msgid "Preferences"
     19msgstr ""
     20
     21#: tformdatabases.aadd.caption
     22msgid "New"
     23msgstr ""
     24
     25#: tformdatabases.amodify.caption
     26msgctxt "TFORMDATABASES.AMODIFY.CAPTION"
     27msgid "Modify"
     28msgstr ""
     29
     30#: tformdatabases.aopen.caption
     31msgid "Open"
     32msgstr ""
     33
     34#: tformdatabases.aremove.caption
     35msgctxt "TFORMDATABASES.AREMOVE.CAPTION"
     36msgid "Remove"
     37msgstr ""
     38
     39#: tformdatabases.caption
     40msgid "Databases"
     41msgstr ""
     42
     43#: tformdatabases.listview1.columns[0].caption
     44msgctxt "TFORMDATABASES.LISTVIEW1.COLUMNS[0].CAPTION"
     45msgid "Name"
     46msgstr ""
     47
     48#: tformdatabases.listview1.columns[1].caption
     49msgctxt "TFORMDATABASES.LISTVIEW1.COLUMNS[1].CAPTION"
     50msgid "Type"
     51msgstr ""
     52
     53#: tformdatabases.listview1.columns[2].caption
     54msgid "Connection string"
     55msgstr ""
     56
     57#: tformfield.buttoncancel.caption
     58msgctxt "TFORMFIELD.BUTTONCANCEL.CAPTION"
     59msgid "Cancel"
     60msgstr ""
     61
     62#: tformfield.buttonok.caption
     63msgctxt "TFORMFIELD.BUTTONOK.CAPTION"
     64msgid "Ok"
     65msgstr ""
     66
     67#: tformfield.caption
     68msgid "Field"
     69msgstr ""
     70
     71#: tformfield.dateeditmax.cancelcaption
     72msgctxt "TFORMFIELD.DATEEDITMAX.CANCELCAPTION"
     73msgid "Cancel"
     74msgstr ""
     75
     76#: tformfield.dateeditmax.okcaption
     77msgctxt "TFORMFIELD.DATEEDITMAX.OKCAPTION"
     78msgid "OK"
     79msgstr ""
     80
     81#: tformfield.dateeditmin.cancelcaption
     82msgctxt "TFORMFIELD.DATEEDITMIN.CANCELCAPTION"
     83msgid "Cancel"
     84msgstr ""
     85
     86#: tformfield.dateeditmin.okcaption
     87msgctxt "tformfield.dateeditmin.okcaption"
     88msgid "OK"
     89msgstr ""
     90
     91#: tformfield.label1.caption
     92msgid "Name:"
     93msgstr ""
     94
     95#: tformfield.label10.caption
     96msgctxt "tformfield.label10.caption"
     97msgid "Minimum:"
     98msgstr ""
     99
     100#: tformfield.label11.caption
     101msgctxt "tformfield.label11.caption"
     102msgid "Maximum:"
     103msgstr ""
     104
     105#: tformfield.label2.caption
     106msgid "Text before:"
     107msgstr ""
     108
     109#: tformfield.label3.caption
     110msgid "Text after:"
     111msgstr ""
     112
     113#: tformfield.label4.caption
     114msgid "Data type:"
     115msgstr ""
     116
     117#: tformfield.label5.caption
     118msgid "Default value:"
     119msgstr ""
     120
     121#: tformfield.label6.caption
     122msgctxt "TFORMFIELD.LABEL6.CAPTION"
     123msgid "Minimum:"
     124msgstr ""
     125
     126#: tformfield.label7.caption
     127msgctxt "TFORMFIELD.LABEL7.CAPTION"
     128msgid "Maximum:"
     129msgstr ""
     130
     131#: tformfield.label8.caption
     132msgctxt "TFORMFIELD.LABEL8.CAPTION"
     133msgid "Minimum:"
     134msgstr ""
     135
     136#: tformfield.label9.caption
     137msgctxt "TFORMFIELD.LABEL9.CAPTION"
     138msgid "Maximum:"
     139msgstr ""
     140
     141#: tformfield.tabsheetboolean.caption
     142msgid "TabSheetBoolean"
     143msgstr ""
     144
     145#: tformfield.tabsheetdatetime.caption
     146msgid "TabSheetDateTime"
     147msgstr ""
     148
     149#: tformfield.tabsheetfloat.caption
     150msgid "TabSheetFloat"
     151msgstr ""
     152
     153#: tformfield.tabsheetinteger.caption
     154msgid "TabSheetInteger"
     155msgstr ""
     156
     157#: tformfield.tabsheetstring.caption
     158msgid "TabSheetString"
     159msgstr ""
     160
     161#: tformfields.aadd.caption
     162msgctxt "TFORMFIELDS.AADD.CAPTION"
     163msgid "Add"
     164msgstr ""
     165
     166#: tformfields.acancel.caption
     167msgctxt "TFORMFIELDS.ACANCEL.CAPTION"
     168msgid "Cancel"
     169msgstr ""
     170
     171#: tformfields.amodify.caption
     172msgctxt "TFORMFIELDS.AMODIFY.CAPTION"
     173msgid "Modify"
     174msgstr ""
     175
     176#: tformfields.aok.caption
     177msgctxt "tformfields.aok.caption"
     178msgid "Ok"
     179msgstr ""
     180
     181#: tformfields.aremove.caption
     182msgctxt "TFORMFIELDS.AREMOVE.CAPTION"
     183msgid "Remove"
     184msgstr ""
     185
     186#: tformfields.caption
     187msgid "Fields"
     188msgstr ""
     189
     190#: tformfields.listview1.columns[0].caption
     191msgctxt "TFORMFIELDS.LISTVIEW1.COLUMNS[0].CAPTION"
     192msgid "Name"
     193msgstr ""
     194
     195#: tformfields.listview1.columns[1].caption
     196msgctxt "tformfields.listview1.columns[1].caption"
     197msgid "Type"
     198msgstr ""
     199
     200#: tformfields.listview1.columns[2].caption
     201msgid "Required"
     202msgstr ""
     203
     204#: tformfields.listview1.columns[3].caption
     205msgid "TextBefore"
     206msgstr ""
     207
     208#: tformfields.listview1.columns[4].caption
     209msgid "TextAfter"
     210msgstr ""
     211
     212#: tformmain.caption
     213msgid "MyData"
     214msgstr ""
     215
     216#: tformmain.menuitem1.caption
     217msgid "Database"
     218msgstr ""
     219
     220#: tformmain.menuitem5.caption
     221msgid "-"
     222msgstr ""
     223
     224#: tformmain.menuitempreferences.caption
     225msgid "Tools"
     226msgstr ""
     227
    4228#: tformpreferences.buttoncancel.caption
     229msgctxt "tformpreferences.buttoncancel.caption"
    5230msgid "Cancel"
    6231msgstr ""
    … …  
    11236
    12237#: tformpreferences.caption
     238msgctxt "tformpreferences.caption"
    13239msgid "Preferences"
    14240msgstr ""
    … …  
    22248msgstr ""
    23249
     250#: tformrecords.aadd.caption
     251msgctxt "tformrecords.aadd.caption"
     252msgid "Add"
     253msgstr ""
     254
     255#: tformrecords.amodify.caption
     256msgctxt "tformrecords.amodify.caption"
     257msgid "Modify"
     258msgstr ""
     259
     260#: tformrecords.aremove.caption
     261msgctxt "tformrecords.aremove.caption"
     262msgid "Remove"
     263msgstr ""
     264
     265#: tformrecords.caption
     266msgctxt "tformrecords.caption"
     267msgid "Records"
     268msgstr ""
     269
     270#: tformrecords.listview1.columns[0].caption
     271msgctxt "tformrecords.listview1.columns[0].caption"
     272msgid "Name"
     273msgstr ""
     274
     275#: tformrecords.listview1.columns[1].caption
     276msgctxt "TFORMRECORDS.LISTVIEW1.COLUMNS[1].CAPTION"
     277msgid "Records"
     278msgstr ""
     279
     280#: tformtables.aadd.caption
     281msgctxt "TFORMTABLES.AADD.CAPTION"
     282msgid "Add"
     283msgstr ""
     284
     285#: tformtables.amodify.caption
     286msgctxt "TFORMTABLES.AMODIFY.CAPTION"
     287msgid "Modify"
     288msgstr ""
     289
     290#: tformtables.aremove.caption
     291msgctxt "TFORMTABLES.AREMOVE.CAPTION"
     292msgid "Remove"
     293msgstr ""
     294
     295#: tformtables.ashowfields.caption
     296msgid "Design"
     297msgstr ""
     298
     299#: tformtables.ashowrecords.caption
     300msgctxt "TFORMTABLES.ASHOWRECORDS.CAPTION"
     301msgid "Records"
     302msgstr ""
     303
     304#: tformtables.caption
     305msgid "Tables"
     306msgstr ""
     307
     308#: tformtables.listview1.columns[0].caption
     309msgctxt "TFORMTABLES.LISTVIEW1.COLUMNS[0].CAPTION"
     310msgid "Name"
     311msgstr ""
     312
     313#: tformtables.listview1.columns[1].caption
     314msgctxt "TFORMTABLES.LISTVIEW1.COLUMNS[1].CAPTION"
     315msgid "Records"
     316msgstr ""
     317
     318#: ucore.stypeboolean
     319msgid "Boolean"
     320msgstr ""
     321
     322#: ucore.stypedate
     323msgid "Date"
     324msgstr ""
     325
     326#: ucore.stypedatetime
     327msgid "Date and time"
     328msgstr ""
     329
     330#: ucore.stypefloat
     331msgid "Float"
     332msgstr ""
     333
     334#: ucore.stypeimage
     335msgid "Image"
     336msgstr ""
     337
     338#: ucore.stypeinteger
     339msgid "Integer"
     340msgstr ""
     341
     342#: ucore.stypemapposition
     343msgid "Map position"
     344msgstr ""
     345
     346#: ucore.stypestring
     347msgid "String"
     348msgstr ""
     349
     350#: ucore.stypetime
     351msgid "Time"
     352msgstr ""
     353
    24354#: uenginexml.swrongfileformat
    25355msgid "Wrong file format"
    26356msgstr ""
    27357
     358#: uformfields.sfieldsnotset
     359msgid "Fields not set"
     360msgstr ""
     361
     362#: uformfields.snewfield
     363msgid "New field"
     364msgstr ""
     365
     366#: uformfields.stablefields
     367msgid "Table fields - %s"
     368msgstr ""
     369
     370#: uformrecords.sremoverecord
     371msgid "Remove record"
     372msgstr ""
     373
     374#: uformrecords.sremoverecordconfirm
     375msgid "Do you want to remove record?"
     376msgstr ""
     377
     378#: uformrecords.stable
     379msgid "Table"
     380msgstr ""
     381
     382#: uformtables.snewtable
     383msgid "New table"
     384msgstr ""
     385
     386#: uformtables.sremovetable
     387msgid "Remove table"
     388msgstr ""
     389
     390#: uformtables.sremovetableconfirm
     391msgid "Do you want to really remove table '%s' ?"
     392msgstr ""
     393

  • trunk/UCore.lfm

    r10 r11  
    14581458  object CoolTranslator1: TCoolTranslator
    14591459    POFilesFolder = 'Languages'
     1460    OnTranslate = CoolTranslator1Translate
    14601461    left = 288
    14611462    top = 304

  • trunk/UCore.pas

    r10 r11  
    2525    procedure AExitExecute(Sender: TObject);
    2626    procedure APreferencesExecute(Sender: TObject);
     27    procedure CoolTranslator1Translate(Sender: TObject);
    2728    procedure DataModuleCreate(Sender: TObject);
    2829    procedure DataModuleDestroy(Sender: TObject);
    … …  
    5758{$R *.lfm}
    5859
     60resourcestring
     61  STypeString = 'String';
     62  STypeInteger = 'Integer';
     63  STypeFloat = 'Float';
     64  STypeBoolean = 'Boolean';
     65  STypeMapPosition = 'Map position';
     66  STypeImage = 'Image';
     67  STypeDate = 'Date';
     68  STypeTime = 'Time';
     69  STypeDateTime = 'Date and time';
     70
    5971{ TCore }
    6072
    … …  
    6981procedure TCore.AExitExecute(Sender: TObject);
    7082begin
    71   FormTables.Close;
     83  FormMain.Close;
    7284end;
    7385
    … …  
    89101  if FormPreferences.ShowModal = mrOk then begin
    90102    FormPreferences.Save(Preferences);
     103  end;
     104end;
     105
     106procedure TCore.CoolTranslator1Translate(Sender: TObject);
     107var
     108  I: Integer;
     109begin
     110  for I := 0 to DataTypes.Count - 1 do begin
     111    TDataType(DataTypes[I]).Name := CoolTranslator1.TranslateText(TDataType(DataTypes[I]).Name, TDataType(DataTypes[I]).Name);
    91112  end;
    92113end;
    … …  
    119140  DataTypes.Clear;
    120141  with DataTypes do begin
    121     RegisterType('String', ftString, TFieldString);
    122     RegisterType('Integer', ftInteger, TFieldInteger);
    123     RegisterType('Date and time', ftDateTime, TFieldDateTime);
    124     RegisterType('Boolean', ftBoolean, TFieldBoolean);
    125     RegisterType('Float', ftFloat, TFieldFloat);
    126     RegisterType('MapPosition', ftMapPosition, TFieldMapPosition);
    127     RegisterType('Date', ftDate, TFieldDate);
    128     RegisterType('Time', ftTime, TFieldTime);
    129     RegisterType('Image', ftImage, TFieldImage);
     142    RegisterType(STypeString, ftString, TFieldString);
     143    RegisterType(STypeInteger, ftInteger, TFieldInteger);
     144    RegisterType(STypeDateTime, ftDateTime, TFieldDateTime);
     145    RegisterType(STypeBoolean, ftBoolean, TFieldBoolean);
     146    RegisterType(STypeFloat, ftFloat, TFieldFloat);
     147    RegisterType(STypeMapPosition, ftMapPosition, TFieldMapPosition);
     148    RegisterType(STypeDate, ftDate, TFieldDate);
     149    RegisterType(STypeTime, ftTime, TFieldTime);
     150    RegisterType(STypeImage, ftImage, TFieldImage);
    130151  end;
    131152end;
    … …  
    135156  if FDatabase = AValue then Exit;
    136157  if Assigned(FDatabase) then begin
     158    FDatabase.Save;
    137159    FDatabase.Clear;
    138160  end;
Note: See TracChangeset for help on using the changeset viewer.