[Instantobjects-cvscommit] SF.net SVN: instantobjects:[850] trunk/Source/Design/InstantAttributeEditor .pas

[<wp...@us...>]

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 :=