Mavzu:“ “Oddiy arifmetika trenajori” loyihasi

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];

End;

{ CheckListBox1ClickCheck(Self);}

end;

procedure Tform1.RadioGroup2Click(Sender: Tobject);

begin

Case RadioGroup2.ItemIndex of

0: Edit1.Font.Size:=8;

1: Edit1.Font.Size:=10;

2: Edit1.Font.Size:=12;

3: Edit1.Font.Size:=14;

End;

end;

procedure Tform1.RadioGroup3Click(Sender: Tobject);

begin

Case RadioGroup3.ItemIndex of

0: Edit1.Font.Color:=ClBlack;

1: Edit1.Font.Color:=ClGreen;

2: Edit1.Font.Color:=ClRed;

3: Edit1.Font.Color:=ClBlue;

End;

end;

procedure Tform1.CheckListBox1Click(Sender: Tobject);

begin

If CheckListBox1.Checked[0]

Then Edit1.Font.Style:=Edit1.Font.Style+[FsStrikeOut]

Else Edit1.Font.Style:=Edit1.Font.Style-[FsStrikeOut];

If CheckListBox1.Checked[1]

Then Edit1.Font.Style:=Edit1.Font.Style+[FsUnderLine]

Else Edit1.Font.Style:=Edit1.Font.Style-[FsUnderline];

end;

end.

Savollar :

1. 
   Delphi dasturi haqida tushuncha bering?
   
2. 
   Delphi dasturini imkoniyatlari ?
   
3. 
   Delphi dasturi qanday dastur?
   

Uyga vazifa: O’tilgan mavzuni o’qib,o’rganib kelish.