From c2ef0a248a6cfda7f0106228f1b2b7f61a75e1d6 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 18 Aug 2002 04:57:00 +0000
Subject: [PATCH] fixed readonly of properties

git-svn-id: trunk@2733 -
---
 designer/graphpropedits.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/designer/graphpropedits.pas b/designer/graphpropedits.pas
index 801283e00f..38f1912d5e 100644
--- a/designer/graphpropedits.pas
+++ b/designer/graphpropedits.pas
@@ -803,7 +803,6 @@ begin
   FontDialog := TFontDialog.Create(Application);
   try
     FontDialog.Font := TFont(GetOrdValue);
-    //FontDialog.HelpContext := hcDFontEditor;
     FontDialog.Options := FontDialog.Options + [fdShowHelp, fdForceFontExist];
     if FontDialog.Execute then
       SetOrdValue(Longint(FontDialog.Font));
@@ -818,8 +817,9 @@ var
 begin
   Result := [paMultiSelect, paSubProperties, paDialog, paReadOnly];
   AComponent:=GetComponent(0);
-  if (AComponent<>nil) and (AComponent is TControl) then
-    Include(Result,paReadOnlySubProperties);
+  if (AComponent<>nil) and (AComponent is TControl)
+  and (not (AComponent is TStaticText)) then
+    Result:=Result+[paDisableSubProperties]-[paDialog];
 end;