Changeset 301 for trunk/Forms/UFormList.pas

Timestamp:

Jul 10, 2019, 11:35:10 PM (5 years ago)

Author:

chronos

Message:

• Fixed: Corrected dimensions in About dialog.
• Removed: Old Player and Players forms replaced by general item list.

File:

• trunk/Forms/UFormList.pas (modified) (3 diffs)

trunk/Forms/UFormList.pas

@@ -44 +44 @@
     procedure ListView1Data(Sender: TObject; Item: TListItem);
     procedure ListView1KeyPress(Sender: TObject; var Key: char);
+    procedure ListView1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState
+      );
     procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
       Selected: Boolean);
@@ -129 +131 @@
   FormItem := TFormItem.Create(Self);
   try
-    TempEntry.Name := SNew + ' ' + LowerCase(List.GetItemClass.GetClassName);
+    TempEntry.Name := List.GetNextAvailableName(SNew + ' ' + LowerCase(List.GetItemClass.GetClassName));
     FormItem.Item := TempEntry;
     if FormItem.ShowModal = mrOk then begin
@@ -250 +252 @@
 end;
 
+procedure TFormList.ListView1KeyUp(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
+begin
+  if Key = 45 then AAdd.Execute;
+  if Key = 46 then ARemove.Execute;
+end;
+
 procedure TFormList.ListView1SelectItem(Sender: TObject;
   Item: TListItem; Selected: Boolean);