lines.add ( );:=ResultZad1 + 0; .lines.add ( 7 слово не вірно. + Правильна відповідь: популярність );.lines.add ( Ви написали: + sEdit24.Text);
srichedit1.lines.add ( ) ;;. Caption:= Ваш бал: + IntToStr (ResultZad1) + з + Laquo; 7 raquo ;;
srichedit1.Lines.Add ( Загальна колличество балів за завдання третього вправи: + IntToStr (ResultZad1) + з + 7 );
srichedit1.Lines.Add(laquo;raquo;);.Enabled:=false;;;TFormLess16Lvl3.sPanel3MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
if (EnabledMove3=true) thenButton=mbLeftbegin:=x;:=y;:=sPanel3.Left;:=sPanel3.top;:=true;
(Sender as TsPanel) .BringToFront;:=false ;;; TFormLess16Lvl3.sPanel3MouseMove (Sender: TObject;
Shift: TShiftState; X, Y: Integer);
if dragTsPanel (Sender) do:=Left + x-x0;:=Top + y-y0; TFormLess16Lvl3.sPanel3MouseUp (Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Overlay: Trect;
beginInterSectRect (Overlay, sPanel3.BoundsRect, sGroupBox5.BoundsRect) then.Left:=sGroupBox5.Left + 16; .Top:=sGroupBox5.Top + 32; (ResultZad1gb5 lt;=8) and (EnabledMove3 =true) thengb5:=ResultZad1gb5 + 1 ;; (ResultZad1gb5 gt;=7) then.Visible:=true; gb5:=0;
srichedit1.Lines.Add ( Слова середнього роду вказані вірно: журі, інтерв'ю, парі, кашне, табу, кредо, кольє );
srichedit1.Lines.Add ( ) ;;:=false; .Left:=xStart; .Top:=yStart ;;:=false ;; TFormLess16Lvl3.sPanel4MouseDown (Sender: TObject ;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
if (EnabledMove4=true) thenButton=mbLeftbegin:=x;:=y;:=sPanel4.Left;:=sPanel4.top;:=true;
(Sender as TsPanel) .BringToFront;:=false ;;; TFormLess16Lvl3.sPanel4MouseMove (Sender: TObject;
Shift: TShiftState; X, Y: Integer); dragTsPanel (Sender) do:=Left + x-x0;:=Top + y-y0; TFormLess16Lvl3.sPanel4MouseUp (Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Overlay: Trect;
beginInterSectRect (Overlay, sPanel4.BoundsRect, sGroupBox5.BoundsRect) then.Left:=sGroupBox5.Left + 16; .Top:=sGroupBox5.Top + 64; (ResultZad1gb5 lt;=8) and (EnabledMove4 =true) thengb5:=ResultZad1gb5 + 1 ;; (ResultZad1gb5 gt;=7) then.Visible:=true; gb5:=0;
srichedit1.Lines.Add ( Слова середнього роду вказані вірно: журі, інтерв'ю, парі, кашне, табу, кредо, кольє );
srichedit1.Lines.Add ( ) ;;:=false; .Left:=xStart; .Top:=yStart ;;:=false ;; TFormLess16Lvl3.sPanel6MouseDown (Sender: TObject ;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer); (EnabledMove6=true) thenButton=mbLeftbegin:=x;:=y;:=sPanel6.Left;:=sPanel6.top;:=true;
(Sender as TsPanel) .BringToFront;:=false ;;; TFormLess16Lvl3.sPanel6MouseMove (Sender: TObject;
Shift: TShiftState; X, Y: Integer);
if dragTsPanel (Sender) do:=Left + x-x0;:=Top + y-y0;
procedure TFormLess16Lvl3.sPanel6MouseUp (Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Overlay: Trect;
beginInterSectRect (Overlay, sPanel6.BoundsRect, sGroupBox5.BoundsRect) then.Left:=sGroupBox5.Left + 16; .Top:=sGroupBox5.Top + 96; (ResultZad1gb5 lt;=8) and (EnabledMove6 =true) thengb5:=ResultZad1gb5 + 1 ;; (ResultZad1gb5 gt;=7) then.Visible:=true; gb5:=0;
srichedit1.Lines.Add ( Слова середнього роду вказані вірно: журі, інтерв'ю, парі, кашне, табу, кредо, кольє );
srichedit1.Lines.Add ( ) ;;:=false; .Left:=xStart; .Top:=yStart ;;:=false ;; TFormLess16Lvl3.sPanel7MouseDown (Sender: TObject ;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
if (EnabledMove7=true) thenButton=mbLeftbegin:=x;:=y;:=sPanel7.Left;:=sPanel7.top;:=true;
(Sender as TsPanel) .BringToFront;:=false ;;; TFormLess16Lvl3.sPanel7MouseMove (Sender: TObject;
Shift: TShiftState; X, Y: Integer);
if dragTsPanel (Sender) do:=Left + x-x0;:=Top + y-y0; TFormLess16Lvl3.sPanel7MouseUp (Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Overlay: Trect;
beginInterSectRect (Overlay, sPanel7.BoundsRect, sGroupBox5.BoundsRect) then.Left:=sGroupBox5.Left + 16; .Top:=sGroupBox5.Top + 128; (ResultZad1gb5 lt;=8) and (EnabledMove7 =true) thengb5:=ResultZad1gb5 + 1 ;; (ResultZad1gb5 gt;...
