| Class TPictEditDlg (unit EditPict) |
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);
procedure StretchBoxClick(Sender: TObject);
procedure UpdatePictureField;| 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;