From a627ec7e424520243ccdbbd44fb27b396297c035 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 26 Aug 2003 16:07:31 +0000
Subject: [PATCH] fixed PropDrawName style init

git-svn-id: trunk@4529 -
---
 designer/propedits.pp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/designer/propedits.pp b/designer/propedits.pp
index 2dcbe2775e..1f1da2ae99 100644
--- a/designer/propedits.pp
+++ b/designer/propedits.pp
@@ -27,7 +27,6 @@
          workaround
     -StrToInt64 has a bug. It prints infinitly "something happened"
        -> taking my own
-    -Message Dialogs on errors
 
     -many more... see XXX
 }
@@ -2227,6 +2226,7 @@ procedure TPropertyEditor.PropDrawName(ACanvas:TCanvas; const ARect:TRect;
 var
   Style : TTextStyle;
 begin
+  FillChar(Style,SizeOf(Style),0);
   With Style do begin
     Alignment := taLeftJustify;
     Layout := tlCenter;
@@ -2235,6 +2235,7 @@ begin
     ShowPrefix := False;
     WordBreak := False;
     SingleLine := True;
+    SystemFont := true;
   end;
   ACanvas.TextRect(ARect, 2,0,GetName, Style);
 end;