RadioProg Sida 1 av 2

Sida 1 av 2

RadioProg

unit Unit1;

{$mode objfpc}{$H+}

interface

uses

Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,

ExtCtrls, StdCtrls;

type

{ TForm1 }

TForm1 = class(TForm) Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Label1: TLabel;

RadioGroup1: TRadioGroup;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ private declarations }

Sida 2 av 2

public

{ public declarations } end;

var

Form1: TForm1;

implementation { TForm1 }

procedure TForm1.FormCreate(Sender: TObject);

begin

Form1.Caption := 'RadioProg';

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

RadioGroup1.Items.Clear;

RadioGroup1.Items.Add('Niklas');

RadioGroup1.Items.Add('Jesper');

RadioGroup1.Items.Add('Mathias');

RadioGroup1.Items.Add('Ronnie');

RadioGroup1.Items.Add('Augustin');

RadioGroup1.Items.Add('Hervé');

RadioGroup1.Items.Add('Joakim');

RadioGroup1.Items.Add('Magnus');

RadioGroup1.Items.Add('Dennis');

RadioGroup1.ItemIndex := 0;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

RadioGroup1.Items.Clear;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

RadioGroup1.Columns := 1;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

RadioGroup1.Columns := 2;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

Label1.Caption := RadioGroup1.Items[RadioGroup1.ItemIndex];

end;

initialization {$I unit1.lrs}

end.