Left Center Right Top 1 5 2 Middle

Left Center Right Top 1 5 2 Middle 8 9 6 7 3 Bottom 4 Left Top 1 0 0 2 Client. Width-1 0 3 Client. Width-1 Client. Height-1 4 0 Client. Height-1 5 (Client. Width-1)/2 0 6 Client. Width-1 (Client. Height-1)/2 7 (Client. Width-1)/2 Client. Height-1 8 0 (Client. Height-1)/2 9 (Client. Width-1)/2 (Client. Height-1)/2 Canvas->Move. To(Left, Top); Canvas->Line. To(Left, Top); Inheritance ﻟﻤﺎ ﻳﻜﻮﻥ ﻓﻲ ﻭﺭﺍﺛﺔ ﺍﻟﻤﻮﺭﻭﺙ ﻳﺎﺧﺪ ﺇﻻ ﻓﻲ ﺍﻟﺼﻔﺎﺕ ﺯﻱ ﻣﺎ ﻫﻴﺎ ﺑﺲ ﺧﻠﻲ Protected ﻳﺘﻘﻠﺐ Public ﺍﻟـ ﺑﺎﻟﻚ ﻟﻮ ﻫﻮﺍ ﻗﻠﺒﻮ ﺗﺎﻧﻲ ﺗﺤﻂ آﺨﺮ ﻗﻠﺒﺔ ﻣﻌﻤﻮﻟﺔ ﻗﺎﻧﻮﻥ ﺛﺎﺑﺖ ﻟﺮﺳﻢ ﺍﻱ ﻗﻄﻊ ﻧﺎﻗﺺ Canvas->Ellipse(X 1, Y 1, X 2, Y 2) ﻗﺎﻧﻮﻥ ﺛﺎﺑﺖ ﻟﺮﺳﻢ ﺍﻱ ﺩﺍﺋﺮﺓ Canvas-> Ellpse(Xcent-R, Ycent-R , Xcent+R, Ycent+R) Bitmap Declare it. . I Graphics: : TBitmap *Bitmap; Bitmap=new Graphics: : TBitmap; Draw Copy it. . ! ﺍﻟﻘﺎﻧﻮﻥ ﺍﻟﺘﺎﻟﻲ Diameter ﻳﻤﻜﻨﻚ ﺍﻥ ﺗﻌﺮﻑ ﻣﺎ ﻫﻮ ﺍﻟﻘﻄﺮ Canvas->Ellipse(20, 10, 50, 20) Horizontal Diameter =X 2 -X 1=50 -20. . HD=30; Vertical Diameter =Y 2 -Y 1=20 -10. . VD=10; Radius ﻭﺑﺎﻟﺘﺎﻟﻲ ﻓﺎﻥ ﻧﺼﻒ ﺍﻟﻘﻄﺮ HR=(X 2 -X 1)/2 VR=(Y 2 -Y 1)/2 Canvas->Draw(Left, Top, Bitmap. Object. Name) ﻗﻮﺍﻧﻴﻦ ﺍﻻﺭﺗﺪﺍﺩ Xcent=Xcent+Xmove; If(Xcent<=R || Xcent+R>=Client. Width-1) Xmove=-1*Xmove; Rectangle. Trect Rect; Ycent=Ycent+Ymove; If(Ycent<=R || Ycent+R>=Client. Height-1) Ymove=-1*Ymove; Save it ﺍﻟﺤﺎﻟﻲ Pixel ﻗﺎﻧﻮﻥ ﺍﻟﻮﺻﻮﻝ ﺍﻟﻰ ﻟﻮﻥ ﺍﻟـ Canvas->Pixels[X][Y] ﻗﺎﻧﻮﻥ ﺍﻧﻌﻜﺎﺱ ﺍﻟﺼﻮﺭﺓ for(x=0, x<=Image 1 ->Width-1, x=x+1) for(y=0, y<=Image 1 ->height-1, y=y+1) { Canvas->Pixels[x][y]=Image 1 ->Canvas-> Pixel[Image 1 ->Width-1 -x][y] ﻣﻦ ﺍﻟﻴﻤﻴﻦ ﻟﻠﻴﺴﺎﺭ Pixel[x][Image 1 ->Height-1 -y] ﻣﻦ ﺃﺴﻔﻞ ﻷﻌﻠﻰ } Stretch. Draw Canvas>Stretch. Draw(Rectangle. Object. Name, Bitmap. Object. N ame) Declaration Properties Top Left Right Bottom Controls Open. Picture. Dialog Methods Save. Picture. Dialog Savetofile Load. From. Fileit Zooming Xstart=Value; Ystart=Value; Xend=Value; Ystart=Value; XRatio=float(XEnd XStart)/Client. Width; YRatio = float(YEnd YStart)/Client. Height; for(x=0; x<Image 1 ->Width-1; x++) ﻟﺘﻐﻴﻴﺮ ﺍﻟﻠﻮﻥ for (I = 0; I < Client. Width; I = I + 1) for(y=0; y<Image 1 ->Height-1; y++) for (J = 0; J < Client. Height; J = J + 1) switch(Image 1 ->Canvas->Pixels[x][y]) Canvas->Pixels[I][J] { = Image 1 ->Canvas->Pixels[XStart + I * case cl. Red: Image 1 ->Canvas-> Pixels[x][y]=cl. Blue; break; Xratio] [YStart + J * YRatio]; }