Changeset 230 for trunk/Forms/FormCategorySelect.pas

Timestamp:

Jan 24, 2025, 11:42:58 PM (9 days ago)

Author:

chronos

Message:

• Modified: Fixed Import sources modification.
• Modified: Catogires don't have direct object references to import sources and acronym meanings.
• Modified: Updated acronyms example file.

File:

• trunk/Forms/FormCategorySelect.pas (modified) (2 diffs)

trunk/Forms/FormCategorySelect.pas

@@ -16 +16 @@
     ListBox1: TListBox;
     procedure ListBox1DblClick(Sender: TObject);
-    procedure ListBox1KeyPress(Sender: TObject; var Key: char);
+    procedure ListBox1KeyPress(Sender: TObject; var Key: Char);
   public
     AcronymDb: TAcronymDb;
@@ -39 +39 @@
 end;
 
-procedure TFormCategorySelect.ListBox1KeyPress(Sender: TObject; var Key: char);
+procedure TFormCategorySelect.ListBox1KeyPress(Sender: TObject; var Key: Char);
 begin
   if Key = #13 then ButtonOk.Click;