lazarus/examples/groupbox.pp

{  $Id$  }
{
 /***************************************************************************
                          main.pp  -  Toolbar
                             -------------------
                   TMain is the application toolbar window.


                   Initial Revision  : Sun Mar 28 23:15:32 CST 1999


 ***************************************************************************/

 ***************************************************************************
 *                                                                         *
 *   This source is free software; you can redistribute it and/or modify   *
 *   it under the terms of the GNU General Public License as published by  *
 *   the Free Software Foundation; either version 2 of the License, or     *
 *   (at your option) any later version.                                   *
 *                                                                         *
 *   This code is distributed in the hope that it will be useful, but      *
 *   WITHOUT ANY WARRANTY; without even the implied warranty of            *
 *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU     *
 *   General Public License for more details.                              *
 *                                                                         *
 *   A copy of the GNU General Public License is available on the World    *
 *   Wide Web at <http://www.gnu.org/copyleft/gpl.html>. You can also      *
 *   obtain it by writing to the Free Software Foundation,                 *
 *   Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.        *
 *                                                                         *
 ***************************************************************************
}
program groupbox;

{$mode objfpc}{$H+}

uses
  classes, stdctrls,forms,buttons,menus,comctrls,sysutils;

type
	TForm1 = class(TFORM)
	public
	  
	  Button1: TButton;
    	  Button2: TButton;
	  Button3: TButton;
	  Button4: TButton;
          grpTst   : TGroupBox;
          mnuBarMain: TMenuBar;
          mnuFile: TMenu;
          itmFileQuit: TMenuItem;
          CheckBox1 : TCheckBox;
          constructor Create(AOwner: TComponent); override;	
          procedure LoadMainMenu;
	  Procedure FormKill(Sender : TObject);
	  procedure mnuQuitClicked(Sender : TObject);
	protected
	  procedure Button1CLick(Sender : TObject);
	  procedure Button2CLick(Sender : TObject);
	  procedure Button3CLick(Sender : TObject);
	  procedure Button4CLick(Sender : TObject);
	end;

var
Form1 : TForm1;

constructor TForm1.Create(AOwner: TComponent);	
begin
   inherited Create(AOwner);
   Caption := 'Groubox Demo v0.1';
   LoadMainMenu;
end;

procedure TForm1.Button1Click(Sender : TObject);
Begin
   if assigned (grpTst) then grpTst.Height := grpTst.Height + 10;
End;

procedure TForm1.Button2Click(Sender : TObject);
Begin
   if assigned (grpTst) then begin
   	grpTst.Width := grpTst.Width + 10;
	grpTst.Show;
   end;
End;

procedure TForm1.Button3Click(Sender : TObject);
Begin
   if assigned (grpTst) then begin
      grpTst.Show;
   end;
End;

procedure TForm1.Button4Click(Sender : TObject);
Begin
   if assigned (grpTst) then begin
   	grpTst.Hide;
   end;
End;

{------------------------------------------------------------------------------}

procedure TForm1.FormKill(Sender : TObject);
Begin
  Application.terminate;
End;

{------------------------------------------------------------------------------}
procedure TForm1.LoadMainMenu;

begin
OnDestroy := @FormKill;

{ set the height and width }
Height := 350;
Width := 700;

{ Create a groupbox }
grpTst := TGroupBox.Create(Self);
grpTst.Parent := self;
grpTst.top := 70;
grpTst.left := 10;
grpTst.Height :=200;
grpTst.Width := 300; 
grpTst.Show;
grpTst.Caption := 'Groupbox with 2 Buttons';

{ Create 2 buttons inside the groupbox }
if assigned (grpTst) then 
begin
   Button2 := TButton.Create(grpTst);
   Button2.Parent := grpTst;
end
else begin
   Button2 := TButton.Create(Self);
   Button2.Parent := Self;
end;
Button2.Left := 200;
Button2.Top := 50;
Button2.Width := 80;
Button2.Height := 30;
Button2.Show;
Button2.Caption := 'Width ++';
Button2.OnClick := @Button2Click;


if assigned (grpTst) then 
begin
   Button1 := TButton.Create(grpTst);
   Button1.Parent := grpTst;
end
else begin
   Button1 := TButton.Create(Self);
   Button1.Parent := Self;
end;
Button1.Left := 50;
Button1.Top := 50;
Button1.Width := 80;
Button1.Height := 30;
Button1.Show;
Button1.Caption := 'Height++';
Button1.OnClick := @Button1Click;

{ Create 2 more buttons outside the groupbox }
Button3 := TButton.Create(Self);
Button3.Parent := Self;
Button3.Left := 50;
Button3.Top := 30;
Button3.Width := 80;
Button3.Height := 30;
Button3.Show;
Button3.Caption := 'Show';
Button3.OnClick := @Button3Click;

Button4 := TButton.Create(Self);
Button4.Parent := Self;
Button4.Left := 200;
Button4.Top := 30;
Button4.Width := 80;
Button4.Height := 30;
Button4.Show;
Button4.Caption := 'Hide';
Button4.OnClick := @Button4Click;

mnuFile := TMenu.Create(nil);

itmFileQuit := TMenuItem.Create(nil);
itmFileQuit.Caption := 'Quit';
itmFileQuit.OnClick := @mnuQuitClicked;
// itmFileQuit.Show;

mnuFile.Items.Add (itmFileQuit);

mnuBarMain := TMenuBar.Create(self);
{
mnuBarMain.Height := 25;
mnuBarMain.Width := Width;
mnuBarMain.Top := 0;
mnuBarMain.Left := 0;
}
mnuBarMain.Show;

mnuBarMain.AddMenu('File',mnuFile);
end;

{------------------------------------------------------------------------------}
procedure TForm1.mnuQuitClicked(Sender : TObject);
begin
   Application.Terminate;
end;
{------------------------------------------------------------------------------}

begin
   Application.Initialize; { calls InitProcedure which starts up GTK }
   Application.CreateForm(TForm1, Form1);
   Application.Run;
end.