Ы маамммтттттngy s,,,,,,,,,,,C, xf

Unit pxx2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls, CheckLst;

type

Tform1 = class(Tform)

Edit1: Tedit;

CheckListBox1: TcheckListBox;

Label1: Tlabel;

Label2: Tlabel;

RadioGroup1: TradioGroup;

RadioGroup2: TradioGroup;

RadioGroup3: TradioGroup;

procedure RadioGroup1Click(Sender: Tobject);

procedure RadioGroup2Click(Sender: Tobject);

procedure RadioGroup3Click(Sender: Tobject);

procedure CheckListBox1Click(Sender: Tobject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: Tform1;

implementation

{$R *.dfm}

procedure Tform1.RadioGroup1Click(Sender: Tobject);

begin

Case RadioGroup1.ItemIndex of

0: Edit1.Font.Style:=[ ];

1: Edit1.Font.Style:=[FsItalic];

2: Edit1.Font.Style:=[FsBold];

3: Edit1.Font.Style:=[FsItalic,FsBold];