| Class TraiDbImage (unit raidbimage) |
TCustomControl
TraiDbImage
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure CopyToClipboard;
procedure CutToClipboard;
destructor Destroy;
procedure LoadPicture;
procedure PasteFromClipboard;
procedure CreateParams(var Params: TCreateParams);
function GetPalette: HPALETTE;
procedure KeyDown(var Key: Word; Shift: TShiftState);
procedure KeyPress(var Key: Char);
procedure Notification(AComponent: TComponent;
Operation: TOperation);
procedure Paint;
procedure CMEnter(var Message: TCMEnter);
procedure CMExit(var Message: TCMExit);
procedure CMTextChanged(var Message: TMessage);
procedure DataChange(Sender: TObject);
function GetDataField: string;
function GetDataSource: TDataSource;
function GetField: TField;
function GetReadOnly: Boolean;
procedure PictureChanged(Sender: TObject);
procedure SetAutoDisplay(Value: Boolean);
procedure SetBorderStyle(Value: TBorderStyle);
procedure SetCenter(Value: Boolean);
procedure SetDataField(const Value: string);
procedure SetDataSource(Value: TDataSource);
procedure SetPicture(Value: TPicture);
procedure SetReadOnly(Value: Boolean);
procedure SetStretch(Value: Boolean);
procedure UpdateData(Sender: TObject);
procedure WMCopy(var Message: TMessage);
procedure WMCut(var Message: TMessage);
procedure WMLButtonDblClk(var Message: TWMLButtonDblClk);
procedure WMLButtonDown(var Message: TWMLButtonDown);
procedure WMPaste(var Message: TMessage);
procedure WMSize(var Message: TMessage);| Properties |
property Align :
property AutoDisplay : Boolean
property BorderStyle : TBorderStyle
property Center : Boolean
property Color :
property Ctl3D :
property DataField : string
property DataSource : TDataSource
property DragCursor :
property DragMode :
property Enabled :
property Font :
property ParentColor :
property ParentCtl3D :
property ParentFont :
property ParentShowHint :
property PopupMenu :
property QuickDraw : Boolean
property ReadOnly : Boolean
property ShowHint :
property Stretch : Boolean
property TabOrder :
property TabStop :
property Visible :
property Field : TField
property Picture : TPicture| Events |
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnStartDrag : | Variables |
FAutoDisplay : Boolean;
FBorderStyle : TBorderStyle;
FCenter : Boolean;
FDataLink : TFieldDataLink;
FPicture : TPicture;
FPictureLoaded : Boolean;
FQuickDraw : Boolean;
FStretch : Boolean;| Constructors |
constructor Create(AOwner: TComponent);TraiDbImage
| Functions |
procedure CopyToClipboard;
procedure CutToClipboard;
destructor Destroy;
procedure LoadPicture;
procedure PasteFromClipboard;
procedure CreateParams(var Params: TCreateParams);
function GetPalette: HPALETTE;
procedure KeyDown(var Key: Word; Shift: TShiftState);
procedure KeyPress(var Key: Char);
procedure Notification(AComponent: TComponent;
Operation: TOperation);
procedure Paint;
procedure CMEnter(var Message: TCMEnter);
procedure CMExit(var Message: TCMExit);Draw the focus marker
procedure CMTextChanged(var Message: TMessage);Erase the focus marker
procedure DataChange(Sender: TObject);
function GetDataField: string;
function GetDataSource: TDataSource;
function GetField: TField;
function GetReadOnly: Boolean;
procedure PictureChanged(Sender: TObject);Control has focus, so realize the bitmap palette in foreground
procedure SetAutoDisplay(Value: Boolean);
procedure SetBorderStyle(Value: TBorderStyle);
procedure SetCenter(Value: Boolean);
procedure SetDataField(const Value: string);
procedure SetDataSource(Value: TDataSource);
procedure SetPicture(Value: TPicture);
procedure SetReadOnly(Value: Boolean);
procedure SetStretch(Value: Boolean);
procedure UpdateData(Sender: TObject);
procedure WMCopy(var Message: TMessage);
procedure WMCut(var Message: TMessage);
procedure WMLButtonDblClk(var Message: TWMLButtonDblClk);
procedure WMLButtonDown(var Message: TWMLButtonDown);
procedure WMPaste(var Message: TMessage);
procedure WMSize(var Message: TMessage);| Properties |
property Align :
property AutoDisplay : Boolean
property BorderStyle : TBorderStyle
property Center : Boolean
property Color :
property Ctl3D :
property DataField : string
property DataSource : TDataSource
property DragCursor :
property DragMode :
property Enabled :
property Font :
property ParentColor :
property ParentCtl3D :
property ParentFont :
property ParentShowHint :
property PopupMenu :
property QuickDraw : Boolean
property ReadOnly : Boolean
property ShowHint :
property Stretch : Boolean
property TabOrder :
property TabStop :
property Visible :
property Field : TField
property Picture : TPicture| Events |
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnStartDrag : | Variables |
FAutoDisplay : Boolean;
FBorderStyle : TBorderStyle;
FCenter : Boolean;
FDataLink : TFieldDataLink;
FPicture : TPicture;
FPictureLoaded : Boolean;
FQuickDraw : Boolean;
FStretch : Boolean;