Changeset 6 for tools/Lazarus translator


Ignore:
Timestamp:
Jan 14, 2009, 8:20:25 AM (16 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ů.
Location:
tools/Lazarus translator
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • 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('');
Note: See TracChangeset for help on using the changeset viewer.