paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 12:49:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

Editor-opts: clean-up, improved initialization

Browse Source 
git-svn-id: trunk@27711 -
This commit is contained in:
martin 2010-10-15 00:45:02 +00:00
parent ae56cb323a
commit 27e5a6b723
1 changed files with 4 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
ide/editoroptions.pp
View File

@ -1201,7 +1201,6 @@ function StrToLazSyntaxHighlighter(const s: String): TLazSyntaxHighlighter;
function ExtensionToLazSyntaxHighlighter(Ext: String): TLazSyntaxHighlighter;
function FilenameToLazSyntaxHighlighter(Filename: String): TLazSyntaxHighlighter;
procedure RepairEditorFontHeight(var FontHeight: integer);
//procedure CopyHiLightAttributeValues(Src, Dest: TSynHighlightElement);
function BuildBorlandDCIFile(ACustomSynAutoComplete: TCustomSynAutoComplete): Boolean;
function ColorSchemeFactory: TColorSchemeFactory;
@ -1581,17 +1580,6 @@ begin
Result[i] := '_';
end;
procedure CopyHiLightAttributeValues(Src, Dest: TSynHighlightElement);
begin
Dest.Background := Src.Background;
Dest.Foreground := Src.Foreground;
Dest.FrameColor := Src.FrameColor;
Dest.FrameEdges := Src.FrameEdges;
Dest.FrameStyle := Src.FrameStyle;
Dest.Style := Src.Style;
Dest.StyleMask := Src.StyleMask;
end;
{ TRttiXMLConfig }
procedure TRttiXMLConfig.WriteObject(Path: String; Obj: TPersistent;
@ -4348,7 +4336,10 @@ begin
aDest.FrameEdges := Src.FrameEdges;
aDest.FrameStyle := Src.FrameStyle;
aDest.Style := Src.Style;
aDest.StyleMask := Src.StyleMask;
if hafStyleMask in Src.Features then
aDest.StyleMask := Src.StyleMask
else
aDest.StyleMask := [low(TFontStyle)..high(TFontStyle)];
aDest.EndUpdate;
end;