ocs-comps-commits

[Si C. <tec...@us...>]

Update of /cvsroot/ocs-comps/OCS2/Samples/VCL/Button
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10593/Samples/VCL/Button

Added Files:
	Button.dpr Button.res Unit1.dfm Unit1.pas 
Log Message:
Initially added to source control

--- NEW FILE: Button.res ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: Unit1.pas ---
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Buttons, OrckaButton, StdCtrls;

type
  TForm1 = class(TForm)
    OrckaButton1: TOrckaButton;
    OrckaButton2: TOrckaButton;
    OrckaButton3: TOrckaButton;
    OrckaButton4: TOrckaButton;
    OrckaButton5: TOrckaButton;
    OrckaButton6: TOrckaButton;
    OrckaButton7: TOrckaButton;
    OrckaButton8: TOrckaButton;
    OrckaButton9: TOrckaButton;
    Button1: TButton;
    Button2: TButton;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
  private
    FButtonPos: array[1..9, 0..1] of integer;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  FButtonPos[1,0] := OrckaButton1.Top;
  FButtonPos[2,0] := OrckaButton2.Top;
  FButtonPos[3,0] := OrckaButton3.Top;
  FButtonPos[4,0] := OrckaButton4.Top;
  FButtonPos[5,0] := OrckaButton5.Top;
  FButtonPos[6,0] := OrckaButton6.Top;
  FButtonPos[7,0] := OrckaButton7.Top;
  FButtonPos[8,0] := OrckaButton8.Top;
  FButtonPos[9,0] := OrckaButton9.Top;

  FButtonPos[1,1] := OrckaButton1.Left;
  FButtonPos[2,1] := OrckaButton2.Left;
  FButtonPos[3,1] := OrckaButton3.Left;
  FButtonPos[4,1] := OrckaButton4.Left;
  FButtonPos[5,1] := OrckaButton5.Left;
  FButtonPos[6,1] := OrckaButton6.Left;
  FButtonPos[7,1] := OrckaButton7.Left;
  FButtonPos[8,1] := OrckaButton8.Left;
  FButtonPos[9,1] := OrckaButton9.Left;
  
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  OrckaButton1.Position := 0;
  OrckaButton2.Position := 1;
  OrckaButton3.Position := 2;
  OrckaButton4.Position := 3;
  OrckaButton5.Position := 4;
  OrckaButton6.Position := 5;
  OrckaButton7.Position := 6;
  OrckaButton8.Position := 7;
  OrckaButton9.Position := 8;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  if CheckBox1.Checked then
    OrckaButton1.AlignTopLeft := True
  else
  begin
    OrckaButton1.AlignTopLeft := False;
    OrckaButton1.Left := FButtonPos[1,1];
    OrckaButton1.Top := FButtonPos[1,0];
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  OrckaButton1.Position := -1;
  OrckaButton2.Position := -1;
  OrckaButton3.Position := -1;
  OrckaButton4.Position := -1;
  OrckaButton5.Position := -1;
  OrckaButton6.Position := -1;
  OrckaButton7.Position := -1;
  OrckaButton8.Position := -1;
  OrckaButton9.Position := -1;

  OrckaButton1.Top := FButtonPos[1,0];
  OrckaButton2.Top := FButtonPos[2,0];
  OrckaButton3.Top := FButtonPos[3,0];
  OrckaButton4.Top := FButtonPos[4,0];
  OrckaButton5.Top := FButtonPos[5,0];
  OrckaButton6.Top := FButtonPos[6,0];
  OrckaButton7.Top := FButtonPos[7,0];
  OrckaButton8.Top := FButtonPos[8,0];
  OrckaButton9.Top := FButtonPos[9,0];

  OrckaButton1.Left := FButtonPos[1,1];
  OrckaButton2.Left := FButtonPos[2,1];
  OrckaButton3.Left := FButtonPos[3,1];
  OrckaButton4.Left := FButtonPos[4,1];
  OrckaButton5.Left := FButtonPos[5,1];
  OrckaButton6.Left := FButtonPos[6,1];
  OrckaButton7.Left := FButtonPos[7,1];
  OrckaButton8.Left := FButtonPos[8,1];
  OrckaButton9.Left := FButtonPos[9,1];
end;

procedure TForm1.CheckBox2Click(Sender: TObject);
var
  bs: TOrckaButtonStyle;
begin
  if CheckBox2.Checked then
    bs := obVSeperator
  else
    bs := obButton;
  OrckaButton2.ButtonStyle := bs;
  OrckaButton4.ButtonStyle := bs;
  OrckaButton6.ButtonStyle := bs;
  OrckaButton8.ButtonStyle := bs;
end;

end.

--- NEW FILE: Button.dpr ---
program Button;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

--- NEW FILE: Unit1.dfm ---
(This appears to be a binary file; contents omitted.)