Zitat von
torud:
Sorry, noch eine in diesem Zusammenhang stehende Kleinigkeit. Was ist nun mit dem OpenPictureDialog. Den kann ich zwar von Hand um diese Extension erweitern, aber die Vorschau funzt dennoch nicht. Gibt es dafür auch einen Lösungsansatz???
Habe ich gerade mal eben getestet.
Wenn in Deiner
Unit das uses um pngimage erweitert wurde, kann der OpenPictureDialog auch *.png
Den Filter musste ich nicht erweitern, das hat Delphi schon für mich getan.
(Einfach Filter eigenschaft doppelt klicken.)
siehe Screenshot
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtDlgs, StdCtrls, Buttons, ExtCtrls, pngimage;
type
TForm1 =
class(TForm)
Image1: TImage;
BitBtn1: TBitBtn;
OpenPictureDialog1: TOpenPictureDialog;
procedure BitBtn1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute
then
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;
end.