unit Vis3D_VectorFieldSettings;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, TextEditor, Vcl.StdCtrls, rgl,
  UxPanel, Vcl.ExtCtrls, ColorContainer, ScrollBoxEx, Vis3D_GeoObjSettings;

type
  TVis3D_VectorFieldSettingsFrm = class(TVis3D_GeoObjSettingsFrm)
  public
    procedure Initialize; override;
    procedure UpdateDrawable; override;
  end;

implementation

{ TVis3D_VectorFieldSettingsFrm }

procedure TVis3D_VectorFieldSettingsFrm.Initialize;
begin
  inherited;
  var Obj := FDrawable as TVectorField;
  lblLineWidth.Caption := '&Size:';
  lblLineWidthUnit.Caption := '';
  eLineWidth.PlainText := FormatFloat('0.###', Obj.Size);
end;

procedure TVis3D_VectorFieldSettingsFrm.UpdateDrawable;
begin
  if not FInitialized then
    Exit;
  var Obj := FDrawable as TVectorField;
  Obj.Size := StrToFloat(eLineWidth.PlainText);
  inherited;
end;

end.
