Changeset 19 for trunk


Ignore:
Timestamp:
May 4, 2016, 12:54:09 PM (9 years ago)
Author:
chronos
Message:
  • Modified: Acronyms management is not done in Acronyms window. List in main window is just for viewing.
Location:
trunk
Files:
9 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormAcronyms.lfm

    r18 r19  
    11object FormAcronyms: TFormAcronyms
    2   Left = 466
     2  Left = 424
    33  Height = 558
    4   Top = 297
     4  Top = 310
    55  Width = 740
    66  Caption = 'Acronyms'
    … …  
    2828        Width = 300
    2929      end>
     30    MultiSelect = True
    3031    OwnerData = True
     32    PopupMenu = PopupMenuAcronym
    3133    ReadOnly = True
    3234    RowSelect = True
    … …  
    3436    ViewStyle = vsReport
    3537    OnData = ListViewAcronymsData
     38    OnDblClick = ListViewAcronymsDblClick
    3639    OnResize = ListViewAcronymsResize
     40    OnSelectItem = ListViewAcronymsSelectItem
    3741  end
    3842  object ListViewFilter1: TListViewFilter
    … …  
    5357    top = 168
    5458  end
     59  object ActionList1: TActionList
     60    Images = FormMain.ImageList1
     61    left = 248
     62    top = 232
     63    object AAdd: TAction
     64      Caption = 'Add'
     65      OnExecute = AAddExecute
     66      ShortCut = 45
     67    end
     68    object AModify: TAction
     69      Caption = 'Modify'
     70      OnExecute = AModifyExecute
     71      ShortCut = 13
     72    end
     73    object ARemove: TAction
     74      Caption = 'Remove'
     75      OnExecute = ARemoveExecute
     76      ShortCut = 46
     77    end
     78    object ASelectAll: TAction
     79      Caption = 'Select all'
     80      ShortCut = 16449
     81    end
     82  end
     83  object PopupMenuAcronym: TPopupMenu
     84    Images = FormMain.ImageList1
     85    left = 248
     86    top = 296
     87    object MenuItem4: TMenuItem
     88      Action = AAdd
     89    end
     90    object MenuItem5: TMenuItem
     91      Action = AModify
     92    end
     93    object MenuItem6: TMenuItem
     94      Action = ARemove
     95    end
     96    object MenuItem7: TMenuItem
     97      Action = ASelectAll
     98    end
     99  end
    55100end

  • trunk/Forms/UFormAcronyms.lrt

    r17 r19  
    33TFORMACRONYMS.LISTVIEWACRONYMS.COLUMNS[1].CAPTION=Description
    44TFORMACRONYMS.LISTVIEWACRONYMS.COLUMNS[2].CAPTION=Categories
     5TFORMACRONYMS.AADD.CAPTION=Add
     6TFORMACRONYMS.AMODIFY.CAPTION=Modify
     7TFORMACRONYMS.AREMOVE.CAPTION=Remove
     8TFORMACRONYMS.ASELECTALL.CAPTION=Select all

  • trunk/Forms/UFormAcronyms.pas

    r18 r19  
    77uses
    88  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
    9   Menus, UListViewSort, UAcronym, LazUTF8, SpecializedList;
     9  Menus, ActnList, UListViewSort, UAcronym, LazUTF8, SpecializedList;
    1010
    1111type
    … …  
    1414
    1515  TFormAcronyms = class(TForm)
     16    AAdd: TAction;
     17    ASelectAll: TAction;
     18    AModify: TAction;
     19    ARemove: TAction;
     20    ActionList1: TActionList;
    1621    ListViewAcronyms: TListView;
    1722    ListViewFilter1: TListViewFilter;
    1823    ListViewSort1: TListViewSort;
     24    MenuItem4: TMenuItem;
     25    MenuItem5: TMenuItem;
     26    MenuItem6: TMenuItem;
     27    MenuItem7: TMenuItem;
     28    PopupMenuAcronym: TPopupMenu;
     29    procedure AAddExecute(Sender: TObject);
     30    procedure AModifyExecute(Sender: TObject);
     31    procedure ARemoveExecute(Sender: TObject);
     32    procedure ASelectAllExecute(Sender: TObject);
    1933    procedure FormShow(Sender: TObject);
    2034    procedure ListViewAcronymsData(Sender: TObject; Item: TListItem);
     35    procedure ListViewAcronymsDblClick(Sender: TObject);
    2136    procedure ListViewAcronymsResize(Sender: TObject);
     37    procedure ListViewAcronymsSelectItem(Sender: TObject; Item: TListItem;
     38      Selected: Boolean);
    2239    procedure ListViewFilter1Change(Sender: TObject);
    2340    function ListViewSort1CompareItem(Item1, Item2: TObject): Integer;
    … …  
    2542  private
    2643    procedure FilterList(List: TListObject);
     44    procedure UpdateAcronymsList;
    2745  public
    28     { public declarations }
     46    procedure UpdateInterface;
    2947  end;
    3048
    … …  
    3755
    3856uses
    39   UFormMain;
     57  UFormMain, UFormAcronym;
     58
     59resourcestring
     60  SRemoveAllAcronyms = 'Remove all acronyms';
     61  SRemoveAllAcronymsQuery = 'Do you want to remove all acronyms?';
     62  SRemoveAcronym = 'Remove acronym';
     63  SRemoveAcronymQuery = 'Do you want to remove selected acronym?';
     64
    4065
    4166{ TFormAcronyms }
    … …  
    5277end;
    5378
     79procedure TFormAcronyms.ListViewAcronymsDblClick(Sender: TObject);
     80begin
     81  AModify.Execute;
     82end;
     83
    5484procedure TFormAcronyms.ListViewAcronymsResize(Sender: TObject);
    5585begin
    … …  
    5787end;
    5888
     89procedure TFormAcronyms.ListViewAcronymsSelectItem(Sender: TObject;
     90  Item: TListItem; Selected: Boolean);
     91begin
     92  UpdateInterface;
     93end;
     94
    5995procedure TFormAcronyms.FormShow(Sender: TObject);
    6096begin
    6197  ListViewFilter1.UpdateFromListView(ListViewAcronyms);
    62   ListViewSort1.Refresh;
     98  UpdateAcronymsList;
     99end;
     100
     101procedure TFormAcronyms.AAddExecute(Sender: TObject);
     102var
     103  TempEntry: TAcronymEntry;
     104  Meaning: TAcronymMeaning;
     105  I: Integer;
     106begin
     107  TempEntry := TAcronymEntry.Create;
     108  TempEntry.Name := '';
     109  TempEntry.Meaning := '';
     110  TempEntry.Description := '';
     111  FormAcronym.Load(TempEntry);
     112  if FormAcronym.ShowModal = mrOk then begin
     113    FormAcronym.Save(TempEntry);
     114    Meaning := FormMain.AcronymDb.AddAcronym(TempEntry.Name, TempEntry.Meaning);
     115    Meaning.Description := TempEntry.Description;
     116    Meaning.Categories.AssignFromStrings(TempEntry.Categories);
     117    for I := 0 to Meaning.Categories.Count - 1 do
     118      TAcronymCategory(Meaning.Categories.Items[I]).AcronymMeanings.Add(Meaning);
     119    UpdateAcronymsList;
     120    UpdateInterface;
     121  end;
     122  TempEntry.Free;
     123end;
     124
     125procedure TFormAcronyms.AModifyExecute(Sender: TObject);
     126var
     127  TempEntry: TAcronymEntry;
     128  TempCategories: TStringList;
     129  Meaning: TAcronymMeaning;
     130  I: Integer;
     131begin
     132  if Assigned(ListViewAcronyms.Selected) then
     133  with TAcronymMeaning(ListViewAcronyms.Selected.Data) do begin
     134    TempEntry := TAcronymEntry.Create;
     135    TempEntry.Name := Acronym.Name;
     136    TempEntry.Meaning := Name;
     137    TempEntry.Description := Description;
     138    Categories.AssignToStrings(TempEntry.Categories);
     139    TempCategories := TStringList.Create;
     140    TempCategories.Assign(TempEntry.Categories);
     141    FormAcronym.Load(TempEntry);
     142    if FormAcronym.ShowModal = mrOk then begin
     143      FormAcronym.Save(TempEntry);
     144      if (TempEntry.Name <> Acronym.Name) or
     145      (TempEntry.Meaning <> Name) or
     146      (TempEntry.Description <> Description) or
     147      not FormMain.CompareStrings(TempEntry.Categories, TempCategories) then begin
     148        // TODO: Update item inplace if possible
     149        FormMain.AcronymDb.RemoveAcronym(Acronym.Name, Name);
     150        Meaning := FormMain.AcronymDb.AddAcronym(TempEntry.Name, TempEntry.Meaning);
     151        Meaning.Description := TempEntry.Description;
     152        Meaning.Categories.AssignFromStrings(TempEntry.Categories);
     153        for I := 0 to Meaning.Categories.Count - 1 do
     154          TAcronymCategory(Meaning.Categories.Items[I]).AcronymMeanings.Add(Meaning);
     155        UpdateAcronymsList;
     156        UpdateInterface;
     157      end;
     158    end;
     159    TempEntry.Free;
     160    TempCategories.Free;
     161  end;
     162end;
     163
     164procedure TFormAcronyms.ARemoveExecute(Sender: TObject);
     165var
     166  I: Integer;
     167begin
     168  if Assigned(ListViewAcronyms.Selected) then begin
     169    if MessageDlg(SRemoveAcronym, SRemoveAcronymQuery,
     170    TMsgDlgType.mtConfirmation, [mbCancel, mbOk], 0) = mrOk then begin
     171      for I := ListViewAcronyms.Items.Count - 1 downto 0 do
     172        if ListViewAcronyms.Items[I].Selected then begin
     173          ListViewAcronyms.Items[I].Selected := False;
     174          FormMain.AcronymDb.RemoveAcronym(
     175            TAcronymMeaning(ListViewAcronyms.Items[I].Data).Acronym.Name,
     176            TAcronymMeaning(ListViewAcronyms.Items[I].Data).Name);
     177        end;
     178      UpdateAcronymsList;
     179      UpdateInterface;
     180    end;
     181  end;
     182end;
     183
     184procedure TFormAcronyms.ASelectAllExecute(Sender: TObject);
     185var
     186  I: Integer;
     187begin
     188  for I := 0 to ListViewAcronyms.Items.Count - 1 do
     189    ListViewAcronyms.Items[I].Selected := True;
    63190end;
    64191
    65192procedure TFormAcronyms.ListViewFilter1Change(Sender: TObject);
    66193begin
    67   ListViewSort1.Refresh;
     194  UpdateAcronymsList;
    68195end;
    69196
    … …  
    118245end;
    119246
     247procedure TFormAcronyms.UpdateAcronymsList;
     248begin
     249  ListViewSort1.Refresh;
     250  UpdateInterface;
     251end;
     252
     253procedure TFormAcronyms.UpdateInterface;
     254begin
     255  ARemove.Enabled := Assigned(FormMain.AcronymDb) and Assigned(ListViewAcronyms.Selected);
     256  AModify.Enabled := Assigned(FormMain.AcronymDb) and Assigned(ListViewAcronyms.Selected);
     257  AAdd.Enabled := Assigned(FormMain.AcronymDb);
     258end;
     259
    120260end.
    121261

  • trunk/Forms/UFormCategories.lfm

    r14 r19  
    88  ClientWidth = 784
    99  OnShow = FormShow
    10   LCLVersion = '1.7'
     10  LCLVersion = '1.6.0.4'
    1111  object ListViewCategories: TListView
    1212    Left = 16
    … …  
    5858  end
    5959  object ActionList1: TActionList
     60    Images = FormMain.ImageList1
    6061    left = 380
    6162    top = 196
    … …  
    6364      Caption = 'Add'
    6465      OnExecute = AAddExecute
     66      ShortCut = 45
    6567    end
    6668    object ARemove: TAction
    6769      Caption = 'Remove'
    6870      OnExecute = ARemoveExecute
     71      ShortCut = 46
    6972    end
    7073    object AModify: TAction
    7174      Caption = 'Modify'
    7275      OnExecute = AModifyExecute
     76      ShortCut = 13
    7377    end
    7478  end
    7579  object PopupMenuCategory: TPopupMenu
     80    Images = FormMain.ImageList1
    7681    left = 119
    7782    top = 192

  • trunk/Forms/UFormMain.lfm

    r18 r19  
    3434      end>
    3535    OwnerData = True
    36     PopupMenu = PopupMenuAcronym
    3736    ReadOnly = True
    3837    RowSelect = True
    … …  
    4039    ViewStyle = vsReport
    4140    OnData = ListViewAcronymsData
    42     OnDblClick = ListViewAcronymsDblClick
    43     OnKeyPress = ListViewAcronymsKeyPress
    4441    OnSelectItem = ListViewAcronymsSelectItem
    4542  end
    … …  
    43544351  end
    43554352  object PopupMenuTryIcon: TPopupMenu
     4353    Images = ImageList1
    43564354    left = 80
    43574355    top = 208
    … …  
    43714369  end
    43724370  object ActionList1: TActionList
     4371    Images = ImageList1
    43734372    left = 464
    43744373    top = 144
    … …  
    43844383      Caption = 'Import'
    43854384      OnExecute = AImportExecute
    4386     end
    4387     object AAcronymAdd: TAction
    4388       Caption = 'Add'
    4389       OnExecute = AAcronymAddExecute
    4390       ShortCut = 45
    4391     end
    4392     object AAcronymModify: TAction
    4393       Caption = 'Modify'
    4394       OnExecute = AAcronymModifyExecute
    4395       ShortCut = 13
    4396     end
    4397     object AAcronymRemove: TAction
    4398       Caption = 'Remove'
    4399       OnExecute = AAcronymRemoveExecute
    4400       ShortCut = 46
    4401     end
    4402     object AAcronymRemoveAll: TAction
    4403       Caption = 'Remove all'
    4404       OnExecute = AAcronymRemoveAllExecute
    44054385    end
    44064386    object AFileOpen: TAction
    … …  
    44434423    top = 80
    44444424  end
    4445   object PopupMenuAcronym: TPopupMenu
    4446     left = 264
    4447     top = 208
    4448     object MenuItem4: TMenuItem
    4449       Action = AAcronymAdd
    4450     end
    4451     object MenuItem5: TMenuItem
    4452       Action = AAcronymModify
    4453     end
    4454     object MenuItem6: TMenuItem
    4455       Action = AAcronymRemove
    4456     end
    4457     object MenuItem7: TMenuItem
    4458       Action = AAcronymRemoveAll
    4459     end
    4460   end
    44614425  object MainMenu1: TMainMenu
     4426    Images = ImageList1
    44624427    left = 464
    44634428    top = 80
    … …  
    45364501    top = 208
    45374502  end
     4503  object ImageList1: TImageList
     4504    left = 464
     4505    top = 280
     4506  end
    45384507end

  • trunk/Forms/UFormMain.lrt

    r18 r19  
    77TFORMMAIN.ASHOW.CAPTION=Show
    88TFORMMAIN.AIMPORT.CAPTION=Import
    9 TFORMMAIN.AACRONYMADD.CAPTION=Add
    10 TFORMMAIN.AACRONYMMODIFY.CAPTION=Modify
    11 TFORMMAIN.AACRONYMREMOVE.CAPTION=Remove
    12 TFORMMAIN.AACRONYMREMOVEALL.CAPTION=Remove all
    139TFORMMAIN.AFILEOPEN.CAPTION=Open
    1410TFORMMAIN.AFILENEW.CAPTION=New

  • trunk/Forms/UFormMain.pas

    r18 r19  
    1616
    1717  TFormMain = class(TForm)
    18     AAcronymAdd: TAction;
    19     AAcronymModify: TAction;
    20     AAcronymRemove: TAction;
    21     AAcronymRemoveAll: TAction;
    2218    AShowAcronyms: TAction;
    2319    AShowCategories: TAction;
    … …  
    3430    CheckBoxExactMath: TCheckBox;
    3531    CoolTranslator1: TCoolTranslator;
     32    ImageList1: TImageList;
    3633    LastOpenedList1: TLastOpenedList;
    3734    ListViewAcronyms: TListView;
    … …  
    5653    MenuItem2: TMenuItem;
    5754    MenuItem3: TMenuItem;
    58     MenuItem4: TMenuItem;
    59     MenuItem5: TMenuItem;
    60     MenuItem6: TMenuItem;
    61     MenuItem7: TMenuItem;
    6255    MenuItem8: TMenuItem;
    6356    MenuItem9: TMenuItem;
    6457    OpenDialog1: TOpenDialog;
    6558    PersistentForm1: TPersistentForm;
    66     PopupMenuAcronym: TPopupMenu;
    6759    PopupMenuTryIcon: TPopupMenu;
    6860    SaveDialog1: TSaveDialog;
    6961    TrayIcon1: TTrayIcon;
    70     procedure AAcronymAddExecute(Sender: TObject);
    71     procedure AAcronymModifyExecute(Sender: TObject);
    72     procedure AAcronymRemoveAllExecute(Sender: TObject);
    73     procedure AAcronymRemoveExecute(Sender: TObject);
    7462    procedure AExitExecute(Sender: TObject);
    7563    procedure AFileCloseExecute(Sender: TObject);
    … …  
    9280    procedure LastOpenedList1Change(Sender: TObject);
    9381    procedure ListViewAcronymsData(Sender: TObject; Item: TListItem);
    94     procedure ListViewAcronymsDblClick(Sender: TObject);
    95     procedure ListViewAcronymsKeyPress(Sender: TObject; var Key: char);
    9682    procedure ListViewAcronymsSelectItem(Sender: TObject; Item: TListItem;
    9783      Selected: Boolean);
    … …  
    10288  private
    10389    FAlwaysOnTop: Boolean;
    104     function CompareStrings(Strings1, Strings2: TStrings): Boolean;
    105     procedure SetAlwaysOnTop(AValue: Boolean);
    106   private
    10790    RegistryContext: TRegistryContext;
    10891    ProjectClosed: Boolean;
     92    procedure SetAlwaysOnTop(AValue: Boolean);
    10993    procedure FilterList(List: TListObject);
    11094    procedure OpenRecentClick(Sender: TObject);
    … …  
    11599  public
    116100    AcronymDb: TAcronymDb;
     101    function CompareStrings(Strings1, Strings2: TStrings): Boolean;
    117102    property AlwaysOnTop: Boolean read FAlwaysOnTop write SetAlwaysOnTop;
    118103  end;
    … …  
    132117  SAppExit = 'Application exit';
    133118  SAppExitQuery = 'Acronyms were modified. Do you want to save them to file before exit?';
    134   SRemoveAllAcronyms = 'Remove all acronyms';
    135   SRemoveAllAcronymsQuery = 'Do you want to remove all acronyms?';
    136   SRemoveAcronym = 'Remove acronym';
    137   SRemoveAcronymQuery = 'Do you want to remove selected acronym?';
    138119
    139120const
    … …  
    243224end;
    244225
    245 procedure TFormMain.AAcronymModifyExecute(Sender: TObject);
    246 var
    247   TempEntry: TAcronymEntry;
    248   TempCategories: TStringList;
    249   Meaning: TAcronymMeaning;
    250   I: Integer;
    251 begin
    252   if Assigned(ListViewAcronyms.Selected) then
    253   with TAcronymMeaning(ListViewAcronyms.Selected.Data) do begin
    254     TempEntry := TAcronymEntry.Create;
    255     TempEntry.Name := Acronym.Name;
    256     TempEntry.Meaning := Name;
    257     TempEntry.Description := Description;
    258     Categories.AssignToStrings(TempEntry.Categories);
    259     TempCategories := TStringList.Create;
    260     TempCategories.Assign(TempEntry.Categories);
    261     FormAcronym.Load(TempEntry);
    262     if FormAcronym.ShowModal = mrOk then begin
    263       FormAcronym.Save(TempEntry);
    264       if (TempEntry.Name <> Acronym.Name) or
    265       (TempEntry.Meaning <> Name) or
    266       (TempEntry.Description <> Description) or
    267       not CompareStrings(TempEntry.Categories, TempCategories) then begin
    268         // TODO: Update item inplace if possible
    269         AcronymDb.RemoveAcronym(Acronym.Name, Name);
    270         Meaning := AcronymDb.AddAcronym(TempEntry.Name, TempEntry.Meaning);
    271         Meaning.Description := TempEntry.Description;
    272         Meaning.Categories.AssignFromStrings(TempEntry.Categories);
    273         for I := 0 to Meaning.Categories.Count - 1 do
    274           TAcronymCategory(Meaning.Categories.Items[I]).AcronymMeanings.Add(Meaning);
    275         UpdateAcronymsList;
    276         UpdateInterface;
    277       end;
    278     end;
    279     TempEntry.Free;
    280     TempCategories.Free;
    281   end;
    282 end;
    283 
    284 procedure TFormMain.AAcronymRemoveAllExecute(Sender: TObject);
    285 begin
    286   if MessageDlg(SRemoveAllAcronyms, SRemoveAllAcronymsQuery,
    287   TMsgDlgType.mtConfirmation, [mbCancel, mbOk], 0) = mrOk then begin
    288     AcronymDb.Acronyms.Clear;
    289     AcronymDb.Modified := True;
    290     UpdateAcronymsList;
    291     UpdateInterface;
    292   end;
    293 end;
    294 
    295 procedure TFormMain.AAcronymRemoveExecute(Sender: TObject);
    296 begin
    297   if Assigned(ListViewAcronyms.Selected) then begin
    298     if MessageDlg(SRemoveAcronym, SRemoveAcronymQuery,
    299     TMsgDlgType.mtConfirmation, [mbCancel, mbOk], 0) = mrOk then begin
    300       AcronymDb.RemoveAcronym(TAcronymMeaning(ListViewAcronyms.Selected.Data).Acronym.Name,
    301         TAcronymMeaning(ListViewAcronyms.Selected.Data).Name);
    302       UpdateAcronymsList;
    303       UpdateInterface;
    304     end;
    305   end;
    306 end;
    307 
    308 procedure TFormMain.AAcronymAddExecute(Sender: TObject);
    309 var
    310   TempEntry: TAcronymEntry;
    311   Meaning: TAcronymMeaning;
    312   I: Integer;
    313 begin
    314   TempEntry := TAcronymEntry.Create;
    315   TempEntry.Name := '';
    316   TempEntry.Meaning := '';
    317   TempEntry.Description := '';
    318   FormAcronym.Load(TempEntry);
    319   if FormAcronym.ShowModal = mrOk then begin
    320     FormAcronym.Save(TempEntry);
    321     Meaning := AcronymDb.AddAcronym(TempEntry.Name, TempEntry.Meaning);
    322     Meaning.Description := TempEntry.Description;
    323     Meaning.Categories.AssignFromStrings(TempEntry.Categories);
    324     for I := 0 to Meaning.Categories.Count - 1 do
    325       TAcronymCategory(Meaning.Categories.Items[I]).AcronymMeanings.Add(Meaning);
    326     UpdateAcronymsList;
    327     UpdateInterface;
    328   end;
    329   TempEntry.Free;
    330 end;
    331 
    332226procedure TFormMain.AImportExecute(Sender: TObject);
    333227begin
    … …  
    397291    Item.SubItems.Add(Categories.GetString);
    398292  end;
    399 end;
    400 
    401 procedure TFormMain.ListViewAcronymsDblClick(Sender: TObject);
    402 begin
    403   AAcronymModify.Execute;
    404 end;
    405 
    406 procedure TFormMain.ListViewAcronymsKeyPress(Sender: TObject; var Key: char);
    407 begin
    408293end;
    409294
    … …  
    528413begin
    529414  ListViewAcronyms.Enabled := Assigned(AcronymDb);
    530   AAcronymRemove.Enabled := Assigned(AcronymDb) and Assigned(ListViewAcronyms.Selected);
    531   AAcronymModify.Enabled := Assigned(AcronymDb) and Assigned(ListViewAcronyms.Selected);
    532   AAcronymAdd.Enabled := Assigned(AcronymDb);
    533   AAcronymRemoveAll.Enabled := Assigned(AcronymDb) and (AcronymDb.Acronyms.Count > 0);
    534415  AFileClose.Enabled := Assigned(AcronymDb);
    535416  AFileSave.Enabled := Assigned(AcronymDb) and AcronymDb.Modified;

  • trunk/Languages/AcronymDecoder.cs.po

    r18 r19  
    5252msgstr "Kategorie:"
    5353
     54#: tformacronyms.aadd.caption
     55#, fuzzy
     56msgctxt "tformacronyms.aadd.caption"
     57msgid "Add"
     58msgstr "Přidat"
     59
     60#: tformacronyms.amodify.caption
     61#, fuzzy
     62msgctxt "tformacronyms.amodify.caption"
     63msgid "Modify"
     64msgstr "Upravit"
     65
     66#: tformacronyms.aremove.caption
     67#, fuzzy
     68msgctxt "tformacronyms.aremove.caption"
     69msgid "Remove"
     70msgstr "Odebrat"
     71
     72#: tformacronyms.aselectall.caption
     73msgid "Select all"
     74msgstr "Vybrat vše"
     75
    5476#: tformacronyms.caption
    5577msgctxt "tformacronyms.caption"
    … …  
    137159msgstr "Formát dat:"
    138160
    139 #: tformmain.aacronymadd.caption
    140 msgctxt "tformmain.aacronymadd.caption"
    141 msgid "Add"
    142 msgstr "Přidat"
    143 
    144 #: tformmain.aacronymmodify.caption
    145 msgctxt "tformmain.aacronymmodify.caption"
    146 msgid "Modify"
    147 msgstr "Upravit"
    148 
    149 #: tformmain.aacronymremove.caption
    150 msgctxt "tformmain.aacronymremove.caption"
    151 msgid "Remove"
    152 msgstr "Odebrat"
    153 
    154 #: tformmain.aacronymremoveall.caption
    155 msgid "Remove all"
    156 msgstr "Odebrat vše"
    157 
    158161#: tformmain.aexit.caption
    159162msgid "Exit"
    … …  
    210213#: tformmain.checkboxexactmath.caption
    211214msgid "Exact match"
    212 msgstr ""
     215msgstr "Odpovídá přesně"
    213216
    214217#: tformmain.listviewacronyms.columns[0].caption
    … …  
    287290msgstr "Opravdu chcete odebrat vybrané kategorie?"
    288291
     292#: uformacronyms.sremoveacronym
     293#, fuzzy
     294msgctxt "uformacronyms.sremoveacronym"
     295msgid "Remove acronym"
     296msgstr "Odebrat zkratku"
     297
     298#: uformacronyms.sremoveacronymquery
     299#, fuzzy
     300msgctxt "uformacronyms.sremoveacronymquery"
     301msgid "Do you want to remove selected acronym?"
     302msgstr "Chcete odebrat vybranou zkratku?"
     303
     304#: uformacronyms.sremoveallacronyms
     305#, fuzzy
     306msgctxt "uformacronyms.sremoveallacronyms"
     307msgid "Remove all acronyms"
     308msgstr "Odebrat všechny zkratky"
     309
     310#: uformacronyms.sremoveallacronymsquery
     311#, fuzzy
     312msgctxt "uformacronyms.sremoveallacronymsquery"
     313msgid "Do you want to remove all acronyms?"
     314msgstr "Chcete odebrat všechny zkratky?"
     315
    289316#: uformcategories.scategory
    290317msgctxt "uformcategories.scategory"
    … …  
    324351msgstr "upraveno"
    325352
    326 #: uformmain.sremoveacronym
    327 msgid "Remove acronym"
    328 msgstr "Odebrat zkratku"
    329 
    330 #: uformmain.sremoveacronymquery
    331 msgid "Do you want to remove selected acronym?"
    332 msgstr "Chcete odebrat vybranou zkratku?"
    333 
    334 #: uformmain.sremoveallacronyms
    335 msgid "Remove all acronyms"
    336 msgstr "Odebrat všechny zkratky"
    337 
    338 #: uformmain.sremoveallacronymsquery
    339 msgid "Do you want to remove all acronyms?"
    340 msgstr "Chcete odebrat všechny zkratky?"
    341 

  • trunk/Languages/AcronymDecoder.po

    r18 r19  
    4242msgstr ""
    4343
     44#: tformacronyms.aadd.caption
     45msgctxt "TFORMACRONYMS.AADD.CAPTION"
     46msgid "Add"
     47msgstr ""
     48
     49#: tformacronyms.amodify.caption
     50msgctxt "TFORMACRONYMS.AMODIFY.CAPTION"
     51msgid "Modify"
     52msgstr ""
     53
     54#: tformacronyms.aremove.caption
     55msgctxt "TFORMACRONYMS.AREMOVE.CAPTION"
     56msgid "Remove"
     57msgstr ""
     58
     59#: tformacronyms.aselectall.caption
     60msgid "Select all"
     61msgstr ""
     62
    4463#: tformacronyms.caption
    4564msgctxt "tformacronyms.caption"
    … …  
    125144msgstr ""
    126145
    127 #: tformmain.aacronymadd.caption
    128 msgctxt "tformmain.aacronymadd.caption"
    129 msgid "Add"
    130 msgstr ""
    131 
    132 #: tformmain.aacronymmodify.caption
    133 msgctxt "tformmain.aacronymmodify.caption"
    134 msgid "Modify"
    135 msgstr ""
    136 
    137 #: tformmain.aacronymremove.caption
    138 msgctxt "tformmain.aacronymremove.caption"
    139 msgid "Remove"
    140 msgstr ""
    141 
    142 #: tformmain.aacronymremoveall.caption
    143 msgid "Remove all"
    144 msgstr ""
    145 
    146146#: tformmain.aexit.caption
    147147msgid "Exit"
    … …  
    275275msgstr ""
    276276
     277#: uformacronyms.sremoveacronym
     278msgctxt "uformacronyms.sremoveacronym"
     279msgid "Remove acronym"
     280msgstr ""
     281
     282#: uformacronyms.sremoveacronymquery
     283msgctxt "uformacronyms.sremoveacronymquery"
     284msgid "Do you want to remove selected acronym?"
     285msgstr ""
     286
     287#: uformacronyms.sremoveallacronyms
     288msgctxt "uformacronyms.sremoveallacronyms"
     289msgid "Remove all acronyms"
     290msgstr ""
     291
     292#: uformacronyms.sremoveallacronymsquery
     293msgctxt "uformacronyms.sremoveallacronymsquery"
     294msgid "Do you want to remove all acronyms?"
     295msgstr ""
     296
    277297#: uformcategories.scategory
    278298msgctxt "uformcategories.scategory"
    … …  
    312332msgstr ""
    313333
    314 #: uformmain.sremoveacronym
    315 msgid "Remove acronym"
    316 msgstr ""
    317 
    318 #: uformmain.sremoveacronymquery
    319 msgid "Do you want to remove selected acronym?"
    320 msgstr ""
    321 
    322 #: uformmain.sremoveallacronyms
    323 msgid "Remove all acronyms"
    324 msgstr ""
    325 
    326 #: uformmain.sremoveallacronymsquery
    327 msgid "Do you want to remove all acronyms?"
    328 msgstr ""
    329 
Note: See TracChangeset for help on using the changeset viewer.