home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 January / Chip_1999-01_cd.bin / zkuste / delphi / D1 / SHAPEBUT.ZIP / SBDEMO1.PAS < prev    next >
Pascal/Delphi Source File  |  1996-04-06  |  1KB  |  60 lines
  1. unit Sbdemo1;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, ExtCtrls,Buttons
  8. {$IFDEF WINDOWS}
  9.   ,ShapeBut
  10. {$ENDIF}
  11.  
  12. {$IFDEF WIN32}
  13.   ,ShapeB32
  14. {$ENDIF}
  15.  
  16. ;
  17.  
  18. type
  19.   TForm1 = class(TForm)
  20.     Image1: TImage;
  21.     Label1: TLabel;
  22.     Label2: TLabel;
  23.     Label3: TLabel;
  24.     ShapeButton1: TShapeButton;
  25.     ShapeButton2: TShapeButton;
  26.     ShapeButton3: TShapeButton;
  27.     ShapeButton4: TShapeButton;
  28.     ShapeButton5: TShapeButton;
  29.     ShapeButton6: TShapeButton;
  30.     Shape2: TShape;
  31.     Shape1: TShape;
  32.     ShapeButton7: TShapeButton;
  33.     ShapeButton8: TShapeButton;
  34.     ShapeButton9: TShapeButton;
  35.     ShapeButton10: TShapeButton;
  36.     ShapeButton11: TShapeButton;
  37.     ShapeButton12: TShapeButton;
  38.     ShapeButton13: TShapeButton;
  39.     procedure ShapeButton5Click(Sender: TObject);
  40.   private
  41.     { Private-Deklarationen }
  42.   public
  43.     { Public-Deklarationen }
  44.   end;
  45.  
  46. var
  47.   Form1: TForm1;
  48.  
  49. implementation
  50.  
  51. {$R *.DFM}
  52.  
  53.  
  54. procedure TForm1.ShapeButton5Click(Sender: TObject);
  55. begin
  56.   Close
  57. end;
  58.  
  59. end.
  60.