|
From: <wp...@us...> - 2009-08-19 16:06:33
|
Revision: 850
http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=850&view=rev
Author: wp2udk
Date: 2009-08-19 16:06:24 +0000 (Wed, 19 Aug 2009)
Log Message:
-----------
Fix for Access Violation when trying to edit an attribute when not Published Section/Visibility is present in the class.
Modified Paths:
--------------
trunk/Source/Design/InstantAttributeEditor.pas
Modified: trunk/Source/Design/InstantAttributeEditor.pas
===================================================================
--- trunk/Source/Design/InstantAttributeEditor.pas 2009-08-19 06:04:32 UTC (rev 849)
+++ trunk/Source/Design/InstantAttributeEditor.pas 2009-08-19 16:06:24 UTC (rev 850)
@@ -343,6 +343,7 @@
var
I: Integer;
S: String;
+ CodeProperty: TInstantCodeProperty;
begin
VisibilityEdit.Items.BeginUpdate;
try
@@ -360,10 +361,15 @@
if Limited then
begin
- S := GetEnumName(TypeInfo(TInstantCodeVisibility),
- Ord(Subject.FindValueProp.Visibility));
- VisibilityEdit.ItemIndex :=
- VisibilityEdit.Items.IndexOf(Copy(S, 3, length(S)));
+ CodeProperty := Subject.FindValueProp;
+ if CodeProperty <> nil then
+ begin
+ S := GetEnumName(TypeInfo(TInstantCodeVisibility),
+ Ord(CodeProperty.Visibility));
+ VisibilityEdit.ItemIndex :=
+ VisibilityEdit.Items.IndexOf(Copy(S, 3, length(S)));
+ end else
+ VisibilityEdit.ItemIndex := -1;
end
else if Assigned(VisibilityEdit.Field) then
VisibilityEdit.ItemIndex :=
|