Как установить строку как ReadOnly - Dev Express VCL TcxRTTIInspector - PullRequest
Новая
       45

Как установить строку как ReadOnly - Dev Express VCL TcxRTTIInspector

0 голосов
/ 27 февраля 2020

Мы используем Delphi 10 с Dev Express V19.2.4.

cxMyRTTIInspector1.InspectedObject := myObject;

У нас есть 10 строк, я обнаружил, что первая строка ReadOnly и остальные 9 строк являются редактируемыми (полужирным шрифтом), (я не мог понять, почему, хотя у нас есть исходный код, но ...)

Есть ли способ установить строку как только для чтения? Спасибо

1 Ответ

1 голос
/ 27 февраля 2020

Вы можете заставить свойство быть недоступным для редактирования из TcxRTTIInspector следующим образом: 

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, cxGraphics, cxControls,
  cxLookAndFeels, cxLookAndFeelPainters, cxStyles, dxScrollbarAnnotations,
  cxEdit, cxInplaceContainer, cxVGrid, cxOI;

type
  TForm1 = class(TForm)
    cxRTTIInspector1: TcxRTTIInspector;
    procedure cxRTTIInspector1ItemChanged(Sender: TObject;
      AOldRow: TcxCustomRow; AOldCellIndex: Integer);
    procedure FormCreate(Sender: TObject);
  private
    FForcedReadOnlyProperty : string;
    { Private declarations }
  public
    function IsForcedReadOnlyProperty(const APropertyName : string) : boolean;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.IsForcedReadOnlyProperty(const APropertyName : string) : boolean;
begin
  Result := FForcedReadOnlyProperty = APropertyName;
end;

procedure TForm1.cxRTTIInspector1ItemChanged(Sender: TObject;
  AOldRow: TcxCustomRow; AOldCellIndex: Integer);
begin
  TcxRTTIInspector(Sender).OptionsData.Editing := (
    Assigned(TcxRTTIInspector(Sender).FocusedRow) and
    (not IsForcedReadOnlyProperty(TcxPropertyRow(TcxRTTIInspector(Sender).FocusedRow).Properties.Caption))
  );
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FForcedReadOnlyProperty := 'Caption';
  cxRTTIInspector1.InspectedObject := Self;
end;

end.

Если вы хотите выделить эти свойства, вы можете сделать это, используя Styles.OnGetContentStyle и / или Styles.OnGetHeaderStyle обработчики событий

...