Class TPictEditDlg (unit EditPict)

Inherits from

TForm

Constructors



Functions

procedure FileOpen(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure ImageKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure MenuClick(Sender: TObject);


procedure OkBtnClick(Sender: TObject);


procedure SaveBtnClick(Sender: TObject);

if Key = VK_ESCAPE then CancelBtn.

procedure StretchBoxClick(Sender: TObject);


procedure UpdatePictureField;

TPictEditDlg

Properties

Events

Variables

Bevel : TBevel;


CancelBtn : TBitBtn;


Clear1 : TMenuItem;


Copy1 : TMenuItem;


Cut1 : TMenuItem;


DataSource : TDataSource;


DBImage : TDBImage;


DBNavigator : TDBNavigator;


FormPlacement : TFormPlacement;


LoadBtn : TBitBtn;


N1 : TMenuItem;


OkBtn : TBitBtn;


Paste1 : TMenuItem;


PopupMenu : TPopupMenu;


SaveBtn : TBitBtn;


StretchBox : TCheckBox;


OpenDialog : TOpenPictureDialog;


SaveDialog : TSavePictureDialog;



Constructors


Functions


procedure FileOpen(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure ImageKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure MenuClick(Sender: TObject);


procedure OkBtnClick(Sender: TObject);


procedure SaveBtnClick(Sender: TObject);

if Key = VK_ESCAPE then CancelBtn.Click;


procedure StretchBoxClick(Sender: TObject);


procedure UpdatePictureField;

TPictEditDlg


Properties


Events


Variables


Bevel : TBevel;


CancelBtn : TBitBtn;


Clear1 : TMenuItem;


Copy1 : TMenuItem;


Cut1 : TMenuItem;


DataSource : TDataSource;


DBImage : TDBImage;


DBNavigator : TDBNavigator;


FormPlacement : TFormPlacement;


LoadBtn : TBitBtn;


N1 : TMenuItem;


OkBtn : TBitBtn;


Paste1 : TMenuItem;


PopupMenu : TPopupMenu;


SaveBtn : TBitBtn;


StretchBox : TCheckBox;


OpenDialog : TOpenPictureDialog;


SaveDialog : TSavePictureDialog;