[1] .., .., .. : / . . .. . .: , 2002.
[2] . . , .: , 1987.
[3] . . , .: , 1971.
[4] .. , , .: , 2002.
[5] , . . / . . . .: , 2007. 156 .
[6] ., ., Access Windows 2000, .:, 2001.
[7] ғ .. ә , Ә , ҚҰ 2011 .
[8] . : [. ] / . . - 9 - . - .: , 2005.
[9] .. Delphi 7: . .: , 2004
[10] .. : , , . - .: , 2001.
[11] ., . . - .: , 2000.
[12] ., . . . .: , 2000.
[13] .., .. . .: -, 2001.
[14] www.yandex.com.
[15] www.altavista.digital.com.
[16] www.delphimaster.ru.
[17] www.google.kz.
қ
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, jpeg, StdCtrls, ComCtrls, ActnList, IWControl,
IWCompButton;
type
TForm1 = class(TForm)
Image1: TImage;
GroupBox1: TGroupBox;
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
Panel4: TPanel;
Panel5: TPanel;
Panel6: TPanel;
Panel7: TPanel;
Panel8: TPanel;
Panel9: TPanel;
Panel10: TPanel;
Panel11: TPanel;
Panel12: TPanel;
Panel13: TPanel;
Panel14: TPanel;
Panel15: TPanel;
Panel16: TPanel;
Panel17: TPanel;
Panel18: TPanel;
Panel19: TPanel;
Panel20: TPanel;
Panel21: TPanel;
Panel22: TPanel;
Panel23: TPanel;
Panel24: TPanel;
Panel25: TPanel;
Panel26: TPanel;
Panel27: TPanel;
Panel28: TPanel;
Panel29: TPanel;
Panel30: TPanel;
қң ғ
procedure CheckBox1Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
procedure CheckBox3Click(Sender: TObject);
procedure CheckBox4Click(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Action1Execute(Sender: TObject);
procedure k(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
const
t:array[0..1,0..102]of smallint=((4,170,171,172,173,174,175,176,177,178,179,180,
181,182,183,184,185,186,100,145,146,147,148,149,150,151,152,153,154,185,186, var
Form1: TForm1;
Apoint,Bpoint:smallint;
snova:boolean=false;
implementation
uses Unit2, Unit3, Unit4, Unit5;
|
|
{$R *.dfm}
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then
begin
Panel432.Color:=clPurple;
Panel1.Color:=clPurple;
Panel109.Color:=clPurple;
Panel100.Color:=clPurple;
Panel101.Color:=clPurple;
Panel102.Color:=clPurple;
Panel103.Color:=clPurple;
Panel3.Color:=clPurple;
Panel49.Color:=clPurple;
Panel73.Color:=clPurple;
Panel83.Color:=clPurple;
қң ғ
Panel104.Color:=clPurple;
end;
if not (CheckBox1.Checked) then
begin
Panel432.Color:=clBtnFace;
Panel1.Color:=clBtnFace;
Panel109.Color:=clBtnFace;
Panel100.Color:=clBtnFace;
Panel101.Color:=clBtnFace;
Panel102.Color:=clBtnFace;
Panel103.Color:=clBtnFace;
Panel3.Color:=clBtnFace;
end;
procedure TForm1.CheckBox2Click(Sender: TObject);
begin
if CheckBox2.Checked then
begin
Panel2.Color:=clFuchsia;
Panel4.Color:=clFuchsia;
Panel5.Color:=clFuchsia;
Panel6.Color:=clFuchsia;
Panel7.Color:=clFuchsia;
Panel8.Color:=clFuchsia;
end;
if not Checkbox2.Checked then
begin
Panel2.Color:=clBtnFace;
Panel4.Color:=clBtnFace;
Panel5.Color:=clBtnFace;
Panel6.Color:=clBtnFace;
end;
procedure TForm1.CheckBox3Click(Sender: TObject);
begin
if CheckBox3.Checked then
begin
Panel359.Color:=clOlive;
Panel360.Color:=clOlive;
Panel361.Color:=clOlive;
Panel362.Color:=clOlive;
Panel363.Color:=clOlive;
Panel364.Color:=clOlive;