envopt.cpp

用于开发Atmel的AVR系列单片机的GCC集成开发环境

 Memo1->Font->Size = 8;
 TreeView1->Color = clWindow;
 TreeView1->Font->Assign (Memo1->Font);
}
//---------------------------------------------------------------------------
void __fastcall TEnvOptions::LoadSettings (TIniFile *settings)
{
 TFontStyles temp;

 Highlighter->AsmAttri->Foreground = (TColor)settings->ReadInteger ("Highlighter",
                                                          "AsmFG", (int)clNone);
 Highlighter->AsmAttri->Background = (TColor)settings->ReadInteger ("Highlighter",
                                                          "AsmBG", (int)clNone);
 temp = IntToStyle (settings->ReadInteger ("Highlighter", "AsmStyle", 0));
 Highlighter->AsmAttri->Style = temp;
 Highlighter->CharAttri->Foreground = (TColor)settings->ReadInteger ("Highlighter",
                                                          "CharFG", (int)clNone);
 Highlighter->CharAttri->Background = (TColor)settings->ReadInteger ("Highlighter",
                                                          "CharBG", (int)clNone);
 temp = IntToStyle (settings->ReadInteger ("Highlighter", "CharStyle", 0));
 Highlighter->CharAttri->Style = temp;
 Highlighter->CommentAttri->Foreground = (TColor)settings->ReadInteger ("Highlighter",
                                                          "CommentFG", (int)clNone);
 Highlighter->CommentAttri->Background = (TColor)settings->ReadInteger ("Highlighter",
                                                          "CommentBG", (int)clNone);
 temp = IntToStyle (settings->ReadInteger ("Highlighter", "CommentStyle", 0));
 Highlighter->CommentAttri->Style = temp;
 Highlighter->DirecAttri->Foreground = (TColor)settings->ReadInteger ("Highlighter",
                                                          "DirecFG", (int)clNone);
 Highlighter->DirecAttri->Background = (TColor)settings->ReadInteger ("Highlighter",
                                                          "DirecBG", (int)clNone);
 temp = IntToStyle (settings->ReadInteger ("Highlighter", "DirecStyle", 0));
 Highlighter->DirecAttri->Style = temp;
 Highlighter->FloatAttri->Foreground = (TColor)settings->ReadInteger ("Highlighter",
                                                          "FloatFG", (int)clNone);
 Highlighter->FloatAttri->Background = (TColor)settings->ReadInteger ("Highlighter",
                                                          "FloatBG", (int)clNone);
 temp = IntToStyle (settings->ReadInteger ("Highlighter", "FloatStyle", 0));
 Highlighter->FloatAttri->Style = temp;
 Highlighter->HexAttri->Foreground = (TColor)settings->ReadInteger ("Highlighter",
                                                          "HexFG", (int)clNone);
 Highlighter->HexAttri->Background = (TColor)settings->ReadInteger ("Highlighter",
                                                          "HexBG", (int)clNone);
 temp = IntToStyle (settings->ReadInteger ("Highlighter", "HexStyle", 0));
 Highlighter->HexAttri->Style = temp;
 Highlighter->IdentifierAttri->Foreground = (TColor)settings->ReadInteger ("Highlighter",
                                                          "IdentifierFG", (int)clNone);
 Highlighter->IdentifierAttri->Background = (TColor)settings->ReadInteger ("Highlighter",
                                                          "IdentifierBG", (int)clNone);
 temp = IntToStyle (settings->ReadInteger ("Highlighter", "IdentifierStyle", 0));
 Highlighter->IdentifierAttri->Style = temp;
 Highlighter->InvalidAttri->Foreground = (TColor)settings->ReadInteger ("Highlighter",
                                                          "InvalidFG", (int)clNone);
 Highlighter->InvalidAttri->Background = (TColor)settings->ReadInteger ("Highlighter",
                                                          "InvalidBG", (int)clNone);
 temp = IntToStyle (settings->ReadInteger ("Highlighter", "InvalidStyle", 0));
 Highlighter->InvalidAttri->Style = temp;
 Highlighter->KeyAttri->Foreground = (TColor)settings->ReadInteger ("Highlighter",
                                                          "KeyFG", (int)clNone);
 Highlighter->KeyAttri->Background = (TColor)settings->ReadInteger ("Highlighter",
                                                          "KeyBG", (int)clNone);
 temp = IntToStyle (settings->ReadInteger ("Highlighter", "KeyStyle", 0));
 Highlighter->KeyAttri->Style = temp;
 Highlighter->NumberAttri->Foreground = (TColor)settings->ReadInteger ("Highlighter",
                                                          "NumberFG", (int)clNone);
 Highlighter->NumberAttri->Background = (TColor)settings->ReadInteger ("Highlighter",
                                                          "NumberBG", (int)clNone);
 temp = IntToStyle (settings->ReadInteger ("Highlighter", "NumberStyle", 0));
 Highlighter->NumberAttri->Style = temp;
 Highlighter->OctalAttri->Foreground = (TColor)settings->ReadInteger ("Highlighter",
                                                          "OctalFG", (int)clNone);
 Highlighter->OctalAttri->Background = (TColor)settings->ReadInteger ("Highlighter",
                                                          "OctalBG", (int)clNone);
 temp = IntToStyle (settings->ReadInteger ("Highlighter", "OctalStyle", 0));
 Highlighter->OctalAttri->Style = temp;
 Highlighter->SpaceAttri->Foreground = (TColor)settings->ReadInteger ("Highlighter",
                                                          "SpaceFG", (int)clNone);
 Highlighter->SpaceAttri->Background = (TColor)settings->ReadInteger ("Highlighter",
                                                          "SpaceBG", (int)clNone);
 temp = IntToStyle (settings->ReadInteger ("Highlighter", "SpaceStyle", 0));
 Highlighter->SpaceAttri->Style = temp;
 Highlighter->StringAttri->Foreground = (TColor)settings->ReadInteger ("Highlighter",
                                                          "StringFG", (int)clNone);
 Highlighter->StringAttri->Background = (TColor)settings->ReadInteger ("Highlighter",
                                                          "StringBG", (int)clNone);
 temp = IntToStyle (settings->ReadInteger ("Highlighter", "StringStyle", 0));
 Highlighter->StringAttri->Style = temp;
 Highlighter->SymbolAttri->Foreground = (TColor)settings->ReadInteger ("Highlighter",
                                                          "SymbolFG", (int)clNone);
 Highlighter->SymbolAttri->Background = (TColor)settings->ReadInteger ("Highlighter",
                                                          "SymbolBG", (int)clNone);
 temp = IntToStyle (settings->ReadInteger ("Highlighter", "SymbolStyle", 0));
 Highlighter->SymbolAttri->Style = temp;

 treeset->Font->Name = settings->ReadString ("ProjectTree", "Font", "MS Sans Serif");
 treeset->Font->Size = settings->ReadInteger ("ProjectTree", "FontSize", 8);
 treeset->Font->Color = (TColor)settings->ReadInteger ("ProjectTree", "FontColor",
                                                         (int)clBlack);
 temp = IntToStyle (settings->ReadInteger ("ProjectTree", "FontStyle", 0));
 treeset->Font->Style = temp;
 treeset->Color = (TColor)settings->ReadInteger ("ProjectTree", "Color", (int)clWindow);
 memoset->Font->Name = settings->ReadString ("Output", "Font", "MS Sans Serif");
 memoset->Font->Size = settings->ReadInteger ("Output", "FontSize", 8);
 memoset->Font->Color = (TColor)settings->ReadInteger ("Output", "FontColor", (int)clBlack);
 temp = IntToStyle (settings->ReadInteger ("Output", "FontStyle", 0));
 memoset->Font->Style = temp;
 memoset->Color = (TColor)settings->ReadInteger ("Output", "Color", (int)clWindow);
 ParamProp = settings->ReadBool ("Editor", "ParameterProposal", true);
 LineNumbers = settings->ReadBool ("Editor", "ShowLineNumbers", false);
 SpLineSrc->ELineFG = (TColor)settings->ReadInteger ("Editor", "SpecialELineFG", (int)clWhite);
 SpLineSrc->ELineBG = (TColor)settings->ReadInteger ("Editor", "SpecialELineBG", (int)clRed);
 SpLineSrc->MLineFG = (TColor)settings->ReadInteger ("Editor", "SpecialMLineFG", (int)clNavy);
 SpLineSrc->MLineBG = (TColor)settings->ReadInteger ("Editor", "SpecialMLineBG", (int)clSilver);
}
//---------------------------------------------------------------------------
void __fastcall TEnvOptions::SaveSettings (TIniFile *settings)
{
 TFontStyles temp;

 settings->WriteInteger ("Highlighter", "AsmFG",
                         (int)Highlighter->AsmAttri->Foreground);
 settings->WriteInteger ("Highlighter", "AsmBG",
                         (int)Highlighter->AsmAttri->Background);
 temp = Highlighter->AsmAttri->Style;
 settings->WriteInteger ("Highlighter", "AsmStyle", StyleToInt (temp));
 settings->WriteInteger ("Highlighter", "CharFG",
                         (int)Highlighter->CharAttri->Foreground);
 settings->WriteInteger ("Highlighter", "CharBG",
                         (int)Highlighter->CharAttri->Background);
 temp = Highlighter->CharAttri->Style;
 settings->WriteInteger ("Highlighter", "CharStyle", StyleToInt (temp));
 settings->WriteInteger ("Highlighter", "CommentFG",
                         (int)Highlighter->CommentAttri->Foreground);
 settings->WriteInteger ("Highlighter", "CommentBG",
                         (int)Highlighter->CommentAttri->Background);
 temp = Highlighter->CommentAttri->Style;
 settings->WriteInteger ("Highlighter", "CommentStyle", StyleToInt (temp));
 settings->WriteInteger ("Highlighter", "DirecFG",
                         (int)Highlighter->DirecAttri->Foreground);
 settings->WriteInteger ("Highlighter", "DirecBG",
                         (int)Highlighter->DirecAttri->Background);
 temp = Highlighter->DirecAttri->Style;
 settings->WriteInteger ("Highlighter", "DirecStyle", StyleToInt (temp));
 settings->WriteInteger ("Highlighter", "FloatFG",
                         (int)Highlighter->FloatAttri->Foreground);
 settings->WriteInteger ("Highlighter", "FloatBG",
                         (int)Highlighter->FloatAttri->Background);
 temp = Highlighter->FloatAttri->Style;
 settings->WriteInteger ("Highlighter", "FloatStyle", StyleToInt (temp));
 settings->WriteInteger ("Highlighter", "HexFG",
                         (int)Highlighter->HexAttri->Foreground);
 settings->WriteInteger ("Highlighter", "HexBG",
                         (int)Highlighter->HexAttri->Background);
 temp = Highlighter->HexAttri->Style;
 settings->WriteInteger ("Highlighter", "HexStyle", StyleToInt (temp));
 settings->WriteInteger ("Highlighter", "IdentifierFG",
                         (int)Highlighter->IdentifierAttri->Foreground);
 settings->WriteInteger ("Highlighter", "IdentifierBG",
                         (int)Highlighter->IdentifierAttri->Background);
 temp = Highlighter->IdentifierAttri->Style;
 settings->WriteInteger ("Highlighter", "IdentifierStyle", StyleToInt (temp));
 settings->WriteInteger ("Highlighter", "InvalidFG",
                         (int)Highlighter->InvalidAttri->Foreground);
 settings->WriteInteger ("Highlighter", "InvalidBG",
                         (int)Highlighter->InvalidAttri->Background);
 temp = Highlighter->InvalidAttri->Style;
 settings->WriteInteger ("Highlighter", "InvalidStyle", StyleToInt (temp));
 settings->WriteInteger ("Highlighter", "KeyFG",
                         (int)Highlighter->KeyAttri->Foreground);
 settings->WriteInteger ("Highlighter", "KeyBG",
                         (int)Highlighter->KeyAttri->Background);
 temp = Highlighter->KeyAttri->Style;
 settings->WriteInteger ("Highlighter", "KeyStyle", StyleToInt (temp));
 settings->WriteInteger ("Highlighter", "NumberFG",
                         (int)Highlighter->NumberAttri->Foreground);
 settings->WriteInteger ("Highlighter", "NumberBG",
                         (int)Highlighter->NumberAttri->Background);
 temp = Highlighter->NumberAttri->Style;
 settings->WriteInteger ("Highlighter", "NumberStyle", StyleToInt (temp));
 settings->WriteInteger ("Highlighter", "OctalFG",
                         (int)Highlighter->OctalAttri->Foreground);
 settings->WriteInteger ("Highlighter", "OctalBG",
                         (int)Highlighter->OctalAttri->Background);
 temp = Highlighter->OctalAttri->Style;
 settings->WriteInteger ("Highlighter", "OctalStyle", StyleToInt (temp));
 settings->WriteInteger ("Highlighter", "SpaceFG",
                         (int)Highlighter->SpaceAttri->Foreground);
 settings->WriteInteger ("Highlighter", "SpaceBG",
                         (int)Highlighter->SpaceAttri->Background);
 temp = Highlighter->SpaceAttri->Style;
 settings->WriteInteger ("Highlighter", "SpaceStyle", StyleToInt (temp));
 settings->WriteInteger ("Highlighter", "StringFG",
                         (int)Highlighter->StringAttri->Foreground);
 settings->WriteInteger ("Highlighter", "StringBG",
                         (int)Highlighter->StringAttri->Background);
 temp = Highlighter->StringAttri->Style;
 settings->WriteInteger ("Highlighter", "StringStyle", StyleToInt (temp));
 settings->WriteInteger ("Highlighter", "SymbolFG",
                         (int)Highlighter->SymbolAttri->Foreground);
 settings->WriteInteger ("Highlighter", "SymbolBG",
                         (int)Highlighter->SymbolAttri->Background);
 temp = Highlighter->SymbolAttri->Style;
 settings->WriteInteger ("Highlighter", "SymbolStyle", StyleToInt (temp));

 settings->WriteString ("ProjectTree", "Font", treeset->Font->Name);
 settings->WriteInteger ("ProjectTree", "FontSize", treeset->Font->Size);
 settings->WriteInteger ("ProjectTree", "FontColor", (int)treeset->Font->Color);
 temp = treeset->Font->Style;
 settings->WriteInteger ("ProjectTree", "FontStyle", StyleToInt (temp));
 settings->WriteInteger ("ProjectTree", "Color", (int)treeset->Color);
 settings->WriteString ("Output", "Font", memoset->Font->Name);
 settings->WriteInteger ("Output", "FontSize", memoset->Font->Size);
 settings->WriteInteger ("Output", "FontColor", (int)memoset->Font->Color);
 temp = memoset->Font->Style;
 settings->WriteInteger ("Output", "FontStyle", StyleToInt (temp));
 settings->WriteInteger ("Output", "Color", (int)memoset->Color);
 settings->WriteBool ("Editor", "ParameterProposal", ParamProp);
 settings->WriteBool ("Editor", "ShowLineNumbers", LineNumbers);
 settings->WriteInteger ("Editor", "SpecialELineFG", (int)SpLineSrc->ELineFG);
 settings->WriteInteger ("Editor", "SpecialELineBG", (int)SpLineSrc->ELineBG);
 settings->WriteInteger ("Editor", "SpecialMLineFG", (int)SpLineSrc->MLineFG);
 settings->WriteInteger ("Editor", "SpecialMLineBG", (int)SpLineSrc->MLineBG);
}
//---------------------------------------------------------------------------
int __fastcall TEnvOptions::StyleToInt (TFontStyles fst)
{
 int r = 0;

 if (fst.Contains (fsBold)) r |= 0x01;
 if (fst.Contains (fsItalic)) r |= 0x02;
 if (fst.Contains (fsUnderline)) r |= 0x04;
 if (fst.Contains (fsStrikeOut)) r |= 0x08;
 return r;
}
//---------------------------------------------------------------------------
TFontStyles __fastcall TEnvOptions::IntToStyle (int i)
{
 TFontStyles fst;

 if (i & 0x01) fst << fsBold;
 if (i & 0x02) fst << fsItalic;
 if (i & 0x04) fst << fsUnderline;
 if (i & 0x08) fst << fsStrikeOut;
 return fst;
}
//---------------------------------------------------------------------------

void __fastcall TEnvOptions::StandardBut2Click(TObject *Sender)
{
 // Asm Attributes
 SynAVRCSyn1->AsmAttri->Foreground = clSilver;
 SynAVRCSyn1->AsmAttri->Background = clNone;
 SynAVRCSyn1->AsmAttri->Style = TFontStyles ();
 // Char Attributes
 SynAVRCSyn1->CharAttri->Foreground = clAqua;
 SynAVRCSyn1->CharAttri->Background = clNone;
 SynAVRCSyn1->CharAttri->Style = TFontStyles ();
 // Comment Attributes
 SynAVRCSyn1->CommentAttri->Foreground = clLime;
 SynAVRCSyn1->CommentAttri->Background = clNone;
 SynAVRCSyn1->CommentAttri->Style = TFontStyles () << fsBold;
 // Directive Attributes
 SynAVRCSyn1->DirecAttri->Foreground = clSilver;
 SynAVRCSyn1->DirecAttri->Background = clNone;
 SynAVRCSyn1->DirecAttri->Style = TFontStyles () << fsBold;
 // Float Attributes
 SynAVRCSyn1->FloatAttri->Foreground = clRed;
 SynAVRCSyn1->FloatAttri->Background = clNone;
 SynAVRCSyn1->FloatAttri->Style = TFontStyles ();
 // Hex Attributes
 SynAVRCSyn1->HexAttri->Foreground = clRed;
 SynAVRCSyn1->HexAttri->Background = clNone;
 SynAVRCSyn1->HexAttri->Style = TFontStyles ();
 // Identifier Attributes
 SynAVRCSyn1->IdentifierAttri->Foreground = clYellow;
 SynAVRCSyn1->IdentifierAttri->Background = clNavy;
 SynAVRCSyn1->IdentifierAttri->Style = TFontStyles ();
 // Invalid Attributes
 SynAVRCSyn1->InvalidAttri->Foreground = clBlack;
 SynAVRCSyn1->InvalidAttri->Background = clRed;
 SynAVRCSyn1->InvalidAttri->Style = TFontStyles () << fsBold;
 // Keyword Attributes
 SynAVRCSyn1->KeyAttri->Foreground = clFuchsia;
 SynAVRCSyn1->KeyAttri->Background = clNone;
 SynAVRCSyn1->KeyAttri->Style = TFontStyles () << fsBold;
 // Number Attributes
 SynAVRCSyn1->NumberAttri->Foreground = clRed;
 SynAVRCSyn1->NumberAttri->Background = clNone;
 SynAVRCSyn1->NumberAttri->Style = TFontStyles ();
 // Octal Attributes
 SynAVRCSyn1->OctalAttri->Foreground = clRed;
 SynAVRCSyn1->OctalAttri->Background = clNone;
 SynAVRCSyn1->OctalAttri->Style = TFontStyles () << fsBold;
 // Space Attributes
 SynAVRCSyn1->SpaceAttri->Foreground = clNone;
 SynAVRCSyn1->SpaceAttri->Background = clNavy;
 SynAVRCSyn1->SpaceAttri->Style = TFontStyles ();
 // String Attributes
 SynAVRCSyn1->StringAttri->Foreground = clAqua;
 SynAVRCSyn1->StringAttri->Background = clNone;
 SynAVRCSyn1->StringAttri->Style = TFontStyles () << fsBold;
 // Symbol Attributes
 SynAVRCSyn1->SymbolAttri->Foreground = clWhite;
 SynAVRCSyn1->SymbolAttri->Background = clNone;
 SynAVRCSyn1->SymbolAttri->Style = TFontStyles () << fsBold;
 // Special Colors
 SpLine.ELineFG = clWhite;
 SpLine.ELineBG = clRed;
 SpLine.MLineFG = clNavy;
 SpLine.MLineBG = clSilver;

 ListBox1Click (Sender);
}
//---------------------------------------------------------------------------
void __fastcall TEnvOptions::SynEdit1SpecialLineColors(TObject *Sender,
      int Line, bool &Special, TColor &FG, TColor &BG)
{
 if (Line == SynEdit1->Lines->Count)
 {
  FG = SpLine.ELineFG;
  BG = SpLine.ELineBG;
  Special = true;
 }
 if (Line == SynEdit1->Lines->Count - 1)
 {
  FG = SpLine.MLineFG;
  BG = SpLine.MLineBG;
  Special = true;
 }
}
//---------------------------------------------------------------------------