Registriert seit: 30. Dez 2008
Ort: Tecklenburg
35 Beiträge
Delphi 5 Standard
|
Re: Bitmap Datein in Delphi anzeigen und andere sachen
30. Dez 2008, 22:44
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Open: TOpenDialog;
bBildladen: TButton;
Image1: TImage;
procedure bBildladenClick(Sender: TObject);
private
{ Private-Deklarationen }
DasBitmap:TBitmap;
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.bBildladenClick(Sender: TObject);
begin
if Open.Execute then
begin
if Open.Execute then begin
DasBitmap.LoadFromFile(Open.FileName);
Image1.Picture.Bitmap.Assign(DasBitmap)
end;
end;
end;
end.
Access Vialotion >.< hmm wenn ich das öffne dann hat der keinen datentyp seht ihr in der datei
|
|
Zitat
|