Changeset 17 for trunk/Forms


Ignore:
Timestamp:
May 4, 2016, 12:12:25 PM (9 years ago)
Author:
chronos
Message:
  • Added: Separate form for viewing all acronyms in list.
Location:
trunk/Forms
Files:
3 added
4 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormAcronym.lfm

    r16 r17  
    1010  OnKeyUp = FormKeyUp
    1111  OnShow = FormShow
    12   LCLVersion = '1.7'
     12  LCLVersion = '1.6.0.4'
    1313  object Label1: TLabel
    1414    Left = 8
    15     Height = 24
     15    Height = 20
    1616    Top = 16
    17     Width = 56
     17    Width = 43
    1818    Caption = 'Name:'
    1919    ParentColor = False
    … …  
    2121  object EditAcronym: TEdit
    2222    Left = 136
    23     Height = 34
     23    Height = 28
    2424    Top = 15
    2525    Width = 361
    … …  
    3030  object Label2: TLabel
    3131    Left = 8
    32     Height = 24
     32    Height = 20
    3333    Top = 49
    34     Width = 79
     34    Width = 61
    3535    Caption = 'Meaning:'
    3636    ParentColor = False
    … …  
    3838  object EditMeaning: TEdit
    3939    Left = 136
    40     Height = 34
     40    Height = 28
    4141    Top = 49
    4242    Width = 361
    … …  
    6969  object Label3: TLabel
    7070    Left = 8
    71     Height = 24
     71    Height = 20
    7272    Top = 88
    73     Width = 103
     73    Width = 79
    7474    Caption = 'Description:'
    7575    ParentColor = False
    … …  
    8686  object Label4: TLabel
    8787    Left = 12
    88     Height = 24
     88    Height = 20
    8989    Top = 208
    90     Width = 96
     90    Width = 74
    9191    Caption = 'Categories:'
    9292    ParentColor = False
    … …  
    104104    ScrollWidth = 358
    105105    TabOrder = 5
    106     TopIndex = -1
    107106  end
    108107  object Button1: TButton

  • trunk/Forms/UFormMain.lfm

    r16 r17  
    11object FormMain: TFormMain
    2   Left = 769
     2  Left = 394
    33  Height = 446
    4   Top = 342
     4  Top = 395
    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 ListViewAcronyms: TListView
    1717    Left = 8
    18     Height = 365
     18    Height = 372
    1919    Top = 40
    2020    Width = 613
    … …  
    4646  object EditSearch: TEdit
    4747    Left = 8
    48     Height = 34
     48    Height = 28
    4949    Top = 8
    5050    Width = 611
    … …  
    44244424      OnExecute = AShowCategoriesExecute
    44254425    end
     4426    object AShowAcronyms: TAction
     4427      Caption = 'Acronyms'
     4428      OnExecute = AShowAcronymsExecute
     4429    end
    44264430  end
    44274431  object PersistentForm1: TPersistentForm
    … …  
    44794483    object MenuItem20: TMenuItem
    44804484      Caption = 'View'
     4485      object MenuItem22: TMenuItem
     4486        Action = AShowAcronyms
     4487      end
    44814488      object MenuItem21: TMenuItem
    44824489        Action = AShowCategories

  • trunk/Forms/UFormMain.lrt

    r16 r17  
    1717TFORMMAIN.ASETTINGS.CAPTION=Settings
    1818TFORMMAIN.ASHOWCATEGORIES.CAPTION=Categories
     19TFORMMAIN.ASHOWACRONYMS.CAPTION=Acronyms
    1920TFORMMAIN.MENUITEM8.CAPTION=File
    2021TFORMMAIN.MENUITEMOPENRECENT.CAPTION=Open recent

  • trunk/Forms/UFormMain.pas

    r16 r17  
    1919    AAcronymRemove: TAction;
    2020    AAcronymRemoveAll: TAction;
     21    AShowAcronyms: TAction;
    2122    AShowCategories: TAction;
    2223    ASettings: TAction;
    … …  
    4849    MenuItem20: TMenuItem;
    4950    MenuItem21: TMenuItem;
     51    MenuItem22: TMenuItem;
    5052    MenuItemOpenRecent: TMenuItem;
    5153    MenuItem2: TMenuItem;
    … …  
    7577    procedure AImportExecute(Sender: TObject);
    7678    procedure ASettingsExecute(Sender: TObject);
     79    procedure AShowAcronymsExecute(Sender: TObject);
    7780    procedure AShowCategoriesExecute(Sender: TObject);
    7881    procedure AShowExecute(Sender: TObject);
    … …  
    116119
    117120uses
    118   UFormImport, UFormAcronym, UFormSettings, UFormCategories;
     121  UFormImport, UFormAcronym, UFormSettings, UFormCategories, UFormAcronyms;
    119122
    120123resourcestring
    … …  
    335338end;
    336339
     340procedure TFormMain.AShowAcronymsExecute(Sender: TObject);
     341begin
     342  FormAcronyms.ShowModal;
     343end;
     344
    337345procedure TFormMain.AShowCategoriesExecute(Sender: TObject);
    338346begin
Note: See TracChangeset for help on using the changeset viewer.