Unnamed

void TForm1::grafiko_skale(){// for (int i=1;i<=10;i++)//  {//Image2->Canvas->MoveTo()//  }Image2->Width= wh;Image2->Height = ih;// Image2->Canvas->MoveTo(wh,0);// Image2->Canvas->LineTo(wh,ih*2);Image2->Canvas->Pen->Color = clBlack;Image2->Canvas->MoveTo(wh/2,0);Image2->Canvas->LineTo(wh/2,ih);Image2->Canvas->MoveTo(0,ih/2);Image2->Canvas->LineTo(wh,ih/2);Image2->Canvas->Font->Color = clGray;//X-asis  -for (double i=0;i <= wh/2;i=i+wh/10){Image2->Canvas->TextOutA(wh/2-i,ih/2+10,FloatToStr(i*-1));}//X-asis   +for (double i=0;i <= wh/2;i=i+wh/10){Image2->Canvas->TextOutA(wh/2+i,ih/2+10,FloatToStr(i));}//Y-asis//X-asis  -for (double i=0;i <= ih/2;i=i+ih/10){Image2->Canvas->TextOutA(wh/2-20,ih/2-i,FloatToStr(i*-1));}//X-asis   +for (double i=0;i <= ih/2;i=i+ih/10){Image2->Canvas->TextOutA(wh/2-20,ih/2+i,FloatToStr(i));}Image1->Picture = Image2->Picture;}