ROPS (Rem Object Pascal Script) - встраиваемый интерпретатор языка Pascal. Плагин PSImport_StdCtrls


    PSImport_StdCtrls — плагин библиотеки импорта для модулей Delphi StdCtrls.pas (TCustomGroupBox, TGroupBox, TCustomLabel, TLabel, TCustomEdit, TEdit, TCustomMemo, TMemo, TCustomComboBox, TComboBox, TButtonControl, TButton, TCustomCheckBox, TCheckBox, TRadioButton, TCustomListBox, TListBox, TScrollBar), ExtCtrls.pas (TShape, TImage, TPaintBox, TBevel, TTimer, TCustomPanel, TPanel, TPage, TNotebook, THeader, TCustomRadioGroup, TRadioGroup) и Buttons.pas (TSpeedButton, TBitBtn).

Плагин добавляет в среду интерпретатора следующие данные:

Типы (список TPSPascalCompiler.FTypes):
  • TEditCharCase = Enum;
  • TScrollStyle = Enum;
  • TComboBoxStyle = Enum;
  • TDrawItemEvent = ProcPtr;
  • TMeasureItemEvent = ProcPtr;
  • TCheckBoxState = Enum;
  • TListBoxStyle = Enum;
  • TScrollCode = Enum;
  • TScrollEvent = ProcPtr;
  • TEOwnerDrawState = Enum;
  • TTextLayout = Enum;
  • TOwnerDrawState = Set;
  • TCustomGroupBox = Class;
  • TGroupBox = Class;
  • TCustomLabel = Class;
  • TLabel = Class;
  • TCustomEdit = Class;
  • TEdit = Class;
  • TCustomMemo = Class;
  • TMemo = Class;
  • TCustomComboBox = Class;
  • TComboBox = Class;
  • TButtonControl = Class;
  • TButton = Class;
  • TCustomCheckBox = Class;
  • TCheckBox = Class;
  • TRadioButton = Class;
  • TCustomListBox = Class;
  • TListBox = Class;
  • TScrollBar = Class;
  • TShapeType = Enum;
  • TBevelStyle = Enum;
  • TBevelShape = Enum;
  • TPanelBevel = Enum;
  • TBevelWidth = LongInt;
  • TBorderWidth = LongInt;
  • TSectionEvent = ProcPtr;
  • TShape = Class;
  • TImage = Class;
  • TPaintBox = Class;
  • TBevel = Class;
  • TTimer = Class;
  • TCustomPanel = Class;
  • TPanel = Class;
  • TPage = Class;
  • TNotebook = Class;
  • THeader = Class;
  • TCustomRadioGroup = Class;
  • TRadioGroup = Class;
  • TButtonLayout = Enum;
  • TButtonState = Enum;
  • TButtonStyle = Enum;
  • TBitBtnKind = Enum;
  • TSpeedButton = Class;
  • TBitBtn = Class;

Константы (список TPSPascalCompiler.FConstants):
  • ecNormal: TEditCharCase = 0;
  • ecUpperCase: TEditCharCase = 1;
  • ecLowerCase: TEditCharCase = 2;
  • ssNone: TScrollStyle = 0;
  • ssHorizontal: TScrollStyle = 1;
  • ssVertical: TScrollStyle = 2;
  • ssBoth: TScrollStyle = 3;
  • csDropDown: TComboBoxStyle = 0;
  • csSimple: TComboBoxStyle = 1;
  • csDropDownList: TComboBoxStyle = 2;
  • csOwnerDrawFixed: TComboBoxStyle = 3;
  • csOwnerDrawVariable: TComboBoxStyle = 4;
  • cbUnchecked: TCheckBoxState = 0;
  • cbChecked: TCheckBoxState = 1;
  • cbGrayed: TCheckBoxState = 2;
  • lbStandard: TListBoxStyle = 0;
  • lbOwnerDrawFixed: TListBoxStyle = 1;
  • lbOwnerDrawVariable: TListBoxStyle = 2;
  • scLineUp: TScrollCode = 0;
  • scLineDown: TScrollCode = 1;
  • scPageUp: TScrollCode = 2;
  • scPageDown: TScrollCode = 3;
  • scPosition: TScrollCode = 4;
  • scTrack: TScrollCode = 5;
  • scTop: TScrollCode = 6;
  • scBottom: TScrollCode = 7;
  • scEndScroll: TScrollCode = 8;
  • odSelected: TEOwnerDrawState = 0;
  • odGrayed: TEOwnerDrawState = 1;
  • odDisabled: TEOwnerDrawState = 2;
  • odChecked: TEOwnerDrawState = 3;
  • odFocused: TEOwnerDrawState = 4;
  • odDefault: TEOwnerDrawState = 5;
  • odHotLight: TEOwnerDrawState = 6;
  • odInactive: TEOwnerDrawState = 7;
  • odNoAccel: TEOwnerDrawState = 8;
  • odNoFocusRect: TEOwnerDrawState = 9;
  • odReserved1: TEOwnerDrawState = 10;
  • odReserved2: TEOwnerDrawState = 11;
  • odComboBoxEdit: TEOwnerDrawState = 12;
  • tlTop: TTextLayout = 0;
  • tlCenter: TTextLayout = 1;
  • tlBottom: TTextLayout = 2;
  • stRectangle: TShapeType = 0;
  • stSquare: TShapeType = 1;
  • stRoundRect: TShapeType = 2;
  • stRoundSquare: TShapeType = 3;
  • stEllipse: TShapeType = 4;
  • stCircle: TShapeType = 5;
  • bsLowered: TBevelStyle = 0;
  • bsRaised: TBevelStyle = 1;
  • bsBox: TBevelShape = 0;
  • bsFrame: TBevelShape = 1;
  • bsTopLine: TBevelShape = 2;
  • bsBottomLine: TBevelShape = 3;
  • bsLeftLine: TBevelShape = 4;
  • bsRightLine: TBevelShape = 5;
  • bsSpacer: TBevelShape = 6;
  • bvNone: TPanelBevel = 0;
  • bvLowered: TPanelBevel = 1;
  • bvRaised: TPanelBevel = 2;
  • bvSpace: TPanelBevel = 3;
  • blGlyphLeft: TButtonLayout = 0;
  • blGlyphRight: TButtonLayout = 1;
  • blGlyphTop: TButtonLayout = 2;
  • blGlyphBottom: TButtonLayout = 3;
  • bsUp: TButtonState = 0;
  • bsDisabled: TButtonState = 1;
  • bsDown: TButtonState = 2;
  • bsExclusive: TButtonState = 3;
  • bsAutoDetect: TButtonStyle = 0;
  • bsWin31: TButtonStyle = 1;
  • bsNew: TButtonStyle = 2;
  • bkCustom: TBitBtnKind = 0;
  • bkOK: TBitBtnKind = 1;
  • bkCancel: TBitBtnKind = 2;
  • bkHelp: TBitBtnKind = 3;
  • bkYes: TBitBtnKind = 4;
  • bkNo: TBitBtnKind = 5;
  • bkClose: TBitBtnKind = 6;
  • bkAbort: TBitBtnKind = 7;
  • bkRetry: TBitBtnKind = 8;
  • bkIgnore: TBitBtnKind = 9;
  • bkAll: TBitBtnKind = 10;

Классы (список TPSPascalCompiler.FClasses):
  • TCustomGroupBox = class(TCustomControl)
    end;
  • TGroupBox = class(TCustomGroupBox)
      property Caption: string read Get write Set;
      property ParentColor: Boolean read Get write Set;
      property ParentFont: Boolean read Get write Set;
      property OnClick: TNotifyEvent read Get write Set;
      property OnDblClick: TNotifyEvent read Get write Set;
      property OnEnter: TNotifyEvent read Get write Set;
      property OnExit: TNotifyEvent read Get write Set;
      property CTL3D: Boolean read Get write Set;
      property DragCursor: LongInt read Get write Set;
      property ParentCtl3D: Boolean read Get write Set;
      property ParentShowHint: Boolean read Get write Set;
    end;
  • TCustomLabel = class(TGraphicControl)
      property Canvas: TCanvas read Get;
    end;
  • TLabel = class(TCustomLabel)
      property AutoSize: Boolean read Get write Set;
      property Caption: string read Get write Set;
      property DragCursor: LongInt read Get write Set;
      property FocusControl: TWinControl read Get write Set;
      property Layout: TTextLayout read Get write Set;
      property ParentColor: Boolean read Get write Set;
      property ParentFont: Boolean read Get write Set;
      property ParentShowHint: Boolean read Get write Set;
      property ShowAccelChar: Boolean read Get write Set;
      property Transparent: Boolean read Get write Set;
      property WordWrap: Boolean read Get write Set;
      property OnClick: TNotifyEvent read Get write Set;
      property OnDblClick: TNotifyEvent read Get write Set;
    end;
  • TCustomEdit = class(TWinControl)
      procedure Clear;
      procedure ClearSelection;
      procedure SelectAll;
      property Modified: Boolean read Get write Set;
      property SelLength: LongInt read Get write Set;
      property SelStart: LongInt read Get write Set;
      property SelText: string read Get write Set;
      property Text: string read Get write Set;
      procedure CopyToClipboard;
      procedure CutToClipboard;
      procedure PasteFromClipboard;
      function GetSelTextBuf(Buffer: PChar; BufSize: LongInt): LongInt;
      procedure SetSelTextBuf(Buffer: PChar);
    end;
  • TEdit = class(TCustomEdit)
      property AutoSelect: Boolean read Get write Set;
      property AutoSize: Boolean read Get write
    ;
      property CharCase: TEditCharCase read Get write Set;
      property HideSelection: Boolean read Get write Set;
      property MaxLength: LongInt read Get write Set;
      property ParentColor: Boolean read Get write Set;
      property ParentFont: Boolean read Get write Set;
      property PasswordChar: Char read Get write Set;
      property ReadOnly: Boolean read Get write Set;
      property Text: string read Get write Set;
      property OnChange: TNotifyEvent read Get write Set;
      property OnClick: TNotifyEvent read Get write Set;
      property OnDblClick: TNotifyEvent read Get write Set;
      property OnEnter: TNotifyEvent read Get write Set;
      property OnExit: TNotifyEvent read Get write Set;
      property CTL3D: Boolean read Get write Set;
      property DragCursor: LongInt read Get write Set;
      property OEMConvert: Boolean read Get write Set;
      property ParentCtl3D: Boolean read Get write Set;
      property ParentShowHint: Boolean read Get write Set;
    end;
  • TCustomMemo = class(TCustomEdit)
    end;
  • TMemo = class(TCustomMemo)
      property HideSelection: Boolean read Get write Set;
      property MaxLength: LongInt read Get write Set;
      property ParentColor: Boolean read Get write Set;
      property ParentFont: Boolean read Get write Set;
      property ReadOnly: Boolean read Get write Set;
      property ScrollBars: TScrollStyle read Get write Set;
      property WantReturns: Boolean read Get write Set;
      property WantTabs: Boolean read Get write Set;
      property WordWrap: Boolean read Get write Set;
      property OnChange: TNotifyEvent read Get write Set;
      property OnClick: TNotifyEvent read Get write Set;
      property OnDblClick: TNotifyEvent read Get write Set;
      property OnEnter: TNotifyEvent read Get write Set;
      property OnExit: TNotifyEvent read Get write Set;
      property CTL3D: Boolean read Get write Set;
      property DragCursor: LongInt read Get write Set;
      property OEMConvert: Boolean read Get write Set;
      property ParentCtl3D: Boolean read Get write Set;
      property ParentShowHint: Boolean read Get write Set;
    end;
  • TCustomComboBox = class(TWinControl)
      property DroppedDown: Boolean read Get write Set;
      property ItemIndex: LongInt read Get write Set;
      procedure Clear;
      procedure SelectAll;
      property Canvas: TCanvas read Get;
      property SelLength: LongInt read Get write Set;
      property SelStart: LongInt read Get write Set;
      property SelText: string read Get write Set;
    end;
  • TComboBox = class(TCustomComboBox)
      property Style: TComboBoxStyle read Get write Set;
      property DropDownCount: LongInt read Get write Set;
      property MaxLength: LongInt read Get write Set;
      property ParentColor: Boolean read Get write Set;
      property ParentFont: Boolean read Get write Set;
      property Sorted: Boolean read Get write Set;
      property Text: string read Get write Set;
      property OnChange: TNotifyEvent read Get write Set;
      property OnClick: TNotifyEvent read Get write Set;
      property OnDblClick: TNotifyEvent read Get write Set;
      property OnDropDown: TNotifyEvent read Get write Set;
      property OnEnter: TNotifyEvent read Get write Set;
      property OnExit: TNotifyEvent read Get write Set;
      property CTL3D: Boolean read Get write Set;
      property DragCursor: LongInt read Get write Set;
      property ItemHeight: LongInt read Get write Set;
      property ParentCtl3D: Boolean read Get write Set;
      property ParentShowHint: Boolean read Get write Set;
      property OnDrawItem: TDrawItemEvent read Get write Set;
      property OnMeasureItem: TMeasureItemEvent read Get write Set;
    end;
  • TButtonControl = class(TWinControl)
    end;
  • TButton = class(TButtonControl)
      property Cancel: Boolean read Get write Set;
      property Caption: string read Get write Set;
      property Default: Boolean read Get write Set;
      property ModalResult: LongInt read Get write Set;
      property ParentFont: Boolean read Get write Set;
      property OnClick: TNotifyEvent read Get write Set;
      property OnEnter: TNotifyEvent read Get write Set;
      property OnExit: TNotifyEvent read Get write Set;
      property DragCursor: LongInt read Get write Set;
      property ParentShowHint: Boolean read Get write Set;
    end;
  • TCustomCheckBox = class(TButtonControl)
    end;
  • TCheckBox = class(TCustomCheckBox)
      property AllowGrayed: Boolean read Get write Set;
      property Caption: string read Get write Set;
      property Checked: Boolean read Get write Set;
      property ParentColor: Boolean read Get write Set;
      property ParentFont: Boolean read Get write Set;
      property State: TCheckBoxState read Get write Set;
      property OnClick: TNotifyEvent read Get write Set;
      property OnEnter: TNotifyEvent read Get write Set;
      property OnExit: TNotifyEvent read Get write Set;
      property CTL3D: Boolean read Get write Set;
      property DragCursor: LongInt read Get write Set;
      property ParentCtl3D: Boolean read Get write Set;
      property ParentShowHint: Boolean read Get write Set;
    end;
  • TRadioButton = class(TButtonControl)
      property Caption: string read Get write Set;
      property Checked: Boolean read Get write Set;
      property ParentColor: Boolean read Get write Set;
      property ParentFont: Boolean read Get write Set;
      property OnClick: TNotifyEvent read Get write Set;
      property OnDblClick: TNotifyEvent read Get write Set;
      property OnEnter: TNotifyEvent read Get write Set;
      property OnExit: TNotifyEvent read Get write Set;
      property CTL3D: Boolean read Get write Set;
      property DragCursor: LongInt read Get write Set;
      property ParentCtl3D: Boolean read Get write Set;
      property ParentShowHint: Boolean read Get write Set;
    end;
  • TCustomListBox = class(TWinControl)
      property ItemIndex: LongInt read Get write Set;
      property SelCount: LongInt read Get;
      property Selected(param1: LongInt): Boolean read Get write Set;
      procedure Clear;
      function ItemRect(Index: LongInt): TRect;
      property Canvas: TCanvas read Get;
      property TopIndex: LongInt read Get write Set;
    end;
  • TListBox = class(TCustomListBox)
      property MultiSelect: Boolean read Get write Set;
      property ParentColor: Boolean read Get write Set;
      property ParentFont: Boolean read Get write Set;
      property Sorted: Boolean read Get write Set;
      property Style: TListBoxStyle read Get write Set;
      property OnClick: TNotifyEvent read Get write Set;
      property OnDblClick: TNotifyEvent read Get write Set;
      property OnEnter: TNotifyEvent read Get write Set;
      property OnExit: TNotifyEvent read Get write Set;
      property Columns: LongInt read Get write Set;
      property CTL3D: Boolean read Get write Set;
      property DragCursor: LongInt read Get write Set;
      property ExtendedSelect: Boolean read Get write Set;
      property IntegralHeight: Boolean read Get write Set;
      property ItemHeight: LongInt read Get write Set;
      property ParentCtl3D: Boolean read Get write Set;
      property ParentShowHint: Boolean read Get write Set;
      property TabWidth: LongInt read Get write Set;
      property OnDrawItem: TDrawItemEvent read Get write Set;
      property OnMeasureItem: TMeasureItemEvent read Get write Set;
    end;
  • TScrollBar = class(TWinControl)
      property Max: LongInt read Get write Set;
      property Min: LongInt read Get write Set;
      property Position: LongInt read Get write Set;
      property OnChange: TNotifyEvent read Get write Set;
      property OnEnter: TNotifyEvent read Get write Set;
      property OnExit: TNotifyEvent read Get write Set;
      procedure SetParams(APosition: LongInt; AMin: LongInt; AMax: LongInt);
      property CTL3D: Boolean read Get write Set;
      property DragCursor: LongInt read Get write Set;
      property ParentCtl3D: Boolean read Get write Set;
      property ParentShowHint: Boolean read Get write Set;
      property OnScroll: TScrollEvent read Get write Set;
    end;
  • TShape = class(TGraphicControl)
      property Shape: TShapeType read Get write Set;
      procedure StyleChanged(Sender: TObject);
      property DragCursor: LongInt read Get write Set;
      property ParentShowHint: Boolean read Get write Set;
    end;
  • TImage = class(TGraphicControl)
      property Canvas: TCanvas read Get;
      property AutoSize: Boolean read Get write Set;
      property Center: Boolean read Get write Set;
      property Stretch: Boolean read Get write Set;
      property OnClick: TNotifyEvent read Get write Set;
      property OnDblClick: TNotifyEvent read Get write Set;
      property DragCursor: LongInt read Get write Set;
      property ParentShowHint: Boolean read Get write Set;
    end;
  • TPaintBox = class(TGraphicControl)
      property Canvas: TCanvas read Get;
      property ParentColor: Boolean read Get write Set;
      property ParentFont: Boolean read Get write Set;
      property OnClick: TNotifyEvent read Get write Set;
      property OnDblClick: TNotifyEvent read Get write Set;
      property OnPaint: TNotifyEvent read Get write Set;
      property DragCursor: LongInt read Get write Set;
      property ParentShowHint: Boolean read Get write Set;
    end;
  • TBevel = class(TGraphicControl)
      property Shape: TBevelShape read Get write Set;
      property Style: TBevelStyle read Get write Set;
      property ParentShowHint: Boolean read Get write Set;
    end;
  • TTimer = class(TComponent)
      property Enabled: Boolean read Get write Set;
      property Interval: LongWord read Get write Set;
      property OnTimer: TNotifyEvent read Get write Set;
    end;
  • TCustomPanel = class(TCustomControl)
    end;
  • TPanel = class(TCustomPanel)
      property BevelInner: TPanelBevel read Get write Set;
      property BevelOuter: TPanelBevel read Get write Set;
      property BevelWidth: LongInt read Get write Set;
      property BorderWidth: LongInt read Get write Set;
      property Caption: string read Get write Set;
      property ParentColor: Boolean read Get write Set;
      property ParentFont: Boolean read Get write Set;
      property OnClick: TNotifyEvent read Get write Set;
      property OnDblClick: TNotifyEvent read Get write Set;
      property OnEnter: TNotifyEvent read Get write Set;
      property OnExit: TNotifyEvent read Get write Set;
      property DragCursor: LongInt read Get write Set;
      property CTL3D: Boolean read Get write Set;
      property Locked: Boolean read Get write Set;
      property ParentCtl3D: Boolean read Get write Set;
      property ParentShowHint: Boolean read Get write Set;
      property OnResize: TNotifyEvent read Get write Set;
    end;
  • TPage = class(TCustomControl)
      property Caption: string read Get write Set;
    end;
  • TNotebook = class(TCustomControl)
      property ActivePage: string read Get write Set;
      property PageIndex: LongInt read Get write Set;
      property ParentColor: Boolean read Get write Set;
      property ParentFont: Boolean read Get write Set;
      property OnClick: TNotifyEvent read Get write Set;
      property OnDblClick: TNotifyEvent read Get write Set;
      property OnEnter: TNotifyEvent read Get write Set;
      property OnExit: TNotifyEvent read Get write Set;
      property OnPageChanged: TNotifyEvent read Get write Set;
      property CTL3D: Boolean read Get write Set;
      property DragCursor: LongInt read Get write Set;
      property ParentCtl3D: Boolean read Get write Set;
      property ParentShowHint: Boolean read Get write Set;
    end;
  • THeader = class(TCustomControl)
      property SectionWidth(param1: LongInt): LongInt read Get write Set;
      property AllowResize: Boolean read Get write Set;
      property ParentFont: Boolean read Get write Set;
      property OnSizing: TSectionEvent read Get write Set;
      property OnSized: TSectionEvent read Get write Set;
      property ParentShowHint: Boolean read Get write Set;
    end;
  • TCustomRadioGroup = class(TCustomGroupBox)
    end;
  • TRadioGroup = class(TCustomRadioGroup)
      property Caption: string read Get write Set;
      property Columns: LongInt read Get write Set;
      property ItemIndex: LongInt read Get write Set;
      property ParentColor: Boolean read Get write Set;
      property ParentFont: Boolean read Get write Set;
      property OnClick: TNotifyEvent read Get write Set;
      property OnEnter: TNotifyEvent read Get write Set;
      property OnExit: TNotifyEvent read Get write Set;
      property CTL3D: Boolean read Get write Set;
      property DragCursor: LongInt read Get write Set;
      property ParentCtl3D: Boolean read Get write Set;
      property ParentShowHint: Boolean read Get write Set;
    end;
  • TSpeedButton = class(TGraphicControl)
      property AllowAllUp: Boolean read Get write Set;
      property GroupIndex: LongInt read Get write Set;
      property Down: Boolean read Get write Set;
      property Caption: string read Get write Set;
      property Layout: TButtonLayout read Get write Set;
      property Margin: LongInt read Get write Set;
      property NumGlyphs: Byte read Get write Set;
      property ParentFont: Boolean read Get write Set;
      property ParentShowHint: Boolean read Get write Set;
      property Spacing: LongInt read Get write Set;
      property OnClick: TNotifyEvent read Get write Set;
      property OnDblClick: TNotifyEvent read Get write Set;
    end;
  • TBitBtn = class(TButton)
      property Kind: TBitBtnKind read Get write Set;
      property Layout: TButtonLayout read Get write Set;
      property Margin: LongInt read Get write Set;
      property NumGlyphs: Byte read Get write Set;
      property Style: TButtonStyle read Get write Set;
      property Spacing: LongInt read Get write Set;
    end;

Зависимости

  Плагин зависит от следующих типов и классов, которые должны быть обьявлены предварительно:
  • TDrawItemEvent = procedure(Control: TWinControl; Index: Integer; Rect: TRect; State: Byte);
    — требует ссылки на TWinControl (плагин PSImport_Controls) и TRect (плагин PSImport_Classes);
  • TScrollEvent = procedure(Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer);
    — требует ссылки на TObject (плагин PSImport_Classes) и TScrollCode (плагин PSImport_Controls);

  • +3
  • 07 октября 2022, 21:11
  • anakost

Комментарии (0)

RSS свернуть / развернуть
Только зарегистрированные и авторизованные пользователи могут оставлять комментарии.