paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-04 18:00:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged revision(s) 48768 #8f0c91d834 from trunk:

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

git-svn-id: branches/fixes_1_4@48946 -
This commit is contained in:
maxim 2015-05-06 22:18:39 +00:00
parent 73c6d3d245
commit c6edc599a2
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/ideintf/newfield.pas
View File

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