[Ocs-comps-commits] OCS2/Samples/VCL/GroupBox GroupBox.dpr,NONE,1.1 GroupBox.res,NONE,1.1 Unit1.dfm,NONE,1.1 Unit1.pas,NONE,1.1

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

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

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

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

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

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

{$R *.RES}

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

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

interface

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

type
  TForm1 = class(TForm)
    OrckaRadioGroupBox1: TOrckaRadioGroupBox;
    OrckaRadioGroupBox2: TOrckaRadioGroupBox;
    OrckaRadioGroupBox3: TOrckaRadioGroupBox;
    OrckaCheckGroupBox1: TOrckaCheckGroupBox;
    OrckaCheckGroupBox2: TOrckaCheckGroupBox;
    OrckaCheckGroupBox3: TOrckaCheckGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    CheckBox3: TCheckBox;
    RadioButton1: TRadioButton;
    ListBox1: TListBox;
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  OrckaRadioGroupBox1.AutoDisable := CheckBox1.Checked;
  OrckaRadioGroupBox2.AutoDisable := CheckBox1.Checked;
  OrckaRadioGroupBox3.AutoDisable := CheckBox1.Checked;
  OrckaCheckGroupBox1.AutoDisable := CheckBox1.Checked;
  OrckaCheckGroupBox2.AutoDisable := CheckBox1.Checked;
  OrckaCheckGroupBox3.AutoDisable := CheckBox1.Checked;
end;

procedure TForm1.CheckBox2Click(Sender: TObject);
var
  GroupNo: Longint;
begin
  if CheckBox2.Checked then
    GroupNo := 1
  else
    GroupNo := 0;
  OrckaCheckGroupBox1.GroupIndex := GroupNo;
  OrckaCheckGroupBox2.GroupIndex := GroupNo;
  OrckaCheckGroupBox3.GroupIndex := GroupNo;
end;

end.

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