Реферат Розробка навчальної програми з російської мови

=7) then.Visible:=true; gb5:=0;

srichedit1.Lines.Add ( Слова середнього роду вказані вірно: журі, інтерв'ю, парі, кашне, табу, кредо, кольє );

srichedit1.Lines.Add ( ) ;;:=false; .Left:=xStart; .Top:=yStart ;;:=false ;; TFormLess16Lvl3.sPanel8MouseDown (Sender: TObject ;

Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

if (EnabledMove8=true) thenButton=mbLeftbegin:=x;:=y;:=sPanel8.Left;:=sPanel8.top;:=true;

(Sender as TsPanel) .BringToFront;:=false ;;; TFormLess16Lvl3.sPanel8MouseMove (Sender: TObject;

Shift: TShiftState; X, Y: Integer);

if dragTsPanel (Sender) do:=Left + x-x0;:=Top + y-y0; TFormLess16Lvl3.sPanel8MouseUp (Sender: TObject;

Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Overlay: Trect;

beginInterSectRect (Overlay, sPanel8.BoundsRect, sGroupBox5.BoundsRect) then.Left:=sGroupBox5.Left + 16; .Top:=sGroupBox5.Top + 160; (ResultZad1gb5 lt;=8) and (EnabledMove8 =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.sPanel9MouseDown (Sender: TObject ;

Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

if (EnabledMove9=true) then

Button=mbLeftbegin:=x;:=y;:=sPanel9.Left;:=sPanel9.top;:=true;

(Sender as TsPanel) .BringToFront;:=false ;;; TFormLess16Lvl3.sPanel9MouseMove (Sender: TObject;

Shift: TShiftState; X, Y: Integer);

if dragTsPanel (Sender) do:=Left + x-x0;:=Top + y-y0; TFormLess16Lvl3.sPanel9MouseUp (Sender: TObject;

Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Overlay: Trect;

beginInterSectRect (Overlay, sPanel9.BoundsRect, sGroupBox5.BoundsRect) then.Left:=sGroupBox5.Left + 16; .Top:=sGroupBox5.Top + 192; (ResultZad1gb5 lt;=8) and (EnabledMove9 =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.sPanel10MouseDown (Sender: TObject ;

Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

if (EnabledMove10=true) thenButton=mbLeftbegin:=x;:=y;:=sPanel10.Left;

:=sPanel10.top;:=true;

(Sender as TsPanel) .BringToFront;:=false ;;; TFormLess16Lvl3.sPanel10MouseMove (Sender: TObject;

Shift: TShiftState; X, Y: Integer);

if dragTsPanel (Sender) do:=Left + x-x0;:=Top + y-y0; TFormLess16Lvl3.sPanel10MouseUp (Sender: TObject;

Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Overlay: Trect;

beginInterSectRect (Overlay, sPanel10.BoundsRect, sGroupBox5.BoundsRect) then.Left:=sGroupBox5.Left + 16; .Top:=sGroupBox5.Top + 224; (ResultZad1gb5 lt;=8) and (EnabledMove10 =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.sPanel5MouseDown (Sender: TObject ;

Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

if (EnabledMove5=true) thenButton=mbLeftbegin:=x;:=y;:=sPanel5.Left;:=sPanel5.top;:=true;

(Sender as TsPanel) .BringToFront;:=false ;;; TFormLess16Lvl3.sPanel5MouseMove (Sender: TObject;

Shift: TShiftState; X, Y: Integer);

if dragTsPanel (Sender) do:=Left + x-x0;:=Top + y-y0; TFormLess16Lvl3.sPanel5MouseUp (Sender: TObject;

Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Overlay: Trect;

beginInterSectRect (Overlay, sPanel5.BoundsRect, sGroupBox4.BoundsRect) then.Left:=sGroupBox4.Left + 16; .Top:=sGroupBox4.Top + 32; (ResultZad1gb4 lt;=2) and (EnabledMove5 =true) thengb4:=ResultZad1gb4 + 1 ;; (ResultZad1gb4 gt;=1) then.Visible:=true; gb5:=0;

srichedit1.Lines.Add ( Cлова жіночого роду вказані вірно: авеню );