paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 07:59:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE, fieldsEditor: show a message if a field cannot be created, issue #26867

Browse Source 
git-svn-id: trunk@48768 -
This commit is contained in:
jesus 2015-04-17 07:15:12 +00:00
parent d1c8efd0c4
commit 8f0c91d834
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/ideintf/newfield.pas
View File

@ -278,11 +278,14 @@ begin
0: begin //Create data field 0: begin //Create data field
fldType := TFieldType(PtrUInt(SelectType.Items.Objects[SelectType.ItemIndex])); fldType := TFieldType(PtrUInt(SelectType.Items.Objects[SelectType.ItemIndex]));
NewField := CreateField(fldType, CheckName(EditName.Text)); NewField := CreateField(fldType, CheckName(EditName.Text));
if NewField<>nil then begin
NewField.Calculated := False; NewField.Calculated := False;
NewField.FieldKind := fkData; NewField.FieldKind := fkData;
FDesigner.PropertyEditorHook.PersistentAdded(NewField, True); FDesigner.PropertyEditorHook.PersistentAdded(NewField, True);
FDesigner.Modified; FDesigner.Modified;
end else
ShowMessage(Format(fesFieldCanTBeC, [EditName.Text]));
end; end;
1: begin //Create calc field 1: begin //Create calc field
fldType := TFieldType(PtrUInt(SelectType.Items.Objects[SelectType.ItemIndex])); fldType := TFieldType(PtrUInt(SelectType.Items.Objects[SelectType.ItemIndex]));