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

IDE, EditorOptions: New ColorSchemFactory; color editor - fix italics

Browse Source 
git-svn-id: trunk@25651 -
This commit is contained in:
martin 2010-05-25 23:15:27 +00:00
parent 5fbd79e843
commit cd2e1615aa
2 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/editoroptions.pp
View File

@ -4163,7 +4163,7 @@ begin
FLanguageName := FHighlighter.LanguageName;
end;
FDefaultAttribute := TColorSchemeAttribute.Create(Self, dlgAddHiAttrDefault, 'ahaDefault');
FDefaultAttribute.Features := [hafBackColor, hafForeColor, hafFrameColor, hafStyle];
FDefaultAttribute.Features := [hafBackColor, hafForeColor];
FDefaultAttribute.Group := agnDefault;
FAttributes.AddObject(FDefaultAttribute.StoredName, FDefaultAttribute);
end;
@ -4183,6 +4183,7 @@ begin
csa := TColorSchemeAttribute.Create(Self, FHighlighter.Attribute[i].Name,
FHighlighter.Attribute[i].StoredName
);
csa.Assign(FHighlighter.Attribute[i]);
csa.Group := agnLanguage;
FAttributes.AddObject(UpperCase(csa.StoredName), csa);
end;

8
ide/frames/editor_color_options.pas
View File

@ -522,9 +522,9 @@ begin
if hafStyleMask in AttrToEdit.Features then
TextStyleRadioOnChange(Sender)
else
if TextBoldCheckBox.Checked xor (fsItalic in AttrToEdit.Style) then
if TextItalicCheckBox.Checked xor (fsItalic in AttrToEdit.Style) then
begin
if TextBoldCheckBox.Checked then
if TextItalicCheckBox.Checked then
AttrToEdit.Style := AttrToEdit.Style + [fsItalic]
else
AttrToEdit.Style := AttrToEdit.Style - [fsItalic];
@ -536,9 +536,9 @@ begin
if hafStyleMask in AttrToEdit.Features then
TextStyleRadioOnChange(Sender)
else
if TextBoldCheckBox.Checked xor (fsUnderline in AttrToEdit.Style) then
if TextUnderlineCheckBox.Checked xor (fsUnderline in AttrToEdit.Style) then
begin
if TextBoldCheckBox.Checked then
if TextUnderlineCheckBox.Checked then
AttrToEdit.Style := AttrToEdit.Style + [fsUnderline]
else
AttrToEdit.Style := AttrToEdit.Style - [fsUnderline];