pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

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

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5272 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2016-10-20 11:51:10 +00:00
parent 04fb8def2c
commit 157ffe3f4c
2 changed files with 14 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files

49
wst/trunk/type_lib_edtr/ufrecordedit.lfm
View File

@ -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

7
wst/trunk/type_lib_edtr/ufrecordedit.pas
View File

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