home *** CD-ROM | disk | FTP | other *** search
/ Delphi 4 Bible / Delphi_4_Bible_Tom_Swan_IDG_Books_1998.iso / source / BITVIEW2 / MAIN.PAS < prev   
Pascal/Delphi Source File  |  1998-04-04  |  1KB  |  62 lines
  1. unit Main;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, SysUtils, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, Menus, ExtCtrls, Jpeg;
  8.  
  9. type
  10.   TMainForm = class(TForm)
  11.     BitImage: TImage;
  12.     MainMenu1: TMainMenu;
  13.     File1: TMenuItem;
  14.     Open1: TMenuItem;
  15.     Exit1: TMenuItem;
  16.     OpenDialog1: TOpenDialog;
  17.     procedure Open1Click(Sender: TObject);
  18.     procedure Exit1Click(Sender: TObject);
  19.     procedure FormResize(Sender: TObject);
  20.     procedure FormActivate(Sender: TObject);
  21.   private
  22.     { Private declarations }
  23.   public
  24.     { Public declarations }
  25.   end;
  26.  
  27. var
  28.   MainForm: TMainForm;
  29.  
  30. implementation
  31.  
  32. {$R *.DFM}
  33.  
  34. procedure TMainForm.Open1Click(Sender: TObject);
  35. begin
  36.   if OpenDialog1.Execute then
  37.   begin
  38.     BitImage.Picture.LoadFromFile(OpenDialog1.Filename);
  39.     Caption := OpenDialog1.Filename;
  40.     FormResize(Sender);
  41.   end;
  42. end;
  43.  
  44. procedure TMainForm.Exit1Click(Sender: TObject);
  45. begin
  46.   Close;
  47. end;
  48.  
  49. procedure TMainForm.FormResize(Sender: TObject);
  50. begin
  51.   HorzScrollBar.Range := BitImage.Picture.Width;
  52.   VertScrollBar.Range := BitImage.Picture.Height;
  53. end;
  54.  
  55. procedure TMainForm.FormActivate(Sender: TObject);
  56. begin
  57.   OpenDialog1.Filter := GraphicFilter(TGraphic);
  58. end;
  59.  
  60. end.
  61.  
  62.