Changeset 6


Ignore:
Timestamp:
Jan 14, 2009, 8:20:25 AM (15 years ago)
Author:
george
Message:
  • Přidáno: Překladový soubor pro inspektor objektů a instalátor.
  • Přidáno: Podpora pro překlad více souborů.
Files:
4 added
8 edited

Legend:

Unmodified
Added
Removed

  • tools/Delphi translator/UItemTranslationForm.dfm

    r1 r6  
    33  Top = 0
    44  Caption = 'P'#345'eklad polo'#382'ky'
    5   ClientHeight = 318
    6   ClientWidth = 734
     5  ClientHeight = 312
     6  ClientWidth = 741
    77  Color = clBtnFace
    88  Font.Charset = DEFAULT_CHARSET

  • tools/Lazarus translator/Translator.lpi

    r4 r6  
    3232      </Item1>
    3333    </RequiredPackages>
    34     <Units Count="11">
     34    <Units Count="16">
    3535      <Unit0>
    3636        <Filename Value="Translator.lpr"/>
    3737        <IsPartOfProject Value="True"/>
    3838        <UnitName Value="Translator"/>
    39         <CursorPos X="26" Y="15"/>
     39        <CursorPos X="30" Y="8"/>
    4040        <TopLine Value="1"/>
    41         <EditorIndex Value="1"/>
    42         <UsageCount Value="26"/>
     41        <EditorIndex Value="5"/>
     42        <UsageCount Value="36"/>
    4343        <Loaded Value="True"/>
    4444      </Unit0>
    … …  
    5050        <ResourceFilename Value="UMainForm.lrs"/>
    5151        <UnitName Value="UMainForm"/>
    52         <CursorPos X="27" Y="98"/>
    53         <TopLine Value="59"/>
     52        <CursorPos X="37" Y="104"/>
     53        <TopLine Value="92"/>
    5454        <EditorIndex Value="0"/>
    55         <UsageCount Value="26"/>
     55        <UsageCount Value="36"/>
    5656        <Loaded Value="True"/>
    5757      </Unit1>
    … …  
    6363        <ResourceFilename Value="UItemTranslationForm.lrs"/>
    6464        <UnitName Value="UItemTranslationForm"/>
    65         <CursorPos X="19" Y="20"/>
    66         <TopLine Value="7"/>
    67         <EditorIndex Value="2"/>
    68         <UsageCount Value="26"/>
     65        <CursorPos X="23" Y="15"/>
     66        <TopLine Value="8"/>
     67        <EditorIndex Value="6"/>
     68        <UsageCount Value="36"/>
    6969        <Loaded Value="True"/>
    7070      </Unit2>
    … …  
    7575        <CursorPos X="1" Y="49"/>
    7676        <TopLine Value="43"/>
    77         <UsageCount Value="26"/>
     77        <UsageCount Value="36"/>
    7878      </Unit3>
    7979      <Unit4>
    … …  
    120120        <UsageCount Value="11"/>
    121121      </Unit10>
     122      <Unit11>
     123        <Filename Value="..\..\..\..\..\..\Lazarus\lcl\comctrls.pp"/>
     124        <UnitName Value="ComCtrls"/>
     125        <CursorPos X="21" Y="1098"/>
     126        <TopLine Value="1085"/>
     127        <EditorIndex Value="4"/>
     128        <UsageCount Value="14"/>
     129        <Loaded Value="True"/>
     130      </Unit11>
     131      <Unit12>
     132        <Filename Value="..\..\..\..\..\..\Lazarus\lcl\include\customlistview.inc"/>
     133        <CursorPos X="1" Y="518"/>
     134        <TopLine Value="518"/>
     135        <EditorIndex Value="3"/>
     136        <UsageCount Value="14"/>
     137        <Loaded Value="True"/>
     138      </Unit12>
     139      <Unit13>
     140        <Filename Value="..\..\..\..\..\..\Lazarus\lcl\widgetset\wscomctrls.pp"/>
     141        <UnitName Value="WSComCtrls"/>
     142        <CursorPos X="21" Y="132"/>
     143        <TopLine Value="119"/>
     144        <UsageCount Value="10"/>
     145      </Unit13>
     146      <Unit14>
     147        <Filename Value="..\..\..\..\..\..\Lazarus\fpc\2.2.2\source\rtl\objpas\sysutils\sysstrh.inc"/>
     148        <CursorPos X="10" Y="83"/>
     149        <TopLine Value="70"/>
     150        <EditorIndex Value="1"/>
     151        <UsageCount Value="13"/>
     152        <Loaded Value="True"/>
     153      </Unit14>
     154      <Unit15>
     155        <Filename Value="..\..\..\..\..\..\Lazarus\fpc\2.2.2\source\rtl\objpas\sysutils\sysstr.inc"/>
     156        <CursorPos X="5" Y="479"/>
     157        <TopLine Value="477"/>
     158        <EditorIndex Value="2"/>
     159        <UsageCount Value="13"/>
     160        <Loaded Value="True"/>
     161      </Unit15>
    122162    </Units>
    123163    <JumpHistory Count="30" HistoryIndex="29">
    124164      <Position1>
    125165        <Filename Value="UMainForm.pas"/>
    126         <Caret Line="164" Column="1" TopLine="151"/>
     166        <Caret Line="131" Column="1" TopLine="118"/>
    127167      </Position1>
    128168      <Position2>
    129169        <Filename Value="UMainForm.pas"/>
    130         <Caret Line="165" Column="1" TopLine="152"/>
     170        <Caret Line="132" Column="1" TopLine="119"/>
    131171      </Position2>
    132172      <Position3>
    133173        <Filename Value="UMainForm.pas"/>
    134         <Caret Line="166" Column="1" TopLine="153"/>
     174        <Caret Line="135" Column="1" TopLine="122"/>
    135175      </Position3>
    136176      <Position4>
    137177        <Filename Value="UMainForm.pas"/>
    138         <Caret Line="163" Column="1" TopLine="150"/>
     178        <Caret Line="136" Column="27" TopLine="124"/>
    139179      </Position4>
    140180      <Position5>
    141181        <Filename Value="UMainForm.pas"/>
    142         <Caret Line="164" Column="16" TopLine="151"/>
     182        <Caret Line="204" Column="78" TopLine="227"/>
    143183      </Position5>
    144184      <Position6>
    145185        <Filename Value="UMainForm.pas"/>
    146         <Caret Line="168" Column="1" TopLine="155"/>
     186        <Caret Line="12" Column="20" TopLine="1"/>
    147187      </Position6>
    148188      <Position7>
    149189        <Filename Value="UMainForm.pas"/>
    150         <Caret Line="169" Column="1" TopLine="156"/>
     190        <Caret Line="167" Column="70" TopLine="154"/>
    151191      </Position7>
    152192      <Position8>
    153193        <Filename Value="UMainForm.pas"/>
    154         <Caret Line="170" Column="1" TopLine="157"/>
     194        <Caret Line="29" Column="48" TopLine="28"/>
    155195      </Position8>
    156196      <Position9>
    157197        <Filename Value="UMainForm.pas"/>
    158         <Caret Line="163" Column="1" TopLine="150"/>
     198        <Caret Line="134" Column="13" TopLine="131"/>
    159199      </Position9>
    160200      <Position10>
    161201        <Filename Value="UMainForm.pas"/>
    162         <Caret Line="164" Column="1" TopLine="151"/>
     202        <Caret Line="45" Column="22" TopLine="31"/>
    163203      </Position10>
    164204      <Position11>
    165205        <Filename Value="UMainForm.pas"/>
    166         <Caret Line="168" Column="1" TopLine="155"/>
     206        <Caret Line="176" Column="54" TopLine="169"/>
    167207      </Position11>
    168208      <Position12>
    169209        <Filename Value="UMainForm.pas"/>
    170         <Caret Line="171" Column="10" TopLine="150"/>
     210        <Caret Line="159" Column="1" TopLine="145"/>
    171211      </Position12>
    172212      <Position13>
    173         <Filename Value="UItemTranslationForm.pas"/>
    174         <Caret Line="20" Column="5" TopLine="16"/>
     213        <Filename Value="UMainForm.pas"/>
     214        <Caret Line="134" Column="1" TopLine="126"/>
    175215      </Position13>
    176216      <Position14>
    177         <Filename Value="UItemTranslationForm.pas"/>
    178         <Caret Line="41" Column="1" TopLine="22"/>
     217        <Filename Value="UMainForm.pas"/>
     218        <Caret Line="133" Column="1" TopLine="120"/>
    179219      </Position14>
    180220      <Position15>
    181         <Filename Value="UItemTranslationForm.pas"/>
    182         <Caret Line="20" Column="61" TopLine="19"/>
     221        <Filename Value="UMainForm.pas"/>
     222        <Caret Line="134" Column="1" TopLine="121"/>
    183223      </Position15>
    184224      <Position16>
    185         <Filename Value="UItemTranslationForm.pas"/>
    186         <Caret Line="42" Column="3" TopLine="33"/>
     225        <Filename Value="UMainForm.pas"/>
     226        <Caret Line="205" Column="48" TopLine="191"/>
    187227      </Position16>
    188228      <Position17>
    189         <Filename Value="UItemTranslationForm.pas"/>
    190         <Caret Line="46" Column="23" TopLine="33"/>
     229        <Filename Value="UMainForm.pas"/>
     230        <Caret Line="133" Column="1" TopLine="120"/>
    191231      </Position17>
    192232      <Position18>
    193         <Filename Value="UItemTranslationForm.pas"/>
    194         <Caret Line="20" Column="80" TopLine="19"/>
     233        <Filename Value="UMainForm.pas"/>
     234        <Caret Line="134" Column="1" TopLine="121"/>
    195235      </Position18>
    196236      <Position19>
    197         <Filename Value="UItemTranslationForm.pas"/>
    198         <Caret Line="44" Column="3" TopLine="39"/>
     237        <Filename Value="UMainForm.pas"/>
     238        <Caret Line="204" Column="1" TopLine="191"/>
    199239      </Position19>
    200240      <Position20>
    201         <Filename Value="UItemTranslationForm.pas"/>
    202         <Caret Line="54" Column="3" TopLine="43"/>
     241        <Filename Value="UMainForm.pas"/>
     242        <Caret Line="205" Column="1" TopLine="192"/>
    203243      </Position20>
    204244      <Position21>
    205         <Filename Value="Translator.lpr"/>
    206         <Caret Line="11" Column="24" TopLine="1"/>
     245        <Filename Value="UMainForm.pas"/>
     246        <Caret Line="229" Column="9" TopLine="205"/>
    207247      </Position21>
    208248      <Position22>
    209         <Filename Value="UItemTranslationForm.pas"/>
    210         <Caret Line="58" Column="51" TopLine="42"/>
     249        <Filename Value="UMainForm.pas"/>
     250        <Caret Line="230" Column="1" TopLine="214"/>
    211251      </Position22>
    212252      <Position23>
    213         <Filename Value="UItemTranslationForm.pas"/>
    214         <Caret Line="16" Column="22" TopLine="15"/>
     253        <Filename Value="UMainForm.pas"/>
     254        <Caret Line="135" Column="1" TopLine="122"/>
    215255      </Position23>
    216256      <Position24>
    217         <Filename Value="UItemTranslationForm.pas"/>
    218         <Caret Line="47" Column="10" TopLine="35"/>
     257        <Filename Value="UMainForm.pas"/>
     258        <Caret Line="173" Column="1" TopLine="160"/>
    219259      </Position24>
    220260      <Position25>
    221         <Filename Value="UItemTranslationForm.pas"/>
    222         <Caret Line="58" Column="1" TopLine="35"/>
     261        <Filename Value="UMainForm.pas"/>
     262        <Caret Line="174" Column="1" TopLine="161"/>
    223263      </Position25>
    224264      <Position26>
    225         <Filename Value="UItemTranslationForm.pas"/>
    226         <Caret Line="36" Column="1" TopLine="21"/>
     265        <Filename Value="UMainForm.pas"/>
     266        <Caret Line="170" Column="25" TopLine="162"/>
    227267      </Position26>
    228268      <Position27>
    229269        <Filename Value="UMainForm.pas"/>
    230         <Caret Line="129" Column="61" TopLine="116"/>
     270        <Caret Line="135" Column="14" TopLine="120"/>
    231271      </Position27>
    232272      <Position28>
    233         <Filename Value="UMainForm.pas"/>
    234         <Caret Line="130" Column="53" TopLine="116"/>
     273        <Filename Value="Translator.lpr"/>
     274        <Caret Line="16" Column="34" TopLine="1"/>
    235275      </Position28>
    236276      <Position29>
    237         <Filename Value="UMainForm.pas"/>
    238         <Caret Line="133" Column="32" TopLine="119"/>
     277        <Filename Value="Translator.lpr"/>
     278        <Caret Line="19" Column="1" TopLine="1"/>
    239279      </Position29>
    240280      <Position30>
    241         <Filename Value="UMainForm.pas"/>
    242         <Caret Line="99" Column="37" TopLine="86"/>
     281        <Filename Value="Translator.lpr"/>
     282        <Caret Line="8" Column="30" TopLine="1"/>
    243283      </Position30>
    244284    </JumpHistory>
    … …  
    259299  </CompilerOptions>
    260300  <Debugging>
     301    <BreakPoints Count="1">
     302      <Item1>
     303        <Source Value="..\..\..\..\..\..\Lazarus\lcl\include\customlistview.inc"/>
     304        <Line Value="518"/>
     305      </Item1>
     306    </BreakPoints>
    261307    <Exceptions Count="2">
    262308      <Item1>

  • tools/Lazarus translator/UItemTranslationForm.lfm

    r4 r6  
    3232    Width = 75
    3333    Caption = 'Zavřít'
     34    Default = True
    3435    OnClick = Button1Click
    3536    TabOrder = 2

  • tools/Lazarus translator/UItemTranslationForm.lrs

    r4 r6  
    1010  +#6'Height'#3#153#0#3'Top'#3#168#0#5'Width'#3#18#2#8'TabOrder'#2#1#0#0#7'TBut'
    1111  +'ton'#7'Button1'#4'Left'#3#206#1#6'Height'#2#24#3'Top'#3'H'#1#5'Width'#2'K'#7
    12   +'Caption'#6#8'Zav'#197#153#195#173't'#7'OnClick'#7#12'Button1Click'#8'TabOrd'
    13   +'er'#2#2#0#0#0
     12  +'Caption'#6#8'Zav'#197#153#195#173't'#7'Default'#9#7'OnClick'#7#12'Button1Cl'
     13  +'ick'#8'TabOrder'#2#2#0#0#0
    1414]);

  • tools/Lazarus translator/UMainForm.lfm

    r4 r6  
    11object MainForm: TMainForm
    2   Left = 278
    3   Height = 404
    4   Top = 172
    5   Width = 643
     2  Left = 245
     3  Height = 553
     4  Top = 131
     5  Width = 728
    66  Caption = 'Překlad Lazarusu'
    7   ClientHeight = 404
    8   ClientWidth = 643
     7  ClientHeight = 553
     8  ClientWidth = 728
    99  OnCreate = FormCreate
    1010  OnDestroy = FormDestroy
    … …  
    1515  object ListView1: TListView
    1616    Left = 8
    17     Height = 363
     17    Height = 512
    1818    Top = 8
    19     Width = 627
     19    Width = 712
    2020    Anchors = [akTop, akLeft, akRight, akBottom]
    2121    Columns = <   
    … …  
    2626      item
    2727        Caption = 'Původní text'
    28         Width = 200
     28        Width = 240
    2929      end   
    3030      item
    3131        Caption = 'Přeložený text'
    32         Width = 200
     32        Width = 240
    3333      end>
    3434    RowSelect = True
    … …  
    3636    ViewStyle = vsReport
    3737    OnColumnClick = ListView1ColumnClick
     38    OnCompare = ListView1Compare
    3839    OnDblClick = ListView1DblClick
    3940    OnKeyPress = ListView1KeyPress
    4041  end
    4142  object ProgressBar1: TProgressBar
    42     Left = 9
     43    Left = 160
    4344    Height = 20
    44     Top = 379
    45     Width = 624
     45    Top = 528
     46    Width = 558
    4647    Anchors = [akLeft, akRight, akBottom]
    4748    Max = 100
    4849    TabOrder = 1
    4950  end
     51  object ComboBox1: TComboBox
     52    Left = 8
     53    Height = 21
     54    Top = 527
     55    Width = 144
     56    ItemHeight = 13
     57    ItemIndex = 0
     58    Items.Strings = (
     59      'lazaruside.cz.po'
     60      'objinspstrconsts.cz.po'
     61      'installerstrconsts.cz.po'
     62    )
     63    MaxLength = -1
     64    OnChange = ComboBox1Change
     65    Style = csDropDownList
     66    TabOrder = 2
     67    Text = 'lazaruside.cz.po'
     68  end
    5069end

  • tools/Lazarus translator/UMainForm.lrs

    r4 r6  
    22
    33LazarusResources.Add('TMainForm','FORMDATA',[
    4   'TPF0'#9'TMainForm'#8'MainForm'#4'Left'#3#22#1#6'Height'#3#148#1#3'Top'#3#172
    5   +#0#5'Width'#3#131#2#7'Caption'#6#17'P'#197#153'eklad Lazarusu'#12'ClientHeig'
    6   +'ht'#3#148#1#11'ClientWidth'#3#131#2#8'OnCreate'#7#10'FormCreate'#9'OnDestro'
    7   +'y'#7#11'FormDestroy'#6'OnShow'#7#8'FormShow'#10'ParentFont'#8#8'Position'#7
    8   +#14'poScreenCenter'#10'LCLVersion'#6#6'0.9.26'#0#9'TListView'#9'ListView1'#4
    9   +'Left'#2#8#6'Height'#3'k'#1#3'Top'#2#8#5'Width'#3's'#2#7'Anchors'#11#5'akTop'
    10   +#6'akLeft'#7'akRight'#8'akBottom'#0#7'Columns'#14#1#7'Caption'#6#12'Identifi'
    11   +'kace'#5'Width'#3#200#0#0#1#7'Caption'#6#14'P'#197#175'vodn'#195#173' text'#5
    12   +'Width'#3#200#0#0#1#7'Caption'#6#17'P'#197#153'elo'#197#190'en'#195#189' tex'
    13   +'t'#5'Width'#3#200#0#0#0#9'RowSelect'#9#8'TabOrder'#2#0#9'ViewStyle'#7#8'vsR'
    14   +'eport'#13'OnColumnClick'#7#20'ListView1ColumnClick'#10'OnDblClick'#7#17'Lis'
    15   +'tView1DblClick'#10'OnKeyPress'#7#17'ListView1KeyPress'#0#0#12'TProgressBar'
    16   +#12'ProgressBar1'#4'Left'#2#9#6'Height'#2#20#3'Top'#3'{'#1#5'Width'#3'p'#2#7
    17   +'Anchors'#11#6'akLeft'#7'akRight'#8'akBottom'#0#3'Max'#2'd'#8'TabOrder'#2#1#0
    18   +#0#0
     4  'TPF0'#9'TMainForm'#8'MainForm'#4'Left'#3#245#0#6'Height'#3')'#2#3'Top'#3#131
     5  +#0#5'Width'#3#216#2#7'Caption'#6#17'P'#197#153'eklad Lazarusu'#12'ClientHeig'
     6  +'ht'#3')'#2#11'ClientWidth'#3#216#2#8'OnCreate'#7#10'FormCreate'#9'OnDestroy'
     7  +#7#11'FormDestroy'#6'OnShow'#7#8'FormShow'#10'ParentFont'#8#8'Position'#7#14
     8  +'poScreenCenter'#10'LCLVersion'#6#6'0.9.26'#0#9'TListView'#9'ListView1'#4'Le'
     9  +'ft'#2#8#6'Height'#3#0#2#3'Top'#2#8#5'Width'#3#200#2#7'Anchors'#11#5'akTop'#6
     10  +'akLeft'#7'akRight'#8'akBottom'#0#7'Columns'#14#1#7'Caption'#6#12'Identifika'
     11  +'ce'#5'Width'#3#200#0#0#1#7'Caption'#6#14'P'#197#175'vodn'#195#173' text'#5
     12  +'Width'#3#240#0#0#1#7'Caption'#6#17'P'#197#153'elo'#197#190'en'#195#189' tex'
     13  +'t'#5'Width'#3#240#0#0#0#9'RowSelect'#9#8'TabOrder'#2#0#9'ViewStyle'#7#8'vsR'
     14  +'eport'#13'OnColumnClick'#7#20'ListView1ColumnClick'#9'OnCompare'#7#16'ListV'
     15  +'iew1Compare'#10'OnDblClick'#7#17'ListView1DblClick'#10'OnKeyPress'#7#17'Lis'
     16  +'tView1KeyPress'#0#0#12'TProgressBar'#12'ProgressBar1'#4'Left'#3#160#0#6'Hei'
     17  +'ght'#2#20#3'Top'#3#16#2#5'Width'#3'.'#2#7'Anchors'#11#6'akLeft'#7'akRight'#8
     18  +'akBottom'#0#3'Max'#2'd'#8'TabOrder'#2#1#0#0#9'TComboBox'#9'ComboBox1'#4'Lef'
     19  +'t'#2#8#6'Height'#2#21#3'Top'#3#15#2#5'Width'#3#144#0#10'ItemHeight'#2#13#9
     20  +'ItemIndex'#2#0#13'Items.Strings'#1#6#16'lazaruside.cz.po'#6#22'objinspstrco'
     21  +'nsts.cz.po'#6#24'installerstrconsts.cz.po'#0#9'MaxLength'#2#255#8'OnChange'
     22  +#7#15'ComboBox1Change'#5'Style'#7#14'csDropDownList'#8'TabOrder'#2#2#4'Text'
     23  +#6#16'lazaruside.cz.po'#0#0#0
    1924]);

  • tools/Lazarus translator/UMainForm.pas

    r4 r6  
    77uses
    88  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
    9   ComCtrls, UItemTranslationForm, UTextFileStream;
     9  ComCtrls, UItemTranslationForm, UTextFileStream, StdCtrls;
    1010
    1111const
    12   TranslationFileName: string = '../../trunk/lazaruside.cz.po';
     12  TranslationFolder: string = '../../trunk/';
    1313  TranslationMergeFileName: string = '../../tags/0.9.25/lazaruside.cz.po';
    1414
    … …  
    2323
    2424  TMainForm = class(TForm)
     25    ComboBox1: TComboBox;
    2526    ListView1: TListView;
    2627    ProgressBar1: TProgressBar;
     28    procedure Button1Click(Sender: TObject);
     29    procedure ComboBox1Change(Sender: TObject);
    2730    procedure FormShow(Sender: TObject);
    2831    procedure FormDestroy(Sender: TObject);
    2932    procedure FormCreate(Sender: TObject);
     33    procedure ListView1Compare(Sender: TObject; Item1, Item2: TListItem;
     34      Data: Integer; var Compare: Integer);
    3035    procedure ListView1DblClick(Sender: TObject);
    3136    procedure ListView1KeyPress(Sender: TObject; var Key: Char);
    3237    procedure ListView1ColumnClick(Sender: TObject; Column: TListColumn);
    3338  private
     39    LastFileName: string;
    3440    procedure MergeListFromFile;
    3541  public
    … …  
    7177      NewItem := Add;
    7278      NewItem.Data := StringList[I];
    73       NewItem.Caption := Identification;
     79      NewItem.Caption := OriginalText;
    7480      with NewItem.SubItems do begin
    75         Add(OriginalText);
    7681        Add(TranslatedText);
     82        Add(Identification);
    7783        if TranslatedText <> '' then Inc(CompletedCount);
    7884      end;
    … …  
    8995  LastSortedColumn := -1;
    9096  Ascending := True;
     97end;
     98
     99procedure TMainForm.ListView1Compare(Sender: TObject; Item1, Item2: TListItem;
     100  Data: Integer; var Compare: Integer);
     101begin
     102    Compare := AnsiCompareText(Item1.SubItems[0],
     103      Item2.SubItems[0]);
     104  if not Ascending then Compare := -Compare;
    91105end;
    92106
    … …  
    106120  //MergeListFromFile;
    107121  FillList;
    108   //ListView1.CustomSort(@SortByColumn, 1);
     122end;
     123
     124procedure TMainForm.Button1Click(Sender: TObject);
     125begin
     126  ListView1.SortColumn := 1;
     127  ListView1.SortType := stData;
     128  ListView1.Refresh;
     129  ListView1.Invalidate;
     130end;
     131
     132procedure TMainForm.ComboBox1Change(Sender: TObject);
     133begin
     134  SaveListToFile;
     135  LoadListFromFile;
     136  FillList;
    109137end;
    110138
    … …  
    128156    TranslatedText := Copy(Memo2.Text, 1, Length(Memo2.Text) - 2);
    129157
    130     ListView1.Selected.SubItems[1] := TranslatedText;
     158    ListView1.Selected.SubItems[0] := TranslatedText;
    131159    SaveListToFile;
    132160  end;
    … …  
    145173  I: Integer;
    146174begin
     175  StringList.Clear;
     176  LastFileName := TranslationFolder + ComboBox1.Text;
    147177  NewItem := nil;
    148   Source := TTextFileStream.Create(TranslationFileName, fmOpenRead);
     178  Source := TTextFileStream.Create(LastFileName, fmOpenRead);
    149179  try
    150180    for I := 0 to 10 do Row := Source.ReadLn;  // Skip leading info lines
    … …  
    175205  I: Integer;
    176206begin
    177   Source := TTextFileStream.Create(TranslationFileName, fmOpenWrite);
     207  Source := TTextFileStream.Create(LastFileName, fmOpenWrite);
    178208  with Source do
    179209  try
    … …  
    184214    WriteLn('"PO-Revision-Date: 2009-01-07 19:03+0100\n"');
    185215    WriteLn('"Last-Translator: Chronos <robie@centrum.cz>\n"');
     216    WriteLn('"Translation-Source: http://tv.zdechov.net/svn/lazarus_czech/\n"');
    186217    WriteLn('"Language-Team: \n"');
    187218    WriteLn('"MIME-Version: 1.0\n"');
    188     WriteLn('"Content-Type: text/plain; charset=windows-1250\n"');
     219    WriteLn('"Content-Type: text/plain; charset=UTF-8\n"');
    189220    WriteLn('"Content-Transfer-Encoding: 8bit\n"');
    190221    WriteLn('');

  • trunk/lazaruside.cz.po

    r5 r6  
    55"PO-Revision-Date: 2009-01-07 19:03+0100\n"
    66"Last-Translator: Chronos <robie@centrum.cz>\n"
     7"Translation-Source: http://tv.zdechov.net/svn/lazarus_czech/\n"
    78"Language-Team: \n"
    89"MIME-Version: 1.0\n"
    … …  
    132133#: lazarusidestrconsts:listargetcpu
    133134msgid "Target CPU"
    134 msgstr "Cílové CPU"
     135msgstr "Cílový CPU"
    135136
    136137#: lazarusidestrconsts:listargetos
    … …  
    1076010761#: lazarusidestrconsts:liscodehelpseealsotag
    1076110762msgid "See also"
    10762 msgstr ""
     10763msgstr "Související informace"
    1076310764
    1076410765#: lazarusidestrconsts:liscodehelpaddpathbutton
    … …  
    1076810769#: lazarusidestrconsts:liscodehelpdeletepathbutton
    1076910770msgid "Remove path"
    10770 msgstr ""
     10771msgstr "Odstranit cestu"
    1077110772
    1077210773#: lazarusidestrconsts:liseonoteonlyabsolutepathsaresupportednow
    1077310774msgid "NOTE: only absolute paths are supported now"
    10774 msgstr ""
     10775msgstr "POZNÁMKA: nyní jsou podporovány pouze plné cesty"
    1077510776
    1077610777#: lazarusidestrconsts:liscodehelpconfirmreplace
    1077710778msgid "Confirm replace"
    10778 msgstr ""
     10779msgstr "Potvrdit nahrazení"
    1077910780
    1078010781#: lazarusidestrconsts:liscodehelpreplacebutton
    … …  
    1082010821#: lazarusidestrconsts:liscodehelpcreatebutton
    1082110822msgid "Create help item"
    10822 msgstr ""
     10823msgstr "Vytvořit položku nápovědy"
    1082310824
    1082410825#: lazarusidestrconsts:liscodehelpinsertalink
    1082510826msgid "Insert a link ..."
    10826 msgstr ""
     10827msgstr "Vložit odkaz..."
    1082710828
    1082810829#: lazarusidestrconsts:liscodehelpinsertparagraphformattingtag
    1082910830msgid "Insert paragraph formatting tag"
    10830 msgstr ""
     10831msgstr "Vložit značku formátování odstavce"
    1083110832
    1083210833#: lazarusidestrconsts:liscodehelpsavebutton
    … …  
    1084410845#: lazarusidestrconsts:lisldmoveentriestoinherited
    1084510846msgid "Move entries to inherited"
    10846 msgstr ""
     10847msgstr "Přesunout položky do zděděného"
    1084710848
    1084810849#: lazarusidestrconsts:lisldcopyfrominherited
    … …  
    1086010861#: lazarusidestrconsts:lisctselectcodemacro
    1086110862msgid "Select Code Macro"
    10862 msgstr ""
     10863msgstr "Vybrat makro kódu"
    1086310864
    1086410865#: lazarusidestrconsts:lispdprogress
    … …  
    1087210873#: lazarusidestrconsts:lisposaveinlpifil
    1087310874msgid "Save in .lpi file"
    10874 msgstr ""
     10875msgstr "Uložit v souboru .lpi"
    1087510876
    1087610877#: lazarusidestrconsts:lisposaveinlpsfileinprojectdirectory
    1087710878msgid "Save in .lps file in project directory"
    10878 msgstr ""
     10879msgstr "Uložit v souboru .lps v adresáři projektu"
    1087910880
    1088010881#: lazarusidestrconsts:lisposaveinideconfigdirectory
    1088110882msgid "Save in IDE config directory"
    10882 msgstr ""
     10883msgstr "Uložit v konfiguračním adresáři IDE"
    1088310884
    1088410885#: lazarusidestrconsts:lispodonotsaveanysessioninfo
    … …  
    1088810889#: lazarusidestrconsts:lisposavesessioninformationin
    1088910890msgid "Save session information in"
    10890 msgstr ""
     10891msgstr "Uložit informace sezení v"
    1089110892
    1089210893#: lazarusidestrconsts:lismvsavemessagestofiletxt
    1089310894msgid "Save messages to file (*.txt)"
    10894 msgstr ""
     10895msgstr "Uložit zprávy do souboru (*.txt)"
    1089510896
    1089610897#: lazarusidestrconsts:lisshowoldtaborder
    1089710898msgid "Show old tab order"
    10898 msgstr ""
     10899msgstr "Ukázat staré pořadí záložek"
    1089910900
    1090010901#: lazarusidestrconsts:listaborderof
    1090110902msgid "Tab Order of"
    10902 msgstr ""
     10903msgstr "Pořadí záložek"
    1090310904
    1090410905#: lazarusidestrconsts:lisanchorenabledhint
    … …  
    1099610997#: lazarusidestrconsts:lisunabletosetanchorsidecontrol
    1099710998msgid "Unable to set AnchorSide Control"
    10998 msgstr ""
     10999msgstr "Nelze nastavit AnchorSide Control"
    1099911000
    1100011001#: lazarusidestrconsts:lisanchoreditornocontrolselected
    … …  
    1101211013#: lazarusidestrconsts:lisdebugoptionsfrmdebuggergeneraloptions
    1101311014msgid "Debugger general options"
    11014 msgstr ""
     11015msgstr "Obecná nastavení ladícího nástroje"
    1101511016
    1101611017#: lazarusidestrconsts:lisdebugoptionsfrmshowmessageonstop
    1101711018msgid "Show message on stop"
    11018 msgstr ""
     11019msgstr "Zobrazit hlášení při zastavení"
    1101911020
    1102011021#: lazarusidestrconsts:lisdebugoptionsfrmdebuggerspecific
    1102111022msgid "Debugger specific options (depends on type of debugger)"
    11022 msgstr ""
     11023msgstr "Speciální nastavení pro ladič (záleží na typu ladiče)"
    1102311024
    1102411025#: lazarusidestrconsts:lisdebugoptionsfrmeventlog
    … …  
    1103211033#: lazarusidestrconsts:lisdebugoptionsfrmlimitlinecountto
    1103311034msgid "Limit linecount to"
    11034 msgstr ""
     11035msgstr "Omezit počet řádek na"
    1103511036
    1103611037#: lazarusidestrconsts:lisdebugoptionsfrmbreakpoint
    … …  
    1106811069#: lazarusidestrconsts:lisdebugoptionsfrmignoretheseexceptions
    1106911070msgid "Ignore these exceptions"
    11070 msgstr ""
     11071msgstr "Ignorovat tyto vyjímky"
    1107111072
    1107211073#: lazarusidestrconsts:lisdebugoptionsfrmbreakonlazarusexceptions
    … …  
    1107611077#: lazarusidestrconsts:lisdebugoptionsfrmosexceptions
    1107711078msgid "OS Exceptions"
    11078 msgstr ""
     11079msgstr "Vyjímky OS"
    1107911080
    1108011081#: lazarusidestrconsts:lisdebugoptionsfrmsignals
    … …  
    1108811089#: lazarusidestrconsts:lisdebugoptionsfrmid
    1108911090msgid "ID"
    11090 msgstr ""
     11091msgstr "ID"
    1109111092
    1109211093#: lazarusidestrconsts:lisdebugoptionsfrmhandledby
    1109311094msgid "Handled by"
    11094 msgstr ""
     11095msgstr "Obslouženo"
    1109511096
    1109611097#: lazarusidestrconsts:lisdebugoptionsfrmresume
    1109711098msgid "Resume"
    11098 msgstr ""
     11099msgstr "Obnovit"
    1109911100
    1110011101#: lazarusidestrconsts:lisdebugoptionsfrmhandledbyprogram
    1110111102msgid "Handled by Program"
    11102 msgstr ""
     11103msgstr "Obslouženo programem"
    1110311104
    1110411105#: lazarusidestrconsts:lisdebugoptionsfrmhandledbydebugger
    1110511106msgid "Handled by Debugger"
    11106 msgstr ""
     11107msgstr "Obslouženo ladícím nástrojem"
    1110711108
    1110811109#: lazarusidestrconsts:lisdebugoptionsfrmresumehandled
    1110911110msgid "Resume Handled"
    11110 msgstr ""
     11111msgstr "Obnovit jako obsloužené"
    1111111112
    1111211113#: lazarusidestrconsts:lisdebugoptionsfrmresumeunhandled
    1111311114msgid "Resume Unhandled"
    11114 msgstr ""
     11115msgstr "Obnovit jako neobsloužené"
    1111511116
    1111611117#: lazarusidestrconsts:dlgdebugoptionspatheditordlgcaption
    … …  
    1112411125#: lazarusidestrconsts:lisrelativepaths
    1112511126msgid "Relative paths"
    11126 msgstr ""
     11127msgstr "Relativní cesty"
    1112711128
    1112811129#: lazarusidestrconsts:lislazbuildsavesettings
    1112911130msgid "Save settings"
    11130 msgstr ""
     11131msgstr "Uložit nastavení"
    1113111132
    1113211133#: lazarusidestrconsts:rsformdatafiledfm
    1113311134msgid "Form data file (*.dfm)|*.dfm"
    11134 msgstr ""
     11135msgstr "Datový soubor formuláře (*.dfm)|*.dfm"
    1113511136
    1113611137#: lazarusidestrconsts:liswlwatchlist
    … …  
    1114411145#: lazarusidestrconsts:liskmchoosekeymappingscheme
    1114511146msgid "Choose Keymapping scheme"
    11146 msgstr ""
     11147msgstr "Vyberte schéma mapování kláves"
    1114711148
    1114811149#: lazarusidestrconsts:liskmnoteallkeyswillbesettothevaluesofthechoosenscheme
    1114911150msgid "Note: All keys will be set to the values of the choosen scheme."
    11150 msgstr ""
     11151msgstr "Poznámka: Všechny klávesy budou nastaveny na hodnoty podle vybraného schéma."
    1115111152
    1115211153#: lazarusidestrconsts:liskmkeymappingscheme
    1115311154msgid "Keymapping Scheme"
    11154 msgstr ""
     11155msgstr "Schéma mapování kláves"
    1115511156
    1115611157#: lazarusidestrconsts:lisifdok
    … …  
    1117611177#: lazarusidestrconsts:lisplistfilterany
    1117711178msgid "Filter by matching any part of method"
    11178 msgstr ""
     11179msgstr "Filtrovat podle jakékoliv odpovídající části metody"
    1117911180
    1118011181#: lazarusidestrconsts:lisplistfilterstart
    1118111182msgid "Filter by matching with start of method"
    11182 msgstr ""
     11183msgstr "Filtrovat podle začátku metody"
    1118311184
    1118411185#: lazarusidestrconsts:lisplistchangefont
    … …  
    1122011221#: lazarusidestrconsts:rscreatenewdefine
    1122111222msgid "Create new define"
    11222 msgstr ""
     11223msgstr "Vytvořit novou definici"
    1122311224
    1122411225#: lazarusidestrconsts:rsconditionaldefines
    … …  
    1125211253#: lazarusidestrconsts:lispckoptsthispackageprovidesthesameasthefollowingpackages
    1125311254msgid "This package provides the same as the following packages:"
    11254 msgstr ""
     11255msgstr "Tento balíček poskytuje to samé jako následující balíčky:"
    1125511256
    1125611257#: lazarusidestrconsts:lispldpackagelinks
    1125711258msgid "Package Links"
    11258 msgstr ""
     11259msgstr "Odakzy balíčku"
    1125911260
    1126011261#: lazarusidestrconsts:lissamoverridefirstselected
    1126111262msgid "Override first selected"
    11262 msgstr ""
     11263msgstr "Přepsat první vybraný"
    1126311264
    1126411265#: lazarusidestrconsts:lissamoverrideallselected
    … …  
    1127611277#: lazarusidestrconsts:lisvsrsearchorfilterphrasesinlist
    1127711278msgid "Search or Filter Phrases In List"
    11278 msgstr ""
     11279msgstr "Hledat nebo filtrovat fráze v seznamu"
    1127911280
    1128011281#: lazarusidestrconsts:lisvsrforwardsearch
    1128111282msgid "Forward Search"
    11282 msgstr ""
     11283msgstr "Dopředné hledání"
    1128311284
    1128411285#: lazarusidestrconsts:lisvsrresetresultlist
    1128511286msgid "Reset Result List"
    11286 msgstr ""
     11287msgstr "Resetovat seznam výsledků"
    1128711288
    1128811289#: lazarusidestrconsts:listddinserttodo
    1128911290msgid "Insert ToDo"
    11290 msgstr ""
     11291msgstr "Vložit úkol"
    1129111292
    1129211293#: lazarusidestrconsts:lisabcreationfailed
    … …  
    1129611297#: lazarusidestrconsts:lisunabletowrite2
    1129711298msgid "Unable to write %s%s%s"
    11298 msgstr ""
     11299msgstr "Nelze zapisovat do %s%s%s"
    1129911300
    1130011301#: lazarusidestrconsts:liserrorloadingfrom
    … …  
    1131611317#: lazarusidestrconsts:lisunabletowritexmlstreamtoerror
    1131711318msgid "Unable to write xml stream to %s%sError: %s"
    11318 msgstr ""
     11319msgstr "Nelze zapsat xml proud do %s%sChyba: %s"
    1131911320
    1132011321#: lazarusidestrconsts:lisfileissymlink
    … …  
    1132411325#: lazarusidestrconsts:listhefileisasymlinkopeninstead
    1132511326msgid "The file %s%s%s is a symlink.%s%sOpen %s%s%s instead?"
    11326 msgstr ""
     11327msgstr "Soubor %s%s%s je symbolický odkaz.%s%sOtevřít místo něj %s%s%s?"
    1132711328
    1132811329#: lazarusidestrconsts:lisopentarget
    1132911330msgid "Open target"
    11330 msgstr ""
     11331msgstr "Otevřít cíl"
    1133111332
    1133211333#: lazarusidestrconsts:lisopensymlink
    1133311334msgid "Open symlink"
    11334 msgstr ""
     11335msgstr "Otevřít symbolický odkaz"
    1133511336
    1133611337#: lazarusidestrconsts:lisfilelinkerror
    … …  
    1134811349#: lazarusidestrconsts:lisunabletoupdatethebinaryresourcefilefromfilethetext
    1134911350msgid "Unable to update the binary resource file%s%s%sfrom file the text resource file%s%s%s%sProbably the text file is corrupt."
    11350 msgstr ""
     11351msgstr "Nelze aktualizovat binární zdrojový soubor%s%s%sz textového zdrojového souboru%s%s%s%sTextový soubor"
    1135111352
    1135211353#: lazarusidestrconsts:listhecodetoolsfoundanerror
    1135311354msgid "The codetools found an error:%s%s%s"
    11354 msgstr ""
     11355msgstr "Chyba nalezená codetools:%s%s%s"
    1135511356
    1135611357#: lazarusidestrconsts:lisignoreandcontinue
    1135711358msgid "Ignore and continue"
    11358 msgstr ""
     11359msgstr "Ignorovat a pokračovat"
    1135911360
    1136011361#: lazarusidestrconsts:lisnotimplemented
    1136111362msgid "Not implemented"
    11362 msgstr ""
     11363msgstr "Doposud neimplementováno"
    1136311364
    1136411365#: lazarusidestrconsts:lisnotimplementedyet
    1136511366msgid "Not implemented yet:%s%s"
    11366 msgstr ""
     11367msgstr "Zatím neimplementováno:%s%s"
    1136711368
    1136811369#: lazarusidestrconsts:lisopenfile2
    … …  
    1145211453#: lazarusidestrconsts:lisenableallinsamesource
    1145311454msgid "Enable All in same source"
    11454 msgstr ""
     11455msgstr "Povolit vše ve stejném zdroji"
    1145511456
    1145611457#: lazarusidestrconsts:lisdeleteallinsamesource
    1145711458msgid "Delete All in same source"
    11458 msgstr ""
     11459msgstr "Smazat vše ve stejném zdroji"
    1145911460
    1146011461#: lazarusidestrconsts:lisnotimplementedyet2
    1146111462msgid "Not implemented yet."
    11462 msgstr ""
     11463msgstr "Doposud neimplementováno."
    1146311464
    1146411465#: lazarusidestrconsts:lisdeleteallselectedbreakpoints
    1146511466msgid "Delete all selected breakpoints?"
    11466 msgstr ""
     11467msgstr "Odebrat všechny vybrané body přerušení?"
    1146711468
    1146811469#: lazarusidestrconsts:lisdeletebreakpointatline
    … …  
    1147211473#: lazarusidestrconsts:lisdeleteallbreakpoints
    1147311474msgid "Delete all breakpoints?"
    11474 msgstr ""
     11475msgstr "Smazat všechny body přerušení?"
    1147511476
    1147611477#: lazarusidestrconsts:lisdeleteallbreakpoints2
    1147711478msgid "Delete all breakpoints in file %s%s%s?"
    11478 msgstr ""
     11479msgstr "Smazat všechny body přerušení v souboru %s%s%s?"
    1147911480
    1148011481#: lazarusidestrconsts:lisbreak
    … …  
    1149611497#: lazarusidestrconsts:lisinvalidoff
    1149711498msgid "Invalid (Off)"
    11498 msgstr ""
     11499msgstr "Neplatný (Vypnuto)"
    1149911500
    1150011501#: lazarusidestrconsts:lisinvalidon
    1150111502msgid "Invalid (On)"
    11502 msgstr ""
     11503msgstr "Neplatný (Zapnuto)"
    1150311504
    1150411505#: lazarusidestrconsts:lisoff
    … …  
    1151611517#: lazarusidestrconsts:lisgrowtolarges
    1151711518msgid "Grow to Largest"
    11518 msgstr ""
     11519msgstr "Narůst na největší"
    1151911520
    1152011521#: lazarusidestrconsts:liswatchpropert
    … …  
    1152811529#: lazarusidestrconsts:lisrepeatcount
    1152911530msgid "Repeat Count:"
    11530 msgstr ""
     11531msgstr "Počet opakování:"
    1153111532
    1153211533#: lazarusidestrconsts:lisdigits
    … …  
    1158811589#: lazarusidestrconsts:liseteditcustomscanners
    1158911590msgid "Edit custom scanners (%s)"
    11590 msgstr ""
     11591msgstr "Upravit vlastní prohledávače (%s)"
    1159111592
    1159211593#: lazarusidestrconsts:lispwnewproject
    … …  
    1159611597#: lazarusidestrconsts:lispwopenproject
    1159711598msgid "Open Project"
    11598 msgstr ""
     11599msgstr "Otevřít projekt"
    1159911600
    1160011601#: lazarusidestrconsts:lispwconvertproject
    … …  
    1160411605#: lazarusidestrconsts:lisinvalidcircle
    1160511606msgid "Invalid circle"
    11606 msgstr ""
     11607msgstr "Neplatný kruh"
    1160711608
    1160811609#: lazarusidestrconsts:lisisathiscircledependencyisnotallowed
    … …  
    1161211613#: lazarusidestrconsts:listhecomponentcannotbedeletedbecauseitisnotownedby
    1161311614msgid "The component %s can not be deleted, because it is not owned by %s."
    11614 msgstr ""
     11615msgstr "Komponenta %s nemůže být smazána, protože není vlastněna %s."
    1161511616
    1161611617#: lazarusidestrconsts:lisfilter2
    … …  
    1162011621#: lazarusidestrconsts:lisfindkeycombination
    1162111622msgid "Find key combination"
    11622 msgstr ""
     11623msgstr "Najít kombinaci kláves"
    1162311624
    1162411625#: lazarusidestrconsts:lisinvalidpublishingdirectory
    … …  
    1166811669#: lazarusidestrconsts:lismissingidentifiers
    1166911670msgid "Missing identifiers"
    11670 msgstr ""
     11671msgstr "Chybějící identifikátory"
    1167111672
    1167211673#: lazarusidestrconsts:lischooseafpdoclink
    1167311674msgid "Choose a FPDoc link"
    11674 msgstr ""
     11675msgstr "Vyberte odkaz FPDoc"
    1167511676
    1167611677#: lazarusidestrconsts:lislinktarget
    … …  
    1168011681#: lazarusidestrconsts:lisexamplesidentifiertmyenumenumunitnameidentifierpac
    1168111682msgid "Examples:%sIdentifier%sTMyEnum.Enum%sUnitname.Identifier%s#PackageName.UnitName.Identifier"
    11682 msgstr ""
     11683msgstr "Příklady:%sIdentifikátor%sTMyEnum.Enum%sUnitname.Identifier%s#PackageName.UnitName.Identifier"
    1168311684
    1168411685#: lazarusidestrconsts:listitleleaveemptyfordefault
    … …  
    1168811689#: lazarusidestrconsts:lissyntaxmode
    1168911690msgid "Syntax mode"
    11690 msgstr ""
     11691msgstr "Režim sysntaxe"
    1169111692
    1169211693#: lazarusidestrconsts:lisobjectpascaldefault
    … …  
    1172011721#: lazarusidestrconsts:listoggleshowingfilenameswithfullpathorwithrelativepa
    1172111722msgid "Toggle showing filenames with full path or with relative path"
    11722 msgstr ""
     11723msgstr "Přepnout zobrazení názvů souborů s plnou cestou nebo s relativní cestou"
    1172311724
    1172411725#: lazarusidestrconsts:lisdeleteselectedfiles
    … …  
    1174211743msgstr ""
    1174311744
    11744  ""
    11745 
     11745#: lazarusidestrconsts:lisunabletocreatelinkwithtarget
     11746msgid "Unable to create link %s%s%s with target %s%s%s"
     11747msgstr ""
     11748
Note: See TracChangeset for help on using the changeset viewer.