home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 March / Chip_2002-03_cd1.bin / zkuste / delphi / kompon / d3456 / SBPRO.ZIP / Demo / Main.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-12-30  |  1.2 KB  |  54 lines
  1. unit Main;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Menus, SBPro, {$IFNDEF VER100} ImgList, {$ENDIF} Gauges, ExtCtrls,
  8.   ComCtrls;
  9.  
  10. type
  11.   TForm1 = class(TForm)
  12.     StatusBarPro1: TStatusBarPro;
  13.     PopupMenu1: TPopupMenu;
  14.     PopupMenu2: TPopupMenu;
  15.     PopupMenu3: TPopupMenu;
  16.     FirstPanelPopup1: TMenuItem;
  17.     SecondPanelPopup1: TMenuItem;
  18.     StatusBarPopup1: TMenuItem;
  19.     ImageList1: TImageList;
  20.     Gauge1: TGauge;
  21.     Panel1: TPanel;
  22.     procedure StatusBarPro1Panels0Click(Sender: TObject);
  23.     procedure StatusBarPro1Panels1DblClick(Sender: TObject);
  24.   private
  25.     { Private declarations }
  26.   public
  27.     { Public declarations }
  28.   end;
  29.  
  30. var
  31.   Form1: TForm1;
  32.  
  33. implementation
  34.  
  35. {$R *.DFM}
  36.  
  37. procedure TForm1.StatusBarPro1Panels0Click(Sender: TObject);
  38. begin
  39.   with TStatusPanelPro(Sender) do
  40.     case Alignment of
  41.       taLeftJustify: Alignment := taCenter;
  42.       taCenter: Alignment := taRightJustify;
  43.       taRightJustify: Alignment := taLeftJustify;
  44.     end;
  45. end;
  46.  
  47. procedure TForm1.StatusBarPro1Panels1DblClick(Sender: TObject);
  48. begin
  49.   with TStatusPanelPro(Sender) do
  50.     ImageIndex := 3 - ImageIndex; 
  51. end;
  52.  
  53. end.
  54.