home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 January / Chip_1999-01_cd.bin / zkuste / delphi / D / WIDGETS.ZIP / WidgetDemoU.pas < prev   
Pascal/Delphi Source File  |  1998-07-29  |  2KB  |  79 lines
  1. unit WidgetDemoU;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   widget, StdCtrls, Menus;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     Widget1: TWidget;
  12.     Widget2: TWidget;
  13.     Widget3: TWidget;
  14.     MainMenu1: TMainMenu;
  15.     hggh1: TMenuItem;
  16.     PopupMenu1: TPopupMenu;
  17.     one1: TMenuItem;
  18.     two1: TMenuItem;
  19.     three1: TMenuItem;
  20.     N1: TMenuItem;
  21.     exxit1: TMenuItem;
  22.     procedure Widget1Click(Sender: TObject);
  23.     procedure Widget3Click(Sender: TObject);
  24.     procedure Widget2Click(Sender: TObject);
  25.   private
  26.     { Private declarations }
  27.   public
  28.     { Public declarations }
  29.   end;
  30.  
  31. var
  32.   Form1: TForm1;
  33.  
  34. implementation
  35.  
  36. {$R *.DFM}
  37.  
  38. procedure TForm1.Widget1Click(Sender: TObject);
  39. const
  40.   RolledUp: boolean = false;
  41.   FullHeight: integer = 0;
  42. begin
  43.   with Form1, Widget1 do
  44.     begin
  45.     if RolledUp then
  46.     begin
  47.       Glyph:='t';
  48.       Hint:='Click to roll up';
  49.       Height:=FullHeight;
  50.     end
  51.     else
  52.     begin
  53.       FullHeight:=Height;
  54.       Glyph:='u';
  55.       Hint:='Click to unroll';
  56.       Height:=0;
  57.     end;
  58.     RolledUp:=not RolledUp;
  59.   end;
  60. end;
  61.  
  62. procedure TForm1.Widget3Click(Sender: TObject);
  63. begin
  64.   if BorderStyle = bsSizeable then
  65.     BorderStyle:=bsSizeToolWin
  66.   else
  67.     BorderStyle:=bsSizeable;
  68. end;
  69.  
  70. procedure TForm1.Widget2Click(Sender: TObject);
  71. begin
  72.   if BorderIcons*[biMinimize, biMaximize] = [biMinimize, biMaximize] then
  73.     BorderIcons:=BorderIcons - [biMinimize, biMaximize]
  74.   else
  75.     BorderIcons:=BorderIcons + [biMinimize, biMaximize];
  76. end;
  77.  
  78. end.
  79.