paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-11 10:29:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: oi options: clean up

Browse Source 
git-svn-id: trunk@35155 -
This commit is contained in:
mattias 2012-02-05 12:58:29 +00:00
parent ba1bcfe955
commit 829064a1d5
1 changed files with 44 additions and 45 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

89
ide/frames/oi_options.pas
View File

@ -250,59 +250,58 @@ end;
procedure TOIOptionsFrame.ReadSettings(AOptions: TAbstractIDEOptions); procedure TOIOptionsFrame.ReadSettings(AOptions: TAbstractIDEOptions);
var var
ASettings: TSpeedOISettings; ASettings: TSpeedOISettings;
o: TOIOptions;
begin begin
with AOptions as TEnvironmentOptions do o:=(AOptions as TEnvironmentOptions).ObjectInspectorOptions;
begin ASettings.Colors[ocBackground] := o.GridBackgroundColor;
ASettings.Colors[ocBackground] := ObjectInspectorOptions.GridBackgroundColor; ASettings.Colors[ocGutter] := o.GutterColor;
ASettings.Colors[ocGutter] := ObjectInspectorOptions.GutterColor; ASettings.Colors[ocGutterEdge] := o.GutterEdgeColor;
ASettings.Colors[ocGutterEdge] := ObjectInspectorOptions.GutterEdgeColor; ASettings.Colors[ocHighlight] := o.HighlightColor;
ASettings.Colors[ocHighlight] := ObjectInspectorOptions.HighlightColor; ASettings.Colors[ocHighlightFont] := o.HighlightFontColor;
ASettings.Colors[ocHighlightFont] := ObjectInspectorOptions.HighlightFontColor; ASettings.Colors[ocPropName] := o.PropertyNameColor;
ASettings.Colors[ocPropName] := ObjectInspectorOptions.PropertyNameColor; ASettings.Colors[ocValue] := o.ValueColor;
ASettings.Colors[ocValue] := ObjectInspectorOptions.ValueColor; ASettings.Colors[ocDefValue] := o.DefaultValueColor;
ASettings.Colors[ocDefValue] := ObjectInspectorOptions.DefaultValueColor; ASettings.Colors[ocSubProp] := o.SubPropertiesColor;
ASettings.Colors[ocSubProp] := ObjectInspectorOptions.SubPropertiesColor; ASettings.Colors[ocReference] := o.ReferencesColor;
ASettings.Colors[ocReference] := ObjectInspectorOptions.ReferencesColor; ASettings.Colors[ocReadOnly] := o.ReadOnlyColor;
ASettings.Colors[ocReadOnly] := ObjectInspectorOptions.ReadOnlyColor;
ASettings.Options[ooShowHints] := ObjectInspectorOptions.ShowHints; ASettings.Options[ooShowHints] := o.ShowHints;
ASettings.Options[ooAutoShow] := ObjectInspectorOptions.AutoShow; ASettings.Options[ooAutoShow] := o.AutoShow;
ASettings.Options[ooBoldNonDefault] := ObjectInspectorOptions.BoldNonDefaultValues; ASettings.Options[ooBoldNonDefault] := o.BoldNonDefaultValues;
ASettings.Options[ooDrawGridLines] := ObjectInspectorOptions.DrawGridLines; ASettings.Options[ooDrawGridLines] := o.DrawGridLines;
ASettings.Options[ooShowGutter] := ObjectInspectorOptions.ShowGutter; ASettings.Options[ooShowGutter] := o.ShowGutter;
ASettings.Options[ooShowStatusBar] := ObjectInspectorOptions.ShowStatusBar; ASettings.Options[ooShowStatusBar] := o.ShowStatusBar;
ASettings.Options[ooShowInfoBox] := ObjectInspectorOptions.ShowInfoBox; ASettings.Options[ooShowInfoBox] := o.ShowInfoBox;
ApplyOISettings(ASettings); ApplyOISettings(ASettings);
OIDefaultItemHeightSpinEdit.Value := ObjectInspectorOptions.DefaultItemHeight; OIDefaultItemHeightSpinEdit.Value := o.DefaultItemHeight;
end;
FLoaded := True; FLoaded := True;
end; end;
procedure TOIOptionsFrame.WriteSettings(AOptions: TAbstractIDEOptions); procedure TOIOptionsFrame.WriteSettings(AOptions: TAbstractIDEOptions);
var
o: TOIOptions;
begin begin
with AOptions as TEnvironmentOptions do o:=(AOptions as TEnvironmentOptions).ObjectInspectorOptions;
begin o.GridBackgroundColor := ColorsListBox.Colors[Ord(ocBackground)];
ObjectInspectorOptions.GridBackgroundColor := ColorsListBox.Colors[Ord(ocBackground)]; o.GutterColor := ColorsListBox.Colors[Ord(ocGutter)];
ObjectInspectorOptions.GutterColor := ColorsListBox.Colors[Ord(ocGutter)]; o.GutterEdgeColor := ColorsListBox.Colors[Ord(ocGutterEdge)];
ObjectInspectorOptions.GutterEdgeColor := ColorsListBox.Colors[Ord(ocGutterEdge)]; o.HighlightColor := ColorsListBox.Colors[Ord(ocHighlight)];
ObjectInspectorOptions.HighlightColor := ColorsListBox.Colors[Ord(ocHighlight)]; o.HighlightFontColor := ColorsListBox.Colors[Ord(ocHighlightFont)];
ObjectInspectorOptions.HighlightFontColor := ColorsListBox.Colors[Ord(ocHighlightFont)]; o.PropertyNameColor := ColorsListBox.Colors[Ord(ocPropName)];
ObjectInspectorOptions.PropertyNameColor := ColorsListBox.Colors[Ord(ocPropName)]; o.ValueColor := ColorsListBox.Colors[Ord(ocValue)];
ObjectInspectorOptions.ValueColor := ColorsListBox.Colors[Ord(ocValue)]; o.DefaultValueColor := ColorsListBox.Colors[Ord(ocDefValue)];
ObjectInspectorOptions.DefaultValueColor := ColorsListBox.Colors[Ord(ocDefValue)]; o.SubPropertiesColor := ColorsListBox.Colors[Ord(ocSubProp)];
ObjectInspectorOptions.SubPropertiesColor := ColorsListBox.Colors[Ord(ocSubProp)]; o.ReferencesColor := ColorsListBox.Colors[Ord(ocReference)];
ObjectInspectorOptions.ReferencesColor := ColorsListBox.Colors[Ord(ocReference)]; o.ReadOnlyColor := ColorsListBox.Colors[Ord(ocReadOnly)];
ObjectInspectorOptions.ReadOnlyColor := ColorsListBox.Colors[Ord(ocReadOnly)];
ObjectInspectorOptions.ShowHints := OIShowHintCheckBox.Checked; o.ShowHints := OIShowHintCheckBox.Checked;
ObjectInspectorOptions.AutoShow := OIAutoShowCheckBox.Checked; o.AutoShow := OIAutoShowCheckBox.Checked;
ObjectInspectorOptions.BoldNonDefaultValues := OIBoldNonDefaultCheckBox.Checked; o.BoldNonDefaultValues := OIBoldNonDefaultCheckBox.Checked;
ObjectInspectorOptions.DrawGridLines := OIDrawGridLinesCheckBox.Checked; o.DrawGridLines := OIDrawGridLinesCheckBox.Checked;
ObjectInspectorOptions.ShowGutter := OIShowGutterCheckBox.Checked; o.ShowGutter := OIShowGutterCheckBox.Checked;
ObjectInspectorOptions.ShowStatusBar := OIShowStatusBarCheckBox.Checked; o.ShowStatusBar := OIShowStatusBarCheckBox.Checked;
ObjectInspectorOptions.ShowInfoBox := OIShowInfoBoxCheckBox.Checked; o.ShowInfoBox := OIShowInfoBoxCheckBox.Checked;
ObjectInspectorOptions.DefaultItemHeight := RoundToInt(OIDefaultItemHeightSpinEdit.Value); o.DefaultItemHeight := RoundToInt(OIDefaultItemHeightSpinEdit.Value);
end;
end; end;
class function TOIOptionsFrame.SupportedOptionsClass: TAbstractIDEOptionsClass; class function TOIOptionsFrame.SupportedOptionsClass: TAbstractIDEOptionsClass;