david
f2dddaa81b
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.FastReport@13 475b051d-3a53-6940-addd-820bf0cfe0d7
1624 lines
42 KiB
ObjectPascal
1624 lines
42 KiB
ObjectPascal
|
|
{******************************************}
|
|
{ }
|
|
{ FastReport v2.4 - Dialog designer }
|
|
{ Standard Dialog controls }
|
|
{ }
|
|
{ Copyright (c) 1998-2007 }
|
|
{ by Alexander Tzyganenko, }
|
|
{ Fast Reports Inc. }
|
|
{ }
|
|
{******************************************}
|
|
|
|
unit frxDCtrl;
|
|
|
|
interface
|
|
|
|
{$I frx.inc}
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, StdCtrls,
|
|
ExtCtrls, Forms, Menus, Dialogs, Comctrls, Buttons, Mask, CheckLst, frxClass
|
|
{$IFDEF Delphi6}
|
|
, Variants
|
|
{$ENDIF};
|
|
|
|
|
|
type
|
|
TfrxDialogControls = class(TComponent) // fake component
|
|
end;
|
|
|
|
TfrxLabelControl = class(TfrxDialogControl)
|
|
private
|
|
FLabel: TLabel;
|
|
function GetAlignment: TAlignment;
|
|
function GetAutoSize: Boolean;
|
|
function GetWordWrap: Boolean;
|
|
procedure SetAlignment(const Value: TAlignment);
|
|
procedure SetAutoSize(const Value: Boolean);
|
|
procedure SetWordWrap(const Value: Boolean);
|
|
public
|
|
constructor Create(AOwner: TComponent); override;
|
|
class function GetDescription: String; override;
|
|
procedure BeforeStartReport; override;
|
|
procedure Draw(Canvas: TCanvas; ScaleX, ScaleY, OffsetX, OffsetY: Extended); override;
|
|
property LabelCtl: TLabel read FLabel;
|
|
published
|
|
property Alignment: TAlignment read GetAlignment write SetAlignment
|
|
default taLeftJustify;
|
|
property AutoSize: Boolean read GetAutoSize write SetAutoSize default True;
|
|
property Caption;
|
|
property Color;
|
|
property WordWrap: Boolean read GetWordWrap write SetWordWrap default False;
|
|
|
|
property OnClick;
|
|
property OnDblClick;
|
|
property OnMouseDown;
|
|
property OnMouseMove;
|
|
property OnMouseUp;
|
|
end;
|
|
|
|
TfrxCustomEditControl = class(TfrxDialogControl)
|
|
private
|
|
FOnChange: TfrxNotifyEvent;
|
|
function GetMaxLength: Integer;
|
|
function GetPasswordChar: Char;
|
|
function GetReadOnly: Boolean;
|
|
function GetText: String;
|
|
procedure DoOnChange(Sender: TObject);
|
|
procedure SetMaxLength(const Value: Integer);
|
|
procedure SetPasswordChar(const Value: Char);
|
|
procedure SetReadOnly(const Value: Boolean);
|
|
procedure SetText(const Value: String);
|
|
protected
|
|
FCustomEdit: TCustomEdit;
|
|
public
|
|
constructor Create(AOwner: TComponent); override;
|
|
property MaxLength: Integer read GetMaxLength write SetMaxLength;
|
|
property PasswordChar: Char read GetPasswordChar write SetPasswordChar;
|
|
property ReadOnly: Boolean read GetReadOnly write SetReadOnly default False;
|
|
property Text: String read GetText write SetText;
|
|
property OnChange: TfrxNotifyEvent read FOnChange write FOnChange;
|
|
end;
|
|
|
|
TfrxEditControl = class(TfrxCustomEditControl)
|
|
private
|
|
FEdit: TEdit;
|
|
public
|
|
constructor Create(AOwner: TComponent); override;
|
|
class function GetDescription: String; override;
|
|
property Edit: TEdit read FEdit;
|
|
published
|
|
property Color;
|
|
property MaxLength;
|
|
property PasswordChar;
|
|
property ReadOnly;
|
|
property TabStop;
|
|
property Text;
|
|
property OnChange;
|
|
property OnClick;
|
|
property OnDblClick;
|
|
property OnEnter;
|
|
property OnExit;
|
|
property OnKeyDown;
|
|
property OnKeyPress;
|
|
property OnKeyUp;
|
|
property OnMouseDown;
|
|
property OnMouseMove;
|
|
property OnMouseUp;
|
|
end;
|
|
|
|
TfrxMemoControl = class(TfrxCustomEditControl)
|
|
private
|
|
FMemo: TMemo;
|
|
function GetLines: TStrings;
|
|
procedure SetLines(const Value: TStrings);
|
|
function GetScrollStyle: TScrollStyle;
|
|
function GetWordWrap: Boolean;
|
|
procedure SetScrollStyle(const Value: TScrollStyle);
|
|
procedure SetWordWrap(const Value: Boolean);
|
|
public
|
|
constructor Create(AOwner: TComponent); override;
|
|
class function GetDescription: String; override;
|
|
property Memo: TMemo read FMemo;
|
|
published
|
|
property Color;
|
|
property Lines: TStrings read GetLines write SetLines;
|
|
property MaxLength;
|
|
property ReadOnly;
|
|
property ScrollBars: TScrollStyle read GetScrollStyle write SetScrollStyle default ssNone;
|
|
property TabStop;
|
|
property WordWrap: Boolean read GetWordWrap write SetWordWrap default True;
|
|
property OnChange;
|
|
property OnClick;
|
|
property OnDblClick;
|
|
property OnEnter;
|
|
property OnExit;
|
|
property OnKeyDown;
|
|
property OnKeyPress;
|
|
property OnKeyUp;
|
|
property OnMouseDown;
|
|
property OnMouseMove;
|
|
property OnMouseUp;
|
|
end;
|
|
|
|
TfrxButtonControl = class(TfrxDialogControl)
|
|
private
|
|
FButton: TButton;
|
|
function GetCancel: Boolean;
|
|
function GetDefault: Boolean;
|
|
function GetModalResult: TModalResult;
|
|
procedure SetCancel(const Value: Boolean);
|
|
procedure SetDefault(const Value: Boolean);
|
|
procedure SetModalResult(const Value: TModalResult);
|
|
public
|
|
constructor Create(AOwner: TComponent); override;
|
|
class function GetDescription: String; override;
|
|
property Button: TButton read FButton;
|
|
published
|
|
property Cancel: Boolean read GetCancel write SetCancel default False;
|
|
property Caption;
|
|
property Default: Boolean read GetDefault write SetDefault default False;
|
|
property ModalResult: TModalResult read GetModalResult write SetModalResult default mrNone;
|
|
property TabStop;
|
|
property OnClick;
|
|
property OnEnter;
|
|
property OnExit;
|
|
property OnKeyDown;
|
|
property OnKeyPress;
|
|
property OnKeyUp;
|
|
property OnMouseDown;
|
|
property OnMouseMove;
|
|
property OnMouseUp;
|
|
end;
|
|
|
|
TfrxCheckBoxControl = class(TfrxDialogControl)
|
|
private
|
|
FCheckBox: TCheckBox;
|
|
function GetAlignment: TAlignment;
|
|
function GetAllowGrayed: Boolean;
|
|
function GetChecked: Boolean;
|
|
function GetState: TCheckBoxState;
|
|
procedure SetAlignment(const Value: TAlignment);
|
|
procedure SetAllowGrayed(const Value: Boolean);
|
|
procedure SetChecked(const Value: Boolean);
|
|
procedure SetState(const Value: TCheckBoxState);
|
|
{$IFDEF Delphi7}
|
|
function GetWordWrap: Boolean;
|
|
procedure SetWordWrap(const Value: Boolean);
|
|
{$ENDIF}
|
|
public
|
|
constructor Create(AOwner: TComponent); override;
|
|
class function GetDescription: String; override;
|
|
property CheckBox: TCheckBox read FCheckBox;
|
|
published
|
|
property Alignment: TAlignment read GetAlignment write SetAlignment
|
|
default taRightJustify;
|
|
property Caption;
|
|
property Checked: Boolean read GetChecked write SetChecked default False;
|
|
property AllowGrayed: Boolean read GetAllowGrayed write SetAllowGrayed default False;
|
|
property State: TCheckBoxState read GetState write SetState default cbUnchecked;
|
|
property TabStop;
|
|
{$IFDEF Delphi7}
|
|
property WordWrap: Boolean read GetWordWrap write SetWordWrap default False;
|
|
{$ENDIF}
|
|
property Color;
|
|
property OnClick;
|
|
property OnEnter;
|
|
property OnExit;
|
|
property OnKeyDown;
|
|
property OnKeyPress;
|
|
property OnKeyUp;
|
|
property OnMouseDown;
|
|
property OnMouseMove;
|
|
property OnMouseUp;
|
|
end;
|
|
|
|
TfrxRadioButtonControl = class(TfrxDialogControl)
|
|
private
|
|
FRadioButton: TRadioButton;
|
|
function GetAlignment: TAlignment;
|
|
function GetChecked: Boolean;
|
|
procedure SetAlignment(const Value: TAlignment);
|
|
procedure SetChecked(const Value: Boolean);
|
|
{$IFDEF Delphi7}
|
|
function GetWordWrap: Boolean;
|
|
procedure SetWordWrap(const Value: Boolean);
|
|
{$ENDIF}
|
|
public
|
|
constructor Create(AOwner: TComponent); override;
|
|
class function GetDescription: String; override;
|
|
property RadioButton: TRadioButton read FRadioButton;
|
|
published
|
|
property Alignment: TAlignment read GetAlignment write SetAlignment
|
|
default taRightJustify;
|
|
property Caption;
|
|
property Checked: Boolean read GetChecked write SetChecked default False;
|
|
property TabStop;
|
|
{$IFDEF Delphi7}
|
|
property WordWrap: Boolean read GetWordWrap write SetWordWrap default False;
|
|
{$ENDIF}
|
|
property Color;
|
|
property OnClick;
|
|
property OnDblClick;
|
|
property OnEnter;
|
|
property OnExit;
|
|
property OnKeyDown;
|
|
property OnKeyPress;
|
|
property OnKeyUp;
|
|
property OnMouseDown;
|
|
property OnMouseMove;
|
|
property OnMouseUp;
|
|
end;
|
|
|
|
TfrxListBoxControl = class(TfrxDialogControl)
|
|
private
|
|
FListBox: TListBox;
|
|
function GetItems: TStrings;
|
|
procedure SetItems(const Value: TStrings);
|
|
function GetItemIndex: Integer;
|
|
procedure SetItemIndex(const Value: Integer);
|
|
public
|
|
constructor Create(AOwner: TComponent); override;
|
|
class function GetDescription: String; override;
|
|
property ListBox: TListBox read FListBox;
|
|
property ItemIndex: Integer read GetItemIndex write SetItemIndex;
|
|
published
|
|
property Color;
|
|
property Items: TStrings read GetItems write SetItems;
|
|
property TabStop;
|
|
property OnClick;
|
|
property OnDblClick;
|
|
property OnEnter;
|
|
property OnExit;
|
|
property OnKeyDown;
|
|
property OnKeyPress;
|
|
property OnKeyUp;
|
|
property OnMouseDown;
|
|
property OnMouseMove;
|
|
property OnMouseUp;
|
|
end;
|
|
|
|
TfrxComboBoxControl = class(TfrxDialogControl)
|
|
private
|
|
FComboBox: TComboBox;
|
|
FOnChange: TfrxNotifyEvent;
|
|
function GetItemIndex: Integer;
|
|
function GetItems: TStrings;
|
|
function GetStyle: TComboBoxStyle;
|
|
function GetText: String;
|
|
procedure DoOnChange(Sender: TObject);
|
|
procedure SetItemIndex(const Value: Integer);
|
|
procedure SetItems(const Value: TStrings);
|
|
procedure SetStyle(const Value: TComboBoxStyle);
|
|
procedure SetText(const Value: String);
|
|
public
|
|
constructor Create(AOwner: TComponent); override;
|
|
class function GetDescription: String; override;
|
|
property ComboBox: TComboBox read FComboBox;
|
|
published
|
|
property Color;
|
|
property Items: TStrings read GetItems write SetItems;
|
|
property Style: TComboBoxStyle read GetStyle write SetStyle default csDropDown;
|
|
property TabStop;
|
|
property Text: String read GetText write SetText;
|
|
property ItemIndex: Integer read GetItemIndex write SetItemIndex;
|
|
property OnChange: TfrxNotifyEvent read FOnChange write FOnChange;
|
|
property OnClick;
|
|
property OnDblClick;
|
|
property OnEnter;
|
|
property OnExit;
|
|
property OnKeyDown;
|
|
property OnKeyPress;
|
|
property OnKeyUp;
|
|
end;
|
|
|
|
TfrxPanelControl = class(TfrxDialogControl)
|
|
private
|
|
FPanel: TPanel;
|
|
function GetAlignment: TAlignment;
|
|
function GetBevelInner: TPanelBevel;
|
|
function GetBevelOuter: TPanelBevel;
|
|
function GetBevelWidth: Integer;
|
|
procedure SetAlignment(const Value: TAlignment);
|
|
procedure SetBevelInner(const Value: TPanelBevel);
|
|
procedure SetBevelOuter(const Value: TPanelBevel);
|
|
procedure SetBevelWidth(const Value: Integer);
|
|
public
|
|
constructor Create(AOwner: TComponent); override;
|
|
class function GetDescription: String; override;
|
|
property Panel: TPanel read FPanel;
|
|
published
|
|
property Alignment: TAlignment read GetAlignment write SetAlignment default taCenter;
|
|
property BevelInner: TPanelBevel read GetBevelInner write SetBevelInner default bvNone;
|
|
property BevelOuter: TPanelBevel read GetBevelOuter write SetBevelOuter default bvRaised;
|
|
property BevelWidth: Integer read GetBevelWidth write SetBevelWidth default 1;
|
|
property Caption;
|
|
property Color;
|
|
property OnClick;
|
|
property OnDblClick;
|
|
property OnEnter;
|
|
property OnExit;
|
|
property OnMouseDown;
|
|
property OnMouseMove;
|
|
property OnMouseUp;
|
|
end;
|
|
|
|
TfrxGroupBoxControl = class(TfrxDialogControl)
|
|
private
|
|
FGroupBox: TGroupBox;
|
|
public
|
|
constructor Create(AOwner: TComponent); override;
|
|
class function GetDescription: String; override;
|
|
property GroupBox: TGroupBox read FGroupBox;
|
|
published
|
|
property Caption;
|
|
property Color;
|
|
property OnClick;
|
|
property OnDblClick;
|
|
property OnEnter;
|
|
property OnExit;
|
|
property OnMouseDown;
|
|
property OnMouseMove;
|
|
property OnMouseUp;
|
|
end;
|
|
|
|
TfrxDateEditControl = class(TfrxDialogControl)
|
|
private
|
|
FDateEdit: TDateTimePicker;
|
|
FOnChange: TfrxNotifyEvent;
|
|
function GetDate: TDate;
|
|
function GetTime: TTime;
|
|
function GetDateFormat: TDTDateFormat;
|
|
function GetKind: TDateTimeKind;
|
|
procedure DoOnChange(Sender: TObject);
|
|
procedure SetDate(const Value: TDate);
|
|
procedure SetTime(const Value: TTime);
|
|
procedure SetDateFormat(const Value: TDTDateFormat);
|
|
procedure SetKind(const Value: TDateTimeKind);
|
|
public
|
|
constructor Create(AOwner: TComponent); override;
|
|
class function GetDescription: String; override;
|
|
property DateEdit: TDateTimePicker read FDateEdit;
|
|
published
|
|
property Color;
|
|
property Date: TDate read GetDate write SetDate;
|
|
property DateFormat: TDTDateFormat read GetDateFormat write SetDateFormat
|
|
default dfShort;
|
|
property Kind: TDateTimeKind read GetKind write SetKind default dtkDate;
|
|
property TabStop;
|
|
property Time: TTime read GetTime write SetTime;
|
|
property OnChange: TfrxNotifyEvent read FOnChange write FOnChange;
|
|
property OnClick;
|
|
property OnDblClick;
|
|
property OnEnter;
|
|
property OnExit;
|
|
property OnKeyDown;
|
|
property OnKeyPress;
|
|
property OnKeyUp;
|
|
end;
|
|
|
|
TfrxImageControl = class(TfrxDialogControl)
|
|
private
|
|
FImage: TImage;
|
|
function GetAutoSize: Boolean;
|
|
function GetCenter: Boolean;
|
|
function GetPicture: TPicture;
|
|
function GetStretch: Boolean;
|
|
procedure SetAutoSize(const Value: Boolean);
|
|
procedure SetCenter(const Value: Boolean);
|
|
procedure SetPicture(const Value: TPicture);
|
|
procedure SetStretch(const Value: Boolean);
|
|
public
|
|
constructor Create(AOwner: TComponent); override;
|
|
class function GetDescription: String; override;
|
|
property Image: TImage read FImage;
|
|
published
|
|
property AutoSize: Boolean read GetAutoSize write SetAutoSize default False;
|
|
property Center: Boolean read GetCenter write SetCenter default False;
|
|
property Picture: TPicture read GetPicture write SetPicture;
|
|
property Stretch: Boolean read GetStretch write SetStretch default False;
|
|
property OnClick;
|
|
property OnDblClick;
|
|
property OnMouseDown;
|
|
property OnMouseMove;
|
|
property OnMouseUp;
|
|
end;
|
|
|
|
TfrxBevelControl = class(TfrxDialogControl)
|
|
private
|
|
FBevel: TBevel;
|
|
function GetBevelShape: TBevelShape;
|
|
function GetBevelStyle: TBevelStyle;
|
|
procedure SetBevelShape(const Value: TBevelShape);
|
|
procedure SetBevelStyle(const Value: TBevelStyle);
|
|
public
|
|
constructor Create(AOwner: TComponent); override;
|
|
class function GetDescription: String; override;
|
|
property Bevel: TBevel read FBevel;
|
|
published
|
|
property Shape: TBevelShape read GetBevelShape write SetBevelShape default bsBox;
|
|
property Style: TBevelStyle read GetBevelStyle write SetBevelStyle default bsLowered;
|
|
end;
|
|
|
|
TfrxBitBtnControl = class(TfrxDialogControl)
|
|
private
|
|
FBitBtn: TBitBtn;
|
|
function GetGlyph: TBitmap;
|
|
function GetKind: TBitBtnKind;
|
|
function GetLayout: TButtonLayout;
|
|
function GetMargin: Integer;
|
|
function GetModalResult: TModalResult;
|
|
function GetSpacing: Integer;
|
|
procedure SetGlyph(const Value: TBitmap);
|
|
procedure SetKind(const Value: TBitBtnKind);
|
|
procedure SetLayout(const Value: TButtonLayout);
|
|
procedure SetMargin(const Value: Integer);
|
|
procedure SetModalResult(const Value: TModalResult);
|
|
procedure SetSpacing(const Value: Integer);
|
|
function GetNumGlyphs: Integer;
|
|
procedure SetNumGlyphs(const Value: Integer);
|
|
public
|
|
constructor Create(AOwner: TComponent); override;
|
|
class function GetDescription: String; override;
|
|
property BitBtn: TBitBtn read FBitBtn;
|
|
published
|
|
property Glyph: TBitmap read GetGlyph write SetGlyph;
|
|
property Kind: TBitBtnKind read GetKind write SetKind default bkCustom;
|
|
property Caption; // should be after Kind prop
|
|
property Layout: TButtonLayout read GetLayout write SetLayout default blGlyphLeft;
|
|
property Margin: Integer read GetMargin write SetMargin default -1;
|
|
property ModalResult: TModalResult read GetModalResult write SetModalResult default mrNone;
|
|
property NumGlyphs: Integer read GetNumGlyphs write SetNumGlyphs default 1;
|
|
property Spacing: Integer read GetSpacing write SetSpacing default 4;
|
|
property TabStop;
|
|
property OnClick;
|
|
property OnEnter;
|
|
property OnExit;
|
|
property OnKeyDown;
|
|
property OnKeyPress;
|
|
property OnKeyUp;
|
|
property OnMouseDown;
|
|
property OnMouseMove;
|
|
property OnMouseUp;
|
|
end;
|
|
|
|
TfrxSpeedButtonControl = class(TfrxDialogControl)
|
|
private
|
|
FSpeedButton: TSpeedButton;
|
|
function GetAllowAllUp: Boolean;
|
|
function GetDown: Boolean;
|
|
function GetFlat: Boolean;
|
|
function GetGlyph: TBitmap;
|
|
function GetGroupIndex: Integer;
|
|
function GetLayout: TButtonLayout;
|
|
function GetMargin: Integer;
|
|
function GetSpacing: Integer;
|
|
procedure SetAllowAllUp(const Value: Boolean);
|
|
procedure SetDown(const Value: Boolean);
|
|
procedure SetFlat(const Value: Boolean);
|
|
procedure SetGlyph(const Value: TBitmap);
|
|
procedure SetGroupIndex(const Value: Integer);
|
|
procedure SetLayout(const Value: TButtonLayout);
|
|
procedure SetMargin(const Value: Integer);
|
|
procedure SetSpacing(const Value: Integer);
|
|
public
|
|
constructor Create(AOwner: TComponent); override;
|
|
class function GetDescription: String; override;
|
|
property SpeedButton: TSpeedButton read FSpeedButton;
|
|
published
|
|
property AllowAllUp: Boolean read GetAllowAllUp write SetAllowAllUp default False;
|
|
property Caption;
|
|
property Down: Boolean read GetDown write SetDown default False;
|
|
property Flat: Boolean read GetFlat write SetFlat default False;
|
|
property Glyph: TBitmap read GetGlyph write SetGlyph;
|
|
property GroupIndex: Integer read GetGroupIndex write SetGroupIndex;
|
|
property Layout: TButtonLayout read GetLayout write SetLayout default blGlyphLeft;
|
|
property Margin: Integer read GetMargin write SetMargin default -1;
|
|
property Spacing: Integer read GetSpacing write SetSpacing default 4;
|
|
property OnClick;
|
|
property OnDblClick;
|
|
property OnMouseDown;
|
|
property OnMouseMove;
|
|
property OnMouseUp;
|
|
end;
|
|
|
|
TfrxMaskEditControl = class(TfrxCustomEditControl)
|
|
private
|
|
FMaskEdit: TMaskEdit;
|
|
function GetEditMask: String;
|
|
procedure SetEditMask(const Value: String);
|
|
public
|
|
constructor Create(AOwner: TComponent); override;
|
|
class function GetDescription: String; override;
|
|
property MaskEdit: TMaskEdit read FMaskEdit;
|
|
published
|
|
property Color;
|
|
property EditMask: String read GetEditMask write SetEditMask;
|
|
property MaxLength;
|
|
property ReadOnly;
|
|
property TabStop;
|
|
property Text;
|
|
property OnChange;
|
|
property OnClick;
|
|
property OnDblClick;
|
|
property OnEnter;
|
|
property OnExit;
|
|
property OnKeyDown;
|
|
property OnKeyPress;
|
|
property OnKeyUp;
|
|
property OnMouseDown;
|
|
property OnMouseMove;
|
|
property OnMouseUp;
|
|
end;
|
|
|
|
TfrxCheckListBoxControl = class(TfrxDialogControl)
|
|
private
|
|
FCheckListBox: TCheckListBox;
|
|
function GetAllowGrayed: Boolean;
|
|
function GetItems: TStrings;
|
|
function GetSorted: Boolean;
|
|
function GetChecked(Index: Integer): Boolean;
|
|
function GetState(Index: Integer): TCheckBoxState;
|
|
procedure SetAllowGrayed(const Value: Boolean);
|
|
procedure SetItems(const Value: TStrings);
|
|
procedure SetSorted(const Value: Boolean);
|
|
procedure SetChecked(Index: Integer; const Value: Boolean);
|
|
procedure SetState(Index: Integer; const Value: TCheckBoxState);
|
|
function GetItemIndex: Integer;
|
|
procedure SetItemIndex(const Value: Integer);
|
|
public
|
|
constructor Create(AOwner: TComponent); override;
|
|
class function GetDescription: String; override;
|
|
property CheckListBox: TCheckListBox read FCheckListBox;
|
|
property Checked[Index: Integer]: Boolean read GetChecked write SetChecked;
|
|
property ItemIndex: Integer read GetItemIndex write SetItemIndex;
|
|
property State[Index: Integer]: TCheckBoxState read GetState write SetState;
|
|
published
|
|
property AllowGrayed: Boolean read GetAllowGrayed write SetAllowGrayed default False;
|
|
property Color;
|
|
property Items: TStrings read GetItems write SetItems;
|
|
property Sorted: Boolean read GetSorted write SetSorted default False;
|
|
property TabStop;
|
|
property OnClick;
|
|
property OnDblClick;
|
|
property OnEnter;
|
|
property OnExit;
|
|
property OnKeyDown;
|
|
property OnKeyPress;
|
|
property OnKeyUp;
|
|
property OnMouseDown;
|
|
property OnMouseMove;
|
|
property OnMouseUp;
|
|
end;
|
|
|
|
|
|
|
|
implementation
|
|
|
|
uses frxDCtrlRTTI, frxUtils, frxDsgnIntf, frxRes;
|
|
|
|
type
|
|
THackCustomEdit = class(TCustomEdit);
|
|
|
|
|
|
{ TfrxLabelControl }
|
|
|
|
constructor TfrxLabelControl.Create(AOwner: TComponent);
|
|
begin
|
|
inherited;
|
|
FLabel := TLabel.Create(nil);
|
|
InitControl(FLabel);
|
|
end;
|
|
|
|
class function TfrxLabelControl.GetDescription: String;
|
|
begin
|
|
Result := frxResources.Get('obLabel');
|
|
end;
|
|
|
|
procedure TfrxLabelControl.Draw(Canvas: TCanvas; ScaleX, ScaleY, OffsetX,
|
|
OffsetY: Extended);
|
|
begin
|
|
if FLabel.AutoSize then
|
|
begin
|
|
Width := FLabel.Width;
|
|
Height := FLabel.Height;
|
|
end
|
|
else
|
|
begin
|
|
FLabel.Width := Round(Width);
|
|
FLabel.Height := Round(Height);
|
|
end;
|
|
inherited;
|
|
end;
|
|
|
|
function TfrxLabelControl.GetAlignment: TAlignment;
|
|
begin
|
|
Result := FLabel.Alignment;
|
|
end;
|
|
|
|
function TfrxLabelControl.GetAutoSize: Boolean;
|
|
begin
|
|
Result := FLabel.AutoSize;
|
|
end;
|
|
|
|
function TfrxLabelControl.GetWordWrap: Boolean;
|
|
begin
|
|
Result := FLabel.WordWrap;
|
|
end;
|
|
|
|
procedure TfrxLabelControl.SetAlignment(const Value: TAlignment);
|
|
begin
|
|
FLabel.Alignment := Value;
|
|
end;
|
|
|
|
procedure TfrxLabelControl.SetAutoSize(const Value: Boolean);
|
|
begin
|
|
FLabel.AutoSize := Value;
|
|
end;
|
|
|
|
procedure TfrxLabelControl.SetWordWrap(const Value: Boolean);
|
|
begin
|
|
FLabel.WordWrap := Value;
|
|
end;
|
|
|
|
procedure TfrxLabelControl.BeforeStartReport;
|
|
begin
|
|
if not FLabel.AutoSize then
|
|
begin
|
|
FLabel.Width := Round(Width);
|
|
FLabel.Height := Round(Height);
|
|
end;
|
|
end;
|
|
|
|
|
|
{ TfrxCustomEditControl }
|
|
|
|
constructor TfrxCustomEditControl.Create(AOwner: TComponent);
|
|
begin
|
|
inherited;
|
|
THackCustomEdit(FCustomEdit).OnChange := DoOnChange;
|
|
InitControl(FCustomEdit);
|
|
end;
|
|
|
|
function TfrxCustomEditControl.GetMaxLength: Integer;
|
|
begin
|
|
Result := THackCustomEdit(FCustomEdit).MaxLength;
|
|
end;
|
|
|
|
function TfrxCustomEditControl.GetPasswordChar: Char;
|
|
begin
|
|
Result := THackCustomEdit(FCustomEdit).PasswordChar;
|
|
end;
|
|
|
|
function TfrxCustomEditControl.GetReadOnly: Boolean;
|
|
begin
|
|
Result := THackCustomEdit(FCustomEdit).ReadOnly;
|
|
end;
|
|
|
|
function TfrxCustomEditControl.GetText: String;
|
|
begin
|
|
Result := THackCustomEdit(FCustomEdit).Text;
|
|
end;
|
|
|
|
procedure TfrxCustomEditControl.SetMaxLength(const Value: Integer);
|
|
begin
|
|
THackCustomEdit(FCustomEdit).MaxLength := Value;
|
|
end;
|
|
|
|
procedure TfrxCustomEditControl.SetPasswordChar(const Value: Char);
|
|
begin
|
|
THackCustomEdit(FCustomEdit).PasswordChar := Value;
|
|
end;
|
|
|
|
procedure TfrxCustomEditControl.SetReadOnly(const Value: Boolean);
|
|
begin
|
|
THackCustomEdit(FCustomEdit).ReadOnly := Value;
|
|
end;
|
|
|
|
procedure TfrxCustomEditControl.SetText(const Value: String);
|
|
begin
|
|
THackCustomEdit(FCustomEdit).Text := Value;
|
|
end;
|
|
|
|
procedure TfrxCustomEditControl.DoOnChange(Sender: TObject);
|
|
begin
|
|
if Report <> nil then
|
|
Report.DoNotifyEvent(Self, FOnChange);
|
|
end;
|
|
|
|
|
|
{ TfrxEditControl }
|
|
|
|
constructor TfrxEditControl.Create(AOwner: TComponent);
|
|
begin
|
|
FEdit := TEdit.Create(nil);
|
|
FCustomEdit := FEdit;
|
|
inherited;
|
|
|
|
Width := 121;
|
|
Height := 21;
|
|
end;
|
|
|
|
class function TfrxEditControl.GetDescription: String;
|
|
begin
|
|
Result := frxResources.Get('obEdit');
|
|
end;
|
|
|
|
|
|
{ TfrxMemoControl }
|
|
|
|
constructor TfrxMemoControl.Create(AOwner: TComponent);
|
|
begin
|
|
FMemo := TMemo.Create(nil);
|
|
FCustomEdit := FMemo;
|
|
inherited;
|
|
|
|
Width := 185;
|
|
Height := 89;
|
|
end;
|
|
|
|
class function TfrxMemoControl.GetDescription: String;
|
|
begin
|
|
Result := frxResources.Get('obMemoC');
|
|
end;
|
|
|
|
function TfrxMemoControl.GetLines: TStrings;
|
|
begin
|
|
Result := FMemo.Lines;
|
|
end;
|
|
|
|
function TfrxMemoControl.GetScrollStyle: TScrollStyle;
|
|
begin
|
|
Result := FMemo.ScrollBars;
|
|
end;
|
|
|
|
function TfrxMemoControl.GetWordWrap: Boolean;
|
|
begin
|
|
Result := FMemo.WordWrap;
|
|
end;
|
|
|
|
procedure TfrxMemoControl.SetLines(const Value: TStrings);
|
|
begin
|
|
FMemo.Lines := Value;
|
|
end;
|
|
|
|
procedure TfrxMemoControl.SetScrollStyle(const Value: TScrollStyle);
|
|
begin
|
|
FMemo.ScrollBars := Value;
|
|
end;
|
|
|
|
procedure TfrxMemoControl.SetWordWrap(const Value: Boolean);
|
|
begin
|
|
FMemo.WordWrap := Value;
|
|
end;
|
|
|
|
|
|
{ TfrxButtonControl }
|
|
|
|
constructor TfrxButtonControl.Create(AOwner: TComponent);
|
|
begin
|
|
inherited;
|
|
FButton := TButton.Create(nil);
|
|
InitControl(FButton);
|
|
|
|
Width := 75;
|
|
Height := 25;
|
|
end;
|
|
|
|
class function TfrxButtonControl.GetDescription: String;
|
|
begin
|
|
Result := frxResources.Get('obButton');
|
|
end;
|
|
|
|
function TfrxButtonControl.GetCancel: Boolean;
|
|
begin
|
|
Result := FButton.Cancel;
|
|
end;
|
|
|
|
function TfrxButtonControl.GetDefault: Boolean;
|
|
begin
|
|
Result := FButton.Default;
|
|
end;
|
|
|
|
function TfrxButtonControl.GetModalResult: TModalResult;
|
|
begin
|
|
Result := FButton.ModalResult;
|
|
end;
|
|
|
|
procedure TfrxButtonControl.SetCancel(const Value: Boolean);
|
|
begin
|
|
FButton.Cancel := Value;
|
|
end;
|
|
|
|
procedure TfrxButtonControl.SetDefault(const Value: Boolean);
|
|
begin
|
|
FButton.Default := Value;
|
|
end;
|
|
|
|
procedure TfrxButtonControl.SetModalResult(const Value: TModalResult);
|
|
begin
|
|
FButton.ModalResult := Value;
|
|
end;
|
|
|
|
|
|
{ TfrxCheckBoxControl }
|
|
|
|
constructor TfrxCheckBoxControl.Create(AOwner: TComponent);
|
|
begin
|
|
inherited;
|
|
FCheckBox := TCheckBox.Create(nil);
|
|
InitControl(FCheckBox);
|
|
|
|
Width := 97;
|
|
Height := 17;
|
|
Alignment := taRightJustify;
|
|
end;
|
|
|
|
class function TfrxCheckBoxControl.GetDescription: String;
|
|
begin
|
|
Result := frxResources.Get('obChBoxC');
|
|
end;
|
|
|
|
function TfrxCheckBoxControl.GetAlignment: TAlignment;
|
|
begin
|
|
Result := FCheckBox.Alignment;
|
|
end;
|
|
|
|
function TfrxCheckBoxControl.GetAllowGrayed: Boolean;
|
|
begin
|
|
Result := FCheckBox.AllowGrayed;
|
|
end;
|
|
|
|
function TfrxCheckBoxControl.GetChecked: Boolean;
|
|
begin
|
|
Result := FCheckBox.Checked;
|
|
end;
|
|
|
|
function TfrxCheckBoxControl.GetState: TCheckBoxState;
|
|
begin
|
|
Result := FCheckBox.State;
|
|
end;
|
|
|
|
procedure TfrxCheckBoxControl.SetAlignment(const Value: TAlignment);
|
|
begin
|
|
FCheckBox.Alignment := Value;
|
|
end;
|
|
|
|
procedure TfrxCheckBoxControl.SetAllowGrayed(const Value: Boolean);
|
|
begin
|
|
FCheckBox.AllowGrayed := Value;
|
|
end;
|
|
|
|
procedure TfrxCheckBoxControl.SetChecked(const Value: Boolean);
|
|
begin
|
|
FCheckBox.Checked := Value;
|
|
end;
|
|
|
|
procedure TfrxCheckBoxControl.SetState(const Value: TCheckBoxState);
|
|
begin
|
|
FCheckBox.State := Value;
|
|
end;
|
|
|
|
{$IFDEF Delphi7}
|
|
function TfrxCheckBoxControl.GetWordWrap: Boolean;
|
|
begin
|
|
Result := FCheckBox.WordWrap;
|
|
end;
|
|
|
|
procedure TfrxCheckBoxControl.SetWordWrap(const Value: Boolean);
|
|
begin
|
|
FCheckBox.WordWrap := Value;
|
|
end;
|
|
{$ENDIF}
|
|
|
|
|
|
{ TfrxRadioButtonControl }
|
|
|
|
constructor TfrxRadioButtonControl.Create(AOwner: TComponent);
|
|
begin
|
|
inherited;
|
|
FRadioButton := TRadioButton.Create(nil);
|
|
InitControl(FRadioButton);
|
|
|
|
Width := 113;
|
|
Height := 17;
|
|
Alignment := taRightJustify;
|
|
end;
|
|
|
|
class function TfrxRadioButtonControl.GetDescription: String;
|
|
begin
|
|
Result := frxResources.Get('obRButton');
|
|
end;
|
|
|
|
function TfrxRadioButtonControl.GetAlignment: TAlignment;
|
|
begin
|
|
Result := FRadioButton.Alignment;
|
|
end;
|
|
|
|
function TfrxRadioButtonControl.GetChecked: Boolean;
|
|
begin
|
|
Result := FRadioButton.Checked;
|
|
end;
|
|
|
|
procedure TfrxRadioButtonControl.SetAlignment(const Value: TAlignment);
|
|
begin
|
|
FRadioButton.Alignment := Value;
|
|
end;
|
|
|
|
procedure TfrxRadioButtonControl.SetChecked(const Value: Boolean);
|
|
begin
|
|
FRadioButton.Checked := Value;
|
|
end;
|
|
|
|
{$IFDEF Delphi7}
|
|
function TfrxRadioButtonControl.GetWordWrap: Boolean;
|
|
begin
|
|
Result := FRadioButton.WordWrap;
|
|
end;
|
|
|
|
procedure TfrxRadioButtonControl.SetWordWrap(const Value: Boolean);
|
|
begin
|
|
FRadioButton.WordWrap := Value;
|
|
end;
|
|
{$ENDIF}
|
|
|
|
|
|
{ TfrxListBoxControl }
|
|
|
|
constructor TfrxListBoxControl.Create(AOwner: TComponent);
|
|
begin
|
|
inherited;
|
|
FListBox := TListBox.Create(nil);
|
|
InitControl(FListBox);
|
|
|
|
Width := 121;
|
|
Height := 97;
|
|
end;
|
|
|
|
class function TfrxListBoxControl.GetDescription: String;
|
|
begin
|
|
Result := frxResources.Get('obLBox');
|
|
end;
|
|
|
|
function TfrxListBoxControl.GetItems: TStrings;
|
|
begin
|
|
Result := FListBox.Items;
|
|
end;
|
|
|
|
function TfrxListBoxControl.GetItemIndex: Integer;
|
|
begin
|
|
Result := FListBox.ItemIndex;
|
|
end;
|
|
|
|
procedure TfrxListBoxControl.SetItems(const Value: TStrings);
|
|
begin
|
|
FListBox.Items := Value;
|
|
end;
|
|
|
|
procedure TfrxListBoxControl.SetItemIndex(const Value: Integer);
|
|
begin
|
|
FListBox.ItemIndex := Value;
|
|
end;
|
|
|
|
|
|
{ TfrxComboBoxControl }
|
|
|
|
constructor TfrxComboBoxControl.Create(AOwner: TComponent);
|
|
begin
|
|
inherited;
|
|
FComboBox := TComboBox.Create(nil);
|
|
FComboBox.OnChange := DoOnChange;
|
|
InitControl(FComboBox);
|
|
|
|
Width := 145;
|
|
Height := 21;
|
|
end;
|
|
|
|
class function TfrxComboBoxControl.GetDescription: String;
|
|
begin
|
|
Result := frxResources.Get('obCBox');
|
|
end;
|
|
|
|
function TfrxComboBoxControl.GetItems: TStrings;
|
|
begin
|
|
Result := FComboBox.Items;
|
|
end;
|
|
|
|
function TfrxComboBoxControl.GetItemIndex: Integer;
|
|
begin
|
|
Result := FComboBox.ItemIndex;
|
|
end;
|
|
|
|
function TfrxComboBoxControl.GetStyle: TComboBoxStyle;
|
|
begin
|
|
Result := FComboBox.Style;
|
|
end;
|
|
|
|
function TfrxComboBoxControl.GetText: String;
|
|
begin
|
|
Result := FComboBox.Text;
|
|
end;
|
|
|
|
procedure TfrxComboBoxControl.SetItems(const Value: TStrings);
|
|
begin
|
|
FComboBox.Items := Value;
|
|
end;
|
|
|
|
procedure TfrxComboBoxControl.SetItemIndex(const Value: Integer);
|
|
begin
|
|
FComboBox.ItemIndex := Value;
|
|
end;
|
|
|
|
procedure TfrxComboBoxControl.SetStyle(const Value: TComboBoxStyle);
|
|
begin
|
|
FComboBox.Style := Value;
|
|
end;
|
|
|
|
procedure TfrxComboBoxControl.SetText(const Value: String);
|
|
begin
|
|
FComboBox.Text := Value;
|
|
end;
|
|
|
|
procedure TfrxComboBoxControl.DoOnChange(Sender: TObject);
|
|
begin
|
|
if Report <> nil then
|
|
Report.DoNotifyEvent(Self, FOnChange);
|
|
end;
|
|
|
|
|
|
{ TfrxDateEditControl }
|
|
|
|
constructor TfrxDateEditControl.Create(AOwner: TComponent);
|
|
begin
|
|
inherited;
|
|
FDateEdit := TDateTimePicker.Create(nil);
|
|
FDateEdit.OnChange := DoOnChange;
|
|
InitControl(FDateEdit);
|
|
|
|
Width := 145;
|
|
Height := 21;
|
|
end;
|
|
|
|
class function TfrxDateEditControl.GetDescription: String;
|
|
begin
|
|
Result := frxResources.Get('obDateEdit');
|
|
end;
|
|
|
|
function TfrxDateEditControl.GetDate: TDate;
|
|
begin
|
|
Result := FDateEdit.Date;
|
|
end;
|
|
|
|
function TfrxDateEditControl.GetTime: TTime;
|
|
begin
|
|
Result := FDateEdit.Time;
|
|
end;
|
|
|
|
function TfrxDateEditControl.GetDateFormat: TDTDateFormat;
|
|
begin
|
|
Result := FDateEdit.DateFormat;
|
|
end;
|
|
|
|
function TfrxDateEditControl.GetKind: TDateTimeKind;
|
|
begin
|
|
Result := FDateEdit.Kind;
|
|
end;
|
|
|
|
procedure TfrxDateEditControl.SetDate(const Value: TDate);
|
|
begin
|
|
FDateEdit.Date := Value;
|
|
end;
|
|
|
|
procedure TfrxDateEditControl.SetTime(const Value: TTime);
|
|
begin
|
|
FDateEdit.Time := Value;
|
|
end;
|
|
|
|
procedure TfrxDateEditControl.SetDateFormat(const Value: TDTDateFormat);
|
|
begin
|
|
FDateEdit.DateFormat := Value;
|
|
end;
|
|
|
|
procedure TfrxDateEditControl.SetKind(const Value: TDateTimeKind);
|
|
begin
|
|
FDateEdit.Kind := Value;
|
|
end;
|
|
|
|
procedure TfrxDateEditControl.DoOnChange(Sender: TObject);
|
|
begin
|
|
if Report <> nil then
|
|
Report.DoNotifyEvent(Self, FOnChange);
|
|
end;
|
|
|
|
|
|
{ TfrxImageControl }
|
|
|
|
constructor TfrxImageControl.Create(AOwner: TComponent);
|
|
begin
|
|
inherited;
|
|
FImage := TImage.Create(nil);
|
|
InitControl(FImage);
|
|
|
|
Width := 100;
|
|
Height := 100;
|
|
end;
|
|
|
|
class function TfrxImageControl.GetDescription: String;
|
|
begin
|
|
Result := frxResources.Get('obImageC');
|
|
end;
|
|
|
|
function TfrxImageControl.GetAutoSize: Boolean;
|
|
begin
|
|
Result := FImage.AutoSize;
|
|
end;
|
|
|
|
function TfrxImageControl.GetCenter: Boolean;
|
|
begin
|
|
Result := FImage.Center;
|
|
end;
|
|
|
|
function TfrxImageControl.GetPicture: TPicture;
|
|
begin
|
|
Result := FImage.Picture;
|
|
end;
|
|
|
|
function TfrxImageControl.GetStretch: Boolean;
|
|
begin
|
|
Result := FImage.Stretch;
|
|
end;
|
|
|
|
procedure TfrxImageControl.SetAutoSize(const Value: Boolean);
|
|
begin
|
|
FImage.AutoSize := Value;
|
|
end;
|
|
|
|
procedure TfrxImageControl.SetCenter(const Value: Boolean);
|
|
begin
|
|
FImage.Center := Value;
|
|
end;
|
|
|
|
procedure TfrxImageControl.SetPicture(const Value: TPicture);
|
|
begin
|
|
FImage.Picture.Assign(Value);
|
|
end;
|
|
|
|
procedure TfrxImageControl.SetStretch(const Value: Boolean);
|
|
begin
|
|
FImage.Stretch := Value;
|
|
end;
|
|
|
|
|
|
{ TfrxBevelControl }
|
|
|
|
constructor TfrxBevelControl.Create(AOwner: TComponent);
|
|
begin
|
|
inherited;
|
|
FBevel := TBevel.Create(nil);
|
|
InitControl(FBevel);
|
|
|
|
Width := 50;
|
|
Height := 50;
|
|
end;
|
|
|
|
class function TfrxBevelControl.GetDescription: String;
|
|
begin
|
|
Result := frxResources.Get('obBevel');
|
|
end;
|
|
|
|
function TfrxBevelControl.GetBevelShape: TBevelShape;
|
|
begin
|
|
Result := FBevel.Shape;
|
|
end;
|
|
|
|
function TfrxBevelControl.GetBevelStyle: TBevelStyle;
|
|
begin
|
|
Result := FBevel.Style;
|
|
end;
|
|
|
|
procedure TfrxBevelControl.SetBevelShape(const Value: TBevelShape);
|
|
begin
|
|
FBevel.Shape := Value;
|
|
end;
|
|
|
|
procedure TfrxBevelControl.SetBevelStyle(const Value: TBevelStyle);
|
|
begin
|
|
FBevel.Style := Value;
|
|
end;
|
|
|
|
|
|
{ TfrxPanelControl }
|
|
|
|
constructor TfrxPanelControl.Create(AOwner: TComponent);
|
|
begin
|
|
inherited;
|
|
FPanel := TPanel.Create(nil);
|
|
InitControl(FPanel);
|
|
|
|
Width := 185;
|
|
Height := 41;
|
|
end;
|
|
|
|
class function TfrxPanelControl.GetDescription: String;
|
|
begin
|
|
Result := frxResources.Get('obPanel');
|
|
end;
|
|
|
|
function TfrxPanelControl.GetAlignment: TAlignment;
|
|
begin
|
|
Result := FPanel.Alignment;
|
|
end;
|
|
|
|
function TfrxPanelControl.GetBevelInner: TPanelBevel;
|
|
begin
|
|
Result := FPanel.BevelInner;
|
|
end;
|
|
|
|
function TfrxPanelControl.GetBevelOuter: TPanelBevel;
|
|
begin
|
|
Result := FPanel.BevelOuter;
|
|
end;
|
|
|
|
function TfrxPanelControl.GetBevelWidth: Integer;
|
|
begin
|
|
Result := FPanel.BevelWidth;
|
|
end;
|
|
|
|
procedure TfrxPanelControl.SetAlignment(const Value: TAlignment);
|
|
begin
|
|
FPanel.Alignment := Value;
|
|
end;
|
|
|
|
procedure TfrxPanelControl.SetBevelInner(const Value: TPanelBevel);
|
|
begin
|
|
FPanel.BevelInner := Value;
|
|
end;
|
|
|
|
procedure TfrxPanelControl.SetBevelOuter(const Value: TPanelBevel);
|
|
begin
|
|
FPanel.BevelOuter := Value;
|
|
end;
|
|
|
|
procedure TfrxPanelControl.SetBevelWidth(const Value: Integer);
|
|
begin
|
|
FPanel.BevelWidth := Value;
|
|
end;
|
|
|
|
|
|
{ TfrxGroupBoxControl }
|
|
|
|
constructor TfrxGroupBoxControl.Create(AOwner: TComponent);
|
|
begin
|
|
inherited;
|
|
FGroupBox := TGroupBox.Create(nil);
|
|
InitControl(FGroupBox);
|
|
|
|
Width := 185;
|
|
Height := 105;
|
|
end;
|
|
|
|
class function TfrxGroupBoxControl.GetDescription: String;
|
|
begin
|
|
Result := frxResources.Get('obGrBox');
|
|
end;
|
|
|
|
|
|
{ TfrxBitBtnControl }
|
|
|
|
constructor TfrxBitBtnControl.Create(AOwner: TComponent);
|
|
begin
|
|
inherited;
|
|
FBitBtn := TBitBtn.Create(nil);
|
|
InitControl(FBitBtn);
|
|
|
|
Width := 75;
|
|
Height := 25;
|
|
end;
|
|
|
|
class function TfrxBitBtnControl.GetDescription: String;
|
|
begin
|
|
Result := frxResources.Get('obBBtn');
|
|
end;
|
|
|
|
function TfrxBitBtnControl.GetGlyph: TBitmap;
|
|
begin
|
|
Result := FBitBtn.Glyph;
|
|
end;
|
|
|
|
function TfrxBitBtnControl.GetKind: TBitBtnKind;
|
|
begin
|
|
Result := FBitBtn.Kind;
|
|
end;
|
|
|
|
function TfrxBitBtnControl.GetLayout: TButtonLayout;
|
|
begin
|
|
Result := FBitBtn.Layout;
|
|
end;
|
|
|
|
function TfrxBitBtnControl.GetMargin: Integer;
|
|
begin
|
|
Result := FBitBtn.Margin;
|
|
end;
|
|
|
|
function TfrxBitBtnControl.GetModalResult: TModalResult;
|
|
begin
|
|
Result := FBitBtn.ModalResult;
|
|
end;
|
|
|
|
function TfrxBitBtnControl.GetNumGlyphs: Integer;
|
|
begin
|
|
Result := FBitBtn.NumGlyphs;
|
|
end;
|
|
|
|
function TfrxBitBtnControl.GetSpacing: Integer;
|
|
begin
|
|
Result := FBitBtn.Spacing;
|
|
end;
|
|
|
|
procedure TfrxBitBtnControl.SetGlyph(const Value: TBitmap);
|
|
begin
|
|
FBitBtn.Glyph := Value;
|
|
end;
|
|
|
|
procedure TfrxBitBtnControl.SetKind(const Value: TBitBtnKind);
|
|
begin
|
|
FBitBtn.Kind := Value;
|
|
end;
|
|
|
|
procedure TfrxBitBtnControl.SetLayout(const Value: TButtonLayout);
|
|
begin
|
|
FBitBtn.Layout := Value;
|
|
end;
|
|
|
|
procedure TfrxBitBtnControl.SetMargin(const Value: Integer);
|
|
begin
|
|
FBitBtn.Margin := Value;
|
|
end;
|
|
|
|
procedure TfrxBitBtnControl.SetModalResult(const Value: TModalResult);
|
|
begin
|
|
FBitBtn.ModalResult := Value;
|
|
end;
|
|
|
|
procedure TfrxBitBtnControl.SetNumGlyphs(const Value: Integer);
|
|
begin
|
|
FBitBtn.NumGlyphs := Value;
|
|
end;
|
|
|
|
procedure TfrxBitBtnControl.SetSpacing(const Value: Integer);
|
|
begin
|
|
FBitBtn.Spacing := Value;
|
|
end;
|
|
|
|
|
|
{ TfrxSpeedButtonControl }
|
|
|
|
constructor TfrxSpeedButtonControl.Create(AOwner: TComponent);
|
|
begin
|
|
inherited;
|
|
FSpeedButton := TSpeedButton.Create(nil);
|
|
InitControl(FSpeedButton);
|
|
|
|
Width := 22;
|
|
Height := 22;
|
|
end;
|
|
|
|
class function TfrxSpeedButtonControl.GetDescription: String;
|
|
begin
|
|
Result := frxResources.Get('obSBtn');
|
|
end;
|
|
|
|
function TfrxSpeedButtonControl.GetAllowAllUp: Boolean;
|
|
begin
|
|
Result := FSpeedButton.AllowAllUp;
|
|
end;
|
|
|
|
function TfrxSpeedButtonControl.GetDown: Boolean;
|
|
begin
|
|
Result := FSpeedButton.Down;
|
|
end;
|
|
|
|
function TfrxSpeedButtonControl.GetFlat: Boolean;
|
|
begin
|
|
Result := FSpeedButton.Flat;
|
|
end;
|
|
|
|
function TfrxSpeedButtonControl.GetGlyph: TBitmap;
|
|
begin
|
|
Result := FSpeedButton.Glyph;
|
|
end;
|
|
|
|
function TfrxSpeedButtonControl.GetGroupIndex: Integer;
|
|
begin
|
|
Result := FSpeedButton.GroupIndex;
|
|
end;
|
|
|
|
function TfrxSpeedButtonControl.GetLayout: TButtonLayout;
|
|
begin
|
|
Result := FSpeedButton.Layout;
|
|
end;
|
|
|
|
function TfrxSpeedButtonControl.GetMargin: Integer;
|
|
begin
|
|
Result := FSpeedButton.Margin;
|
|
end;
|
|
|
|
function TfrxSpeedButtonControl.GetSpacing: Integer;
|
|
begin
|
|
Result := FSpeedButton.Spacing;
|
|
end;
|
|
|
|
procedure TfrxSpeedButtonControl.SetAllowAllUp(const Value: Boolean);
|
|
begin
|
|
FSpeedButton.AllowAllUp := Value;
|
|
end;
|
|
|
|
procedure TfrxSpeedButtonControl.SetDown(const Value: Boolean);
|
|
begin
|
|
FSpeedButton.Down := Value;
|
|
end;
|
|
|
|
procedure TfrxSpeedButtonControl.SetFlat(const Value: Boolean);
|
|
begin
|
|
FSpeedButton.Flat := Value;
|
|
end;
|
|
|
|
procedure TfrxSpeedButtonControl.SetGlyph(const Value: TBitmap);
|
|
begin
|
|
FSpeedButton.Glyph := Value;
|
|
end;
|
|
|
|
procedure TfrxSpeedButtonControl.SetGroupIndex(const Value: Integer);
|
|
begin
|
|
FSpeedButton.GroupIndex := Value;
|
|
end;
|
|
|
|
procedure TfrxSpeedButtonControl.SetLayout(const Value: TButtonLayout);
|
|
begin
|
|
FSpeedButton.Layout := Value;
|
|
end;
|
|
|
|
procedure TfrxSpeedButtonControl.SetMargin(const Value: Integer);
|
|
begin
|
|
FSpeedButton.Margin := Value;
|
|
end;
|
|
|
|
procedure TfrxSpeedButtonControl.SetSpacing(const Value: Integer);
|
|
begin
|
|
FSpeedButton.Spacing := Value;
|
|
end;
|
|
|
|
|
|
{ TfrxMaskEditControl }
|
|
|
|
constructor TfrxMaskEditControl.Create(AOwner: TComponent);
|
|
begin
|
|
FMaskEdit := TMaskEdit.Create(nil);
|
|
FCustomEdit := FMaskEdit;
|
|
inherited;
|
|
|
|
Width := 121;
|
|
Height := 21;
|
|
end;
|
|
|
|
class function TfrxMaskEditControl.GetDescription: String;
|
|
begin
|
|
Result := frxResources.Get('obMEdit');
|
|
end;
|
|
|
|
function TfrxMaskEditControl.GetEditMask: String;
|
|
begin
|
|
Result := FMaskEdit.EditMask;
|
|
end;
|
|
|
|
procedure TfrxMaskEditControl.SetEditMask(const Value: String);
|
|
begin
|
|
FMaskEdit.EditMask := Value;
|
|
end;
|
|
|
|
|
|
{ TfrxCheckListBoxControl }
|
|
|
|
constructor TfrxCheckListBoxControl.Create(AOwner: TComponent);
|
|
begin
|
|
inherited;
|
|
FCheckListBox := TCheckListBox.Create(nil);
|
|
InitControl(FCheckListBox);
|
|
|
|
Width := 121;
|
|
Height := 97;
|
|
end;
|
|
|
|
class function TfrxCheckListBoxControl.GetDescription: String;
|
|
begin
|
|
Result := frxResources.Get('obChLB');
|
|
end;
|
|
|
|
function TfrxCheckListBoxControl.GetAllowGrayed: Boolean;
|
|
begin
|
|
Result := FCheckListBox.AllowGrayed;
|
|
end;
|
|
|
|
function TfrxCheckListBoxControl.GetItems: TStrings;
|
|
begin
|
|
Result := FCheckListBox.Items;
|
|
end;
|
|
|
|
function TfrxCheckListBoxControl.GetSorted: Boolean;
|
|
begin
|
|
Result := FCheckListBox.Sorted;
|
|
end;
|
|
|
|
function TfrxCheckListBoxControl.GetChecked(Index: Integer): Boolean;
|
|
begin
|
|
Result := FCheckListBox.Checked[Index];
|
|
end;
|
|
|
|
function TfrxCheckListBoxControl.GetState(Index: Integer): TCheckBoxState;
|
|
begin
|
|
Result := FCheckListBox.State[Index];
|
|
end;
|
|
|
|
procedure TfrxCheckListBoxControl.SetAllowGrayed(const Value: Boolean);
|
|
begin
|
|
FCheckListBox.AllowGrayed := Value;
|
|
end;
|
|
|
|
procedure TfrxCheckListBoxControl.SetItems(const Value: TStrings);
|
|
begin
|
|
FCheckListBox.Items := Value;
|
|
end;
|
|
|
|
procedure TfrxCheckListBoxControl.SetSorted(const Value: Boolean);
|
|
begin
|
|
FCheckListBox.Sorted := Value;
|
|
end;
|
|
|
|
procedure TfrxCheckListBoxControl.SetChecked(Index: Integer; const Value: Boolean);
|
|
begin
|
|
FCheckListBox.Checked[Index] := Value;
|
|
end;
|
|
|
|
procedure TfrxCheckListBoxControl.SetState(Index: Integer; const Value: TCheckBoxState);
|
|
begin
|
|
FCheckListBox.State[Index] := Value;
|
|
end;
|
|
|
|
function TfrxCheckListBoxControl.GetItemIndex: Integer;
|
|
begin
|
|
Result := FCheckListBox.ItemIndex;
|
|
end;
|
|
|
|
procedure TfrxCheckListBoxControl.SetItemIndex(const Value: Integer);
|
|
begin
|
|
FCheckListBox.ItemIndex := Value;
|
|
end;
|
|
|
|
|
|
initialization
|
|
frxObjects.RegisterObject1(TfrxLabelControl, nil, '', '', 0, 12);
|
|
frxObjects.RegisterObject1(TfrxEditControl, nil, '', '', 0, 13);
|
|
frxObjects.RegisterObject1(TfrxMemoControl, nil, '', '', 0, 14);
|
|
frxObjects.RegisterObject1(TfrxButtonControl, nil, '', '', 0, 15);
|
|
frxObjects.RegisterObject1(TfrxCheckBoxControl, nil, '', '', 0, 16);
|
|
frxObjects.RegisterObject1(TfrxRadioButtonControl, nil, '', '', 0, 17);
|
|
frxObjects.RegisterObject1(TfrxListBoxControl, nil, '', '', 0, 18);
|
|
frxObjects.RegisterObject1(TfrxComboBoxControl, nil, '', '', 0, 19);
|
|
frxObjects.RegisterObject1(TfrxPanelControl, nil, '', '', 0, 44);
|
|
frxObjects.RegisterObject1(TfrxGroupBoxControl, nil, '', '', 0, 43);
|
|
|
|
frxObjects.RegisterObject1(TfrxDateEditControl, nil, '', '', 0, 20);
|
|
frxObjects.RegisterObject1(TfrxImageControl, nil, '', '', 0, 3);
|
|
frxObjects.RegisterObject1(TfrxBevelControl, nil, '', '', 0, 33);
|
|
frxObjects.RegisterObject1(TfrxBitBtnControl, nil, '', '', 0, 45);
|
|
frxObjects.RegisterObject1(TfrxSpeedButtonControl, nil, '', '', 0, 46);
|
|
frxObjects.RegisterObject1(TfrxMaskEditControl, nil, '', '', 0, 47);
|
|
frxObjects.RegisterObject1(TfrxCheckListBoxControl, nil, '', '', 0, 48);
|
|
|
|
|
|
|
|
end.
|
|
|
|
|
|
//862fd5d6aa1a637203d9b08a3c0bcfb0 |