← Back to branch summary

~ubuntu-branches/ubuntu/vivid/lazarus/vivid-proposed

« back to all changes in this revision

Viewing changes to .pc/spell_errors.diff/ide/frames/editor_display_options.pas

  • Committer: Package Import Robot
  • Author(s): Paul Gevers, Abou Al Montacir, Paul Gevers
  • Date: 2014-04-25 12:57:26 UTC
  • mfrom: (1.1.12)
  • Revision ID: package-import@ubuntu.com-20140425125726-6zkdcnnbbleuuvwj
Tags: 1.2+dfsg-1
[ Abou Al Montacir ]
* Packaged QT4 based IDE and LCL units.

[ Paul Gevers ]
* New upstream release
* Drop obsolete patches + refresh spell_errors.diff
* Update dependencies and description for QT4 changes
* Improve deduplication in d/rules (adds lcl-qt4 -> lcl-gtk2 -> lcl-nogui)

Show diffs side-by-side

added added

removed removed

Lines of Context:
.pc/spell_errors.diff/ide/frames/editor_display_options.pas
1
 
{
2
 
 ***************************************************************************
3
 
 *                                                                         *
4
 
 *   This source is free software; you can redistribute it and/or modify   *
5
 
 *   it under the terms of the GNU General Public License as published by  *
6
 
 *   the Free Software Foundation; either version 2 of the License, or     *
7
 
 *   (at your option) any later version.                                   *
8
 
 *                                                                         *
9
 
 *   This code is distributed in the hope that it will be useful, but      *
10
 
 *   WITHOUT ANY WARRANTY; without even the implied warranty of            *
11
 
 *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU     *
12
 
 *   General Public License for more details.                              *
13
 
 *                                                                         *
14
 
 *   A copy of the GNU General Public License is available on the World    *
15
 
 *   Wide Web at <http://www.gnu.org/copyleft/gpl.html>. You can also      *
16
 
 *   obtain it by writing to the Free Software Foundation,                 *
17
 
 *   Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.        *
18
 
 *                                                                         *
19
 
 ***************************************************************************
20
 
}
21
 
unit editor_display_options;
22
 
 
23
 
{$mode objfpc}{$H+}
24
 
 
25
 
interface
26
 
 
27
 
uses
28
 
  Classes, SysUtils, Graphics, Dialogs, StdCtrls,
29
 
  Spin, LCLType, SynEdit, SynEditMouseCmds, EditorOptions, LazarusIDEStrConsts,
30
 
  IDEOptionsIntf, editor_general_options, editor_color_options, IDEProcs,
31
 
  SynGutterLineNumber, SynGutterLineOverview, SynGutter, SourceSynEditor;
32
 
 
33
 
type
34
 
  { TEditorDisplayOptionsFrame }
35
 
 
36
 
  TEditorDisplayOptionsFrame = class(TAbstractIDEOptionsEditor)
37
 
    chkTopInfoView: TCheckBox;
38
 
    chkShowOverview: TCheckBox;
39
 
    DisableAntialiasingCheckBox: TCheckBox;
40
 
    DisplayPreview: TSynEdit;
41
 
    EditorFontButton: TButton;
42
 
    EditorFontComboBox: TComboBox;
43
 
    EditorFontGroupBox: TGroupBox;
44
 
    EditorFontSizeSpinEdit: TSpinEdit;
45
 
    EditorFontSizeLabel: TLabel;
46
 
    ExtraCharSpacingComboBox: TComboBox;
47
 
    ExtraCharSpacingLabel: TLabel;
48
 
    ExtraLineSpacingComboBox: TComboBox;
49
 
    ExtraLineSpacingLabel: TLabel;
50
 
    GutterSeparatorIndexLabel: TLabel;
51
 
    MarginAndGutterGroupBox: TGroupBox;
52
 
    RightMarginColorLink: TLabel;
53
 
    RightMarginComboBox: TComboBox;
54
 
    RightMarginLabel: TLabel;
55
 
    ShowLineNumbersCheckBox: TCheckBox;
56
 
    ShowOnlyLineNumbersMultiplesOfLabel: TLabel;
57
 
    ShowOnlyLineNumbersMultiplesOfSpinEdit: TSpinEdit;
58
 
    GutterSeparatorIndexSpinBox: TSpinEdit;
59
 
    VisibleGutterCheckBox: TCheckBox;
60
 
    VisibleRightMarginCheckBox: TCheckBox;
61
 
    procedure EditorFontButtonClick(Sender: TObject);
62
 
    procedure EditorFontComboBoxEditingDone(Sender: TObject);
63
 
    procedure EditorFontSizeSpinEditChange(Sender: TObject);
64
 
    procedure ComboboxOnExit(Sender: TObject);
65
 
    procedure ComboBoxOnKeyDown(Sender: TObject; var Key: Word;
66
 
      Shift: TShiftState);
67
 
    procedure ComboboxOnChange(Sender: TObject);
68
 
    procedure GeneralCheckBoxOnChange(Sender: TObject);
69
 
    procedure RightMarginColorLinkClick(Sender: TObject);
70
 
    procedure RightMarginColorLinkMouseEnter(Sender: TObject);
71
 
    procedure RightMarginColorLinkMouseLeave(Sender: TObject);
72
 
    procedure ShowLineNumbersCheckBoxClick(Sender: TObject);
73
 
  private
74
 
    FDialog: TAbstractOptionsEditorDialog;
75
 
    FUpdatingFontSizeRange: Boolean;
76
 
    function FontSizeNegativeToPositive(NegativeSize: Integer): Integer;
77
 
    function GeneralPage: TEditorGeneralOptionsFrame; inline;
78
 
    procedure SetEditorFontSizeSpinEditValue(FontSize: Integer);
79
 
 
80
 
    procedure FontDialogApplyClicked(Sender: TObject);
81
 
    function DoSynEditMouse(var AnInfo: TSynEditMouseActionInfo;
82
 
                         HandleActionProc: TSynEditMouseActionHandler): Boolean;
83
 
  public
84
 
    function GetTitle: String; override;
85
 
    procedure Setup(ADialog: TAbstractOptionsEditorDialog); override;
86
 
    procedure ReadSettings(AOptions: TAbstractIDEOptions); override;
87
 
    procedure WriteSettings(AOptions: TAbstractIDEOptions); override;
88
 
    class function SupportedOptionsClass: TAbstractIDEOptionsClass; override;
89
 
  end;
90
 
 
91
 
implementation
92
 
 
93
 
{$R *.lfm}
94
 
 
95
 
uses
96
 
  LCLIntf;
97
 
 
98
 
function TEditorDisplayOptionsFrame.FontSizeNegativeToPositive(NegativeSize: Integer): Integer;
99
 
var
100
 
  tm: TTextMetric;
101
 
begin
102
 
  DisplayPreview.Canvas.Font.Assign(DisplayPreview.Font);
103
 
  if LCLIntf.GetTextMetrics(DisplayPreview.Canvas.Handle, tm) then
104
 
    Result := -(NegativeSize + MulDiv(tm.tmInternalLeading, 72, DisplayPreview.Font.PixelsPerInch))
105
 
  else
106
 
    Result := -NegativeSize;
107
 
end;
108
 
 
109
 
procedure TEditorDisplayOptionsFrame.FontDialogApplyClicked(Sender: TObject);
110
 
var
111
 
  a: Integer;
112
 
begin
113
 
  with GeneralPage do
114
 
    for a := Low(PreviewEdits) to High(PreviewEdits) do
115
 
      if PreviewEdits[a] <> nil then
116
 
        PreviewEdits[a].Font.Assign(TFontDialog(Sender).Font);
117
 
 
118
 
  SetComboBoxText(EditorFontComboBox, DisplayPreview.Font.Name,cstCaseInsensitive);
119
 
  SetEditorFontSizeSpinEditValue(DisplayPreview.Font.Size);
120
 
end;
121
 
 
122
 
function TEditorDisplayOptionsFrame.DoSynEditMouse(var AnInfo: TSynEditMouseActionInfo;
123
 
  HandleActionProc: TSynEditMouseActionHandler): Boolean;
124
 
begin
125
 
  Result := true;
126
 
end;
127
 
 
128
 
procedure TEditorDisplayOptionsFrame.EditorFontButtonClick(Sender: TObject);
129
 
var
130
 
  FontDialog: TFontDialog;
131
 
  CurFontSize: Integer;
132
 
begin
133
 
  FontDialog := TFontDialog.Create(nil);
134
 
  try
135
 
    with FontDialog do
136
 
    begin
137
 
      Font.Name := EditorFontComboBox.Text;
138
 
      CurFontSize := EditorFontSizeSpinEdit.Value;
139
 
      if CurFontSize < 0 then
140
 
      begin
141
 
        CurFontSize := FontSizeNegativeToPositive(CurFontSize);
142
 
        RepairEditorFontSize(CurFontSize);
143
 
      end;
144
 
      Font.Size := CurFontSize;
145
 
      Options := Options + [fdApplyButton];
146
 
      OnApplyClicked := @FontDialogApplyClicked;
147
 
      if Execute then
148
 
        FontDialogApplyClicked(FontDialog);
149
 
    end;
150
 
  finally
151
 
    FontDialog.Free;
152
 
  end;
153
 
end;
154
 
 
155
 
procedure TEditorDisplayOptionsFrame.EditorFontComboBoxEditingDone(Sender: TObject);
156
 
var
157
 
  i: Integer;
158
 
begin
159
 
  with GeneralPage do
160
 
    for i := Low(PreviewEdits) to High(PreviewEdits) do
161
 
      if PreviewEdits[i] <> nil then
162
 
        PreviewEdits[i].Font.Name := EditorFontComboBox.Text;
163
 
end;
164
 
 
165
 
procedure TEditorDisplayOptionsFrame.EditorFontSizeSpinEditChange(Sender: TObject);
166
 
var
167
 
  NewVal, a: Integer;
168
 
begin
169
 
  NewVal := EditorFontSizeSpinEdit.Value;
170
 
  if (NewVal < 0) and (NewVal > -EditorOptionsMinimumFontSize) then
171
 
  begin
172
 
    // Skip to minimum positive value. Will trigger OnChange again.
173
 
    SetEditorFontSizeSpinEditValue(EditorOptionsMinimumFontSize);
174
 
  end
175
 
  else
176
 
  begin
177
 
    if (NewVal > 0) and not FUpdatingFontSizeRange then
178
 
      EditorFontSizeSpinEdit.MinValue := EditorOptionsMinimumFontSize;
179
 
 
180
 
    with GeneralPage do
181
 
      for a := Low(PreviewEdits) to High(PreviewEdits) do
182
 
        if PreviewEdits[a] <> nil then
183
 
          PreviewEdits[a].Font.Size := NewVal;
184
 
  end;
185
 
end;
186
 
 
187
 
procedure TEditorDisplayOptionsFrame.ComboboxOnExit(Sender: TObject);
188
 
var
189
 
  NewVal, a: Integer;
190
 
begin
191
 
  if Sender = ExtraCharSpacingComboBox then
192
 
  begin
193
 
    NewVal := StrToIntDef(ExtraCharSpacingComboBox.Text, DisplayPreview.ExtraCharSpacing);
194
 
    SetComboBoxText(ExtraCharSpacingComboBox, IntToStr(NewVal),cstCaseInsensitive);
195
 
    with GeneralPage do
196
 
      for a := Low(PreviewEdits) to High(PreviewEdits) do
197
 
        if PreviewEdits[a] <> Nil then
198
 
          PreviewEdits[a].ExtraCharSpacing := NewVal;
199
 
  end
200
 
  else
201
 
  if Sender = ExtraLineSpacingComboBox then
202
 
  begin
203
 
    NewVal := StrToIntDef(ExtraLineSpacingComboBox.Text, DisplayPreview.ExtraLineSpacing);
204
 
    SetComboBoxText(ExtraLineSpacingComboBox, IntToStr(NewVal),cstCaseInsensitive);
205
 
    with GeneralPage do
206
 
      for a := Low(PreviewEdits) to High(PreviewEdits) do
207
 
        if PreviewEdits[a] <> Nil then
208
 
          PreviewEdits[a].ExtraLineSpacing := NewVal;
209
 
  end
210
 
  else
211
 
  if Sender = RightMarginComboBox then
212
 
  begin
213
 
    NewVal := StrToIntDef(RightMarginComboBox.Text, DisplayPreview.RightEdge);
214
 
    SetComboBoxText(RightMarginComboBox, IntToStr(NewVal),cstCaseInsensitive);
215
 
    with GeneralPage do
216
 
      for a := Low(PreviewEdits) to High(PreviewEdits) do
217
 
        if PreviewEdits[a] <> nil then
218
 
        begin
219
 
          PreviewEdits[a].RightEdge := NewVal;
220
 
          if VisibleRightMarginCheckBox.Checked then
221
 
            PreviewEdits[a].Options := PreviewEdits[a].Options - [eoHideRightMargin]
222
 
          else
223
 
            PreviewEdits[a].Options := PreviewEdits[a].Options + [eoHideRightMargin];
224
 
        end;
225
 
  end;
226
 
end;
227
 
 
228
 
procedure TEditorDisplayOptionsFrame.ComboBoxOnKeyDown(Sender: TObject; var Key: Word;
229
 
  Shift: TShiftState);
230
 
begin
231
 
  if (ssCtrl in Shift) and (Key = VK_S) then
232
 
    ComboBoxOnExit(Sender);
233
 
end;
234
 
 
235
 
procedure TEditorDisplayOptionsFrame.ComboboxOnChange(Sender: TObject);
236
 
var
237
 
  ComboBox: TComboBox absolute Sender;
238
 
begin
239
 
  if ComboBox.Items.IndexOf(ComboBox.Text) >= 0 then
240
 
    ComboBoxOnExit(Sender);
241
 
end;
242
 
 
243
 
procedure TEditorDisplayOptionsFrame.GeneralCheckBoxOnChange(Sender: TObject);
244
 
var
245
 
  a: integer;
246
 
  AGeneralPage: TEditorGeneralOptionsFrame;
247
 
  Separator: TSynGutterSeparator;
248
 
begin
249
 
  AGeneralPage := GeneralPage;
250
 
 
251
 
  if AGeneralPage = nil then
252
 
    Exit;
253
 
 
254
 
  with AGeneralPage do
255
 
    for a := Low(PreviewEdits) to High(PreviewEdits) do
256
 
      if PreviewEdits[a] <> nil then
257
 
      begin
258
 
        PreviewEdits[a].Gutter.Visible := VisibleGutterCheckBox.Checked;
259
 
        PreviewEdits[a].RightGutter.Visible := chkShowOverview.Checked;
260
 
        PreviewEdits[a].Gutter.LineNumberPart.Visible
261
 
          := ShowLineNumbersCheckBox.Checked;
262
 
        if Assigned(PreviewEdits[a].Gutter.Parts.ByClass[TSynGutterLineNumber, 0]) then
263
 
          TSynGutterLineNumber(PreviewEdits[a].Gutter.Parts.ByClass[TSynGutterLineNumber, 0])
264
 
            .ShowOnlyLineNumbersMultiplesOf := ShowOnlyLineNumbersMultiplesOfSpinEdit.Value;
265
 
 
266
 
        Separator := TSynGutterSeparator(PreviewEdits[a].Gutter.Parts.ByClass[TSynGutterSeparator, 0]);
267
 
        if Assigned(Separator) then
268
 
        begin
269
 
          Separator.Visible := GutterSeparatorIndexSpinBox.Value <> -1;
270
 
          if Separator.Visible then
271
 
            Separator.Index := GutterSeparatorIndexSpinBox.Value;
272
 
        end;
273
 
        PreviewEdits[a].RightEdge := StrToIntDef(RightMarginComboBox.Text, 80);
274
 
        if VisibleRightMarginCheckBox.Checked then
275
 
          PreviewEdits[a].Options := PreviewEdits[a].Options - [eoHideRightMargin]
276
 
        else
277
 
          PreviewEdits[a].Options := PreviewEdits[a].Options + [eoHideRightMargin];
278
 
        if DisableAntialiasingCheckBox.Checked then
279
 
          PreviewEdits[a].Font.Quality := fqNonAntialiased
280
 
        else
281
 
          PreviewEdits[a].Font.Quality := fqDefault;
282
 
      end;
283
 
end;
284
 
 
285
 
procedure TEditorDisplayOptionsFrame.RightMarginColorLinkClick(Sender: TObject);
286
 
var
287
 
  col: TEditorColorOptionsFrame;
288
 
begin
289
 
  col := TEditorColorOptionsFrame(FDialog.FindEditor(TEditorColorOptionsFrame));
290
 
  if col = nil then exit;
291
 
  FDialog.OpenEditor(TEditorColorOptionsFrame);
292
 
  col.SelectAhaColor(ahaRightMargin);
293
 
end;
294
 
 
295
 
procedure TEditorDisplayOptionsFrame.RightMarginColorLinkMouseEnter(Sender: TObject);
296
 
begin
297
 
  (Sender as TLabel).Font.Underline := True;
298
 
  (Sender as TLabel).Font.Color := clRed;
299
 
end;
300
 
 
301
 
procedure TEditorDisplayOptionsFrame.RightMarginColorLinkMouseLeave(Sender: TObject);
302
 
begin
303
 
  (Sender as TLabel).Font.Underline := False;
304
 
  (Sender as TLabel).Font.Color := clBlue;
305
 
end;
306
 
 
307
 
procedure TEditorDisplayOptionsFrame.ShowLineNumbersCheckBoxClick(Sender: TObject);
308
 
begin
309
 
  ShowOnlyLineNumbersMultiplesOfSpinEdit.Enabled := ShowLineNumbersCheckBox.Checked;
310
 
  ShowOnlyLineNumbersMultiplesOfLabel.Enabled := ShowLineNumbersCheckBox.Checked;
311
 
end;
312
 
 
313
 
function TEditorDisplayOptionsFrame.GeneralPage: TEditorGeneralOptionsFrame; inline;
314
 
begin
315
 
  Result := TEditorGeneralOptionsFrame(FDialog.FindEditor(TEditorGeneralOptionsFrame));
316
 
end;
317
 
 
318
 
procedure TEditorDisplayOptionsFrame.SetEditorFontSizeSpinEditValue(FontSize: Integer);
319
 
begin
320
 
  FUpdatingFontSizeRange := True;
321
 
  if FontSize < 0 then
322
 
    EditorFontSizeSpinEdit.MinValue := -EditorFontSizeSpinEdit.MaxValue
323
 
  else
324
 
    EditorFontSizeSpinEdit.MinValue := EditorOptionsMinimumFontSize;
325
 
  FUpdatingFontSizeRange := False;
326
 
  EditorFontSizeSpinEdit.Value := FontSize;
327
 
end;
328
 
 
329
 
function TEditorDisplayOptionsFrame.GetTitle: String;
330
 
begin
331
 
  Result := dlgEdDisplay;
332
 
end;
333
 
 
334
 
procedure TEditorDisplayOptionsFrame.Setup(ADialog: TAbstractOptionsEditorDialog);
335
 
begin
336
 
  // Prevent the caret from moving
337
 
  DisplayPreview.RegisterMouseActionSearchHandler(@DoSynEditMouse);
338
 
  FDialog := ADialog;
339
 
  FUpdatingFontSizeRange := False;
340
 
 
341
 
  MarginAndGutterGroupBox.Caption := dlgMarginGutter;
342
 
  VisibleRightMarginCheckBox.Caption := dlgVisibleRightMargin;
343
 
  VisibleGutterCheckBox.Caption := dlgVisibleGutter;
344
 
  ShowLineNumbersCheckBox.Caption := dlgShowLineNumbers;
345
 
  ShowOnlyLineNumbersMultiplesOfLabel.Caption := lisEveryNThLineNumber;
346
 
  GutterSeparatorIndexLabel.Caption := dlgGutterSeparatorIndex;
347
 
  RightMarginLabel.Caption := dlgRightMargin;
348
 
  EditorFontGroupBox.Caption := dlgDefaultEditorFont;
349
 
  EditorFontSizeLabel.Caption := dlgEditorFontSize;
350
 
  ExtraCharSpacingLabel.Caption := dlgExtraCharSpacing;
351
 
  ExtraLineSpacingLabel.Caption := dlgExtraLineSpacing;
352
 
  DisableAntialiasingCheckBox.Caption := dlgDisableAntialiasing;
353
 
  RightMarginColorLink.Caption := dlgColorLink;
354
 
  chkShowOverview.Caption := lisShowOverviewGutter;
355
 
  chkTopInfoView.Caption := lisTopInfoView;
356
 
 
357
 
  with GeneralPage do
358
 
    AddPreviewEdit(DisplayPreview);
359
 
 
360
 
  with TSynGutterSeparator.Create(DisplayPreview.RightGutter.Parts) do
361
 
    Name := 'DPSynGutterSeparatorR2';
362
 
  with TSynGutterLineOverview.Create(DisplayPreview.RightGutter.Parts) do begin
363
 
    Name := 'DPSynGutterLineOverview1';
364
 
    with TIDESynGutterLOvProviderIDEMarks.Create(Providers) do
365
 
      Priority := 20;
366
 
    with TSynGutterLOvProviderModifiedLines.Create(Providers) do
367
 
      Priority := 9;
368
 
    with TSynGutterLOvProviderCurrentPage.Create(Providers) do
369
 
      Priority := 1;
370
 
    with TIDESynGutterLOvProviderPascal.Create(Providers) do
371
 
      Priority := 0;
372
 
  end;
373
 
  with TSynGutterSeparator.Create(DisplayPreview.RightGutter.Parts) do begin
374
 
    Name := 'DPSynGutterSeparatorR3';
375
 
    AutoSize := False;
376
 
    Width := 1;
377
 
    LineWidth := 0;
378
 
  end;
379
 
 
380
 
end;
381
 
 
382
 
procedure TEditorDisplayOptionsFrame.ReadSettings(AOptions: TAbstractIDEOptions);
383
 
begin
384
 
  with AOptions as TEditorOptions do
385
 
  begin
386
 
    // init the spin-edit first, since it does not trigger on change,
387
 
    // but is copied when checkboxes are initalized
388
 
    ShowOnlyLineNumbersMultiplesOfSpinEdit.Value := ShowOnlyLineNumbersMultiplesOf;
389
 
    GutterSeparatorIndexSpinBox.Value := GutterSeparatorIndex;
390
 
    VisibleRightMarginCheckBox.Checked := VisibleRightMargin;
391
 
    VisibleGutterCheckBox.Checked := VisibleGutter;
392
 
    ShowLineNumbersCheckBox.Checked := ShowLineNumbers;
393
 
    VisibleRightMarginCheckBox.Checked := VisibleRightMargin;
394
 
    SetComboBoxText(RightMarginComboBox, IntToStr(RightMargin),cstCaseInsensitive);
395
 
    SetComboBoxText(EditorFontComboBox, EditorFont,cstCaseInsensitive);
396
 
    SetEditorFontSizeSpinEditValue(EditorFontSize);
397
 
    SetComboBoxText(ExtraCharSpacingComboBox, IntToStr(ExtraCharSpacing),cstCaseInsensitive);
398
 
    SetComboBoxText(ExtraLineSpacingComboBox, IntToStr(ExtraLineSpacing),cstCaseInsensitive);
399
 
    DisableAntialiasingCheckBox.Checked := DisableAntialiasing;
400
 
    chkShowOverview.Checked := ShowOverviewGutter;
401
 
    chkTopInfoView.Checked := TopInfoView;
402
 
  end;
403
 
 
404
 
  ShowOnlyLineNumbersMultiplesOfLabel.Enabled := ShowLineNumbersCheckBox.Checked;
405
 
  ShowOnlyLineNumbersMultiplesOfSpinEdit.Enabled := ShowLineNumbersCheckBox.Checked;
406
 
end;
407
 
 
408
 
procedure TEditorDisplayOptionsFrame.WriteSettings(AOptions: TAbstractIDEOptions);
409
 
begin
410
 
  with AOptions as TEditorOptions do
411
 
  begin
412
 
    VisibleRightMargin := VisibleRightMarginCheckBox.Checked;
413
 
    VisibleGutter := VisibleGutterCheckBox.Checked;
414
 
    ShowLineNumbers := ShowLineNumbersCheckBox.Checked;
415
 
    ShowOnlyLineNumbersMultiplesOf := ShowOnlyLineNumbersMultiplesOfSpinEdit.Value;
416
 
    GutterSeparatorIndex := GutterSeparatorIndexSpinBox.Value;
417
 
    VisibleRightMargin := VisibleRightMarginCheckBox.Checked;
418
 
    RightMargin := StrToIntDef(RightMarginComboBox.Text, 80);
419
 
    EditorFont := EditorFontComboBox.Text;
420
 
    EditorFontSize := EditorFontSizeSpinEdit.Value;
421
 
    ExtraCharSpacing := StrToIntDef(ExtraCharSpacingComboBox.Text, ExtraCharSpacing);
422
 
    ExtraLineSpacing := StrToIntDef(ExtraLineSpacingComboBox.Text, ExtraLineSpacing);
423
 
    DisableAntialiasing := DisableAntialiasingCheckBox.Checked;
424
 
    ShowOverviewGutter := chkShowOverview.Checked;
425
 
    TopInfoView := chkTopInfoView.Checked;
426
 
  end;
427
 
end;
428
 
 
429
 
class function TEditorDisplayOptionsFrame.SupportedOptionsClass: TAbstractIDEOptionsClass;
430
 
begin
431
 
  Result := TEditorOptions;
432
 
end;
433
 
 
434
 
initialization
435
 
  RegisterIDEOptionsEditor(GroupEditor, TEditorDisplayOptionsFrame, EdtOptionsDisplay);
436
 
end.
437