lazarus/examples/bitbtnform.pp

{
 ***************************************************************************
 *                                                                         *
 *   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., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1335, USA.   *
 *                                                                         *
 ***************************************************************************
}
unit bitbtnform;

{$mode objfpc}
{$H+}

interface

uses
  Classes, Forms, Buttons, StdCtrls, Controls;

type
   TForm1 = class(TForm)
   private

   protected

   public
      button1 : TBitBtn;
      Label1 : TLabel;
      GroupBox1 : TGroupBox;
      Radio1 : TRadioButton;
      Radio2 : TRadioButton;
      Radio3 : TRadioButton;
      Radio4 : TRadioButton;
      Groupbox2 : TGroupbox;
      Radio5 : TRadioButton;
      Radio6 : TRadioButton;
      Radio7 : TRadioButton;
      Radio8 : TRadioButton;
      Label2 : TLabel;
      constructor Create(AOwner: TComponent); override;
      procedure button1MouseDown(Sender: TObject; Button: TMouseButton;
                                 Shift: TShiftState; X, Y: Integer);
      procedure button1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
      procedure button1MouseUp(Sender: TObject; Button: TMouseButton;
                                 Shift: TShiftState; X, Y: Integer);
      procedure button1Enter(Sender : TObject);
      procedure FormDestroy(Sender : TObject);
      procedure Radio1Click(Sender : TObject);
      procedure Radio2Click(Sender : TObject);
      procedure Radio3Click(Sender : TObject);
      procedure Radio4Click(Sender : TObject);
      procedure Radio5Click(Sender : TObject);
      procedure Radio6Click(Sender : TObject);
      procedure Radio7Click(Sender : TObject);
      procedure Radio8Click(Sender : TObject);
   end;

var
   Form1 : TForm1;

implementation

constructor TForm1.Create(AOwner: TComponent);
begin
   inherited CreateNew(AOwner, 1);
   Caption := 'TBitBtn Verify';
   Width := 335;
   Height := 170;
   Left := 200;
   Top := 200;

   OnDestroy := @FormDestroy;

   button1 := TBitBtn.Create(Self);
   With button1 do
   begin
     OnMouseUp:= @button1MouseUp;
     OnEnter := @button1Enter;
     OnMouseDown := @button1MouseDown;
     OnMouseMove := @button1MouseMove;
     Parent := Self;
     width := 120;
     height := 120;
     left := 15;
     top := 15;
     layout := blGlyphLeft;
     kind := bkClose;
     caption := 'Close';
     Show;
   end;
   
   Label1 := TLabel.Create(Self);
   With Label1 do
   begin
     Parent := Self;
     width := 80;
     left := 15;
     top := 150;
     Caption := 'bkClose';
     Autosize := True;
     Show;
   end;

   Label2 := TLabel.Create(Self);
   With Label2 do
   begin
     Parent := Self;
     width := 80;
     left := 150;
     top := 150;
     Caption := 'blGlyphLeft';
     Autosize := True;
     Show;
   end;
   
   GroupBox1 := TGroupbox.Create(Self);
   with GroupBox1 do
   begin
     Parent := Self;
     width := 80;
     height := 125;
     left := 150;
     top := 15;
     Caption := 'Kind';
   end;

   Radio1 := TRadioButton.Create(Self);
   with Radio1 do
   begin
     OnClick := @Radio1Click;
     Parent := GroupBox1;
     top := 8;
     left := 8;
     caption := 'Close';
     Checked := True;
     Height := 15;
     Width := 60;  
     Show;
   end;

   Radio2 := TRadioButton.Create(Self);
   with Radio2 do
   begin
     OnClick := @Radio2Click;
     Parent := GroupBox1;
     top := 32;
     left := 8;
     caption := 'Ok';
     Checked := False;
     Height := 15;
     Width := 50;
     Show;
   end;

   Radio3 := TRadioButton.Create(Self);
   with Radio3 do
   begin
     OnClick := @Radio3Click;
     Parent := GroupBox1;
     top := 56;
     left := 8;
     caption := 'Cancel';
     Checked := False;
     Height := 15;
     Width := 65;
     Show;
   end;

   Radio4 := TRadioButton.Create(Self);
   with Radio4 do
   begin
     OnClick := @Radio4Click;
     Parent := GroupBox1;
     top := 80;
     left := 8;
     caption := 'Help';
     Checked := False;
     Height := 15;
     Width := 55;
     Show;
   end;

   GroupBox2 := TGroupbox.Create(Self);
   with GroupBox2 do
   begin
     Parent := Self;
     width := 80;
     height := 125;
     left := 240;
     top := 15;
     Caption := 'Layout';
   end;

   Radio5 := TRadioButton.Create(Self);
   with Radio5 do
   begin
     OnClick := @Radio5Click;
     Parent := GroupBox2;
     top := 8;
     left := 8;
     caption := 'Left';
     Checked := True;
     Height := 15;
     Width := 60;  
     Show;
   end;

   Radio6 := TRadioButton.Create(Self);
   with Radio6 do
   begin
     OnClick := @Radio6Click;
     Parent := GroupBox2;
     top := 32;
     left := 8;
     caption := 'Top';
     Checked := False;
     Height := 15;
     Width := 50;
     Show;
   end;

   Radio7 := TRadioButton.Create(Self);
   with Radio7 do
   begin
     OnClick := @Radio7Click;
     Parent := GroupBox2;
     top := 56;
     left := 8;
     caption := 'Right';
     Checked := False;
     Height := 15;
     Width := 65;
     Show;
   end;

   Radio8 := TRadioButton.Create(Self);
   with Radio8 do
   begin
     OnClick := @Radio8Click;
     Parent := GroupBox2;
     top := 80;
     left := 8;
     caption := 'Bottom';
     Checked := False;
     Height := 15;
     Width := 55;
     Show;
   end;
end;

procedure TForm1.FormDestroy(Sender : TObject);
begin

end;

procedure TForm1.button1MouseDown(Sender: TObject; Button: TMouseButton;
                                  Shift: TShiftState; X, Y: Integer);
begin
  Label1.Caption := 'Button1.Down';
end;

procedure TForm1.button1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  Label1.Caption := 'Button1.Move';
end;

procedure TForm1.button1MouseUp(Sender: TObject; Button: TMouseButton;
                                 Shift: TShiftState; X, Y: Integer);
begin
  Label1.Caption := 'Button1.Up';
end;

procedure TForm1.button1Enter(Sender : TObject);
begin
  //
end;

procedure TForm1.Radio1Click(Sender : TObject);
begin
  button1.Kind := bkClose;
  Label1.Caption := 'bkClose';
end;

procedure TForm1.Radio2Click(Sender : TObject);
begin
  button1.Kind := bkOk;
  Label1.Caption := 'bkOk';
end;

procedure TForm1.Radio3Click(Sender : TObject);
begin
  button1.Kind := bkCancel;
  Label1.Caption := 'bkCancel';
end;

procedure TForm1.Radio4Click(Sender : TObject);
begin
  button1.Kind := bkHelp;
  Label1.Caption := 'bkHelp';
end;

procedure TForm1.Radio5Click(Sender : TObject);
begin
  button1.Layout := blGlyphLeft;
  Label2.Caption := 'blGlyphLeft';
end;

procedure TForm1.Radio6Click(Sender : TObject);
begin
  button1.Layout := blGlyphTop;
  Label2.Caption := 'blGlyphTop';
end;

procedure TForm1.Radio7Click(Sender : TObject);
begin
  button1.Layout := blGlyphRight;
  Label2.Caption := 'blGlyphRight';
end;

procedure TForm1.Radio8Click(Sender : TObject);
begin
  button1.Layout := blGlyphBottom;
  Label2.Caption := 'blGlyphBottom';
end;

end.