Page 40 - 6370
P. 40

Рисунок 26 – Координатна сітка « потовщала і
                                       почервоніла»

               17.   Доповнюють       опрацювання      події    Button5Click
               фрагментом  підкреслоного  нижче  коду,  що  надаватиме
               можливість     користувачеві        власноруч     виставляти
               координати  червоних потовщених обмежувальних ліній.

               procedure              TForm2.Button5Click(Sender:
               TObject);
               begin

                    x1:= SpinEdit1.Value;
                    y1:= SpinEdit2.Value;

                    x2:= SpinEdit3.Value;
                    y2:= SpinEdit4.Value;

                  figura2_show (form2,x1,y1,x2,y2);
               end;



                                             42
   35   36   37   38   39   40   41   42   43   44   45