home *** CD-ROM | disk | FTP | other *** search
/ Chip: Shareware for Win 95 / Chip-Shareware-Win95.bin / ostatni / delphi / delphi1 / lmdtoolb.exe / demos / bitmap / main.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-09-08  |  1.7 KB  |  84 lines
  1. unit Main;
  2. {
  3.  Demo-Program for TLMDTile and TLDMAboutDlg.
  4.  
  5.  There are only a few lines of code implemented, but it
  6.  is a full featured Texture-Viewer...
  7.  
  8.  To display the Selection-Dialog, press the 'Dialog-button' or
  9.  the right mousebutton to get a PopUp-Menu.
  10.  
  11.  This program is freeware. Use it and enjoy!
  12.  If you made any improvements it would be nice to send them to me.
  13.  
  14.  ⌐ 1995 by LMD Innovative
  15.  
  16.  ------------------------------------------------------------------
  17.  History:
  18.  0.01.00 (06.08.95): First Version for internal use
  19.  0.02.00 (06.09.95): Implementation of the TLMDTile-Component
  20.  
  21.  Author: RM}
  22.  
  23.  
  24. interface
  25.  
  26. uses
  27.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  28.   Forms, Dialogs, ExtCtrls, unit1, Menus, StdCtrls, Lmdabout, Lmdtile;
  29.  
  30. type
  31.   Ttest = class(TForm)
  32.     PopupMenu1: TPopupMenu;
  33.     Dialog1: TMenuItem;
  34.     Info1: TMenuItem;
  35.     N1: TMenuItem;
  36.     Ende1: TMenuItem;
  37.     LMDTiler1: TLMDTiler;
  38.     Button1: TButton;
  39.     aboutdlg: TLMDAboutDlg;
  40.     procedure Ende1Click(Sender: TObject);
  41.     procedure Dialog1Click(Sender: TObject);
  42.     procedure Info1Click(Sender: TObject);
  43.  
  44.   private
  45.     { Private-Deklarationen }
  46.   public
  47.     { Public-Deklarationen }
  48.   end;
  49.  
  50. var
  51.   test: Ttest;
  52.  
  53. implementation
  54.  
  55. {$R *.DFM}
  56.  
  57. procedure Ttest.Ende1Click(Sender: TObject);
  58. begin
  59.  
  60.   Close;
  61.  
  62. end;
  63.  
  64. procedure Ttest.Dialog1Click(Sender: TObject);
  65. begin
  66.  
  67.   form1.show;
  68.  
  69. end;
  70.  
  71. procedure Ttest.Info1Click(Sender: TObject);
  72. begin
  73.  
  74.   with aboutdlg do begin
  75.     description:='Viewer for Texture-Bitmaps';
  76.     copyright:=#13'(c) 1995 by LMD Innovative';
  77.     version:='0.02.00 (RELEASE 06.09.1995)';
  78.     execute;
  79.   end;
  80.  
  81. end;
  82.  
  83. end.
  84.