Объектный подход реализации программных систем
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
=sdown then if (keybpos=-3) and (cell<=12) then(cell+4,cell);;(main1. image1. Canvas);;TMain1. Image1Click (Sender: TObject);,y,cell: integer;keyb=no then: =mouse. CursorPos. x-image1. left-main1. Left-4;
y: =mouse. CursorPos. y-image1. top-main1. top-30;: =x div 50;: =y div 50;
cell: =x*1+y*4+1;(pjat [cell-1] =0) and (cell>=2) and (cell=-3) and (cell<=12) then(cell+4,cell);;;TMain1. SwitchClick (Sender: TObject);(keyb=yes): =no;(image1. Canvas);: =yes;(image1. Canvas);;;TMain1. ExitClick (Sender: TObject);;;TMain1. FormPaint (Sender: TObject);. Caption: =pre. WholestepsText;keyb=nokeyb=yes;TMain1. FormKeyDown (Sender: TObject; var Key: Word;: TShiftState);keyb=yesKey of_down: direction (sdown);_left: direction (sleft);_up: direction (sup);_right: direction (sright);_space: direction (space);_TAB: SwitchClick (Sender);key of_TAB: SwitchClick (Sender);;;TMain1. SwitchMouseDown (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);. Visible: =False;. Visible: =True;;TMain1. SwitchMouseUp (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);. Visible: =True;. Visible: =False;;TMain1. ResetMouseDown (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);. Visible: =False;. Visible: =True;;TMain1. ResetMouseUp (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);. Visible: =True;. Visible: =False;;TMain1. ExitMouseDown (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);. Visible: =False;. Visible: =True;;TMain1. ExitMouseUp (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);. Visible: =True;. Visible: =False;;.