paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-30 23:42:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Improved localization of Divider Draw settings tab by Maxim Ganetsky

Browse Source 
git-svn-id: trunk@21125 -
This commit is contained in:
marc 2009-08-06 23:06:17 +00:00
parent 34b973c44f
commit 2026e88d48
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/editoroptions.pp
View File

@ -430,7 +430,7 @@ type
Info: PEditorOptionsDividerInfoList;
end;
const
var
EditorOptionsDividerInfoPas: Array [0..8] of TEditorOptionsDividerInfo
= (
@ -445,6 +445,8 @@ const
(Name: dlgDivPasTryName; Xml: 'Try'; BoolOpt: False; MaxLevel: 0)
);
const
EditorOptionsDividerDefaults: array[TLazSyntaxHighlighter] of
TEditorOptionsDividerRecord =
( (Count: 0; Info: nil), // none
@ -2060,6 +2062,16 @@ begin
EditorOptionsFoldInfoPas[18].Name := dlgFoldPasIfDef;
EditorOptionsFoldInfoPas[19].Name := dlgFoldPasUserRegion;
EditorOptionsDividerInfoPas[0].Name:=dlgDivPasUnitSectionName;
EditorOptionsDividerInfoPas[1].Name:=dlgDivPasUsesName;
EditorOptionsDividerInfoPas[2].Name:=dlgDivPasVarGlobalName;
EditorOptionsDividerInfoPas[3].Name:=dlgDivPasVarLocalName;
EditorOptionsDividerInfoPas[4].Name:=dlgDivPasStructGlobalName;
EditorOptionsDividerInfoPas[5].Name:=dlgDivPasStructLocalName;
EditorOptionsDividerInfoPas[6].Name:=dlgDivPasProcedureName;
EditorOptionsDividerInfoPas[7].Name:=dlgDivPasBeginEndName;
EditorOptionsDividerInfoPas[8].Name:=dlgDivPasTryName;
AdditionalHighlightAttributes[ahaNone] := '';
AdditionalHighlightAttributes[ahaTextBlock] := dlgAddHiAttrTextBlock;
AdditionalHighlightAttributes[ahaExecutionPoint] := dlgAddHiAttrExecutionPoint;