Class TDBjpeg (unit dbJPEG)

Inherits from

TCustomControl

Constructors


constructor Create(AOwner: TComponent);

TDBjpeg


Functions

procedure CopyToClipboard;


procedure CutToClipboard;


destructor Destroy;


procedure LoadFromFile(fileName: TFileName);

free variables

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);

draw image

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: TStretchStyle);

free my local variables

procedure UpdateData(Sender: TObject);

How do I catch the EJPEG exception only?

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 : TStretchStyle


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;


FStretchStyle : TStretchStyle;



Constructors


constructor Create(AOwner: TComponent);

TDBjpeg


Functions


procedure CopyToClipboard;


procedure CutToClipboard;


destructor Destroy;


procedure LoadFromFile(fileName: TFileName);

free variables


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);

draw image


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: TStretchStyle);

free my local variables


procedure UpdateData(Sender: TObject);

How do I catch the EJPEG exception only?


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 : TStretchStyle


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;


FStretchStyle : TStretchStyle;