Changeset 391 for trunk/Packages/Common/Forms/FormList.pas
- Timestamp:
- Jan 5, 2025, 9:08:52 PM (3 days ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Packages/Common/Forms/FormList.pas
r373 r391 72 72 SRemoveItems = 'Remove items'; 73 73 SRemoveItemsQuery = 'Do you want to remove selected items?'; 74 SNew = 'New';75 74 76 75 { TFormList } … … 129 128 FormItem := TFormItem.Create(Self); 130 129 try 131 TempEntry.Name := FList.GetNextAvailableName( SNew + ' ' + LowerCase(List.GetName));130 TempEntry.Name := FList.GetNextAvailableName(List.GetName); 132 131 FormItem.Item := TempEntry; 133 132 if FormItem.ShowModal = mrOk then begin
Note:
See TracChangeset
for help on using the changeset viewer.