unit Kogan;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons, Data.DB, Data.Win.ADODB, Vcl.Grids, HTMLHelpViewer,
Vcl.DBGrids, Vcl.ImgList;
type
TFTestKog = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
PTabl: TPanel;
LHint: TLabel;
LOk: TLabel;
TimerAll: TTimer;
ADOQProt: TADOQuery;
ADOQRes: TADOQuery;
ADOQResID: TAutoIncField;
ADOQResID_Result: TIntegerField;
ADOQResID_Testing: TIntegerField;
ADOQResID_Param: TIntegerField;
ADOQResValue_Result: TWideStringField;
ADOQParamRes: TADOQuery;
ADOQParamResID: TAutoIncField;
ADOQParamResID_ParamResult: TIntegerField;
ADOQParamResParametr: TWideStringField;
ADOQParamResMin_Value: TWideStringField;
ADOQParamResMax_Value: TWideStringField;
BBVse: TBitBtn;
TTimeNow: TTimer;
PKart: TPanel;
Image1: TImage;
Image2: TImage;
Image3: TImage;
Image4: TImage;
Image5: TImage;
Image6: TImage;
Image7: TImage;
Image8: TImage;
Image9: TImage;
Image10: TImage;
Image11: TImage;
Image12: TImage;
Image13: TImage;
Image14: TImage;
Image15: TImage;
Image16: TImage;
Image17: TImage;
Image18: TImage;
Image19: TImage;
Image20: TImage;
Image21: TImage;
Image22: TImage;
Image23: TImage;
Image24: TImage;
Image25: TImage;
Label1: TLabel;
Image26: TImage;
Image27: TImage;
Image28: TImage;
Image29: TImage;
Image30: TImage;
Image31: TImage;
Image32: TImage;
Image33: TImage;
Image34: TImage;
Image35: TImage;
Image36: TImage;
Image37: TImage;
Image38: TImage;
Image39: TImage;
Image40: TImage;
Image41: TImage;
Image42: TImage;
Image43: TImage;
Image44: TImage;
Image45: TImage;
Image46: TImage;
Image47: TImage;
Image48: TImage;
Image49: TImage;
Image50: TImage;
Image51: TImage;
Image52: TImage;
Image53: TImage;
Image54: TImage;
Image55: TImage;
Image56: TImage;
Image57: TImage;
Image58: TImage;
Image59: TImage;
Image60: TImage;
Image61: TImage;
ImageList1: TImageList;
ADOQAnsw: TADOQuery;
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure FormActivate(Sender: TObject);
procedure BBVseClick(Sender: TObject);
procedure Image1Click(Sender: TObject);
procedure Image2Click(Sender: TObject);
procedure Image3Click(Sender: TObject);
procedure Image4Click(Sender: TObject);
procedure Image5Click(Sender: TObject);
procedure Image6Click(Sender: TObject);
procedure Image7Click(Sender: TObject);
procedure Image8Click(Sender: TObject);
procedure Image9Click(Sender: TObject);
procedure Image10Click(Sender: TObject);
procedure Image11Click(Sender: TObject);
procedure Image12Click(Sender: TObject);
procedure Image13Click(Sender: TObject);
procedure Image14Click(Sender: TObject);
procedure Image15Click(Sender: TObject);
procedure Image16Click(Sender: TObject);
procedure Image17Click(Sender: TObject);
procedure Image18Click(Sender: TObject);
procedure Image19Click(Sender: TObject);
procedure Image20Click(Sender: TObject);
procedure Image21Click(Sender: TObject);
procedure Image22Click(Sender: TObject);
procedure Image23Click(Sender: TObject);
procedure Image24Click(Sender: TObject);
procedure Image25Click(Sender: TObject);
procedure Image33Click(Sender: TObject);
procedure Image34Click(Sender: TObject);
procedure Image35Click(Sender: TObject);
procedure Image36Click(Sender: TObject);
procedure Image37Click(Sender: TObject);
procedure Image39Click(Sender: TObject);
procedure Image41Click(Sender: TObject);
procedure Image40Click(Sender: TObject);
procedure Image42Click(Sender: TObject);
procedure Image43Click(Sender: TObject);
procedure Image45Click(Sender: TObject);
procedure Image46Click(Sender: TObject);
procedure Image47Click(Sender: TObject);
procedure Image48Click(Sender: TObject);
procedure Image49Click(Sender: TObject);
procedure Image51Click(Sender: TObject);
procedure Image52Click(Sender: TObject);
procedure Image53Click(Sender: TObject);
procedure Image54Click(Sender: TObject);
procedure Image55Click(Sender: TObject);
procedure Image57Click(Sender: TObject);
procedure Image58Click(Sender: TObject);
procedure Image59Click(Sender: TObject);
procedure Image60Click(Sender: TObject);
procedure Image61Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FTestKog: TFTestKog;
t1 , t2: integer;
a:integer;
vibor : integer = 26;
TAnswN, TAnswNP: TDAteTime;
st:string;
implementation
Uses
Main, Variable, result1, unit2;
{$R *.dfm}
procedure TFTestKog.FormKeyPress(Sender: TObject; var Key: Char);
begin
// выход из программы по клавише эскейп
If Key = #27 then
begin
Close;
end;
end;
procedure repaintimg (imageList1: TimageList; image1:Timage;image2:Timage; image3:Timage; image4:Timage; image5:Timage; image6:Timage; image7:Timage; image8:Timage; image9:Timage; image10:Timage; image11:Timage; image12:Timage; image13:Timage; image14:Timage; image15:Timage; image16:Timage; image17:Timage; image18:Timage; image19:Timage; image20:Timage;image21:Timage; image22:Timage; image23:Timage; image24:Timage; image25:Timage);
begin
// перерисовка карточек после выбора одной из них
image1.Picture:=nil;
image2.Picture:=nil;
image3.Picture:=nil;
image4.Picture:=nil;
image5.Picture:=nil;
image6.Picture:=nil;
image7.Picture:=nil;
image8.Picture:=nil;
image9.Picture:=nil;
image10.Picture:=nil;
image11.Picture:=nil;
image12.Picture:=nil;
image13.Picture:=nil;
image14.Picture:=nil;
image15.Picture:=nil;
image16.Picture:=nil;
image17.Picture:=nil;
image18.Picture:=nil;
image19.Picture:=nil;
image20.Picture:=nil;
image21.Picture:=nil;
image22.Picture:=nil;
image23.Picture:=nil;
image24.Picture:=nil;
image25.Picture:=nil;
ImageList1.Draw(image22.Canvas,0,0,0,true);
ImageList1.Draw(image10.Canvas,0,0,1,true);
ImageList1.Draw(image17.Canvas,0,0,2,true);
ImageList1.Draw(image23.Canvas,0,0,3,true);
ImageList1.Draw(image11.Canvas,0,0,4,true);
ImageList1.Draw(image21.Canvas,0,0,5,true);
ImageList1.Draw(image2.Canvas,0,0,6,true);
ImageList1.Draw(image18.Canvas,0,0,7,true);
ImageList1.Draw(image19.Canvas,0,0,8,true);
ImageList1.Draw(image5.Canvas,0,0,9,true);
ImageList1.Draw(image16.Canvas,0,0,10,true);
ImageList1.Draw(image12.Canvas,0,0,11,true);
ImageList1.Draw(image13.Canvas,0,0,12,true);
ImageList1.Draw(image14.Canvas,0,0,13,true);
ImageList1.Draw(image15.Canvas,0,0,14,true);
ImageList1.Draw(image6.Canvas,0,0,15,true);
ImageList1.Draw(image8.Canvas,0,0,16,true);
ImageList1.Draw(image25.Canvas,0,0,17,true);
ImageList1.Draw(image4.Canvas,0,0,18,true);
ImageList1.Draw(image20.Canvas,0,0,19,true);
ImageList1.Draw(image3.Canvas,0,0,20,true);
ImageList1.Draw(image1.Canvas,0,0,21,true);
ImageList1.Draw(image24.Canvas,0,0,22,true);
ImageList1.Draw(image7.Canvas,0,0,23,true);
ImageList1.Draw(image9.Canvas,0,0,24,true);
end;
procedure TFTestKog.Image10Click(Sender: TObject);
begin
repaintimg (FTEstKog.imageList1,FTestKog.image1,FTEstKog.image2,FtestKog.image3, FTestKog.image4, FTEstKog.image5, FtestKog.image6, FtestKog.Image7, FtestKog.Image8, FtestKog.Image9, FtestKog.Image10, FTestKog.Image11, FtestKog.image12, FtestKog.Image13, FtestKog.image14, FtestKog.image15, FtestKog.image16, FtestKog.image17, FtestKog.Image18, FtestKog.Image19, FtestKog.Image20, FtestKog.Image21, FtestKog.image22, FtestKog.image23, FtestKog.image24, FtestKog.image25);
image10.Canvas.Brush.Color:=clBlack;
image10.Canvas.Polyline([Point(105,0),Point(0,0),Point(0,105),Point(105,105),Point(105,0)]);
image10.Canvas.Polyline([Point(100,5),Point(5,5),Point(5,100),Point(100,100),Point(100,5)]);
image10.Canvas.Brush.Color:=clRed;
image10.Canvas.FloodFill(1,1,clBlack,fsBorder);
image10.Canvas.FloodFill(5,101,clBlack,fsBorder);
vibor:=1;
end;
procedure TFTestKog.Image11Click(Sender: TObject);
begin
repaintimg (FTEstKog.imageList1,FTestKog.image1,FTEstKog.image2,FtestKog.image3, FTestKog.image4, FTEstKog.image5, FtestKog.image6, FtestKog.Image7, FtestKog.Image8, FtestKog.Image9, FtestKog.Image10, FTestKog.Image11, FtestKog.image12, FtestKog.Image13, FtestKog.image14, FtestKog.image15, FtestKog.image16, FtestKog.image17, FtestKog.Image18, FtestKog.Image19, FtestKog.Image20, FtestKog.Image21, FtestKog.image22, FtestKog.image23, FtestKog.image24, FtestKog.image25);
image11.Canvas.Brush.Color:=clBlack;
image11.Canvas.Polyline([Point(105,0),Point(0,0),Point(0,105),Point(105,105),Point(105,0)]);
image11.Canvas.Polyline([Point(100,5),Point(5,5),Point(5,100),Point(100,100),Point(100,5)]);
image11.Canvas.Brush.Color:=clRed;
image11.Canvas.FloodFill(1,1,clBlack,fsBorder);
image11.Canvas.FloodFill(5,101,clBlack,fsBorder);
vibor:=4;
end;
procedure TFTestKog.Image12Click(Sender: TObject);
begin
repaintimg (FTEstKog.imageList1,FTestKog.image1,FTEstKog.image2,FtestKog.image3, FTestKog.image4, FTEstKog.image5, FtestKog.image6, FtestKog.Image7, FtestKog.Image8, FtestKog.Image9, FtestKog.Image10, FTestKog.Image11, FtestKog.image12, FtestKog.Image13, FtestKog.image14, FtestKog.image15, FtestKog.image16, FtestKog.image17, FtestKog.Image18, FtestKog.Image19, FtestKog.Image20, FtestKog.Image21, FtestKog.image22, FtestKog.image23, FtestKog.image24, FtestKog.image25);
image12.Canvas.Brush.Color:=clBlack;
image12.Canvas.Polyline([Point(105,0),Point(0,0),Point(0,105),Point(105,105),Point(105,0)]);
image12.Canvas.Polyline([Point(100,5),Point(5,5),Point(5,100),Point(100,100),Point(100,5)]);
image12.Canvas.Brush.Color:=clRed;
image12.Canvas.FloodFill(1,1,clBlack,fsBorder);
image12.Canvas.FloodFill(5,101,clBlack,fsBorder);
vibor:=11;
end;
procedure TFTestKog.Image13Click(Sender: TObject);
begin
repaintimg (FTEstKog.imageList1,FTestKog.image1,FTEstKog.image2,FtestKog.image3, FTestKog.image4, FTEstKog.image5, FtestKog.image6, FtestKog.Image7, FtestKog.Image8, FtestKog.Image9, FtestKog.Image10, FTestKog.Image11, FtestKog.image12, FtestKog.Image13, FtestKog.image14, FtestKog.image15, FtestKog.image16, FtestKog.image17, FtestKog.Image18, FtestKog.Image19, FtestKog.Image20, FtestKog.Image21, FtestKog.image22, FtestKog.image23, FtestKog.image24, FtestKog.image25);
image13.Canvas.Brush.Color:=clBlack;
image13.Canvas.Polyline([Point(105,0),Point(0,0),Point(0,105),Point(105,105),Point(105,0)]);
image13.Canvas.Polyline([Point(100,5),Point(5,5),Point(5,100),Point(100,100),Point(100,5)]);
image13.Canvas.Brush.Color:=clRed;
image13.Canvas.FloodFill(1,1,clBlack,fsBorder);
image13.Canvas.FloodFill(5,101,clBlack,fsBorder);
vibor:=12;
end;
procedure TFTestKog.Image14Click(Sender: TObject);
begin
repaintimg (FTEstKog.imageList1,FTestKog.image1,FTEstKog.image2,FtestKog.image3, FTestKog.image4, FTEstKog.image5, FtestKog.image6, FtestKog.Image7, FtestKog.Image8, FtestKog.Image9, FtestKog.Image10, FTestKog.Image11, FtestKog.image12, FtestKog.Image13, FtestKog.image14, FtestKog.image15, FtestKog.image16, FtestKog.image17, FtestKog.Image18, FtestKog.Image19, FtestKog.Image20, FtestKog.Image21, FtestKog.image22, FtestKog.image23, FtestKog.image24, FtestKog.image25);
image14.Canvas.Brush.Color:=clBlack;
image14.Canvas.Polyline([Point(105,0),Point(0,0),Point(0,105),Point(105,105),Point(105,0)]);
image14.Canvas.Polyline([Point(100,5),Point(5,5),Point(5,100),Point(100,100),Point(100,5)]);
image14.Canvas.Brush.Color:=clRed;
image14.Canvas.FloodFill(1,1,clBlack,fsBorder);
image14.Canvas.FloodFill(5,101,clBlack,fsBorder);
vibor:=13;
end;
procedure TFTestKog.Image15Click(Sender: TObject);
begin
repaintimg (FTEstKog.imageList1,FTestKog.image1,FTEstKog.image2,FtestKog.image3, FTestKog.image4, FTEstKog.image5, FtestKog.image6, FtestKog.Image7, FtestKog.Image8, FtestKog.Image9, FtestKog.Image10, FTestKog.Image11, FtestKog.image12, FtestKog.Image13, FtestKog.image14, FtestKog.image15, FtestKog.image16, FtestKog.image17, FtestKog.Image18, FtestKog.Image19, FtestKog.Image20, FtestKog.Image21, FtestKog.image22, FtestKog.image23, FtestKog.image24, FtestKog.image25);
image15.Canvas.Brush.Color:=clBlack;
image15.Canvas.Polyline([Point(105,0),Point(0,0),Point(0,105),Point(105,105),Point(105,0)]);
image15.Canvas.Polyline([Point(100,5),Point(5,5),Point(5,100),Point(100,100),Point(100,5)]);
image15.Canvas.Brush.Color:=clRed;
image15.Canvas.FloodFill(1,1,clBlack,fsBorder);
image15.Canvas.FloodFill(5,101,clBlack,fsBorder);
vibor:=14;
end;
procedure TFTestKog.Image16Click(Sender: TObject);
begin
repaintimg (FTEstKog.imageList1,FTestKog.image1,FTEstKog.image2,FtestKog.image3, FTestKog.image4, FTEstKog.image5, FtestKog.image6, FtestKog.Image7, FtestKog.Image8, FtestKog.Image9, FtestKog.Image10, FTestKog.Image11, FtestKog.image12, FtestKog.Image13, FtestKog.image14, FtestKog.image15, FtestKog.image16, FtestKog.image17, FtestKog.Image18, FtestKog.Image19, FtestKog.Image20, FtestKog.Image21, FtestKog.image22, FtestKog.image23, FtestKog.image24, FtestKog.image25);
image16.Canvas.Brush.Color:=clBlack;
image16.Canvas.Polyline([Point(105,0),Point(0,0),Point(0,105),Point(105,105),Point(105,0)]);
image16.Canvas.Polyline([Point(100,5),Point(5,5),Point(5,100),Point(100,100),Point(100,5)]);
image16.Canvas.Brush.Color:=clRed;
image16.Canvas.FloodFill(1,1,clBlack,fsBorder);
image16.Canvas.FloodFill(5,101,clBlack,fsBorder);
vibor:=10;
end;
procedure TFTestKog.Image17Click(Sender: TObject);
begin
repaintimg (FTEstKog.imageList1,FTestKog.image1,FTEstKog.image2,FtestKog.image3, FTestKog.image4, FTEstKog.image5, FtestKog.image6, FtestKog.Image7, FtestKog.Image8, FtestKog.Image9, FtestKog.Image10, FTestKog.Image11, FtestKog.image12, FtestKog.Image13, FtestKog.image14, FtestKog.image15, FtestKog.image16, FtestKog.image17, FtestKog.Image18, FtestKog.Image19, FtestKog.Image20, FtestKog.Image21, FtestKog.image22, FtestKog.image23, FtestKog.image24, FtestKog.image25);
image17.Canvas.Brush.Color:=clBlack;
image17.Canvas.Polyline([Point(105,0),Point(0,0),Point(0,105),Point(105,105),Point(105,0)]);
image17.Canvas.Polyline([Point(100,5),Point(5,5),Point(5,100),Point(100,100),Point(100,5)]);
image17.Canvas.Brush.Color:=clRed;
image17.Canvas.FloodFill(1,1,clBlack,fsBorder);
image17.Canvas.FloodFill(5,101,clBlack,fsBorder);
vibor:=2;
end;
procedure TFTestKog.Image18Click(Sender: TObject);
begin
repaintimg (FTEstKog.imageList1,FTestKog.image1,FTEstKog.image2,FtestKog.image3, FTestKog.image4, FTEstKog.image5, FtestKog.image6, FtestKog.Image7, FtestKog.Image8, FtestKog.Image9, FtestKog.Image10, FTestKog.Image11, FtestKog.image12, FtestKog.Image13, FtestKog.image14, FtestKog.image15, FtestKog.image16, FtestKog.image17, FtestKog.Image18, FtestKog.Image19, FtestKog.Image20, FtestKog.Image21, FtestKog.image22, FtestKog.image23, FtestKog.image24, FtestKog.image25);
image18.Canvas.Brush.Color:=clBlack;
image18.Canvas.Polyline([Point(105,0),Point(0,0),Point(0,105),Point(105,105),Point(105,0)]);
image18.Canvas.Polyline([Point(100,5),Point(5,5),Point(5,100),Point(100,100),Point(100,5)]);
image18.Canvas.Brush.Color:=clRed;
image18.Canvas.FloodFill(1,1,clBlack,fsBorder);
image18.Canvas.FloodFill(5,101,clBlack,fsBorder);
vibor:=7;
end;
procedure TFTestKog.Image19Click(Sender: TObject);
begin
repaintimg (FTEstKog.imageList1,FTestKog.image1,FTEstKog.image2,FtestKog.image3, FTestKog.image4, FTEstKog.image5, FtestKog.image6, FtestKog.Image7, FtestKog.Image8, FtestKog.Image9, FtestKog.Image10, FTestKog.Image11, FtestKog.image12, FtestKog.Image13, FtestKog.image14, FtestKog.image15, FtestKog.image16, FtestKog.image17, FtestKog.Image18, FtestKog.Image19, FtestKog.Image20, FtestKog.Image21, FtestKog.image22, FtestKog.image23, FtestKog.image24, FtestKog.image25);
image19.Canvas.Brush.Color:=clBlack;
image19.Canvas.Polyline([Point(105,0),Point(0,0),Point(0,105),Point(105,105),Point(105,0)]);
image19.Canvas.Polyline([Point(100,5),Point(5,5),Point(5,100),Point(100,100),Point(100,5)]);
image19.Canvas.Brush.Color:=clRed;
image19.Canvas.FloodFill(1,1,clBlack,fsBorder);
image19.Canvas.FloodFill(5,101,clBlack,fsBorder);
vibor:=8;
end;
procedure TFTestKog.Image1Click(Sender: TObject);
begin
repaintimg (FTEstKog.imageList1,FTestKog.image1,FTEstKog.image2,FtestKog.image3, FTestKog.image4, FTEstKog.image5, FtestKog.image6, FtestKog.Image7, FtestKog.Image8, FtestKog.Image9, FtestKog.Image10, FTestKog.Image11, FtestKog.image12, FtestKog.Image13, FtestKog.image14, FtestKog.image15, FtestKog.image16, FtestKog.image17, FtestKog.Image18, FtestKog.Image19, FtestKog.Image20, FtestKog.Image21, FtestKog.image22, FtestKog.image23, FtestKog.image24, FtestKog.image25);
image1.Canvas.Brush.Color:=clBlack;
image1.Canvas.Polyline([Point(105,0),Point(0,0),Point(0,105),Point(105,105),Point(105,0)]);
image1.Canvas.Polyline([Point(100,5),Point(5,5),Point(5,100),Point(100,100),Point(100,5)]);
image1.Canvas.Brush.Color:=clRed;
image1.Canvas.FloodFill(1,1,clBlack,fsBorder);
image1.Canvas.FloodFill(5,101,clBlack,fsBorder);
vibor:=21;
end;
procedure TFTestKog.Image20Click(Sender: TObject);
begin
repaintimg (FTEstKog.imageList1,FTestKog.image1,FTEstKog.image2,FtestKog.image3, FTestKog.image4, FTEstKog.image5, FtestKog.image6, FtestKog.Image7, FtestKog.Image8, FtestKog.Image9, FtestKog.Image10, FTestKog.Image11, FtestKog.image12, FtestKog.Image13, FtestKog.image14, FtestKog.image15, FtestKog.image16, FtestKog.image17, FtestKog.Image18, FtestKog.Image19, FtestKog.Image20, FtestKog.Image21, FtestKog.image22, FtestKog.image23, FtestKog.image24, FtestKog.image25);
image20.Canvas.Brush.Color:=clBlack;
image20.Canvas.Polyline([Point(105,0),Point(0,0),Point(0,105),Point(105,105),Point(105,0)]);
image20.Canvas.Polyline([Point(100,5),Point(5,5),Point(5,100),Point(100,100),Point(100,5)]);
image20.Canvas.Brush.Color:=clRed;
image20.Canvas.FloodFill(1,1,clBlack,fsBorder);
image20.Canvas.FloodFill(5,101,clBlack,fsBorder);
vibor:=19;
end;
procedure TFTestKog.Image21Click(Sender: TObject);
begin
repaintimg (FTEstKog.imageList1,FTestKog.image1,FTEstKog.image2,FtestKog.image3, FTestKog.image4, FTEstKog.image5, FtestKog.image6, FtestKog.Image7, FtestKog.Image8, FtestKog.Image9, FtestKog.Image10, FTestKog.Image11, FtestKog.image12, FtestKog.Image13, FtestKog.image14, FtestKog.image15, FtestKog.image16, FtestKog.image17, FtestKog.Image18, FtestKog.Image19, FtestKog.Image20, FtestKog.Image21, FtestKog.image22, FtestKog.image23, FtestKog.image24, FtestKog.image25);
image21.Canvas.Brush.Color:=clBlack;
image21.Canvas.Polyline([Point(105,0),Point(0,0),Point(0,105),Point(105,105),Point(105,0)]);
image21.Canvas.Polyline([Point(100,5),Point(5,5),Point(5,100),Point(100,100),Point(100,5)]);
image21.Canvas.Brush.Color:=clRed;
image21.Canvas.FloodFill(1,1,clBlack,fsBorder);
image21.Canvas.FloodFill(5,101,clBlack,fsBorder);
vibor:=5;
end;
procedure TFTestKog.Image22Click(Sender: TObject);
begin
repaintimg (FTEstKog.imageList1,FTestKog.image1,FTEstKog.image2,FtestKog.image3, FTestKog.image4, FTEstKog.image5, FtestKog.image6, FtestKog.Image7, FtestKog.Image8, FtestKog.Image9, FtestKog.Image10, FTestKog.Image11, FtestKog.image12, FtestKog.Image13, FtestKog.image14, FtestKog.image15, FtestKog.image16, FtestKog.image17, FtestKog.Image18, FtestKog.Image19, FtestKog.Image20, FtestKog.Image21, FtestKog.image22, FtestKog.image23, FtestKog.image24, FtestKog.image25);
image22.Canvas.Brush.Color:=clBlack;
image22.Canvas.Polyline([Point(105,0),Point(0,0),Point(0,105),Point(105,105),Point(105,0)]);
image22.Canvas.Polyline([Point(100,5),Point(5,5),Point(5,100),Point(100,100),Point(100,5)]);
image22.Canvas.Brush.Color:=clRed;
image22.Canvas.FloodFill(1,1,clBlack,fsBorder);
image22.Canvas.FloodFill(5,101,clBlack,fsBorder);
vibor:=0;
end;
procedure TFTestKog.Image23Click(Sender: TObject);
begin
repaintimg (FTEstKog.imageList1,FTestKog.image1,FTEstKog.image2,FtestKog.image3, FTestKog.image4, FTEstKog.image5, FtestKog.image6, FtestKog.Image7, FtestKog.Image8, FtestKog.Image9, FtestKog.Image10, FTestKog.Image11, FtestKog.image12, FtestKog.Image13, FtestKog.image14, FtestKog.image15, FtestKog.image16, FtestKog.image17, FtestKog.Image18, FtestKog.Image19, FtestKog.Image20, FtestKog.Image21, FtestKog.image22, FtestKog.image23, FtestKog.image24, FtestKog.image25);
image23.Canvas.Brush.Color:=clBlack;
image23.Canvas.Polyline([Point(105,0),Point(0,0),Point(0,105),Point(105,105),Point(105,0)]);
image23.Canvas.Polyline([Point(100,5),Point(5,5),Point(5,100),Point(100,100),Point(100,5)]);
image23.Canvas.Brush.Color:=clRed;
image23.Canvas.FloodFill(1,1,clBlack,fsBorder);
image23.Canvas.FloodFill(5,101,clBlack,fsBorder);
vibor:=3;
end;
procedure TFTestKog.Image24Click(Sender: TObject);
begin
repaintimg (FTEstKog.imageList1,FTestKog.image1,FTEstKog.image2,FtestKog.image3, FTestKog.image4, FTEstKog.image5, FtestKog.image6, FtestKog.Image7, FtestKog.Image8, FtestKog.Image9, FtestKog.Image10, FTestKog.Image11, FtestKog.image12, FtestKog.Image13, FtestKog.image14, FtestKog.image15, FtestKog.image16, FtestKog.image17, FtestKog.Image18, FtestKog.Image19, FtestKog.Image20, FtestKog.Image21, FtestKog.image22, FtestKog.image23, FtestKog.image24, FtestKog.image25);
image24.Canvas.Brush.Color:=clBlack;
image24.Canvas.Polyline([Point(105,0),Point(0,0),Point(0,105),Point(105,105),Point(105,0)]);
image24.Canvas.Polyline([Point(100,5),Point(5,5),Point(5,100),Point(100,100),Point(100,5)]);
image24.Canvas.Brush.Color:=clRed;
image24.Canvas.FloodFill(1,1,clBlack,fsBorder);
image24.Canvas.FloodFill(5,101,clBlack,fsBorder);
vibor:=22;
end;
procedure TFTestKog.Image25Click(Sender: TObject);
begin
repaintimg (FTEstKog.imageList1,FTestKog.image1,FTEstKog.image2,FtestKog.image3, FTestKog.image4, FTEstKog.image5, FtestKog.image6, FtestKog.Image7, FtestKog.Image8, FtestKog.Image9, FtestKog.Image10, FTestKog.Image11, FtestKog.image12, FtestKog.Image13, FtestKog.image14, FtestKog.image15, FtestKog.image16, FtestKog.image17, FtestKog.Image18, FtestKog.Image19, FtestKog.Image20, FtestKog.Image21, FtestKog.image22, FtestKog.image23, FtestKog.image24, FtestKog.image25);
image25.Canvas.Brush.Color:=clBlack;
image25.Canvas.Polyline([Point(105,0),Point(0,0),Point(0,105),Point(105,105),Point(105,0)]);
image25.Canvas.Polyline([Point(100,5),Point(5,5),Point(5,100),Point(100,100),Point(100,5)]);
image25.Canvas.Brush.Color:=clRed;
image25.Canvas.FloodFill(1,1,clBlack,fsBorder);
image25.Canvas.FloodFill(5,101,clBlack,fsBorder);
vibor:=17;
end;
procedure TFTestKog.Image2Click(Sender: TObject);
begin
repaintimg (FTEstKog.imageList1,FTestKog.image1,FTEstKog.image2,FtestKog.image3, FTestKog.image4, FTEstKog.image5, FtestKog.image6, FtestKog.Image7, FtestKog.Image8, FtestKog.Image9, FtestKog.Image10, FTestKog.Image11, FtestKog.image12, FtestKog.Image13, FtestKog.image14, FtestKog.image15, FtestKog.image16, FtestKog.image17, FtestKog.Image18, FtestKog.Image19, FtestKog.Image20, FtestKog.Image21, FtestKog.image22, FtestKog.image23, FtestKog.image24, FtestKog.image25);
image2.Canvas.Brush.Color:=clBlack;
image2.Canvas.Polyline([Point(105,0),Point(0,0),Point(0,105),Point(105,105),Point(105,0)]);
image2.Canvas.Polyline([Point(100,5),Point(5,5),Point(5,100),Point(100,100),Point(100,5)]);
image2.Canvas.Brush.Color:=clRed;
image2.Canvas.FloodFill(1,1,clBlack,fsBorder);
image2.Canvas.FloodFill(5,101,clBlack,fsBorder);
vibor:=6;
end;
// прорисовка выбранной корточки в таблице
procedure TFTestKog.Image33Click(Sender: TObject);
begin
image33.Picture:=nil;
case vibor of
0:ImageList1.Draw(image33.Canvas,0,0,0,true);
1:ImageList1.Draw(image33.Canvas,0,0,1,true);
2:ImageList1.Draw(image33.Canvas,0,0,2,true);
3:ImageList1.Draw(image33.Canvas,0,0,3,true);
4:ImageList1.Draw(image33.Canvas,0,0,4,true);
5:ImageList1.Draw(image33.Canvas,0,0,5,true);
6:ImageList1.Draw(image33.Canvas,0,0,6,true);
7:ImageList1.Draw(image33.Canvas,0,0,7,true);
8:ImageList1.Draw(image33.Canvas,0,0,8,true);
9:ImageList1.Draw(image33.Canvas,0,0,9,true);
10:ImageList1.Draw(image33.Canvas,0,0,10,true);
11:ImageList1.Draw(image33.Canvas,0,0,11,true);
12:ImageList1.Draw(image33.Canvas,0,0,12,true);
13:ImageList1.Draw(image33.Canvas,0,0,13,true);
14:ImageList1.Draw(image33.Canvas,0,0,14,true);
15:ImageList1.Draw(image33.Canvas,0,0,15,true);
16:ImageList1.Draw(image33.Canvas,0,0,16,true);
17:ImageList1.Draw(image33.Canvas,0,0,17,true);
18:ImageList1.Draw(image33.Canvas,0,0,18,true);
19:ImageList1.Draw(image33.Canvas,0,0,19,true);
20:ImageList1.Draw(image33.Canvas,0,0,20,true);
21:ImageList1.Draw(image33.Canvas,0,0,21,true);
22:ImageList1.Draw(image33.Canvas,0,0,22,true);
23:ImageList1.Draw(image33.Canvas,0,0,23,true);
24:ImageList1.Draw(image33.Canvas,0,0,24,true);
end;
if vibor=0 then result:=result+1;
label1.Caption:=inttostr(result);
image33.Enabled:=false;
inc(a);
TAnswN:=now;
TAnswNP := TAnswN-TAnsw;
TAnsw:=TAnswN;
st:='тест 2';
with ADOQAnsw do
begin
with SQL do
begin
Clear;
Add('INSERT INTO Answer (ID_ProtocolAnsw, ID_Testing, ID_Answer, TimeAnswer, AnswerWord)VALUES(2,1, '+IntToStr(a)+','+QuotedStr(TimeToStr(TAnswNP))+','+QuotedStr(st)+')');
ExecSQL;
end;
end;
end;
procedure TFTestKog.Image34Click(Sender: TObject);
begin
image34.Picture:=nil;
case vibor of
0:ImageList1.Draw(image34.Canvas,0,0,0,true);
1:ImageList1.Draw(image34.Canvas,0,0,1,true);
2:ImageList1.Draw(image34.Canvas,0,0,2,true);
3:ImageList1.Draw(image34.Canvas,0,0,3,true);
4:ImageList1.Draw(image34.Canvas,0,0,4,true);
5:ImageList1.Draw(image34.Canvas,0,0,5,true);
6:ImageList1.Draw(image34.Canvas,0,0,6,true);
7:ImageList1.Draw(image34.Canvas,0,0,7,true);
8:ImageList1.Draw(image34.Canvas,0,0,8,true);
9:ImageList1.Draw(image34.Canvas,0,0,9,true);
10:ImageList1.Draw(image34.Canvas,0,0,10,true);
11:ImageList1.Draw(image34.Canvas,0,0,11,true);
12:ImageList1.Draw(image34.Canvas,0,0,12,true);
13:ImageList1.Draw(image34.Canvas,0,0,13,true);
14:ImageList1.Draw(image34.Canvas,0,0,14,true);
15:ImageList1.Draw(image34.Canvas,0,0,15,true);
16:ImageList1.Draw(image34.Canvas,0,0,16,true);
17:ImageList1.Draw(image34.Canvas,0,0,17,true);
18:ImageList1.Draw(image34.Canvas,0,0,18,true);
19:ImageList1.Draw(image34.Canvas,0,0,19,true);
20:ImageList1.Draw(image34.Canvas,0,0,20,true);
21:ImageList1.Draw(image34.Canvas,0,0,21,true);
22:ImageList1.Draw(image34.Canvas,0,0,22,true);
23:ImageList1.Draw(image34.Canvas,0,0,23,true);
24:ImageList1.Draw(image34.Canvas,0,0,24,true);
end;
if vibor=5 then result:=result+1;
label1.Caption:=inttostr(result);
image34.Enabled:=false;
inc(a);
TAnswN:=now;
TAnswNP := TAnswN-TAnsw;
TAnsw:=TAnswN;
st:='тест 2';
with ADOQAnsw do
begin
with SQL do
begin
Clear;
Add('INSERT INTO Answer (ID_ProtocolAnsw, ID_Testing, ID_Answer, TimeAnswer, AnswerWord)VALUES(2,1, '+IntToStr(a)+','+QuotedStr(TimeToStr(TAnswNP))+','+QuotedStr(st)+')');
ExecSQL;
end;
end;
end;
procedure TFTestKog.Image35Click(Sender: TObject);
begin
image35.Picture:=nil;
case vibor of
0:ImageList1.Draw(image35.Canvas,0,0,0,true);
1:ImageList1.Draw(image35.Canvas,0,0,1,true);
2:ImageList1.Draw(image35.Canvas,0,0,2,true);
3:ImageList1.Draw(image35.Canvas,0,0,3,true);
4:ImageList1.Draw(image35.Canvas,0,0,4,true);
5:ImageList1.Draw(image35.Canvas,0,0,5,true);
6:ImageList1.Draw(image35.Canvas,0,0,6,true);
7:ImageList1.Draw(image35.Canvas,0,0,7,true);
8:ImageList1.Draw(image35.Canvas,0,0,8,true);
9:ImageList1.Draw(image35.Canvas,0,0,9,true);
10:ImageList1.Draw(image35.Canvas,0,0,10,true);
11:ImageList1.Draw(image35.Canvas,0,0,11,true);
12:ImageList1.Draw(image35.Canvas,0,0,12,true);
13:ImageList1.Draw(image35.Canvas,0,0,13,true);
14:ImageList1.Draw(image35.Canvas,0,0,14,true);
15:ImageList1.Draw(image35.Canvas,0,0,15,true);
16:ImageList1.Draw(image35.Canvas,0,0,16,true);
17:ImageList1.Draw(image35.Canvas,0,0,17,true);
18:ImageList1.Draw(image35.Canvas,0,0,18,true);
19:ImageList1.Draw(image35.Canvas,0,0,19,true);
20:ImageList1.Draw(image35.Canvas,0,0,20,true);
21:ImageList1.Draw(image35.Canvas,0,0,21,true);
22:ImageList1.Draw(image35.Canvas,0,0,22,true);
23:ImageList1.Draw(image35.Canvas,0,0,23,true);
24:ImageList1.Draw(image35.Canvas,0,0,24,true);
end;
if vibor=10 then result:=result+1;
label1.Caption:=inttostr(result);
image35.Enabled:=false;
inc(a);
TAnswN:=now;
TAnswNP := TAnswN-TAnsw;
TAnsw:=TAnswN;
st:='тест 2';
with ADOQAnsw do
begin
with SQL do
begin
Clear;
Add('INSERT INTO Answer (ID_ProtocolAnsw, ID_Testing, ID_Answer, TimeAnswer, AnswerWord)VALUES(2,1, '+IntToStr(a)+','+QuotedStr(TimeToStr(TAnswNP))+','+QuotedStr(st)+')');
ExecSQL;
end;
end;
end;
procedure TFTestKog.Image36Click(Sender: TObject);
begin
image36.Picture:=nil;
case vibor of
0:ImageList1.Draw(image36.Canvas,0,0,0,true);
1:ImageList1.Draw(image36.Canvas,0,0,1,true);
2:ImageList1.Draw(image36.Canvas,0,0,2,true);
3:ImageList1.Draw(image36.Canvas,0,0,3,true);
4:ImageList1.Draw(image36.Canvas,0,0,4,true);
5:ImageList1.Draw(image36.Canvas,0,0,5,true);
6:ImageList1.Draw(image36.Canvas,0,0,6,true);
7:ImageList1.Draw(image36.Canvas,0,0,7,true);
8:ImageList1.Draw(image36.Canvas,0,0,8,true);
9:ImageList1.Draw(image36.Canvas,0,0,9,true);
10:ImageList1.Draw(image36.Canvas,0,0,10,true);
11:ImageList1.Draw(image36.Canvas,0,0,11,true);
12:ImageList1.Draw(image36.Canvas,0,0,12,true);
13:ImageList1.Draw(image36.Canvas,0,0,13,true);
14:ImageList1.Draw(image36.Canvas,0,0,14,true);
15:ImageList1.Draw(image36.Canvas,0,0,15,true);
16:ImageList1.Draw(image36.Canvas,0,0,16,true);
17:ImageList1.Draw(image36.Canvas,0,0,17,true);
18:ImageList1.Draw(image36.Canvas,0,0,18,true);
19:ImageList1.Draw(image36.Canvas,0,0,19,true);
20:ImageList1.Draw(image36.Canvas,0,0,20,true);
21:ImageList1.Draw(image36.Canvas,0,0,21,true);
22:ImageList1.Draw(image36.Canvas,0,0,22,true);
23:ImageList1.Draw(image36.Canvas,0,0,23,true);
24:ImageList1.Draw(image36.Canvas,0,0,24,true);
end;
if vibor=15 then result:=result+1;
label1.Caption:=inttostr(result);
image36.Enabled:=false;
inc(a);
TAnswN:=now;
TAnswNP := TAnswN-TAnsw;
TAnsw:=TAnswN;
st:='тест 2';
with ADOQAnsw do
begin
with SQL do
begin
Clear;
Add('INSERT INTO Answer (ID_ProtocolAnsw, ID_Testing, ID_Answer, TimeAnswer, AnswerWord)VALUES(2,1, '+IntToStr(a)+','+QuotedStr(TimeToStr(TAnswNP))+','+QuotedStr(st)+')');
ExecSQL;
end;
end;
end;
procedure TFTestKog.Image37Click(Sender: TObject);
begin
image37.Picture:=nil;
case vibor of
0:ImageList1.Draw(image37.Canvas,0,0,0,true);
1:ImageList1.Draw(image37.Canvas,0,0,1,true);
2:ImageList1.Draw(image37.Canvas,0,0,2,true);
3:ImageList1.Draw(image37.Canvas,0,0,3,true);
4:ImageList1.Draw(image37.Canvas,0,0,4,true);
5:ImageList1.Draw(image37.Canvas,0,0,5,true);
6:ImageList1.Draw(image37.Canvas,0,0,6,true);
7:ImageList1.Draw(image37.Canvas,0,0,7,true);
8:ImageList1.Draw(image37.Canvas,0,0,8,true);
9:ImageList1.Draw(image37.Canvas,0,0,9,true);
10:ImageList1.Draw(image37.Canvas,0,0,10,true);
11:ImageList1.Draw(image37.Canvas,0,0,11,true);
12:ImageList1.Draw(image37.Canvas,0,0,12,true);
13:ImageList1.Draw(image37.Canvas,0,0,13,true);
14:ImageList1.Draw(image37.Canvas,0,0,14,true);
15:ImageList1.Draw(image37.Canvas,0,0,15,true);
16:ImageList1.Draw(image37.Canvas,0,0,16,true);
17:ImageList1.Draw(image37.Canvas,0,0,17,true);
18:ImageList1.Draw(image37.Canvas,0,0,18,true);
19:ImageList1.Draw(image37.Canvas,0,0,19,true);
20:ImageList1.Draw(image37.Canvas,0,0,20,true);
21:ImageList1.Draw(image37.Canvas,0,0,21,true);
22:ImageList1.Draw(image37.Canvas,0,0,22,true);
23:ImageList1.Draw(image37.Canvas,0,0,23,true);
24:ImageList1.Draw(image37.Canvas,0,0,24,true);
end;
if vibor=20 then result:=result+1;
label1.Caption:=inttostr(result);
image37.Enabled:=false;
inc(a);
TAnswN:=now;
TAnswNP := TAnswN-TAnsw;
TAnsw:=TAnswN;
st:='тест 2';
with ADOQAnsw do
begin
with SQL do
begin
Clear;
Add('INSERT INTO Answer (ID_ProtocolAnsw, ID_Testing, ID_Answer, TimeAnswer, AnswerWord)VALUES(2,1, '+IntToStr(a)+','+QuotedStr(TimeToStr(TAnswNP))+','+QuotedStr(st)+')');
ExecSQL;
end;
end;
end;
procedure TFTestKog.Image39Click(Sender: TObject);
begin
image39.Picture:=nil;
case vibor of
0:ImageList1.Draw(image39.Canvas,0,0,0,true);
1:ImageList1.Draw(image39.Canvas,0,0,1,true);
2:ImageList1.Draw(image39.Canvas,0,0,2,true);
3:ImageList1.Draw(image39.Canvas,0,0,3,true);
4:ImageList1.Draw(image39.Canvas,0,0,4,true);
5:ImageList1.Draw(image39.Canvas,0,0,5,true);
6:ImageList1.Draw(image39.Canvas,0,0,6,true);
7:ImageList1.Draw(image39.Canvas,0,0,7,true);
8:ImageList1.Draw(image39.Canvas,0,0,8,true);
9:ImageList1.Draw(image39.Canvas,0,0,9,true);
10:ImageList1.Draw(image39.Canvas,0,0,10,true);
11:ImageList1.Draw(image39.Canvas,0,0,11,true);
12:ImageList1.Draw(image39.Canvas,0,0,12,true);
13:ImageList1.Draw(image39.Canvas,0,0,13,true);
14:ImageList1.Draw(image39.Canvas,0,0,14,true);
15:ImageList1.Draw(image39.Canvas,0,0,15,true);
16:ImageList1.Draw(image39.Canvas,0,0,16,true);
17:ImageList1.Draw(image39.Canvas,0,0,17,true);
18:ImageList1.Draw(image39.Canvas,0,0,18,true);
19:ImageList1.Draw(image39.Canvas,0,0,19,true);
20:ImageList1.Draw(image39.Canvas,0,0,20,true);
21:ImageList1.Draw(image39.Canvas,0,0,21,true);
22:ImageList1.Draw(image39.Canvas,0,0,22,true);
23:ImageList1.Draw(image39.Canvas,0,0,23,true);
24:ImageList1.Draw(image39.Canvas,0,0,24,true);
end;
if vibor=1 then result:=result+1;
label1.Caption:=inttostr(result);
image39.Enabled:=false;
inc(a);
TAnswN:=now;
TAnswNP := TAnswN-TAnsw;
TAnsw:=TAnswN;
st:='тест 2';
with ADOQAnsw do
begin
with SQL do
begin
Clear;
Add('INSERT INTO Answer (ID_ProtocolAnsw, ID_Testing, ID_Answer, TimeAnswer, AnswerWord)VALUES(2,1, '+IntToStr(a)+','+QuotedStr(TimeToStr(TAnswNP))+','+QuotedStr(st)+')');
ExecSQL;
end;
end;
end;
procedure TFTestKog.Image3Click(Sender: TObject);
begin
repaintimg (FTEstKog.imageList1,FTestKog.image1,FTEstKog.image2,FtestKog.image3, FTestKog.image4, FTEstKog.image5, FtestKog.image6, FtestKog.Image7, FtestKog.Image8, FtestKog.Image9, FtestKog.Image10, FTestKog.Image11, FtestKog.image12, FtestKog.Image13, FtestKog.image14, FtestKog.image15, FtestKog.image16, FtestKog.image17, FtestKog.Image18, FtestKog.Image19, FtestKog.Image20, FtestKog.Image21, FtestKog.image22, FtestKog.image23, FtestKog.image24, FtestKog.image25);
image3.Canvas.Brush.Color:=clBlack;
image3.Canvas.Polyline([Point(105,0),Point(0,0),Point(0,105),Point(105,105),Point(105,0)]);
image3.Canvas.Polyline([Point(100,5),Point(5,5),Point(5,100),Point(100,100),Point(100,5)]);
image3.Canvas.Brush.Color:=clRed;
image3.Canvas.FloodFill(1,1,clBlack,fsBorder);
image3.Canvas.FloodFill(5,101,clBlack,fsBorder);
vibor:=20;
label1.Caption:=inttostr(vibor);
end;
procedure TFTestKog.Image40Click(Sender: TObject);
begin
image40.Picture:=nil;
case vibor of
0:ImageList1.Draw(image40.Canvas,0,0,0,true);
1:ImageList1.Draw(image40.Canvas,0,0,1,true);
2:ImageList1.Draw(image40.Canvas,0,0,2,true);
3:ImageList1.Draw(image40.Canvas,0,0,3,true);
4:ImageList1.Draw(image40.Canvas,0,0,4,true);
5:ImageList1.Draw(image40.Canvas,0,0,5,true);
6:ImageList1.Draw(image40.Canvas,0,0,6,true);
7:ImageList1.Draw(image40.Canvas,0,0,7,true);
8:ImageList1.Draw(image40.Canvas,0,0,8,true);
9:ImageList1.Draw(image40.Canvas,0,0,9,true);
10:ImageList1.Draw(image40.Canvas,0,0,10,true);
11:ImageList1.Draw(image40.Canvas,0,0,11,true);
12:ImageList1.Draw(image40.Canvas,0,0,12,true);
13:ImageList1.Draw(image40.Canvas,0,0,13,true);
14:ImageList1.Draw(image40.Canvas,0,0,14,true);
15:ImageList1.Draw(image40.Canvas,0,0,15,true);
16:ImageList1.Draw(image40.Canvas,0,0,16,true);
17:ImageList1.Draw(image40.Canvas,0,0,17,true);
18:ImageList1.Draw(image40.Canvas,0,0,18,true);
19:ImageList1.Draw(image40.Canvas,0,0,19,true);
20:ImageList1.Draw(image40.Canvas,0,0,20,true);
21:ImageList1.Draw(image40.Canvas,0,0,21,true);
22:ImageList1.Draw(image40.Canvas,0,0,22,true);
23:ImageList1.Draw(image40.Canvas,0,0,23,true);
24:ImageList1.Draw(image40.Canvas,0,0,24,true);
end;
if vibor=6 then result:=result+1;
label1.Caption:=inttostr(result);
image40.Enabled:=false;
inc(a);
TAnswN:=now;
TAnswNP := TAnswN-TAnsw;
TAnsw:=TAnswN;
st:='тест 2';
with ADOQAnsw do
begin
with SQL do
begin
Clear;
Add('INSERT INTO Answer (ID_ProtocolAnsw, ID_Testing, ID_Answer, TimeAnswer, AnswerWord)VALUES(2,1, '+IntToStr(a)+','+QuotedStr(TimeToStr(TAnswNP))+','+QuotedStr(st)+')');
ExecSQL;
end;
end;
end;
procedure TFTestKog.Image41Click(Sender: TObject);
begin
image41.Picture:=nil;
case vibor of
0:ImageList1.Draw(image41.Canvas,0,0,0,true);
1:ImageList1.Draw(image41.Canvas,0,0,1,true);
2:ImageList1.Draw(image41.Canvas,0,0,2,true);
3:ImageList1.Draw(image41.Canvas,0,0,3,true);
4:ImageList1.Draw(image41.Canvas,0,0,4,true);
5:ImageList1.Draw(image41.Canvas,0,0,5,true);
6:ImageList1.Draw(image41.Canvas,0,0,6,true);
7:ImageList1.Draw(image41.Canvas,0,0,7,true);
8:ImageList1.Draw(image41.Canvas,0,0,8,true);
9:ImageList1.Draw(image41.Canvas,0,0,9,true);
10:ImageList1.Draw(image41.Canvas,0,0,10,true);
11:ImageList1.Draw(image41.Canvas,0,0,11,true);
12:ImageList1.Draw(image41.Canvas,0,0,12,true);
13:ImageList1.Draw(image41.Canvas,0,0,13,true);
14:ImageList1.Draw(image41.Canvas,0,0,14,true);
15:ImageList1.Draw(image41.Canvas,0,0,15,true);
16:ImageList1.Draw(image41.Canvas,0,0,16,true);
17:ImageList1.Draw(image41.Canvas,0,0,17,true);
18:ImageList1.Draw(image41.Canvas,0,0,18,true);
19:ImageList1.Draw(image41.Canvas,0,0,19,true);
20:ImageList1.Draw(image41.Canvas,0,0,20,true);
21:ImageList1.Draw(image41.Canvas,0,0,21,true);
22:ImageList1.Draw(image41.Canvas,0,0,22,true);
23:ImageList1.Draw(image41.Canvas,0,0,23,true);
24:ImageList1.Draw(image41.Canvas,0,0,24,true);
end;
if vibor=11 then result:=result+1;
label1.Caption:=inttostr(result);
image41.Enabled:=false;
inc(a);
TAnswN:=now;
TAnswNP := TAnswN-TAnsw;
TAnsw:=TAnswN;
st:='тест 2';
with ADOQAnsw do
begin
with SQL do
begin
Clear;
Add('INSERT INTO Answer (ID_ProtocolAnsw, ID_Testing, ID_Answer, TimeAnswer, AnswerWord)VALUES(2,1, '+IntToStr(a)+','+QuotedStr(TimeToStr(TAnswNP))+','+QuotedStr(st)+')');
ExecSQL;
end;
end;
end;
procedure TFTestKog.Image42Click(Sender: TObject);
begin
image42.Picture:=nil;
case vibor of
0:ImageList1.Draw(image42.Canvas,0,0,0,true);
1:ImageList1.Draw(image42.Canvas,0,0,1,true);
2:ImageList1.Draw(image42.Canvas,0,0,2,true);
3:ImageList1.Draw(image42.Canvas,0,0,3,true);
4:ImageList1.Draw(image42.Canvas,0,0,4,true);
5:ImageList1.Draw(image42.Canvas,0,0,5,true);
6:ImageList1.Draw(image42.Canvas,0,0,6,true);
7:ImageList1.Draw(image42.Canvas,0,0,7,true);
8:ImageList1.Draw(image42.Canvas,0,0,8,true);
9:ImageList1.Draw(image42.Canvas,0,0,9,true);
10:ImageList1.Draw(image42.Canvas,0,0,10,true);
11:ImageList1.Draw(image42.Canvas,0,0,11,true);
12:ImageList1.Draw(image42.Canvas,0,0,12,true);
13:ImageList1.Draw(image42.Canvas,0,0,13,true);
14:ImageList1.Draw(image42.Canvas,0,0,14,true);
15:ImageList1.Draw(image42.Canvas,0,0,15,true);
16:ImageList1.Draw(image42.Canvas,0,0,16,true);
17:ImageList1.Draw(image42.Canvas,0,0,17,true);
18:ImageList1.Draw(image42.Canvas,0,0,18,true);
19:ImageList1.Draw(image42.Canvas,0,0,19,true);
20:ImageList1.Draw(image42.Canvas,0,0,20,true);
21:ImageList1.Draw(image42.Canvas,0,0,21,true);
22:ImageList1.Draw(image42.Canvas,0,0,22,true);
23:ImageList1.Draw(image42.Canvas,0,0,23,true);
24:ImageList1.Draw(image42.Canvas,0,0,24,true);
end;
if vibor=16 then result:=result+1;
label1.Caption:=inttostr(result);
image42.Enabled:=false;
inc(a);
TAnswN:=now;
TAnswNP := TAnswN-TAnsw;
TAnsw:=TAnswN;
st:='тест 2';
with ADOQAnsw do
begin
with SQL do
begin
Clear;
Add('INSERT INTO Answer (ID_ProtocolAnsw, ID_Testing, ID_Answer, TimeAnswer, AnswerWord)VALUES(2,1, '+IntToStr(a)+','+QuotedStr(TimeToStr(TAnswNP))+','+QuotedStr(st)+')');
ExecSQL;
end;
end;
end;
procedure TFTestKog.Image43Click(Sender: TObject);
begin
image43.Picture:=nil;
case vibor of
0:ImageList1.Draw(image43.Canvas,0,0,0,true);
1:ImageList1.Draw(image43.Canvas,0,0,1,true);
2:ImageList1.Draw(image43.Canvas,0,0,2,true);
3:ImageList1.Draw(image43.Canvas,0,0,3,true);
4:ImageList1.Draw(image43.Canvas,0,0,4,true);
5:ImageList1.Draw(image43.Canvas,0,0,5,true);
6:ImageList1.Draw(image43.Canvas,0,0,6,true);
7:ImageList1.Draw(image43.Canvas,0,0,7,true);
8:ImageList1.Draw(image43.Canvas,0,0,8,true);
9:ImageList1.Draw(image43.Canvas,0,0,9,true);
10:ImageList1.Draw(image43.Canvas,0,0,10,true);
11:ImageList1.Draw(image43.Canvas,0,0,11,true);
12:ImageList1.Draw(image43.Canvas,0,0,12,true);
13:ImageList1.Draw(image43.Canvas,0,0,13,true);
14:ImageList1.Draw(image43.Canvas,0,0,14,true);
15:ImageList1.Draw(image43.Canvas,0,0,15,true);
16:ImageList1.Draw(image43.Canvas,0,0,16,true);
17:ImageList1.Draw(image43.Canvas,0,0,17,true);
18:ImageList1.Draw(image43.Canvas,0,0,18,true);
19:ImageList1.Draw(image43.Canvas,0,0,19,true);
20:ImageList1.Draw(image43.Canvas,0,0,20,true);
21:ImageList1.Draw(image43.Canvas,0,0,21,true);
22:ImageList1.Draw(image43.Canvas,0,0,22,true);
23:ImageList1.Draw(image43.Canvas,0,0,23,true);
24:ImageList1.Draw(image43.Canvas,0,0,24,true);
end;
if vibor=21 then result:=result+1;
label1.Caption:=inttostr(result);
image43.Enabled:=false;
inc(a);
TAnswN:=now;
TAnswNP := TAnswN-TAnsw;
TAnsw:=TAnswN;
st:='тест 2';
with ADOQAnsw do
begin
with SQL do
begin
Clear;
Add('INSERT INTO Answer (ID_ProtocolAnsw, ID_Testing, ID_Answer, TimeAnswer, AnswerWord)VALUES(2,1, '+IntToStr(a)+','+QuotedStr(TimeToStr(TAnswNP))+','+QuotedStr(st)+')');
ExecSQL;
end;
end;
end;
procedure TFTestKog.Image45Click(Sender: TObject);
begin
image45.Picture:=nil;
case vibor of
0:ImageList1.Draw(image45.Canvas,0,0,0,true);
1:ImageList1.Draw(image45.Canvas,0,0,1,true);
2:ImageList1.Draw(image45.Canvas,0,0,2,true);
3:ImageList1.Draw(image45.Canvas,0,0,3,true);
4:ImageList1.Draw(image45.Canvas,0,0,4,true);
5:ImageList1.Draw(image45.Canvas,0,0,5,true);
6:ImageList1.Draw(image45.Canvas,0,0,6,true);
7:ImageList1.Draw(image45.Canvas,0,0,7,true);
8:ImageList1.Draw(image45.Canvas,0,0,8,true);
9:ImageList1.Draw(image45.Canvas,0,0,9,true);
10:ImageList1.Draw(image45.Canvas,0,0,10,true);
11:ImageList1.Draw(image45.Canvas,0,0,11,true);
12:ImageList1.Draw(image45.Canvas,0,0,12,true);
13:ImageList1.Draw(image45.Canvas,0,0,13,true);
14:ImageList1.Draw(image45.Canvas,0,0,14,true);
15:ImageList1.Draw(image45.Canvas,0,0,15,true);
16:ImageList1.Draw(image45.Canvas,0,0,16,true);
17:ImageList1.Draw(image45.Canvas,0,0,17,true);
18:ImageList1.Draw(image45.Canvas,0,0,18,true);
19:ImageList1.Draw(image45.Canvas,0,0,19,true);
20:ImageList1.Draw(image45.Canvas,0,0,20,true);
21:ImageList1.Draw(image45.Canvas,0,0,21,true);
22:ImageList1.Draw(image45.Canvas,0,0,22,true);
23:ImageList1.Draw(image45.Canvas,0,0,23,true);
24:ImageList1.Draw(image45.Canvas,0,0,24,true);
end;
if vibor=2 then result:=result+1;
label1.Caption:=inttostr(result);
image45.Enabled:=false;
inc(a);
TAnswN:=now;
TAnswNP := TAnswN-TAnsw;
TAnsw:=TAnswN;
st:='тест 2';
with ADOQAnsw do
begin
with SQL do
begin
Clear;
Add('INSERT INTO Answer (ID_ProtocolAnsw, ID_Testing, ID_Answer, TimeAnswer, AnswerWord)VALUES(2,1, '+IntToStr(a)+','+QuotedStr(TimeToStr(TAnswNP))+','+QuotedStr(st)+')');
ExecSQL;
end;
end;
end;
procedure TFTestKog.Image46Click(Sender: TObject);
begin
image46.Picture:=nil;
case vibor of
0:ImageList1.Draw(image46.Canvas,0,0,0,true);
1:ImageList1.Draw(image46.Canvas,0,0,1,true);
2:ImageList1.Draw(image46.Canvas,0,0,2,true);
3:ImageList1.Draw(image46.Canvas,0,0,3,true);
4:ImageList1.Draw(image46.Canvas,0,0,4,true);
5:ImageList1.Draw(image46.Canvas,0,0,5,true);
6:ImageList1.Draw(image46.Canvas,0,0,6,true);
7:ImageList1.Draw(image46.Canvas,0,0,7,true);
8:ImageList1.Draw(image46.Canvas,0,0,8,true);
9:ImageList1.Draw(image46.Canvas,0,0,9,true);
10:ImageList1.Draw(image46.Canvas,0,0,10,true);
11:ImageList1.Draw(image46.Canvas,0,0,11,true);
12:ImageList1.Draw(image46.Canvas,0,0,12,true);
13:ImageList1.Draw(image46.Canvas,0,0,13,true);
14:ImageList1.Draw(image46.Canvas,0,0,14,true);
15:ImageList1.Draw(image46.Canvas,0,0,15,true);
16:ImageList1.Draw(image46.Canvas,0,0,16,true);
17:ImageList1.Draw(image46.Canvas,0,0,17,true);
18:ImageList1.Draw(image46.Canvas,0,0,18,true);
19:ImageList1.Draw(image46.Canvas,0,0,19,true);
20:ImageList1.Draw(image46.Canvas,0,0,20,true);
21:ImageList1.Draw(image46.Canvas,0,0,21,true);
22:ImageList1.Draw(image46.Canvas,0,0,22,true);
23:ImageList1.Draw(image46.Canvas,0,0,23,true);
24:ImageList1.Draw(image46.Canvas,0,0,24,true);
end;
if vibor=7 then result:=result+1;
label1.Caption:=inttostr(result);
image46.Enabled:=false;
inc(a);
TAnswN:=now;
TAnswNP := TAnswN-TAnsw;
TAnsw:=TAnswN;
st:='тест 2';
with ADOQAnsw do
begin
with SQL do
begin
Clear;
Add('INSERT INTO Answer (ID_ProtocolAnsw, ID_Testing, ID_Answer, TimeAnswer, AnswerWord)VALUES(2,1, '+IntToStr(a)+','+QuotedStr(TimeToStr(TAnswNP))+','+QuotedStr(st)+')');
ExecSQL;
end;
end;
end;
procedure TFTestKog.Image47Click(Sender: TObject);
begin
image47.Picture:=nil;
case vibor of
0:ImageList1.Draw(image47.Canvas,0,0,0,true);
1:ImageList1.Draw(image47.Canvas,0,0,1,true);
2:ImageList1.Draw(image47.Canvas,0,0,2,true);
3:ImageList1.Draw(image47.Canvas,0,0,3,true);
4:ImageList1.Draw(image47.Canvas,0,0,4,true);
5:ImageList1.Draw(image47.Canvas,0,0,5,true);
6:ImageList1.Draw(image47.Canvas,0,0,6,true);
7:ImageList1.Draw(image47.Canvas,0,0,7,true);
8:ImageList1.Draw(image47.Canvas,0,0,8,true);
9:ImageList1.Draw(image47.Canvas,0,0,9,true);
10:ImageList1.Draw(image47.Canvas,0,0,10,true);
11:ImageList1.Draw(image47.Canvas,0,0,11,true);
12:ImageList1.Draw(image47.Canvas,0,0,12,true);
13:ImageList1.Draw(image47.Canvas,0,0,13,true);
14:ImageList1.Draw(image47.Canvas,0,0,14,true);
15:ImageList1.Draw(image47.Canvas,0,0,15,true);
16:ImageList1.Draw(image47.Canvas,0,0,16,true);
17:ImageList1.Draw(image47.Canvas,0,0,17,true);
18:ImageList1.Draw(image47.Canvas,0,0,18,true);
19:ImageList1.Draw(image47.Canvas,0,0,19,true);
20:ImageList1.Draw(image47.Canvas,0,0,20,true);
21:ImageList1.Draw(image47.Canvas,0,0,21,true);
22:ImageList1.Draw(image47.Canvas,0,0,22,true);
23:ImageList1.Draw(image47.Canvas,0,0,23,true);
24:ImageList1.Draw(image47.Canvas,0,0,24,true);
end;
if vibor=12 then result:=result+1;
label1.Caption:=inttostr(result);
image47.Enabled:=false;
inc(a);
TAnswN:=now;
TAnswNP := TAnswN-TAnsw;
TAnsw:=TAnswN;
st:='тест 2';
with ADOQAnsw do
begin
with SQL do
begin
Clear;
Add('INSERT INTO Answer (ID_ProtocolAnsw, ID_Testing, ID_Answer, TimeAnswer, AnswerWord)VALUES(2,1, '+IntToStr(a)+','+QuotedStr(TimeToStr(TAnswNP))+','+QuotedStr(st)+')');
ExecSQL;
end;
end;
end;
procedure TFTestKog.Image48Click(Sender: TObject);
begin
image48.Picture:=nil;
case vibor of
0:ImageList1.Draw(image48.Canvas,0,0,0,true);
1:ImageList1.Draw(image48.Canvas,0,0,1,true);
2:ImageList1.Draw(image48.Canvas,0,0,2,true);
3:ImageList1.Draw(image48.Canvas,0,0,3,true);
4:ImageList1.Draw(image48.Canvas,0,0,4,true);
5:ImageList1.Draw(image48.Canvas,0,0,5,true);
6:ImageList1.Draw(image48.Canvas,0,0,6,true);
7:ImageList1.Draw(image48.Canvas,0,0,7,true);
8:ImageList1.Draw(image48.Canvas,0,0,8,true);
9:ImageList1.Draw(image48.Canvas,0,0,9,true);
10:ImageList1.Draw(image48.Canvas,0,0,10,true);
11:ImageList1.Draw(image48.Canvas,0,0,11,true);
12:ImageList1.Draw(image48.Canvas,0,0,12,true);
13:ImageList1.Draw(image48.Canvas,0,0,13,true);
14:ImageList1.Draw(image48.Canvas,0,0,14,true);
15:ImageList1.Draw(image48.Canvas,0,0,15,true);
16:ImageList1.Draw(image48.Canvas,0,0,16,true);
17:ImageList1.Draw(image48.Canvas,0,0,17,true);
18:ImageList1.Draw(image48.Canvas,0,0,18,true);
19:ImageList1.Draw(image48.Canvas,0,0,19,true);
20:ImageList1.Draw(image48.Canvas,0,0,20,true);
21:ImageList1.Draw(image48.Canvas,0,0,21,true);
22:ImageList1.Draw(image48.Canvas,0,0,22,true);
23:ImageList1.Draw(image48.Canvas,0,0,23,true);
24:ImageList1.Draw(image48.Canvas,0,0,24,true);
end;
if vibor=17 then result:=result+1;
label1.Caption:=inttostr(result);
image48.Enabled:=false;
inc(a);
TAnswN:=now;
TAnswNP := TAnswN-TAnsw;
TAnsw:=TAnswN;
st:='тест 2';
with ADOQAnsw do
begin
with SQL do
begin
Clear;
Add('INSERT INTO Answer (ID_ProtocolAnsw, ID_Testing, ID_Answer, TimeAnswer, AnswerWord)VALUES(2,1, '+IntToStr(a)+','+QuotedStr(TimeToStr(TAnswNP))+','+QuotedStr(st)+')');
ExecSQL;
end;
end;
end;
procedure TFTestKog.Image49Click(Sender: TObject);
begin
image49.Picture:=nil;
case vibor of
0:ImageList1.Draw(image49.Canvas,0,0,0,true);
1:ImageList1.Draw(image49.Canvas,0,0,1,true);
2:ImageList1.Draw(image49.Canvas,0,0,2,true);
3:ImageList1.Draw(image49.Canvas,0,0,3,true);
4:ImageList1.Draw(image49.Canvas,0,0,4,true);
5:ImageList1.Draw(image49.Canvas,0,0,5,true);
6:ImageList1.Draw(image49.Canvas,0,0,6,true);
7:ImageList1.Draw(image49.Canvas,0,0,7,true);
8:ImageList1.Draw(image49.Canvas,0,0,8,true);
9:ImageList1.Draw(image49.Canvas,0,0,9,true);
10:ImageList1.Draw(image49.Canvas,0,0,10,true);
11:ImageList1.Draw(image49.Canvas,0,0,11,true);
12:ImageList1.Draw(image49.Canvas,0,0,12,true);
13:ImageList1.Draw(image49.Canvas,0,0,13,true);
14:ImageList1.Draw(image49.Canvas,0,0,14,true);
15:ImageList1.Draw(image49.Canvas,0,0,15,true);
16:ImageList1.Draw(image49.Canvas,0,0,16,true);
17:ImageList1.Draw(image49.Canvas,0,0,17,true);
18:ImageList1.Draw(image49.Canvas,0,0,18,true);
19:ImageList1.Draw(image49.Canvas,0,0,19,true);
20:ImageList1.Draw(image49.Canvas,0,0,20,true);
21:ImageList1.Draw(image49.Canvas,0,0,21,true);
22:ImageList1.Draw(image49.Canvas,0,0,22,true);
23:ImageList1.Draw(image49.Canvas,0,0,23,true);
24:ImageList1.Draw(image49.Canvas,0,0,24,true);
end;
if vibor=22 then result:=result+1;
label1.Caption:=inttostr(result);
image49.Enabled:=false;
inc(a);
TAnswN:=now;
TAnswNP := TAnswN-TAnsw;
TAnsw:=TAnswN;
st:='тест 2';
with ADOQAnsw do
begin
with SQL do
begin
Clear;
Add('INSERT INTO Answer (ID_ProtocolAnsw, ID_Testing, ID_Answer, TimeAnswer, AnswerWord)VALUES(2,1, '+IntToStr(a)+','+QuotedStr(TimeToStr(TAnswNP))+','+QuotedStr(st)+')');
ExecSQL;
end;
end;
end;
procedure TFTestKog.Image4Click(Sender: TObject);
begin
repaintimg (FTEstKog.imageList1,FTestKog.image1,FTEstKog.image2,FtestKog.image3, FTestKog.image4, FTEstKog.image5, FtestKog.image6, FtestKog.Image7, FtestKog.Image8, FtestKog.Image9, FtestKog.Image10, FTestKog.Image11, FtestKog.image12, FtestKog.Image13, FtestKog.image14, FtestKog.image15, FtestKog.image16, FtestKog.image17, FtestKog.Image18, FtestKog.Image19, FtestKog.Image20, FtestKog.Image21, FtestKog.image22, FtestKog.image23, FtestKog.image24, FtestKog.image25);
image4.Canvas.Brush.Color:=clBlack;
image4.Canvas.Polyline([Point(105,0),Point(0,0),Point(0,105),Point(105,105),Point(105,0)]);
image4.Canvas.Polyline([Point(100,5),Point(5,5),Point(5,100),Point(100,100),Point(100,5)]);
image4.Canvas.Brush.Color:=clRed;
image4.Canvas.FloodFill(1,1,clBlack,fsBorder);
image4.Canvas.FloodFill(5,101,clBlack,fsBorder);
vibor:=18;
end;
procedure TFTestKog.Image51Click(Sender: TObject);
begin
image51.Picture:=nil;
case vibor of
0:ImageList1.Draw(image51.Canvas,0,0,0,true);
1:ImageList1.Draw(image51.Canvas,0,0,1,true);
2:ImageList1.Draw(image51.Canvas,0,0,2,true);
3:ImageList1.Draw(image51.Canvas,0,0,3,true);
4:ImageList1.Draw(image51.Canvas,0,0,4,true);
5:ImageList1.Draw(image51.Canvas,0,0,5,true);
6:ImageList1.Draw(image51.Canvas,0,0,6,true);
7:ImageList1.Draw(image51.Canvas,0,0,7,true);
8:ImageList1.Draw(image51.Canvas,0,0,8,true);
9:ImageList1.Draw(image51.Canvas,0,0,9,true);
10:ImageList1.Draw(image51.Canvas,0,0,10,true);
11:ImageList1.Draw(image51.Canvas,0,0,11,true);
12:ImageList1.Draw(image51.Canvas,0,0,12,true);
13:ImageList1.Draw(image51.Canvas,0,0,13,true);
14:ImageList1.Draw(image51.Canvas,0,0,14,true);
15:ImageList1.Draw(image51.Canvas,0,0,15,true);
16:ImageList1.Draw(image51.Canvas,0,0,16,true);
17:ImageList1.Draw(image51.Canvas,0,0,17,true);
18:ImageList1.Draw(image51.Canvas,0,0,18,true);
19:ImageList1.Draw(image51.Canvas,0,0,19,true);
20:ImageList1.Draw(image51.Canvas,0,0,20,true);
21:ImageList1.Draw(image51.Canvas,0,0,21,true);
22:ImageList1.Draw(image51.Canvas,0,0,22,true);
23:ImageList1.Draw(image51.Canvas,0,0,23,true);
24:ImageList1.Draw(image51.Canvas,0,0,24,true);
end;
if vibor=3 then result:=result+1;
label1.Caption:=inttostr(result);
image51.Enabled:=false;
inc(a);
TAnswN:=now;
TAnswNP := TAnswN-TAnsw;
TAnsw:=TAnswN;
st:='тест 2';
with ADOQAnsw do
begin
with SQL do
begin
Clear;
Add('INSERT INTO Answer (ID_ProtocolAnsw, ID_Testing, ID_Answer, TimeAnswer, AnswerWord)VALUES(2,1, '+IntToStr(a)+','+QuotedStr(TimeToStr(TAnswNP))+','+QuotedStr(st)+')');
ExecSQL;
end;
end;
end;
procedure TFTestKog.Image52Click(Sender: TObject);
begin
image52.Picture:=nil;
case vibor of
0:ImageList1.Draw(image52.Canvas,0,0,0,true);
1:ImageList1.Draw(image52.Canvas,0,0,1,true);
2:ImageList1.Draw(image52.Canvas,0,0,2,true);
3:ImageList1.Draw(image52.Canvas,0,0,3,true);
4:ImageList1.Draw(image52.Canvas,0,0,4,true);
5:ImageList1.Draw(image52.Canvas,0,0,5,true);
6:ImageList1.Draw(image52.Canvas,0,0,6,true);
7:ImageList1.Draw(image52.Canvas,0,0,7,true);
8:ImageList1.Draw(image52.Canvas,0,0,8,true);
9:ImageList1.Draw(image52.Canvas,0,0,9,true);
10:ImageList1.Draw(image52.Canvas,0,0,10,true);
11:ImageList1.Draw(image52.Canvas,0,0,11,true);
12:ImageList1.Draw(image52.Canvas,0,0,12,true);
13:ImageList1.Draw(image52.Canvas,0,0,13,true);
14:ImageList1.Draw(image52.Canvas,0,0,14,true);
15:ImageList1.Draw(image52.Canvas,0,0,15,true);
16:ImageList1.Draw(image52.Canvas,0,0,16,true);
17:ImageList1.Draw(image52.Canvas,0,0,17,true);
18:ImageList1.Draw(image52.Canvas,0,0,18,true);
19:ImageList1.Draw(image52.Canvas,0,0,19,true);
20:ImageList1.Draw(image52.Canvas,0,0,20,true);
21:ImageList1.Draw(image52.Canvas,0,0,21,true);
22:ImageList1.Draw(image52.Canvas,0,0,22,true);
23:ImageList1.Draw(image52.Canvas,0,0,23,true);
24:ImageList1.Draw(image52.Canvas,0,0,24,true);
end;
if vibor=8 then result:=result+1;
label1.Caption:=inttostr(result);
image52.Enabled:=false;
inc(a);
TAnswN:=now;
TAnswNP := TAnswN-TAnsw;
TAnsw:=TAnswN;
st:='тест 2';
with ADOQAnsw do
begin
with SQL do
begin
Clear;
Add('INSERT INTO Answer (ID_ProtocolAnsw, ID_Testing, ID_Answer, TimeAnswer, AnswerWord)VALUES(2,1, '+IntToStr(a)+','+QuotedStr(TimeToStr(TAnswNP))+','+QuotedStr(st)+')');
ExecSQL;
end;
end;
end;
procedure TFTestKog.Image53Click(Sender: TObject);
begin
image53.Picture:=nil;
case vibor of
0:ImageList1.Draw(image53.Canvas,0,0,0,true);
1:ImageList1.Draw(image53.Canvas,0,0,1,true);
2:ImageList1.Draw(image53.Canvas,0,0,2,true);
3:ImageList1.Draw(image53.Canvas,0,0,3,true);
4:ImageList1.Draw(image53.Canvas,0,0,4,true);
5:ImageList1.Draw(image53.Canvas,0,0,5,true);
6:ImageList1.Draw(image53.Canvas,0,0,6,true);
7:ImageList1.Draw(image53.Canvas,0,0,7,true);
8:ImageList1.Draw(image53.Canvas,0,0,8,true);
9:ImageList1.Draw(image53.Canvas,0,0,9,true);
10:ImageList1.Draw(image53.Canvas,0,0,10,true);
11:ImageList1.Draw(image53.Canvas,0,0,11,true);
12:ImageList1.Draw(image53.Canvas,0,0,12,true);
13:ImageList1.Draw(image53.Canvas,0,0,13,true);
14:ImageList1.Draw(image53.Canvas,0,0,14,true);
15:ImageList1.Draw(image53.Canvas,0,0,15,true);
16:ImageList1.Draw(image53.Canvas,0,0,16,true);
17:ImageList1.Draw(image53.Canvas,0,0,17,true);
18:ImageList1.Draw(image53.Canvas,0,0,18,true);
19:ImageList1.Draw(image53.Canvas,0,0,19,true);
20:ImageList1.Draw(image53.Canvas,0,0,20,true);
21:ImageList1.Draw(image53.Canvas,0,0,21,true);
22:ImageList1.Draw(image53.Canvas,0,0,22,true);
23:ImageList1.Draw(image53.Canvas,0,0,23,true);
24:ImageList1.Draw(image53.Canvas,0,0,24,true);
end;
if vibor=13 then result:=result+1;
label1.Caption:=inttostr(result);
image53.Enabled:=false;
inc(a);
TAnswN:=now;
TAnswNP := TAnswN-TAnsw;
TAnsw:=TAnswN;
st:='тест 2';
with ADOQAnsw do
begin
with SQL do
begin
Clear;
Add('INSERT INTO Answer (ID_ProtocolAnsw, ID_Testing, ID_Answer, TimeAnswer, AnswerWord)VALUES(2,1, '+IntToStr(a)+','+QuotedStr(TimeToStr(TAnswNP))+','+QuotedStr(st)+')');
ExecSQL;
end;
end;
end;
procedure TFTestKog.Image54Click(Sender: TObject);
begin
image54.Picture:=nil;
case vibor of
0:ImageList1.Draw(image54.Canvas,0,0,0,true);
1:ImageList1.Draw(image54.Canvas,0,0,1,true);
2:ImageList1.Draw(image54.Canvas,0,0,2,true);
3:ImageList1.Draw(image54.Canvas,0,0,3,true);
4:ImageList1.Draw(image54.Canvas,0,0,4,true);
5:ImageList1.Draw(image54.Canvas,0,0,5,true);
6:ImageList1.Draw(image54.Canvas,0,0,6,true);
7:ImageList1.Draw(image54.Canvas,0,0,7,true);
8:ImageList1.Draw(image54.Canvas,0,0,8,true);
9:ImageList1.Draw(image54.Canvas,0,0,9,true);
10:ImageList1.Draw(image54.Canvas,0,0,10,true);
11:ImageList1.Draw(image54.Canvas,0,0,11,true);
12:ImageList1.Draw(image54.Canvas,0,0,12,true);
13:ImageList1.Draw(image54.Canvas,0,0,13,true);
14:ImageList1.Draw(image54.Canvas,0,0,14,true);
15:ImageList1.Draw(image54.Canvas,0,0,15,true);
16:ImageList1.Draw(image54.Canvas,0,0,16,true);
17:ImageList1.Draw(image54.Canvas,0,0,17,true);
18:ImageList1.Draw(image54.Canvas,0,0,18,true);
19:ImageList1.Draw(image54.Canvas,0,0,19,true);
20:ImageList1.Draw(image54.Canvas,0,0,20,true);
21:ImageList1.Draw(image54.Canvas,0,0,21,true);
22:ImageList1.Draw(image54.Canvas,0,0,22,true);
23:ImageList1.Draw(image54.Canvas,0,0,23,true);
24:ImageList1.Draw(image54.Canvas,0,0,24,true);
end;
if vibor=18 then result:=result+1;
label1.Caption:=inttostr(result);
image54.Enabled:=false;
inc(a);
TAnswN:=now;
TAnswNP := TAnswN-TAnsw;
TAnsw:=TAnswN;
st:='тест 2';
with ADOQAnsw do
begin
with SQL do
begin
Clear;
Add('INSERT INTO Answer (ID_ProtocolAnsw, ID_Testing, ID_Answer, TimeAnswer, AnswerWord)VALUES(2,1, '+IntToStr(a)+','+QuotedStr(TimeToStr(TAnswNP))+','+QuotedStr(st)+')');
ExecSQL;
end;
end;
end;
procedure TFTestKog.Image55Click(Sender: TObject);
begin
image55.Picture:=nil;
case vibor of
0:ImageList1.Draw(image55.Canvas,0,0,0,true);
1:ImageList1.Draw(image55.Canvas,0,0,1,true);
2:ImageList1.Draw(image55.Canvas,0,0,2,true);
3:ImageList1.Draw(image55.Canvas,0,0,3,true);
4:ImageList1.Draw(image55.Canvas,0,0,4,true);
5:ImageList1.Draw(image55.Canvas,0,0,5,true);
6:ImageList1.Draw(image55.Canvas,0,0,6,true);
7:ImageList1.Draw(image55.Canvas,0,0,7,true);
8:ImageList1.Draw(image55.Canvas,0,0,8,true);
9:ImageList1.Draw(image55.Canvas,0,0,9,true);
10:ImageList1.Draw(image55.Canvas,0,0,10,true);
11:ImageList1.Draw(image55.Canvas,0,0,11,true);
12:ImageList1.Draw(image55.Canvas,0,0,12,true);
13:ImageList1.Draw(image55.Canvas,0,0,13,true);
14:ImageList1.Draw(image55.Canvas,0,0,14,true);
15:ImageList1.Draw(image55.Canvas,0,0,15,true);
16:ImageList1.Draw(image55.Canvas,0,0,16,true);
17:ImageList1.Draw(image55.Canvas,0,0,17,true);
18:ImageList1.Draw(image55.Canvas,0,0,18,true);
19:ImageList1.Draw(image55.Canvas,0,0,19,true);
20:ImageList1.Draw(image55.Canvas,0,0,20,true);
21:ImageList1.Draw(image55.Canvas,0,0,21,true);
22:ImageList1.Draw(image55.Canvas,0,0,22,true);
23:ImageList1.Draw(image55.Canvas,0,0,23,true);
24:ImageList1.Draw(image55.Canvas,0,0,24,true);
end;
if vibor=23 then result:=result+1;
label1.Caption:=inttostr(result);
image55.Enabled:=false;
inc(a);
TAnswN:=now;
TAnswNP := TAnswN-TAnsw;
TAnsw:=TAnswN;
st:='тест 2';
with ADOQAnsw do
begin
with SQL do
begin
Clear;
Add('INSERT INTO Answer (ID_ProtocolAnsw, ID_Testing, ID_Answer, TimeAnswer, AnswerWord)VALUES(2,1, '+IntToStr(a)+','+QuotedStr(TimeToStr(TAnswNP))+','+QuotedStr(st)+')');
ExecSQL;
end;
end;
end;
procedure TFTestKog.Image57Click(Sender: TObject);
begin
image57.Picture:=nil;
case vibor of
0:ImageList1.Draw(image57.Canvas,0,0,0,true);
1:ImageList1.Draw(image57.Canvas,0,0,1,true);
2:ImageList1.Draw(image57.Canvas,0,0,2,true);
3:ImageList1.Draw(image57.Canvas,0,0,3,true);
4:ImageList1.Draw(image57.Canvas,0,0,4,true);
5:ImageList1.Draw(image57.Canvas,0,0,5,true);
6:ImageList1.Draw(image57.Canvas,0,0,6,true);
7:ImageList1.Draw(image57.Canvas,0,0,7,true);
8:ImageList1.Draw(image57.Canvas,0,0,8,true);
9:ImageList1.Draw(image57.Canvas,0,0,9,true);
10:ImageList1.Draw(image57.Canvas,0,0,10,true);
11:ImageList1.Draw(image57.Canvas,0,0,11,true);
12:ImageList1.Draw(image57.Canvas,0,0,12,true);
13:ImageList1.Draw(image57.Canvas,0,0,13,true);
14:ImageList1.Draw(image57.Canvas,0,0,14,true);
15:ImageList1.Draw(image57.Canvas,0,0,15,true);
16:ImageList1.Draw(image57.Canvas,0,0,16,true);
17:ImageList1.Draw(image57.Canvas,0,0,17,true);
18:ImageList1.Draw(image57.Canvas,0,0,18,true);
19:ImageList1.Draw(image57.Canvas,0,0,19,true);
20:ImageList1.Draw(image57.Canvas,0,0,20,true);
21:ImageList1.Draw(image57.Canvas,0,0,21,true);
22:ImageList1.Draw(image57.Canvas,0,0,22,true);
23:ImageList1.Draw(image57.Canvas,0,0,23,true);
24:ImageList1.Draw(image57.Canvas,0,0,24,true);
end;
if vibor=4 then result:=result+1;
label1.Caption:=inttostr(result);
image57.Enabled:=false;
inc(a);
TAnswN:=now;
TAnswNP := TAnswN-TAnsw;
TAnsw:=TAnswN;
st:='тест 2';
with ADOQAnsw do
begin
with SQL do
begin
Clear;
Add('INSERT INTO Answer (ID_ProtocolAnsw, ID_Testing, ID_Answer, TimeAnswer, AnswerWord)VALUES(2,1, '+IntToStr(a)+','+QuotedStr(TimeToStr(TAnswNP))+','+QuotedStr(st)+')');
ExecSQL;
end;
end;
end;
procedure TFTestKog.Image58Click(Sender: TObject);
begin
image58.Picture:=nil;
case vibor of
0:ImageList1.Draw(image58.Canvas,0,0,0,true);
1:ImageList1.Draw(image58.Canvas,0,0,1,true);
2:ImageList1.Draw(image58.Canvas,0,0,2,true);
3:ImageList1.Draw(image58.Canvas,0,0,3,true);
4:ImageList1.Draw(image58.Canvas,0,0,4,true);
5:ImageList1.Draw(image58.Canvas,0,0,5,true);
6:ImageList1.Draw(image58.Canvas,0,0,6,true);
7:ImageList1.Draw(image58.Canvas,0,0,7,true);
8:ImageList1.Draw(image58.Canvas,0,0,8,true);
9:ImageList1.Draw(image58.Canvas,0,0,9,true);
10:ImageList1.Draw(image58.Canvas,0,0,10,true);
11:ImageList1.Draw(image58.Canvas,0,0,11,true);
12:ImageList1.Draw(image58.Canvas,0,0,12,true);
13:ImageList1.Draw(image58.Canvas,0,0,13,true);
14:ImageList1.Draw(image58.Canvas,0,0,14,true);
15:ImageList1.Draw(image58.Canvas,0,0,15,true);
16:ImageList1.Draw(image58.Canvas,0,0,16,true);
17:ImageList1.Draw(image58.Canvas,0,0,17,true);
18:ImageList1.Draw(image58.Canvas,0,0,18,true);
19:ImageList1.Draw(image58.Canvas,0,0,19,true);
20:ImageList1.Draw(image58.Canvas,0,0,20,true);
21:ImageList1.Draw(image58.Canvas,0,0,21,true);
22:ImageList1.Draw(image58.Canvas,0,0,22,true);
23:ImageList1.Draw(image58.Canvas,0,0,23,true);
24:ImageList1.Draw(image58.Canvas,0,0,24,true);
end;
if vibor=9 then result:=result+1;
label1.Caption:=inttostr(result);
image58.Enabled:=false;
inc(a);
TAnswN:=now;
TAnswNP := TAnswN-TAnsw;
TAnsw:=TAnswN;
st:='тест 2';
with ADOQAnsw do
begin
with SQL do
begin
Clear;
Add('INSERT INTO Answer (ID_ProtocolAnsw, ID_Testing, ID_Answer, TimeAnswer, AnswerWord)VALUES(2,1, '+IntToStr(a)+','+QuotedStr(TimeToStr(TAnswNP))+','+QuotedStr(st)+')');
ExecSQL;
end;
end;
end;
procedure TFTestKog.Image59Click(Sender: TObject);
begin
image59.Picture:=nil;
case vibor of
0:ImageList1.Draw(image59.Canvas,0,0,0,true);
1:ImageList1.Draw(image59.Canvas,0,0,1,true);
2:ImageList1.Draw(image59.Canvas,0,0,2,true);
3:ImageList1.Draw(image59.Canvas,0,0,3,true);
4:ImageList1.Draw(image59.Canvas,0,0,4,true);
5:ImageList1.Draw(image59.Canvas,0,0,5,true);
6:ImageList1.Draw(image59.Canvas,0,0,6,true);
7:ImageList1.Draw(image59.Canvas,0,0,7,true);
8:ImageList1.Draw(image59.Canvas,0,0,8,true);
9:ImageList1.Draw(image59.Canvas,0,0,9,true);
10:ImageList1.Draw(image59.Canvas,0,0,10,true);
11:ImageList1.Draw(image59.Canvas,0,0,11,true);
12:ImageList1.Draw(image59.Canvas,0,0,12,true);
13:ImageList1.Draw(image59.Canvas,0,0,13,true);
14:ImageList1.Draw(image59.Canvas,0,0,14,true);
15:ImageList1.Draw(image59.Canvas,0,0,15,true);
16:ImageList1.Draw(image59.Canvas,0,0,16,true);
17:ImageList1.Draw(image59.Canvas,0,0,17,true);
18:ImageList1.Draw(image59.Canvas,0,0,18,true);
19:ImageList1.Draw(image59.Canvas,0,0,19,true);
20:ImageList1.Draw(image59.Canvas,0,0,20,true);
21:ImageList1.Draw(image59.Canvas,0,0,21,true);
22:ImageList1.Draw(image59.Canvas,0,0,22,true);
23:ImageList1.Draw(image59.Canvas,0,0,23,true);
24:ImageList1.Draw(image59.Canvas,0,0,24,true);
end;
if vibor=14 then result:=result+1;
label1.Caption:=inttostr(result);
image59.Enabled:=false;
inc(a);
TAnswN:=now;
TAnswNP := TAnswN-TAnsw;
TAnsw:=TAnswN;
st:='тест 2';
with ADOQAnsw do
begin
with SQL do
begin
Clear;
Add('INSERT INTO Answer (ID_ProtocolAnsw, ID_Testing, ID_Answer, TimeAnswer, AnswerWord)VALUES(2,1, '+IntToStr(a)+','+QuotedStr(TimeToStr(TAnswNP))+','+QuotedStr(st)+')');
ExecSQL;
end;
end;
end;
procedure TFTestKog.Image5Click(Sender: TObject);
begin
repaintimg (FTEstKog.imageList1,FTestKog.image1,FTEstKog.image2,FtestKog.image3, FTestKog.image4, FTEstKog.image5, FtestKog.image6, FtestKog.Image7, FtestKog.Image8, FtestKog.Image9, FtestKog.Image10, FTestKog.Image11, FtestKog.image12, FtestKog.Image13, FtestKog.image14, FtestKog.image15, FtestKog.image16, FtestKog.image17, FtestKog.Image18, FtestKog.Image19, FtestKog.Image20, FtestKog.Image21, FtestKog.image22, FtestKog.image23, FtestKog.image24, FtestKog.image25);
image5.Canvas.Brush.Color:=clBlack;
image5.Canvas.Polyline([Point(105,0),Point(0,0),Point(0,105),Point(105,105),Point(105,0)]);
image5.Canvas.Polyline([Point(100,5),Point(5,5),Point(5,100),Point(100,100),Point(100,5)]);
image5.Canvas.Brush.Color:=clRed;
image5.Canvas.FloodFill(1,1,clBlack,fsBorder);
image5.Canvas.FloodFill(5,101,clBlack,fsBorder);
vibor:=9;
end;
procedure TFTestKog.Image60Click(Sender: TObject);
begin
image60.Picture:=nil;
case vibor of
0:ImageList1.Draw(image60.Canvas,0,0,0,true);
1:ImageList1.Draw(image60.Canvas,0,0,1,true);
2:ImageList1.Draw(image60.Canvas,0,0,2,true);
3:ImageList1.Draw(image60.Canvas,0,0,3,true);
4:ImageList1.Draw(image60.Canvas,0,0,4,true);
5:ImageList1.Draw(image60.Canvas,0,0,5,true);
6:ImageList1.Draw(image60.Canvas,0,0,6,true);
7:ImageList1.Draw(image60.Canvas,0,0,7,true);
8:ImageList1.Draw(image60.Canvas,0,0,8,true);
9:ImageList1.Draw(image60.Canvas,0,0,9,true);
10:ImageList1.Draw(image60.Canvas,0,0,10,true);
11:ImageList1.Draw(image60.Canvas,0,0,11,true);
12:ImageList1.Draw(image60.Canvas,0,0,12,true);
13:ImageList1.Draw(image60.Canvas,0,0,13,true);
14:ImageList1.Draw(image60.Canvas,0,0,14,true);
15:ImageList1.Draw(image60.Canvas,0,0,15,true);
16:ImageList1.Draw(image60.Canvas,0,0,16,true);
17:ImageList1.Draw(image60.Canvas,0,0,17,true);
18:ImageList1.Draw(image60.Canvas,0,0,18,true);
19:ImageList1.Draw(image60.Canvas,0,0,19,true);
20:ImageList1.Draw(image60.Canvas,0,0,20,true);
21:ImageList1.Draw(image60.Canvas,0,0,21,true);
22:ImageList1.Draw(image60.Canvas,0,0,22,true);
23:ImageList1.Draw(image60.Canvas,0,0,23,true);
24:ImageList1.Draw(image60.Canvas,0,0,24,true);
end;
if vibor=19 then result:=result+1;
label1.Caption:=inttostr(result);
image60.Enabled:=false;
inc(a);
TAnswN:=now;
TAnswNP := TAnswN-TAnsw;
TAnsw:=TAnswN;
st:='тест 2';
with ADOQAnsw do
begin
with SQL do
begin
Clear;
Add('INSERT INTO Answer (ID_ProtocolAnsw, ID_Testing, ID_Answer, TimeAnswer, AnswerWord)VALUES(2,1, '+IntToStr(a)+','+QuotedStr(TimeToStr(TAnswNP))+','+QuotedStr(st)+')');
ExecSQL;
end;
end;
end;
procedure TFTestKog.Image61Click(Sender: TObject);
begin
image61.Picture:=nil;
case vibor of
0:ImageList1.Draw(image61.Canvas,0,0,0,true);
1:ImageList1.Draw(image61.Canvas,0,0,1,true);
2:ImageList1.Draw(image61.Canvas,0,0,2,true);
3:ImageList1.Draw(image61.Canvas,0,0,3,true);
4:ImageList1.Draw(image61.Canvas,0,0,4,true);
5:ImageList1.Draw(image61.Canvas,0,0,5,true);
6:ImageList1.Draw(image61.Canvas,0,0,6,true);
7:ImageList1.Draw(image61.Canvas,0,0,7,true);
8:ImageList1.Draw(image61.Canvas,0,0,8,true);
9:ImageList1.Draw(image61.Canvas,0,0,9,true);
10:ImageList1.Draw(image61.Canvas,0,0,10,true);
11:ImageList1.Draw(image61.Canvas,0,0,11,true);
12:ImageList1.Draw(image61.Canvas,0,0,12,true);
13:ImageList1.Draw(image61.Canvas,0,0,13,true);
14:ImageList1.Draw(image61.Canvas,0,0,14,true);
15:ImageList1.Draw(image61.Canvas,0,0,15,true);
16:ImageList1.Draw(image61.Canvas,0,0,16,true);
17:ImageList1.Draw(image61.Canvas,0,0,17,true);
18:ImageList1.Draw(image61.Canvas,0,0,18,true);
19:ImageList1.Draw(image61.Canvas,0,0,19,true);
20:ImageList1.Draw(image61.Canvas,0,0,20,true);
21:ImageList1.Draw(image61.Canvas,0,0,21,true);
22:ImageList1.Draw(image61.Canvas,0,0,22,true);
23:ImageList1.Draw(image61.Canvas,0,0,23,true);
24:ImageList1.Draw(image61.Canvas,0,0,24,true);
end;
if vibor=24 then result:=result+1;
label1.Caption:=inttostr(result);
image61.Enabled:=false;
inc(a);
TAnswN:=now;
TAnswNP := TAnswN-TAnsw;
TAnsw:=TAnswN;
st:='тест 2';
with ADOQAnsw do
begin
with SQL do
begin
Clear;
Add('INSERT INTO Answer (ID_ProtocolAnsw, ID_Testing, ID_Answer, TimeAnswer, AnswerWord)VALUES(2,1, '+IntToStr(a)+','+QuotedStr(TimeToStr(TAnswNP))+','+QuotedStr(st)+')');
ExecSQL;
end;
end;
end;
procedure TFTestKog.Image6Click(Sender: TObject);
begin
repaintimg (FTEstKog.imageList1,FTestKog.image1,FTEstKog.image2,FtestKog.image3, FTestKog.image4, FTEstKog.image5, FtestKog.image6, FtestKog.Image7, FtestKog.Image8, FtestKog.Image9, FtestKog.Image10, FTestKog.Image11, FtestKog.image12, FtestKog.Image13, FtestKog.image14, FtestKog.image15, FtestKog.image16, FtestKog.image17, FtestKog.Image18, FtestKog.Image19, FtestKog.Image20, FtestKog.Image21, FtestKog.image22, FtestKog.image23, FtestKog.image24, FtestKog.image25);
image6.Canvas.Brush.Color:=clBlack;
image6.Canvas.Polyline([Point(105,0),Point(0,0),Point(0,105),Point(105,105),Point(105,0)]);
image6.Canvas.Polyline([Point(100,5),Point(5,5),Point(5,100),Point(100,100),Point(100,5)]);
image6.Canvas.Brush.Color:=clRed;
image6.Canvas.FloodFill(1,1,clBlack,fsBorder);
image6.Canvas.FloodFill(5,101,clBlack,fsBorder);
vibor:=15;
end;
procedure TFTestKog.Image7Click(Sender: TObject);
begin
repaintimg (FTEstKog.imageList1,FTestKog.image1,FTEstKog.image2,FtestKog.image3, FTestKog.image4, FTEstKog.image5, FtestKog.image6, FtestKog.Image7, FtestKog.Image8, FtestKog.Image9, FtestKog.Image10, FTestKog.Image11, FtestKog.image12, FtestKog.Image13, FtestKog.image14, FtestKog.image15, FtestKog.image16, FtestKog.image17, FtestKog.Image18, FtestKog.Image19, FtestKog.Image20, FtestKog.Image21, FtestKog.image22, FtestKog.image23, FtestKog.image24, FtestKog.image25);
image7.Canvas.Brush.Color:=clBlack;
image7.Canvas.Polyline([Point(105,0),Point(0,0),Point(0,105),Point(105,105),Point(105,0)]);
image7.Canvas.Polyline([Point(100,5),Point(5,5),Point(5,100),Point(100,100),Point(100,5)]);
image7.Canvas.Brush.Color:=clRed;
image7.Canvas.FloodFill(1,1,clBlack,fsBorder);
image7.Canvas.FloodFill(5,101,clBlack,fsBorder);
vibor:=23;
end;
procedure TFTestKog.Image8Click(Sender: TObject);
begin
repaintimg (FTEstKog.imageList1,FTestKog.image1,FTEstKog.image2,FtestKog.image3, FTestKog.image4, FTEstKog.image5, FtestKog.image6, FtestKog.Image7, FtestKog.Image8, FtestKog.Image9, FtestKog.Image10, FTestKog.Image11, FtestKog.image12, FtestKog.Image13, FtestKog.image14, FtestKog.image15, FtestKog.image16, FtestKog.image17, FtestKog.Image18, FtestKog.Image19, FtestKog.Image20, FtestKog.Image21, FtestKog.image22, FtestKog.image23, FtestKog.image24, FtestKog.image25);
image8.Canvas.Brush.Color:=clBlack;
image8.Canvas.Polyline([Point(105,0),Point(0,0),Point(0,105),Point(105,105),Point(105,0)]);
image8.Canvas.Polyline([Point(100,5),Point(5,5),Point(5,100),Point(100,100),Point(100,5)]);
image8.Canvas.Brush.Color:=clRed;
image8.Canvas.FloodFill(1,1,clBlack,fsBorder);
image8.Canvas.FloodFill(5,101,clBlack,fsBorder);
vibor:=16;
end;
procedure TFTestKog.Image9Click(Sender: TObject);
begin
repaintimg (FTEstKog.imageList1,FTestKog.image1,FTEstKog.image2,FtestKog.image3, FTestKog.image4, FTEstKog.image5, FtestKog.image6, FtestKog.Image7, FtestKog.Image8, FtestKog.Image9, FtestKog.Image10, FTestKog.Image11, FtestKog.image12, FtestKog.Image13, FtestKog.image14, FtestKog.image15, FtestKog.image16, FtestKog.image17, FtestKog.Image18, FtestKog.Image19, FtestKog.Image20, FtestKog.Image21, FtestKog.image22, FtestKog.image23, FtestKog.image24, FtestKog.image25);
image9.Canvas.Brush.Color:=clBlack;
image9.Canvas.Polyline([Point(105,0),Point(0,0),Point(0,105),Point(105,105),Point(105,0)]);
image9.Canvas.Polyline([Point(100,5),Point(5,5),Point(5,100),Point(100,100),Point(100,5)]);
image9.Canvas.Brush.Color:=clRed;
image9.Canvas.FloodFill(1,1,clBlack,fsBorder);
image9.Canvas.FloodFill(5,101,clBlack,fsBorder);
vibor:=24;
end;
procedure TFTestKog.FormActivate(Sender: TObject);
var
x,y : integer;
begin
repaintimg (FTEstKog.imageList1,FTestKog.image1,FTEstKog.image2,FtestKog.image3, FTestKog.image4, FTEstKog.image5, FtestKog.image6, FtestKog.Image7, FtestKog.Image8, FtestKog.Image9, FtestKog.Image10, FTestKog.Image11, FtestKog.image12, FtestKog.Image13, FtestKog.image14, FtestKog.image15, FtestKog.image16, FtestKog.image17, FtestKog.Image18, FtestKog.Image19, FtestKog.Image20, FtestKog.Image21, FtestKog.image22, FtestKog.image23, FtestKog.image24, FtestKog.image25);
i:=1;
// подготовка формы к запуску, запуск таймера
{TimerAll.Enabled := true;
TAnsw:=now;
TTimeNow.Enabled:=true;}
TAnsw:=now;
TAll:=now;
SetBounds( Left - ClientOrigin.X, Top - ClientOrigin.Y, GetDeviceCaps(
Canvas.handle, HORZRES ) + (Width - ClientWidth), GetDeviceCaps( Canvas.handle,VERTRES )
+ (Height - ClientHeight ));
PTabl.Width:= (FMain.Width div 2);
BBVse.Left:= 2 * (FMain.Width div 4) - (BBVse.Width div 2);
LOk.Left := 2 * (FMain.Width div 4) - (LOk.Width div 2);
Image2.Left:=Image1.Left+Image1.Width+10 ;
Image3.Left:= Image2.Left+Image2.Width+10 ;
Image4.Left:=Image3.Left+Image3.Width+10 ;
Image5.Left:= Image4.Left+Image4.Width+10 ;
Image7.Left:=Image6.Left+Image6.Width+10 ;
Image8.Left:= Image7.Left+Image7.Width+10 ;
Image9.Left:=Image8.Left+Image8.Width+10 ;
Image10.Left:= Image9.Left+Image9.Width+10 ;
Image12.Left:=Image11.Left+Image11.Width+10 ;
Image13.Left:= Image12.Left+Image12.Width+10 ;
Image14.Left:=Image13.Left+Image13.Width+10 ;
Image15.Left:= Image14.Left+Image14.Width+10 ;
Image17.Left:=Image16.Left+Image16.Width+10 ;
Image18.Left:= Image17.Left+Image17.Width+10 ;
Image19.Left:=Image18.Left+Image18.Width+10 ;
Image20.Left:= Image19.Left+Image19.Width+10 ;
Image22.Left:=Image21.Left+Image21.Width+10 ;
Image23.Left:= Image22.Left+Image22.Width+10 ;
Image24.Left:=Image23.Left+Image23.Width+10 ;
Image25.Left:= Image24.Left+Image24.Width+10 ;
// таблица
Image27.Left:=Image26.Left+Image26.Width ;
Image28.Left:=Image27.Left+Image27.Width ;
Image29.Left:=Image28.Left+Image28.Width ;
Image30.Left:=Image29.Left+Image29.Width ;
Image31.Left:=Image30.Left+Image30.Width ;
Image33.Left:=Image32.Left+Image32.Width ;
Image34.Left:=Image33.Left+Image33.Width ;
Image35.Left:=Image34.Left+Image34.Width ;
Image36.Left:=Image35.Left+Image35.Width ;
Image37.Left:=Image36.Left+Image36.Width ;
Image39.Left:=Image38.Left+Image38.Width ;
Image40.Left:=Image39.Left+Image39.Width ;
Image41.Left:=Image40.Left+Image40.Width ;
Image42.Left:=Image41.Left+Image41.Width ;
Image43.Left:=Image42.Left+Image42.Width ;
Image45.Left:=Image44.Left+Image44.Width ;
Image46.Left:=Image45.Left+Image45.Width ;
Image47.Left:=Image46.Left+Image46.Width ;
Image48.Left:=Image47.Left+Image47.Width ;
Image49.Left:=Image48.Left+Image48.Width ;
Image51.Left:=Image50.Left+Image50.Width ;
Image52.Left:=Image51.Left+Image51.Width ;
Image53.Left:=Image52.Left+Image52.Width ;
Image54.Left:=Image53.Left+Image53.Width ;
Image55.Left:=Image54.Left+Image54.Width ;
Image57.Left:=Image56.Left+Image56.Width ;
Image58.Left:=Image57.Left+Image57.Width ;
Image59.Left:=Image58.Left+Image58.Width ;
Image60.Left:=Image59.Left+Image59.Width ;
Image61.Left:=Image60.Left+Image60.Width ;
end;
procedure TFTestKog.BBVseClick(Sender: TObject);
var
code_param, j,k : integer;
TimeN : TDateTime;
begin
// загрузка результата тестирования в бд
ADOQParamRes.SQL.Clear;
ADOQParamRes.SQL.Add('SELECT * FROM ParamResult WHERE Parametr = '+QuotedStr('Ваш балл:'));
ADOQParamRes.Active := True;
Code_Param := ADOQParamRes.FieldByName('ID_ParamResult').AsInteger;
ADOQRes.SQL.Clear;
ADOQRes.SQL.Add('INSERT INTO Result (ID_Result, ID_Testing, ID_Param, Value_Result)VALUES('+IntToStr(FStart.LRes.ItemIndex + 1)+',2,'+IntToStr(Code_Param)+', '+IntToStr(result)+')');
ADOQRes.ExecSQL;
TimeN:=now; // определение времени прохождения тестирования
TALL:=TimeN-TALL;
with ADOQProt do // занесение времени в протокол в бд
begin
with SQL do
begin
Clear;
Add('INSERT INTO Protocol (ID_Protocol, ID_Testing, TimeAnswer)VALUES('+IntToStr(FStart.LRes.ItemIndex + 1)+',2,'+QuotedStr(TimeToStr(TALL))+')');
ExecSQL;
end;
end;
close;
Main.FMain.BBTest.Visible := false;
Main.FMain.BBRes.Visible := true;
end;
end.
Соседние файлы в папке Курсовая ( Мюнсберга и Когана )