Changeset 33 for trunk/Forms


Ignore:
Timestamp:
Jul 13, 2016, 2:51:53 PM (8 years ago)
Author:
chronos
Message:
  • Added: Now import sources have categories which are merged to new imported acronym meanings.
Location:
trunk/Forms
Files:
13 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormAcronym.lfm

    r17 r33  
    122122  end
    123123  object ActionList1: TActionList
     124    Images = FormMain.ImageList1
    124125    left = 361
    125126    top = 240
    126127    object ACategoryRemove: TAction
    127128      Caption = 'Remove'
     129      ImageIndex = 4
    128130      OnExecute = ACategoryRemoveExecute
    129131    end
    130132    object ACategoryAdd: TAction
    131133      Caption = 'Add'
     134      ImageIndex = 0
    132135      OnExecute = ACategoryAddExecute
    133136    end
    134137  end
    135138  object PopupMenuCategory: TPopupMenu
     139    Images = FormMain.ImageList1
    136140    left = 192
    137141    top = 244
     142    object MenuItem2: TMenuItem
     143      Action = ACategoryAdd
     144    end
     145    object MenuItem1: TMenuItem
     146      Action = ACategoryRemove
     147    end
    138148  end
    139149end

  • trunk/Forms/UFormAcronym.pas

    r16 r33  
    2929    ListBox1: TListBox;
    3030    MemoDescription: TMemo;
     31    MenuItem1: TMenuItem;
     32    MenuItem2: TMenuItem;
    3133    PopupMenuCategory: TPopupMenu;
    3234    procedure ACategoryAddExecute(Sender: TObject);
    … …  
    5254uses
    5355  UFormMain, UFormCategorySelect;
    54 
    55 resourcestring
    56   SCategory = 'Category';
    57   SRemoveCategory = 'Remove categories';
    58   SRemoveCategoryQuery = 'Do you really want to remove selected categories?';
    5956
    6057{ TFormAcronym }

  • trunk/Forms/UFormCategorySelect.lfm

    r13 r33  
    88  ClientWidth = 794
    99  OnShow = FormShow
    10   LCLVersion = '1.7'
     10  LCLVersion = '1.6.0.4'
    1111  object ListBox1: TListBox
    1212    Left = 16
    … …  
    1717    ItemHeight = 0
    1818    MultiSelect = True
     19    OnDblClick = ListBox1DblClick
     20    OnKeyPress = ListBox1KeyPress
    1921    ScrollWidth = 762
    2022    TabOrder = 0
    21     TopIndex = -1
    2223  end
    2324  object ButtonOk: TButton

  • trunk/Forms/UFormCategorySelect.pas

    r13 r33  
    1818    ListBox1: TListBox;
    1919    procedure FormShow(Sender: TObject);
     20    procedure ListBox1DblClick(Sender: TObject);
     21    procedure ListBox1KeyPress(Sender: TObject; var Key: char);
    2022  private
    2123    { private declarations }
    … …  
    2628var
    2729  FormCategorySelect: TFormCategorySelect;
     30
     31resourcestring
     32  SCategory = 'Category';
     33  SRemoveCategory = 'Remove categories';
     34  SRemoveCategoryQuery = 'Do you really want to remove selected categories?';
    2835
    2936implementation
    … …  
    3845procedure TFormCategorySelect.FormShow(Sender: TObject);
    3946begin
     47end;
     48
     49procedure TFormCategorySelect.ListBox1DblClick(Sender: TObject);
     50begin
     51  ButtonOk.Click;
     52end;
     53
     54procedure TFormCategorySelect.ListBox1KeyPress(Sender: TObject; var Key: char);
     55begin
     56  if Key = #13 then ButtonOk.Click;
    4057end;
    4158

  • trunk/Forms/UFormImportSource.lfm

    r29 r33  
    11object FormImportSource: TFormImportSource
    2   Left = 506
    3   Height = 282
    4   Top = 363
    5   Width = 507
     2  Left = 492
     3  Height = 403
     4  Top = 313
     5  Width = 604
    66  Caption = 'Import source'
    7   ClientHeight = 282
    8   ClientWidth = 507
     7  ClientHeight = 403
     8  ClientWidth = 604
     9  OnShow = FormShow
    910  LCLVersion = '1.6.0.4'
    1011  object EditName: TEdit
    11     Left = 160
     12    Left = 135
    1213    Height = 28
    1314    Top = 10
    14     Width = 340
     15    Width = 455
    1516    Anchors = [akTop, akLeft, akRight]
    1617    TabOrder = 0
    … …  
    2526  end
    2627  object Label2: TLabel
    27     Left = 8
     28    Left = 10
    2829    Height = 20
    29     Top = 48
     30    Top = 49
    3031    Width = 78
    3132    Caption = 'Source URL:'
    … …  
    3334  end
    3435  object EditURL: TEdit
    35     Left = 160
     36    Left = 135
    3637    Height = 28
    3738    Top = 49
    38     Width = 340
     39    Width = 455
    3940    Anchors = [akTop, akLeft, akRight]
    4041    TabOrder = 1
    4142  end
    4243  object ButtonOk: TButton
    43     Left = 412
     44    Left = 515
    4445    Height = 25
    45     Top = 244
     46    Top = 365
    4647    Width = 75
    4748    Anchors = [akRight, akBottom]
    … …  
    5152  end
    5253  object ButtonCancel: TButton
    53     Left = 316
     54    Left = 413
    5455    Height = 25
    55     Top = 244
     56    Top = 365
    5657    Width = 75
    5758    Anchors = [akRight, akBottom]
    … …  
    6162  end
    6263  object Label3: TLabel
    63     Left = 11
     64    Left = 10
    6465    Height = 20
    6566    Top = 96
    … …  
    6970  end
    7071  object ComboBox1: TComboBox
    71     Left = 160
     72    Left = 135
    7273    Height = 28
    7374    Top = 91
    74     Width = 212
     75    Width = 334
    7576    Anchors = [akTop, akLeft, akRight]
    7677    ItemHeight = 20
    … …  
    7980  end
    8081  object ButtonShowFormat: TButton
    81     Left = 380
     82    Left = 477
    8283    Height = 25
    8384    Top = 91
    84     Width = 120
     85    Width = 112
    8586    Anchors = [akTop, akRight]
    8687    Caption = 'Configure'
    … …  
    8990  end
    9091  object CheckBoxEnabled: TCheckBox
    91     Left = 11
     92    Left = 10
    9293    Height = 24
    93     Top = 136
     94    Top = 128
    9495    Width = 78
    9596    Caption = 'Enabled'
    9697    TabOrder = 6
    9798  end
     99  object Label4: TLabel
     100    Left = 10
     101    Height = 20
     102    Top = 160
     103    Width = 74
     104    Caption = 'Categories:'
     105    ParentColor = False
     106  end
     107  object ListBox1: TListBox
     108    Left = 135
     109    Height = 141
     110    Top = 160
     111    Width = 455
     112    Anchors = [akTop, akLeft, akRight]
     113    ItemHeight = 0
     114    MultiSelect = True
     115    PopupMenu = PopupMenuCategory
     116    ScrollWidth = 358
     117    TabOrder = 7
     118  end
     119  object Button1: TButton
     120    Left = 135
     121    Height = 25
     122    Top = 312
     123    Width = 75
     124    Action = ACategoryAdd
     125    TabOrder = 8
     126  end
     127  object Button2: TButton
     128    Left = 231
     129    Height = 25
     130    Top = 312
     131    Width = 75
     132    Action = ACategoryRemove
     133    TabOrder = 9
     134  end
     135  object Bevel1: TBevel
     136    Left = 10
     137    Height = 2
     138    Top = 352
     139    Width = 580
     140    Anchors = [akLeft, akBottom]
     141  end
     142  object ActionList1: TActionList
     143    Images = FormMain.ImageList1
     144    left = 384
     145    top = 208
     146    object ACategoryRemove: TAction
     147      Caption = 'Remove'
     148      ImageIndex = 4
     149      OnExecute = ACategoryRemoveExecute
     150    end
     151    object ACategoryAdd: TAction
     152      Caption = 'Add'
     153      ImageIndex = 0
     154      OnExecute = ACategoryAddExecute
     155    end
     156  end
     157  object PopupMenuCategory: TPopupMenu
     158    Images = FormMain.ImageList1
     159    left = 208
     160    top = 208
     161    object MenuItem2: TMenuItem
     162      Action = ACategoryAdd
     163    end
     164    object MenuItem1: TMenuItem
     165      Action = ACategoryRemove
     166    end
     167  end
    98168end

  • trunk/Forms/UFormImportSource.lrt

    r29 r33  
    77TFORMIMPORTSOURCE.BUTTONSHOWFORMAT.CAPTION=Configure
    88TFORMIMPORTSOURCE.CHECKBOXENABLED.CAPTION=Enabled
     9TFORMIMPORTSOURCE.LABEL4.CAPTION=Categories:
     10TFORMIMPORTSOURCE.ACATEGORYREMOVE.CAPTION=Remove
     11TFORMIMPORTSOURCE.ACATEGORYADD.CAPTION=Add

  • trunk/Forms/UFormImportSource.pas

    r29 r33  
    77uses
    88  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
    9   UAcronym;
     9  ActnList, Menus, ExtCtrls, UAcronym;
    1010
    1111type
    … …  
    1414
    1515  TFormImportSource = class(TForm)
     16    ACategoryAdd: TAction;
     17    ACategoryRemove: TAction;
     18    ActionList1: TActionList;
     19    Bevel1: TBevel;
     20    Button1: TButton;
     21    Button2: TButton;
    1622    ButtonShowFormat: TButton;
    1723    ButtonOk: TButton;
    … …  
    2430    Label2: TLabel;
    2531    Label3: TLabel;
     32    Label4: TLabel;
     33    ListBox1: TListBox;
     34    MenuItem1: TMenuItem;
     35    MenuItem2: TMenuItem;
     36    PopupMenuCategory: TPopupMenu;
     37    procedure ACategoryAddExecute(Sender: TObject);
     38    procedure ACategoryRemoveExecute(Sender: TObject);
    2639    procedure ButtonShowFormatClick(Sender: TObject);
     40    procedure FormShow(Sender: TObject);
    2741  private
    2842    { private declarations }
    2943  public
     44    procedure UpdateInterface;
    3045    procedure Load(ImportSource: TImportSource);
    3146    procedure Save(ImportSource: TImportSource);
    … …  
    4055
    4156uses
    42   UFormMain, UFormImportFormat;
     57  UFormMain, UFormImportFormat, UFormCategorySelect;
    4358
    4459{ TFormImportSource }
    … …  
    6277end;
    6378
     79procedure TFormImportSource.FormShow(Sender: TObject);
     80begin
     81  UpdateInterface;
     82end;
     83
     84procedure TFormImportSource.UpdateInterface;
     85begin
     86  ACategoryRemove.Enabled := ListBox1.ItemIndex <> -1;
     87end;
     88
     89procedure TFormImportSource.ACategoryAddExecute(Sender: TObject);
     90var
     91  I: Integer;
     92begin
     93  FormCategorySelect.Load(ListBox1.Items);
     94  if FormCategorySelect.ShowModal = mrOk then begin
     95    for I := 0 to FormCategorySelect.ListBox1.Count - 1 do
     96      if FormCategorySelect.ListBox1.Selected[I] then begin
     97        ListBox1.Items.AddObject(FormCategorySelect.ListBox1.Items[I], FormCategorySelect.ListBox1.Items.Objects[I]);
     98      end;
     99  end;
     100end;
     101
     102procedure TFormImportSource.ACategoryRemoveExecute(Sender: TObject);
     103var
     104  I: Integer;
     105begin
     106  if MessageDlg(SRemoveCategory, SRemoveCategoryQuery,
     107  TMsgDlgType.mtConfirmation, [mbCancel, mbOk], 0) = mrOk then begin
     108    for I := ListBox1.Items.Count - 1 downto 0 do
     109    if ListBox1.Selected[I] then
     110      ListBox1.Items.Delete(I);
     111    UpdateInterface;
     112  end;
     113end;
     114
    64115procedure TFormImportSource.Load(ImportSource: TImportSource);
    65116var
    … …  
    80131    ComboBox1.ItemIndex := 0;
    81132  CheckBoxEnabled.Checked := ImportSource.Enabled;
     133  ImportSource.Categories.AssignToStrings(ListBox1.Items);
    82134end;
    83135
    … …  
    88140  ImportSource.Format := TImportFormat(ComboBox1.Items.Objects[ComboBox1.ItemIndex]);
    89141  ImportSource.Enabled := CheckBoxEnabled.Checked;
     142  ImportSource.Categories.AssignFromStrings(ListBox1.Items);
    90143end;
    91144

  • trunk/Forms/UFormImportSources.lfm

    r30 r33  
    33  Height = 414
    44  Top = 327
    5   Width = 591
     5  Width = 812
    66  Caption = 'Import sources'
    77  ClientHeight = 414
    8   ClientWidth = 591
     8  ClientWidth = 812
    99  OnShow = FormShow
    1010  LCLVersion = '1.6.0.4'
    … …  
    1313    Height = 398
    1414    Top = 8
    15     Width = 577
     15    Width = 798
    1616    Anchors = [akTop, akLeft, akRight, akBottom]
    1717    Checkboxes = True
    … …  
    2323      item
    2424        Caption = 'URL'
    25         Width = 407
     25        Width = 250
     26      end   
     27      item
     28        Caption = 'Count'
     29        Width = 70
     30      end   
     31      item
     32        Caption = 'Categories'
     33        Width = 200
    2634      end>
    2735    MultiSelect = True
    … …  
    6068    object AProcess: TAction
    6169      Caption = 'Process'
     70      ImageIndex = 5
    6271      OnExecute = AProcessExecute
    6372    end
    … …  
    6978    object MenuItem1: TMenuItem
    7079      Action = AAdd
     80      Bitmap.Data = {
     81        36040000424D3604000000000000360000002800000010000000100000000100
     82        2000000000000004000064000000640000000000000000000000000000000000
     83        0000000000000000000000000000000000000000000000000000000000000000
     84        0000000000000000000000000000000000000000000000000000000000000000
     85        000000000000000000000000000000000000D4D4D4FFB2B2B2FFB2B2B2FFD4D4
     86        D4FF000000000000000000000000000000000000000000000000000000000000
     87        0000000000000000000000000000709B70FF004A00FF004800FF4E764EFFB2B2
     88        B2FF000000000000000000000000000000000000000000000000000000000000
     89        0000000000000000000000000000004E00FF00C800FF00C400FF004800FFB2B2
     90        B2FF000000000000000000000000000000000000000000000000000000000000
     91        0000000000000000000000000000005000FF00CA00FF00C600FF004A00FFB2B2
     92        B2FF000000000000000000000000000000000000000000000000000000000000
     93        0000000000000000000000000000005300FF00CE00FF00CA00FF004C00FFB2B2
     94        B2FF00000000000000000000000000000000000000000000000000000000D4D4
     95        D4FFB2B2B2FFB2B2B2FFB2B2B2FF005400FF00D200FF00CE00FF004E00FFB2B2
     96        B2FFB2B2B2FFB2B2B2FFB2B2B2FFB2B2B2FFD4D4D4FF0000000070A670FF005E
     97        00FF005C00FF005A00FF005800FF005600FF00D600FF00D000FF005000FF004E
     98        00FF004C00FF004A00FF004A00FF4E764EFFB2B2B2FF00000000006200FF8CFE
     99        8CFF00EA00FF00E600FF00E200FF00DE00FF00DA00FF00D400FF00D000FF00CC
     100        00FF00C800FF00C400FF00C200FF004800FFB2B2B2FF00000000006400FFECFF
     101        ECFF8CFE8CFF8CFE8CFF8CFE8CFF8CFE8CFF00DE00FF00D900FF00D400FF00D0
     102        00FF00CC00FF00C800FF00C400FF004A00FFD4D4D4FF0000000070A970FF0064
     103        00FF006400FF006200FF006000FF006000FF8CFE8CFF00DD00FF005800FF0056
     104        00FF005400FF005300FF005000FF709C70FF0000000000000000000000000000
     105        0000000000000000000000000000006000FF8CFE8CFF00E000FF005A00FFB2B2
     106        B2FF000000000000000000000000000000000000000000000000000000000000
     107        0000000000000000000000000000006200FF8CFE8CFF00E500FF005C00FFB2B2
     108        B2FF000000000000000000000000000000000000000000000000000000000000
     109        0000000000000000000000000000006400FF8CFE8CFF00E800FF005E00FFB2B2
     110        B2FF000000000000000000000000000000000000000000000000000000000000
     111        0000000000000000000000000000006400FFECFFECFF8CFE8CFF006000FFD4D4
     112        D4FF000000000000000000000000000000000000000000000000000000000000
     113        000000000000000000000000000070A970FF006400FF006200FF70A670FF0000
     114        0000000000000000000000000000000000000000000000000000
     115      }
    71116    end
    72117    object MenuItem2: TMenuItem
    73118      Action = AModify
     119      Bitmap.Data = {
     120        36040000424D3604000000000000360000002800000010000000100000000100
     121        2000000000000004000064000000640000000000000000000000986B37FF976A
     122        36FF966935FF966734FF956633FF946532FF946531FF936430FF92622FFF9261
     123        2EFF91602DFF90602CFF905F2BFF8F5D2AFF8E5C29FF8D5B28FF996C38FFF8F7
     124        F6FFF8F7F5FFF7F6F5FFF6F6F4FFF6F5F3FFF5F5F3FFF5F4F2FFF4F3F1FFF4F3
     125        F1FFF3F2F0FFF3F2EFFFF2F1EFFFF2F0EEFFF1F0EDFF8E5D29FF996D3AFFF9F8
     126        F7FF959594FF878787FF9B9A9AFFF7F6F4FFF6F5F3FFF6F5F3FFF5F4F2FFF4F3
     127        F1FFF4F3F1FFF3F2F0FFF3F2EFFFF2F1EFFFF2F1EEFF8F5E2AFF9A6E3BFFF9F9
     128        F8FF7C7C7CFFC4C4C4FF878787FFF7F6F5FF7A7A7AFF787878FF747474FF7171
     129        70FF6D6D6CFF696968FF656565FF616161FFF2F1EFFF905F2BFF9B6F3CFFFAF9
     130        F8FFBEBEBDFF929292FFBCBCBBFFF8F7F6FFF7F7F5FFF7F6F4FFF6F5F4FFF6F5
     131        F3FFF5F4F2FFF5F4F2FFF4F3F1FFF4F2F0FFF3F2F0FF91602DFF9C703DFFFAFA
     132        F9FFFAF9F9FFF9F9F8FFF9F8F7FFF8F8F7FFF8F7F6FFF7F7F5FFF7F6F5FFF6F5
     133        F4FFF6F5F3FFF5F4F3FFF5F4F2FFF4F3F1FFF4F3F0FF92612EFF9D723EFFFBFB
     134        FAFF9F9F9EFF7F7F7FFFAEAEADFFF9F8F7FFF8F8F7FFF8F7F6FFF7F7F5FFF7F6
     135        F5FFF6F6F4FFF6F5F3FFF5F4F3FFF5F4F2FFF4F3F1FF92622FFF9D7340FFFCFB
     136        FBFF818181FFC4C4C4FF8F8F8FFFFAF9F8FF7B7B7AFF797979FF757574FF7271
     137        71FF6D6D6DFF696969FF666665FF626261FFF5F4F2FF936430FF9E7441FFFCFC
     138        FCFFB5B5B5FF848484FFBEBDBDFFFAFAF9FFFAF9F8FFF9F9F7FFF9F8F7FFF8F8
     139        F6FFF8F7F5FFF7F6F5FFF7F6F4FFF6F5F3FFF6F5F3FF946531FF9F7542FFFDFD
     140        FCFFFCFCFCFFFCFCFBFFFBFBFAFFFBFAFAFFFAFAF9FFFAF9F8FFF9F9F8FFF9F8
     141        F7FFF8F8F6FFF8F7F6FFF7F6F5FFF7F6F4FFF6F5F4FF956633FFA07643FFFEFD
     142        FDFF8C8C8CFF525252FFA4A4A4FFFBFBFAFFFBFBFAFFFAFAF9FFFAF9F8FFF9F9
     143        F8FFF9F8F7FFF8F8F6FFF8F7F6FFF7F7F5FFF7F6F4FF966734FFA17844FFFEFE
     144        FEFF5F5F5FFF949494FF535353FFFCFCFBFF7B7B7BFF797979FF757575FF7272
     145        72FF6E6E6EFF6A6A69FF666666FF626262FFF7F7F5FF966935FFA17946FFFFFF
     146        FFFF878787FF5D5D5DFFA0A0A0FFFDFCFCFFFCFCFBFFFCFBFBFFFBFBFAFFFBFA
     147        F9FFFAFAF9FFFAF9F8FFF9F8F7FFF8F8F7FFF8F7F6FF976A36FFA27A47FFFFFF
     148        FFFFFFFFFFFFFEFEFEFFFEFEFEFFFDFDFDFFFDFDFCFFFCFCFBFFFCFBFBFFFBFB
     149        FAFFFBFAF9FFFAFAF9FFFAF9F8FFF9F9F7FFF9F8F7FF986B37FFA37B48FFBEA2
     150        7FFFBEA17EFFBDA17DFFBDA07CFFBD9F7CFFBC9F7BFFBB9E7AFFBB9D7AFFBB9D
     151        79FFBA9C78FFB99B78FFB99A77FFB89A76FFB89975FF996C39FFA37B48FFA37B
     152        48FFA27A47FFA27946FFA17845FFA07744FFA07643FF9F7542FF9E7441FF9E73
     153        40FF9D723FFF9C713EFF9C703DFF9B6F3CFF9A6E3BFF9A6D3AFF
     154      }
    74155    end
    75156    object MenuItem3: TMenuItem
    76157      Action = ARemove
     158      Bitmap.Data = {
     159        36040000424D3604000000000000360000002800000010000000100000000100
     160        2000000000000004000064000000640000000000000000000000000000000000
     161        0000000000000000000000000000000000000000000000000000000000000000
     162        0000000000000000000000000000000000000000000000000000000000000000
     163        000000000000DCDCDCFFB2B2B2FFDCDCDCFF0000000000000000000000000000
     164        000000000000DCDCDCFFB2B2B2FFDCDCDCFF0000000000000000000000000000
     165        00007979A8FF000067FF626291FFB2B2B2FFDCDCDCFF00000000000000000000
     166        00007979A8FF000050FF626291FFB2B2B2FFDCDCDCFF00000000000000008C8C
     167        BBFF00006EFF0035FFFF000068FF626291FFB2B2B2FFDCDCDCFF000000007979
     168        A8FF000054FF0015FFFF000050FF626291FFB2B2B2FF00000000000000000000
     169        72FF619BFFFF003AFFFF0035FFFF000067FF626291FFB2B2B2FF7979A8FF0000
     170        59FF001BFFFF0018FFFF0015FFFF000050FFDCDCDCFF00000000000000008C8C
     171        BBFF000075FF619BFFFF003AFFFF0035FFFF000067FF626291FF000061FF0023
     172        FFFF001FFFFF001BFFFF000054FF7979A8FF0000000000000000000000000000
     173        00008C8CBBFF000075FF619BFFFF003AFFFF0035FFFF000067FF002CFFFF0027
     174        FFFF0023FFFF000059FF7979A8FF000000000000000000000000000000000000
     175        0000000000008C8CBBFF000075FF619BFFFF003AFFFF0035FFFF0030FFFF002B
     176        FFFF000061FF7979A8FF00000000000000000000000000000000000000000000
     177        000000000000000000007979A8FF000075FF003EFFFF003AFFFF0035FFFF0000
     178        68FF626291FFB2B2B2FFDCDCDCFF000000000000000000000000000000000000
     179        0000000000007979A8FF00007CFF0047FFFF0042FFFF003EFFFF003AFFFF0035
     180        FFFF000068FF626291FFB2B2B2FFDCDCDCFF0000000000000000000000000000
     181        00007979A8FF000082FF004EFFFF004BFFFF0047FFFF000075FF619BFFFF003A
     182        FFFF0035FFFF000068FF626291FFB2B2B2FFDCDCDCFF00000000000000008C8C
     183        BBFF000086FF0054FFFF0052FFFF004EFFFF00007CFF7979A8FF000075FF619B
     184        FFFF003AFFFF0035FFFF000067FF626291FFB2B2B2FF00000000000000000000
     185        88FF619BFFFF0057FFFF0054FFFF000082FF7979A8FF000000008C8CBBFF0000
     186        75FF619BFFFF003AFFFF0035FFFF000068FFDCDCDCFF00000000000000008C8C
     187        BBFF000088FF619BFFFF000086FF7979A8FF0000000000000000000000008C8C
     188        BBFF000075FF619BFFFF00006EFF7979A8FF0000000000000000000000000000
     189        00008C8CBBFF000088FF8C8CBBFF000000000000000000000000000000000000
     190        00008C8CBBFF000075FF8C8CBBFF000000000000000000000000000000000000
     191        0000000000000000000000000000000000000000000000000000000000000000
     192        0000000000000000000000000000000000000000000000000000
     193      }
    77194    end
    78195    object MenuItem4: TMenuItem

  • trunk/Forms/UFormImportSources.lrt

    r28 r33  
    22TFORMIMPORTSOURCES.LISTVIEW1.COLUMNS[0].CAPTION=Name
    33TFORMIMPORTSOURCES.LISTVIEW1.COLUMNS[1].CAPTION=URL
     4TFORMIMPORTSOURCES.LISTVIEW1.COLUMNS[2].CAPTION=Count
     5TFORMIMPORTSOURCES.LISTVIEW1.COLUMNS[3].CAPTION=Categories
    46TFORMIMPORTSOURCES.AADD.CAPTION=Add
    57TFORMIMPORTSOURCES.AREMOVE.CAPTION=Remove

  • trunk/Forms/UFormImportSources.pas

    r29 r33  
    6767    Item.Data := ImportSources[Item.Index];
    6868    Item.SubItems.Add(URL);
     69    Item.SubItems.Add(IntToStr(ItemCount));
     70    Item.SubItems.Add(Categories.GetString);
    6971    Item.Checked := Enabled;
    7072  end;

  • trunk/Forms/UFormMain.lfm

    r31 r33  
    44244424    end
    44254425    object MenuItem3: TMenuItem
    4426       Action = AImport
     4426      Action = AManualImport
    44274427    end
    44284428    object MenuItem19: TMenuItem
    … …  
    45184518      OnExecute = AShowExecute
    45194519    end
    4520     object AImport: TAction
    4521       Caption = 'Import'
    4522       OnExecute = AImportExecute
     4520    object AManualImport: TAction
     4521      Caption = 'Manual import'
     4522      OnExecute = AManualImportExecute
    45234523    end
    45244524    object AFileOpen: TAction
    … …  
    50055005      Caption = 'Tools'
    50065006      object MenuItem17: TMenuItem
    5007         Action = AImport
     5007        Action = AManualImport
    50085008      end
    50095009      object MenuItem23: TMenuItem

  • trunk/Forms/UFormMain.lrt

    r30 r33  
    88TFORMMAIN.AEXIT.CAPTION=Exit
    99TFORMMAIN.ASHOW.CAPTION=Show
    10 TFORMMAIN.AIMPORT.CAPTION=Import
     10TFORMMAIN.AMANUALIMPORT.CAPTION=Manual import
    1111TFORMMAIN.AFILEOPEN.CAPTION=Open
    1212TFORMMAIN.AFILENEW.CAPTION=New

  • trunk/Forms/UFormMain.pas

    r31 r33  
    2828    AFileNew: TAction;
    2929    AFileOpen: TAction;
    30     AImport: TAction;
     30    AManualImport: TAction;
    3131    AShow: TAction;
    3232    AExit: TAction;
    … …  
    8787    procedure AFileSaveAsExecute(Sender: TObject);
    8888    procedure AFileSaveExecute(Sender: TObject);
    89     procedure AImportExecute(Sender: TObject);
     89    procedure AManualImportExecute(Sender: TObject);
    9090    procedure AProcessImportsExecute(Sender: TObject);
    9191    procedure ASettingsExecute(Sender: TObject);
    … …  
    259259end;
    260260
    261 procedure TFormMain.AImportExecute(Sender: TObject);
     261procedure TFormMain.AManualImportExecute(Sender: TObject);
    262262begin
    263263  FormImport.ShowModal;
    … …  
    503503  AFileSave.Enabled := Assigned(AcronymDb) and AcronymDb.Modified;
    504504  AFileSaveAs.Enabled := Assigned(AcronymDb);
    505   AImport.Enabled := Assigned(AcronymDb);
     505  AManualImport.Enabled := Assigned(AcronymDb);
    506506  AShowCategories.Enabled := Assigned(AcronymDb);
    507507  AShowAcronyms.Enabled := Assigned(AcronymDb);
Note: See TracChangeset for help on using the changeset viewer.