Changeset 50 for trunk/Forms


Ignore:
Timestamp:
Jul 25, 2016, 5:07:25 PM (8 years ago)
Author:
chronos
Message:
  • Added: New pattern action "Remove on start".
Location:
trunk/Forms
Files:
8 edited

Legend:

Unmodified
Added
Removed
  • trunk/Forms/UFormAbout.lfm

    r43 r50  
    11object FormAbout: TFormAbout
    2   Left = 561
     2  Left = 562
    33  Height = 397
    4   Top = 276
     4  Top = 277
    55  Width = 473
    66  Caption = 'About'
  • trunk/Forms/UFormAcronyms.lfm

    r45 r50  
    11object FormAcronyms: TFormAcronyms
    2   Left = 424
     2  Left = 426
    33  Height = 558
    4   Top = 310
     4  Top = 184
    55  Width = 740
    66  Caption = 'Acronyms'
     
    88  ClientWidth = 740
    99  OnShow = FormShow
    10   LCLVersion = '1.7'
     10  LCLVersion = '1.6.0.4'
    1111  object ListViewAcronyms: TListView
    1212    Left = 8
     
    2121      end   
    2222      item
    23         Caption = 'Meaning'
     23        Caption = 'Description'
    2424        Width = 300
    2525      end   
  • trunk/Forms/UFormAcronyms.lrt

    r45 r50  
    11TFORMACRONYMS.CAPTION=Acronyms
    22TFORMACRONYMS.LISTVIEWACRONYMS.COLUMNS[0].CAPTION=Name
    3 TFORMACRONYMS.LISTVIEWACRONYMS.COLUMNS[1].CAPTION=Meaning
     3TFORMACRONYMS.LISTVIEWACRONYMS.COLUMNS[1].CAPTION=Description
    44TFORMACRONYMS.LISTVIEWACRONYMS.COLUMNS[2].CAPTION=Categories
    55TFORMACRONYMS.AADD.CAPTION=Add
  • trunk/Forms/UFormImportFormat.lfm

    r47 r50  
    11object FormImportFormat: TFormImportFormat
    2   Left = 461
     2  Left = 462
    33  Height = 433
    4   Top = 321
     4  Top = 322
    55  Width = 664
    66  Caption = 'Import format'
  • trunk/Forms/UFormImportSource.lfm

    r46 r50  
    11object FormImportSource: TFormImportSource
    2   Left = 492
     2  Left = 493
    33  Height = 444
    4   Top = 313
     4  Top = 315
    55  Width = 604
    66  Caption = 'Import source'
  • trunk/Forms/UFormImportSources.lfm

    r39 r50  
    11object FormImportSources: TFormImportSources
    2   Left = 473
     2  Left = 475
    33  Height = 414
    4   Top = 327
     4  Top = 329
    55  Width = 812
    66  Caption = 'Import sources'
  • trunk/Forms/UFormMain.lfm

    r45 r50  
    11object FormMain: TFormMain
    2   Left = 427
     2  Left = 429
    33  Height = 446
    4   Top = 423
     4  Top = 342
    55  Width = 631
    66  Caption = 'Acronym Decoder'
    7   ClientHeight = 414
     7  ClientHeight = 421
    88  ClientWidth = 631
    99  Menu = MainMenu1
     
    1313  OnDestroy = FormDestroy
    1414  OnShow = FormShow
    15   LCLVersion = '1.7'
     15  LCLVersion = '1.6.0.4'
    1616  object Panel1: TPanel
    1717    Left = 0
    18     Height = 388
     18    Height = 395
    1919    Top = 26
    2020    Width = 631
    2121    Align = alClient
    2222    BevelOuter = bvNone
    23     ClientHeight = 388
     23    ClientHeight = 395
    2424    ClientWidth = 631
    2525    TabOrder = 0
    2626    object CheckBoxExactMath: TCheckBox
    2727      Left = 8
    28       Height = 28
     28      Height = 24
    2929      Top = 3
    30       Width = 129
     30      Width = 104
    3131      Caption = 'Exact match'
    3232      OnChange = CheckBoxExactMathChange
     
    4343    object ListViewAcronyms: TListView
    4444      Left = 8
    45       Height = 316
     45      Height = 323
    4646      Top = 64
    4747      Width = 616
  • trunk/Forms/UFormMain.pas

    r45 r50  
    139139resourcestring
    140140  SAddedCount = 'Imported %d acronyms';
     141  SProcessImportSources = 'Process import sources';
    141142
    142143
     
    274275begin
    275276  ImportTotalItemCount := 0;
    276   JobProgressView1.AddJob('Process import sources', ProcessImportsJob);
     277  JobProgressView1.AddJob(SProcessImportSources, ProcessImportsJob);
    277278  JobProgressView1.Start;
    278279  ShowMessage(Format(SAddedCount, [ImportTotalItemCount]));
Note: See TracChangeset for help on using the changeset viewer.