1 files changed, 90 insertions, 0 deletions
diff --git a/examples/img/disp_bmp/disp_bmp.pas b/examples/img/disp_bmp/disp_bmp.pas
new file mode 100644
index 00000000..a33bf9be
--- /dev/null
+++ b/examples/img/disp_bmp/disp_bmp.pas
@@ -0,0 +1,90 @@
+{
+    $Id: disp_bmp.pp,v 1.6 2001/02/14 23:08:59 sg Exp $
+
+    fpImg  -  Free Pascal Imaging Library
+    Copyright (C) 2000 - 2001 by
+      Areca Systems GmbH / Sebastian Guenther, sg@freepascal.org
+
+    Example: Display BMP file
+
+    See the file COPYING, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+}
+
+
+program Disp_BMP;
+
+uses Classes, GFXBase, GFXImpl, fpImg, BMPReader;
+
+type
+  TMainWindow = class
+    procedure Paint(Sender: TObject; const Rect: TRect);
+  private
+    Display: TDefDisplay;
+    Window: TGfxWindow;
+    Image: TGfxImage;
+  public
+    constructor Create(ADisplay: TDefDisplay);
+    destructor Destroy; override;
+  end;
+
+constructor TMainWindow.Create(ADisplay: TDefDisplay);
+begin
+  inherited Create;
+  Display := ADisplay;
+  Image := CreateImageFromFile(Display.DefaultScreen, TBMPReader, ParamStr(1));
+  Window := ADisplay.DefaultScreen.CreateWindow;
+  Window.Title := 'fpImg Bitmap Test';
+  Window.OnPaint := @Paint;
+  Window.SetFixedClientSize(Size(Image.Width, Image.Height));
+  Window.Show;
+end;
+
+destructor TMainWindow.Destroy;
+begin
+  Image.Free;
+  inherited Destroy;
+end;
+
+procedure TMainWindow.Paint(Sender: TObject; const Rect: TRect);
+begin
+  Window.Canvas.SetColor(colRed);
+  Window.Canvas.FillRect(Rect);
+  Window.Canvas.SetColor(colYellow);
+  Window.Canvas.DrawImage(Image, Point(0, 0));
+end;
+
+var
+  Display: TDefDisplay;
+  MainWindow: TMainWindow;
+begin
+  if ParamCount <> 1 then
+  begin
+    WriteLn(StdErr, 'Please give the name of a BMP file as argument');
+    Halt(2);
+  end;
+
+  Display := TDefDisplay.Create;
+  MainWindow := TMainWindow.Create(Display);
+  Display.Run;
+  MainWindow.Free;
+  Display.Free;
+end.
+
+
+{
+  $Log: disp_bmp.pp,v $
+  Revision 1.6  2001/02/14 23:08:59  sg
+  * Adapted to changes in fpGFX interface
+
+  Revision 1.5  2001/02/09 20:49:03  sg
+  * Adapted to recent improvements in fpGFX interfaces
+
+  Revision 1.4  2001/01/11 23:21:53  sg
+  *** empty log message ***
+
+}