procedure Tfrm_Swatch.bb_AddPicClick(Sender: TObject);
Var
PicName,ExtName:String;
JpegImage:TJpegImage;
BitMap:TBitMap;
begin
if OpenPictureDialog.Execute then
Begin
tb_Pic.Append;
PicName :=OpenPictureDialog.FileName;
ExtName:=ExtractFileExt(PicName);
if UpperCase(ExtName) ='.BMP' then
begin
BitMap:=TBitMap.Create;
Try
BitMap.LoadFromFile(PicName);
dbi_Pic.Picture.Graphic.Assign(BitMap);//dbi_Pic是TDBImage控件
tb_Pic.Post;
finally
BitMap.Free;
End;
end;
if (UpperCase(ExtName) ='.JPG') or
(UpperCase(ExtName) ='.JPEG')then
begin
JpegImage:=TJpegImage.Create;
Try
JpegImage.LoadFromFile(PicName);
dbi_Pic.Picture.Graphic.Assign(JpegImage);
tb_Pic.Post;
finally
JpegImage.Free;
End;
end;
end;
end;