Analog Clock

استخدم Canvas للفورم او لاي مكون أخر ...

وضعت السؤال لكن ليس هناك اي محاولة او جزء من كود ...

إذا كان بدك حل كامل فالانترنت ملئ بأمثلة لما تريد ...

كيف ما حاولت

هذا الكود يلي كتبته

سلام

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "MainUnit.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    X = 150; Y = 150;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    Image1->Canvas->Refresh();
    Image1->Canvas->Rectangle( 0 , 0 , 300 , 300 );
    Image1->Canvas->Rectangle( 50 , 50 , 250 , 250 );
    Image1->Canvas->Ellipse( 50 , 50 , 250 , 250 );
    Image1->Canvas->Pixels [150][150] = clBlack;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    for ( int i = 0; i < 300; i+= 10 )
        for ( int j = 0; j < 300; j += 10 )
            Image1->Canvas->Pixels [j] = clRed;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    int H = 100; Image1->Canvas->Pen->Color = clGreen;

    Image1->Canvas->MoveTo( X , Y );
    Image1->Canvas->LineTo( X , Y - H );

    Image1->Canvas->MoveTo( X , Y );
    Image1->Canvas->LineTo( X + H , Y );

    Image1->Canvas->MoveTo( X , Y );
    Image1->Canvas->LineTo( X , Y + H );

    Image1->Canvas->MoveTo( X , Y );
    Image1->Canvas->LineTo( X - H , Y );

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
    int H = 100 , R = 30; Image1->Canvas->Pen->Color = clSkyBlue;

    Image1->Canvas->MoveTo( X , Y );
    Image1->Canvas->LineTo( X + H - R , Y - H + R );

    Image1->Canvas->MoveTo( X , Y );
    Image1->Canvas->LineTo( X + H - R , Y + H - R );

    Image1->Canvas->MoveTo( X , Y );
    Image1->Canvas->LineTo( X - H + R , Y + H - R );

    Image1->Canvas->MoveTo( X , Y );
    Image1->Canvas->LineTo( X - H + R , Y - H + R );
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
    int H = 100 , R = 10 , EX = 50;
    Image1->Canvas->Pen->Color = clLime;

    Image1->Canvas->MoveTo( X , Y );
    Image1->Canvas->LineTo( X + H - R - EX , Y - H + R );

    Image1->Canvas->MoveTo( X , Y );
    Image1->Canvas->LineTo( X + H - R , Y + H - R - EX );

    Image1->Canvas->MoveTo( X , Y );
    Image1->Canvas->LineTo( X - H + R + EX , Y + H - R );

    Image1->Canvas->MoveTo( X , Y );
    Image1->Canvas->LineTo( X - H + R , Y - H + R + EX );
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{
    int H = 100 , R = 10 , EY = 60;
    Image1->Canvas->Pen->Color = clSilver;

    Image1->Canvas->MoveTo( X , Y );
    Image1->Canvas->LineTo( X + H - R , Y - H + EY );

    Image1->Canvas->MoveTo( X , Y );
    Image1->Canvas->LineTo( X + H - EY , Y + H - R );

    Image1->Canvas->MoveTo( X , Y );
    Image1->Canvas->LineTo( X - H + R , Y + H - EY );

    Image1->Canvas->MoveTo( X , Y );
    Image1->Canvas->LineTo( X - H + EY , Y - H + R );
}
//---------------------------------------------------------------------------