[Martin]

У меня стоит Embarcadero Delphi XE Version 15.0.3953.35171 2010-го года.
После очередного нажатия Ctrl-D форматтер выдал следующее:

Код:

OpEditBtn3: TOpEditBtn;
Button10: TButton;
Label182: TLabel;
BitBtn20: TBitBtn;
Label183: TLabel;
lbSurfName: TLabel;
Tabsheet15: TTabSheet;
fsedtUgolSkanSurf: TFloatSpinEdit;
pmSurfSelect: TPopupMenu;
MenuItem1: TMenuItem;
MenuItem2: TMenuItem;

procedure lbxSurfSelectMouseUp(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
    procedure btnOnPervNastrClick(Sender: TObject);
        procedure OehPoint1BitBtnClick(Sender: TObject);
            procedure OehPoint1ByBeamBitBtnClick(Sender: TObject);
                procedure ChooseParDirBtnClick(Sender: TObject);
                    procedure btnLoadPhotoKorytoClick(Sender: TObject);
                        procedure imgPicModelSpinkaMouseUp(Sender: TObject;
                            Button: TMouseButton; Shift: TShiftState;
                            X, Y: Integer);
                            procedure imgPicModelKorytoMouseUp(Sender: TObject;
                                Button: TMouseButton; Shift: TShiftState;
                                X, Y: Integer);
                                procedure N2Click(Sender: TObject);
                                    procedure FormCreate(Sender: TObject);
                                        procedure LoadFromIni;
                                        procedure N1Click(Sender: TObject);
                                        procedure FormClose(Sender: TObject;
                                        var Action: TCloseAction);
                                        procedure mniDeleteBaseClick
                                        (Sender: TObject);
                                        procedure TochkaOnClick(Sender: TObject;

Что это может быть?

[Martin]

Вот значения Tools->Options->Formatter->Delphi:

[Alegun]

Сообщение от Martin

...Что это может быть?

Похоже, что вместо пробела вставляется табуляция и с каждой последующей строчкой увеличивается её шаг

[Martin]

Все, разобрались. Форматтеру не нравились вложенные описания записей:

Код:

    TSurfParameters = record
        SurfName: string; // Имя поверхности
        Point1: record // Координаты первой точки сканирования
        X: Double;
        Y: Double;
        Z: Double;
    end;
    end;