procedure TDetailForm.SelectvipimageKeyClick(Sender: TObject);
Function GetFileExtID(Ext:String):Integer;
 Begin
   Ext := LowerCase(Ext);
   if  Ext='.jpg' then Result := 1 Else
   if  Ext='.png' then Result := 2 Else
   if  Ext='.bmp' then Result := 3 Else
   if  Ext='.psd' then Result := 4 Else
   if  Ext='.gif' then Result := 5 Else
   if  Ext='.tif' then Result := 6 Else
   if  Ext='.pcx' then Result := 7 Else
   Result := 0;
 End;
begin
if OpenImageEnDialog1.Execute then
   Begin
    // _DefaultFileName := OpenImageEnDialog1.FileName ;
     cl_rgb := TColor2TRGB( clWhite );
     ImageEnView1.Proc.SetTransparentColors(cl_rgb,cl_rgb);
     ImageEnView1.LayersAdd;
     ImageEnView1.IO.Params.PSD_LoadLayers := True;
     case GetFileExtID(ExtractFileExt(OpenImageEnDialog1.FileName)) of
       0 : ImageEnView1.IO.LoadFromFileAuto(OpenImageEnDialog1.FileName) ;
       1 : ImageEnView1.IO.LoadFromFileJpeg(OpenImageEnDialog1.FileName) ;
       2 : ImageEnView1.IO.LoadFromFilePNG(OpenImageEnDialog1.FileName) ;
       3 : ImageEnView1.IO.LoadFromFilePSD(OpenImageEnDialog1.FileName) ;
       4 : ImageEnView1.IO.LoadFromFilePSD(OpenImageEnDialog1.FileName) ;
       5 : ImageEnView1.IO.LoadFromFileGIF(OpenImageEnDialog1.FileName) ;
       6 : ImageEnView1.IO.LoadFromFileTIFF(OpenImageEnDialog1.FileName) ;
       7 : ImageEnView1.IO.LoadFromFilePCX(OpenImageEnDialog1.FileName) ;
     end;
     //ImageEnView1.Proc.RoundImage(100, 100);
     ImageEnView1.LayersSync  := True;
      ImageEnView1.Update;
   End;
end;

procedure TDetailForm.SelectvipimageKeyClick(Sender: TObject);
begin
  if OpenImageEnDialog1.Execute then
  Begin
    cl_rgb := TColor2TRGB( clWhite );
    ImageEnView1.Proc.SetTransparentColors(cl_rgb,cl_rgb);
    ImageEnView1.LayersAdd;
    ImageEnView1.IO.Params.PSD_LoadLayers := True;
    ImageEnView1.IO.LoadFromFile(OpenImageEnDialog1.FileName) ;
    ImageEnView1.Update;
  End;
end;