Hi, BDS 2006, Vcl-Net, WinXp, Framw. 1.1, Framw. 1-3 Installiert
FCL
Das geht, wird aber in der nächsten Version nicht mehr unterstützt
F_sPfad : string;
procedure TWinForm.pictureBox1_Paint(sender: System.Object; e: System.Windows.Forms.PaintEventArgs);
var
bmp : Bitmap;
MyDestRec : Rectangle;
begin
if F_sPfad ='' then exit;
if F_sPfad.Length >0 then
begin
bmp := Bitmap.Create(F_sPfad);//'TestRender.jpg'
//e := Graphics.FromImage(bmp);
MyDestRec := Rectangle.Create(0,0,800,600);
e.Graphics.SmoothingMode := SmoothingMode.AntiAlias;
e.Graphics.InterpolationMode := InterpolationMode.HighQualityBicubic;
e.Graphics.DrawImage(bmp,MyDestRec,0,0,bmp.Width,b mp.Height,GraphicsUnit.Pixel);
end;
end;
procedure TWinForm.Button2_Click(sender: System.Object; e: System.EventArgs);
begin
if (OpenFileDialog1.ShowDialog = System.Windows.Forms.DialogResult.OK) then
begin
F_sPfad := OpenFileDialog1.FileName;
if PictureBox1.Image <> nil then
begin
PictureBox1.Image.Dispose();
PictureBox1.Image := nil;
end;
PictureBox1.Refresh;
end;
end;
VCL.Net
Wie muss ich das hier umsetzen? Kann jemand helfen?
procedure TForm1.Button1Click(Sender: TObject);
var
img : Image;
e : Graphics;
aRec : Rectangle;
begin
img := Image.FromFile(sPfad);
e := e.FromImage(bmp);
e.SmoothingMode := SmoothingMode.AntiAlias;
e.InterpolationMode := InterpolationMode.HighQualityBicubic;
aRec := Rectangle.Create(0,0,400,300);
e.DrawImage(img,aRec,0,0,img.Width,img.Height,Grap hicsUnit.Pixel);
//Anzeigen im TImage
Image1.Picture.Bitmap.Assign(img);//Geht nicht!
end;
//Oder kennt jemand eine Anzeige-Komponente für Delphi VCL.Net, die das unterstützt
Danke schon mal im voraus.
FCL
Das geht, wird aber in der nächsten Version nicht mehr unterstützt
F_sPfad : string;
procedure TWinForm.pictureBox1_Paint(sender: System.Object; e: System.Windows.Forms.PaintEventArgs);
var
bmp : Bitmap;
MyDestRec : Rectangle;
begin
if F_sPfad ='' then exit;
if F_sPfad.Length >0 then
begin
bmp := Bitmap.Create(F_sPfad);//'TestRender.jpg'
//e := Graphics.FromImage(bmp);
MyDestRec := Rectangle.Create(0,0,800,600);
e.Graphics.SmoothingMode := SmoothingMode.AntiAlias;
e.Graphics.InterpolationMode := InterpolationMode.HighQualityBicubic;
e.Graphics.DrawImage(bmp,MyDestRec,0,0,bmp.Width,b mp.Height,GraphicsUnit.Pixel);
end;
end;
procedure TWinForm.Button2_Click(sender: System.Object; e: System.EventArgs);
begin
if (OpenFileDialog1.ShowDialog = System.Windows.Forms.DialogResult.OK) then
begin
F_sPfad := OpenFileDialog1.FileName;
if PictureBox1.Image <> nil then
begin
PictureBox1.Image.Dispose();
PictureBox1.Image := nil;
end;
PictureBox1.Refresh;
end;
end;
VCL.Net
Wie muss ich das hier umsetzen? Kann jemand helfen?
procedure TForm1.Button1Click(Sender: TObject);
var
img : Image;
e : Graphics;
aRec : Rectangle;
begin
img := Image.FromFile(sPfad);
e := e.FromImage(bmp);
e.SmoothingMode := SmoothingMode.AntiAlias;
e.InterpolationMode := InterpolationMode.HighQualityBicubic;
aRec := Rectangle.Create(0,0,400,300);
e.DrawImage(img,aRec,0,0,img.Width,img.Height,Grap hicsUnit.Pixel);
//Anzeigen im TImage
Image1.Picture.Bitmap.Assign(img);//Geht nicht!
end;
//Oder kennt jemand eine Anzeige-Komponente für Delphi VCL.Net, die das unterstützt
Danke schon mal im voraus.
Comment