Refactor column "Attribute" of the properties' s grid to use BOOL_STR constant in view_helper.pas.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5272 8e941d3f-bd1b-0410-a28a-d453659cc2b4

wst/trunk/type_lib_edtr/ufrecordedit.lfm

@@ -8,7 +8,7 @@ object fRecordEdit: TfRecordEdit
   ClientHeight = 542
   ClientWidth = 559
   Position = poDesktopCenter
-  LCLVersion = '1.2.2.0'
+  LCLVersion = '1.6.1.0'
   object PC: TPageControl
     Left = 0
     Height = 492
@@ -21,19 +21,19 @@ object fRecordEdit: TfRecordEdit
     OnChange = PCChange
     object TabSheet1: TTabSheet
       Caption = 'Record Type'
-      ClientHeight = 464
+      ClientHeight = 466
       ClientWidth = 551
       object Label1: TLabel
         Left = 20
-        Height = 15
+        Height = 13
         Top = 34
-        Width = 32
+        Width = 27
         Caption = 'Name'
         ParentColor = False
       end
       object edtName: TEdit
         Left = 76
-        Height = 23
+        Height = 21
         Top = 34
         Width = 451
         Anchors = [akTop, akLeft, akRight]
@@ -41,17 +41,17 @@ object fRecordEdit: TfRecordEdit
       end
       object GroupBox1: TGroupBox
         Left = 20
-        Height = 318
+        Height = 320
         Top = 82
         Width = 507
         Anchors = [akTop, akLeft, akRight, akBottom]
         Caption = '  Fields  '
-        ClientHeight = 300
+        ClientHeight = 302
         ClientWidth = 503
         TabOrder = 1
         object edtFields: TListView
           Left = 0
-          Height = 300
+          Height = 302
           Top = 0
           Width = 503
           Align = alClient
@@ -80,7 +80,7 @@ object fRecordEdit: TfRecordEdit
       object Button3: TButton
         Left = 20
         Height = 25
-        Top = 416
+        Top = 418
         Width = 100
         Action = actPropAdd
         Anchors = [akLeft, akBottom]
@@ -90,7 +90,7 @@ object fRecordEdit: TfRecordEdit
       object Button4: TButton
         Left = 132
         Height = 25
-        Top = 416
+        Top = 418
         Width = 100
         Action = actPropEdit
         Anchors = [akLeft, akBottom]
@@ -100,7 +100,7 @@ object fRecordEdit: TfRecordEdit
       object Button5: TButton
         Left = 244
         Height = 25
-        Top = 416
+        Top = 418
         Width = 100
         Action = actPropDelete
         Anchors = [akLeft, akBottom]
@@ -110,7 +110,7 @@ object fRecordEdit: TfRecordEdit
       object Button7: TButton
         Left = 383
         Height = 25
-        Top = 416
+        Top = 418
         Width = 70
         Action = actMoveUp
         Anchors = [akRight, akBottom]
@@ -120,7 +120,7 @@ object fRecordEdit: TfRecordEdit
       object Button8: TButton
         Left = 458
         Height = 25
-        Top = 416
+        Top = 418
         Width = 70
         Action = actMoveDown
         Anchors = [akRight, akBottom]
@@ -477,7 +477,6 @@ object fRecordEdit: TfRecordEdit
         MouseSelActions = <>
         VisibleSpecialChars = [vscSpace, vscTabAtLast]
         ReadOnly = True
-        SelectedColor.FrameEdges = sfeAround
         SelectedColor.BackPriority = 50
         SelectedColor.ForePriority = 50
         SelectedColor.FramePriority = 50
@@ -485,23 +484,17 @@ object fRecordEdit: TfRecordEdit
         SelectedColor.ItalicPriority = 50
         SelectedColor.UnderlinePriority = 50
         SelectedColor.StrikeOutPriority = 50
-        IncrementColor.FrameEdges = sfeAround
-        HighlightAllColor.FrameEdges = sfeAround
         BracketHighlightStyle = sbhsBoth
         BracketMatchColor.Background = clNone
         BracketMatchColor.Foreground = clNone
-        BracketMatchColor.FrameEdges = sfeAround
         BracketMatchColor.Style = [fsBold]
         FoldedCodeColor.Background = clNone
         FoldedCodeColor.Foreground = clGray
         FoldedCodeColor.FrameColor = clGray
-        FoldedCodeColor.FrameEdges = sfeAround
         MouseLinkColor.Background = clNone
         MouseLinkColor.Foreground = clBlue
-        MouseLinkColor.FrameEdges = sfeAround
         LineHighlightColor.Background = clNone
         LineHighlightColor.Foreground = clNone
-        LineHighlightColor.FrameEdges = sfeAround
         inline SynLeftGutterPartList1: TSynGutterPartList
           object SynGutterMarks1: TSynGutterMarks
             Width = 24
@@ -512,7 +505,6 @@ object fRecordEdit: TfRecordEdit
             MouseActions = <>
             MarkupInfo.Background = clBtnFace
             MarkupInfo.Foreground = clNone
-            MarkupInfo.FrameEdges = sfeAround
             DigitCount = 2
             ShowOnlyLineNumbersMultiplesOf = 1
             ZeroStart = False
@@ -529,13 +521,11 @@ object fRecordEdit: TfRecordEdit
             MouseActions = <>
             MarkupInfo.Background = clWhite
             MarkupInfo.Foreground = clGray
-            MarkupInfo.FrameEdges = sfeAround
           end
           object SynGutterCodeFolding1: TSynGutterCodeFolding
             MouseActions = <>
             MarkupInfo.Background = clNone
             MarkupInfo.Foreground = clGray
-            MarkupInfo.FrameEdges = sfeAround
             MouseActionsExpanded = <>
             MouseActionsCollapsed = <>
           end
@@ -684,19 +674,6 @@ object fRecordEdit: TfRecordEdit
   object SynXMLSyn1: TSynXMLSyn
     DefaultFilter = 'Documents XML (*.xml,*.xsd,*.xsl,*.xslt,*.dtd)|*.xml;*.xsd;*.xsl;*.xslt;*.dtd'
     Enabled = False
-    ElementAttri.FrameEdges = sfeAround
-    AttributeAttri.FrameEdges = sfeAround
-    NamespaceAttributeAttri.FrameEdges = sfeAround
-    AttributeValueAttri.FrameEdges = sfeAround
-    NamespaceAttributeValueAttri.FrameEdges = sfeAround
-    TextAttri.FrameEdges = sfeAround
-    CDATAAttri.FrameEdges = sfeAround
-    EntityRefAttri.FrameEdges = sfeAround
-    ProcessingInstructionAttri.FrameEdges = sfeAround
-    CommentAttri.FrameEdges = sfeAround
-    DocTypeAttri.FrameEdges = sfeAround
-    SpaceAttri.FrameEdges = sfeAround
-    SymbolAttri.FrameEdges = sfeAround
     WantBracesParsed = False
     left = 238
     top = 199

wst/trunk/type_lib_edtr/ufrecordedit.pas

@@ -268,12 +268,7 @@ begin
   end;
   itm.Caption := extName;
   itm.SubItems.Add(FSymbolTable.GetExternalName(AFieldDef.VarType));
-  if FSymbolTable.IsAttributeProperty(AFieldDef) then begin
+  itm.SubItems.Add(BOOL_STR[FSymbolTable.IsAttributeProperty(AFieldDef)]);
-    s := 'Y';
-  end else begin
-    s := 'N';
-  end;
-  itm.SubItems.Add(s);
   itm.Data := AFieldDef;
   Result := itm;
 end;