Использование диалогов для загрузки и сохранения графических файлов

S := GraphicFilter(TBitmap)+'|'+ 
 
GraphicFilter(TJpeglmage)  

unit mainUnit;  
 
interface 
 
uses 
 
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, 
 
 Dialogs, 
 
ExtDlgs, StdCtrls, ComCtrls, ExtCtrls, Buttons;  
 
type 
 
TForml = class(TForm) 
 
SavePictureDialogl: TSavePictureDialog;  
 
OpenPictureDialogl: TOpenPictureDialog; 
 
 ScrollBoxl: TScrollBox; Imagel: TImage;  
 
ProgressBari: TProgressBar; 
 
 OpenBitBtn: TBitBtn; 
 
 SaveBitBtn: TBitBtn; 
 
procedure SavePictureDialoglTypeChange(Sender: TObject);  
 
procedure ImagelProgress(Sender: TObject; Stage: TProgressStage; 
 
 PercentDone: Byte;  
 
RedrawNow: Boolean;  
 
const R: TRect; 
 
 const Msg: String); 
 
procedure SavePictureDialoglClose(Sender: TObject);  
 
procedure FormCreate(Sender: TObject); 
 
procedure SavePictureDialoglShow(Sender: TObject); 
 
 procedure OpenBitBtnClick(Sender: TObject); 
 
 procedure SaveBitBtnClick(Sender: TObject);  
 
private  
 
public  
 
end; 
 
var 
 
Forml: TForml; 
 
implementation 
 
{$R *.DFM}  
 
uses jpeg; 
 
const DeltaH : Integer = 80;  
 
var Quality : TJpegQualityRange;  
 
ProgressiveEnc : Boolean; 
 
procedure TForml.OpenBitBtnClick(Sender: TObject); 
 
begin 
 
if OpenPictureDialogl.Execute 
 
then Imagel.Picture.LoadFromFile 
 
(OpenPictureDialogl.FileName);  
 
end; 
 
procedure TForml.SaveBitBtnClick(Sender: TObject); 
 
var ji : TJpeglmage; 
 
begin 
 
if SavePictureDialogl.Execute then 
 
begin 
 
ji := TJpeglmage.Create; 
 
ji.CompressionQuality := Quality; 
 
ji.ProgressiveEncoding := ProgressiveEnc; 
 
j i.Assign(Imagel.Picture.Bitmap); 
 
ji.SaveToFile(SavePictureDialogl.FileName); 
 
ji.Free; 
 
end; 
 
 end; 
 
procedure TForml.SavePictureDialoglTypeChange(Sender: TObject); 
 
 var ParentHandle:THandle;wRect:TRect; 
 
PicPanel,PaintPanel:TPanel;JEdit : TEdit;  
 
Expanded : boolean; 
 
begin 
 
With Sender as TSavePictureDialog do 
 
 begin 
 
PicPanel := (FindComponent('PicturePanel') as TPanel); 
 
if not Assigned(PicPanel) then Exit; 
 
ParentHandle:=GetParent(Handle); 
 
PaintPanel:=(FindComponent('PaintPanel') as TPanel);  
 
PaintPanel.Align := alNone; 
 
 Expanded := FindComponent('JLabel') <> nil; 
 
 if Filterlndex >1 then begin if not Expanded then 
 
begin 
 
GetWindowRect(ParentHandle,WRect); 
 
SetWindowPos(ParentHandle,0,0,0, 
 
WRect.Right-WRect.Left, 
 
WRect.Bottom-WRect.Top+DeltaH, 
 
SWP_NOMOVE+SWP_NOZORDER); 
 
GetWindowRect(Handle,WRect); 
 
SetWindowPos(handle,0,0,0,WRect.Right- 
 
WRect.Left, 
 
WRect.Bottom-WRect.Top+DeltaH, 
 
SWP_NOMOVE+SWP_NOZORDER); 
 
Expanded:=True; 
 
PicPanel.Height := PicPanel.Height+DeltaH; 
 
if FindComponent('JLabel')=nil 
 
 then with TLabel.Create(Sender as TSavePictureDialog) do 
 
 begin 
 
Parent := PicPanel; 
 
Name := 'JLabel'; 
 
Caption := 'Quality'; 
 
Left := 5; 
 
Height := 25; 
 
Top := PaintPanel.Top+PaintPanel.Height+5; end; 
 
if FindComponent('JEdit')=nil then  
 
begin 
 
JEdit := TEdit.Create(Sender as TSavePictureDialog); 
 
 with JEdit do  
 
begin 
 
Parent := PicPanel; 
 
Name:='JEdit'; 
 
Text := '75'; 
 
Left:-50;Width := 50; 
 
Height := 25; 
 
Top := PaintPanel.Top+PaintPanel.Height+5;  
 
end; 
 
 end; 
 
if FindComponent('JUpDown')=nil then  
 
with TUpDown.Create(Sender as TSavePictureDialog) do 
 
 begin 
 
Parent := PicPanel; 
 
Name:='JUpDown'; 
 
Associate := JEdit; 
 
Increment := 5; 
 
Min := 1; Max := 100; 
 
Position := 75; end; 
 
if FindComponent('JCheck')=nil then 
 
with TCheckBox.Create(Sender as TSavePictureDialog) do 
 
 begin 
 
Name: = 'JCheck'; 
 
Caption:='Progressive Encoding'; Parent:=PicPanel; 
 
Left:=5;Width := PicPanel.Width - 10; Height:=25; 
 
Top := PaintPanel.Top+PaintPanel.Height+35;  
 
end; 
 
 end;  
 
end  
 
else 
 
SavePictureDialoglClose(Sender); 
 
 end;  
 
end; 
 
procedure TForml.ImagelProgress(Sender: TObject; Stage: TProgressStage; 
 
 PercentDone: Byte; RedrawNow: Boolean; const R: TRect;  
 
const Msg: String);  
 
begin 
 
case Stage of psStarting:  
 
begin 
 
Progressbarl.Position := 0; 
 
 Progressbarl.Max := 100; 
 
 end; 
 
 psEnding: begin 
 
Progressbarl.Position := 0;  
 
end; 
 
psRunning: begin 
 
Progressbarl.Position := PercentDone; 
 
end;  
 
end; 
 
 end; 
 
procedure TForml.SavePictureDialoglClose(Sender: TObject); 
 
 var PicPanel : TPanel; ParentHandle : THandle; WRect : TRect; 
 
 begin 
 
With Sender as TSavePictureDialog do 
 
 begin 
 
PicPanel := (FindComponent('PicturePanel') as TPanel); 
 
 if not Assigned(PicPanel) then Exit; ParentHandle:=GetParent(Handle); 
 
 if ParentHandle=0 then Exit; 
 
 if FindComponent('JLabel')onil then  
 
begin 
 
FindComponent('JLabel').Free;  
 
FindComponent('JEdit').Free; 
 
ProgressiveEnc := (FindComponent('JCheck1') as TCheckBox).Checked; FindComponent('JCheck').Free; 
 
Quality := (FindComponent('JUpDown') as TUpDown).Position; FindComponent('JUpDown').Free; 
 
PicPanel.Height:=PicPanel.Height-DeltaH;  
 
GetWindowRect(Handle,WRect); 
 
SetWindowPos(Handle,0,0,0,WRect.Right-WRect.Left, WRect.Bottom-WRect.Top-DeltaH, 
 
SWP_NOMOVE+SWP_NOZORDER); GetWindowRect(ParentHandle,WRect); 
 
SetWindowPos(ParentHandle,0,0,0, 
 
WRect.Right-WRect.Left, WRect.Bottom-WRect.Top-DeltaH, 
 
SWP_NOMOVE+SWP_NOZORDER); Filterlndex := 1; 
 
 end;  
 
end;  
 
end; 
 
procedure TForml.FormCreate(Sender: TObject); 
 
var s: string; 
 
begin 
 
s :=GraphicFilter(TBitmap)+'|'+ 
 
GraphicFilter(TJpeglmage); 
 
OpenPictureDialogl.Filter := s; 
 
SavePictureDialogl.Filter := s;  
 
end; 
 
procedure TForml.SavePictureDialoglShow(Sender: TObject);  
 
begin 
 
with Sender as TSavePictureDialog do 
 
 begin 
 
if FindComponent('JLabel')Onil then 
 
 begin 
 
FilterIndex := 2; 
 
SavePictureDialoglTypeChange(Sender) ; 
 
 end; 
 
 end;  
 
end; 
 
end.