Sida 1 av 3
CheckGroupProg (Version 2)
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
ExtCtrls, StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
CheckGroup1: TCheckGroup;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
ListBox1: TListBox;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
Sida 2 av 3
procedure Button4Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ private declarations } public
{ public declarations } end;
var
Form1: TForm1;
implementation { TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Caption := 'CheckGroupProg';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
CheckGroup1.Items.Clear;
CheckGroup1.Items.Add('Niklas');
CheckGroup1.Items.Add('Jesper');
CheckGroup1.Items.Add('Mathias');
CheckGroup1.Items.Add('Ronnie');
CheckGroup1.Items.Add('Augustin');
CheckGroup1.Items.Add('Hervé');
CheckGroup1.Items.Add('Joakim');
CheckGroup1.Items.Add('Magnus');
CheckGroup1.Items.Add('Dennis');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
CheckGroup1.Items.Clear;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
CheckGroup1.Columns := 1;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
CheckGroup1.Columns := 2;
end;
Sida 3 av 3
procedure TForm1.Button5Click(Sender: TObject);
var
i: Integer;
begin
for i := 0 to CheckGroup1.Items.Count - 1 do begin
CheckGroup1.Checked[i] := true;
end;
end;
procedure TForm1.Button6Click(Sender: TObject);
var
i: Integer;
begin
for i := 0 to CheckGroup1.Items.Count - 1 do begin
CheckGroup1.Checked[i] := false;
end;
end;
procedure TForm1.Button7Click(Sender: TObject);
var
i: Integer;
begin
ListBox1.Items.Clear;
for i := 0 to CheckGroup1.Items.Count - 1 do begin
if CheckGroup1.Checked[i] then begin
ListBox1.Items.Add(CheckGroup1.Items.Strings[i]);
end;
end;
end;
initialization {$I unit1.lrs}
end.