BitmapForm.pas
资源名称:delphi.rar [点击查看]
上传用户:fh681027
上传日期:2022-07-23
资源大小:1959k
文件大小:1k
源码类别:
Delphi控件源码
开发平台:
Delphi
- unit BitmapForm;
- interface
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, FormOperations, ExtDlgs, ExtCtrls, SaveStatusForms;
- type
- TFormBitmap = class(TSaveStatusForm, IFormOperations)
- Image1: TImage;
- OpenPictureDialog1: TOpenPictureDialog;
- SavePictureDialog1: TSavePictureDialog;
- private
- { Private declarations }
- public
- procedure Load;
- procedure Save;
- end;
- var
- FormBitmap: TFormBitmap;
- implementation
- {$R *.DFM}
- { TFormBitmap }
- procedure TFormBitmap.Load;
- begin
- if OpenPictureDialog1.Execute then
- Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
- end;
- procedure TFormBitmap.Save;
- begin
- if SavePictureDialog1.Execute then
- Image1.Picture.SaveToFile(SavePictureDialog1.FileName);
- end;
- end.