C++ Builder [Linker Error] Unresolved external '_Form1'

[mosvladislav]

При попытке скомпилировать программу, появляется ошибка
[Linker Error] Unresolved external '_Form1' referenced from C:\USERS\MOS\DESKTOP\grafika\PROJEC T2.OBJ
[Linker Error] Unresolved external 'TForm1::' referenced from C:\USERS\MOS\DESKTOP\grafika\PROJEC T2.OBJ

Вот код программы
unit1.cpp

#include <vcl.h>
#include <math.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "sEdit"
#pragma link "sSpinEdit"
#pragma resource "*.dfm"
TForm1 *Form1;
int dir = 1;  // напрвление движение
long int color1 = RGB(255,255,0);  // цвет объекта
long int color2 = 0;
double scale = 1;  // масштаб объекта
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void TForm1::star_in_circle (TPoint center, int outer_radius, int inner_radius, int beam_count, double scale, TColor color1, double angle)
{
  Refresh();
 
  
  outer_radius *= scale;
  inner_radius *= scale;
 
 
  //Canvas->Pen->Color = color1;
  Canvas->Brush->Color = color1;
  Canvas->Ellipse(center.x - outer_radius, center.y - outer_radius, center.x + outer_radius + 1, center.y + outer_radius + 1);
 
  // переходим в "начальную точку" звезды
  Canvas->MoveTo(center.x+sin(angle)*outer_radius, center.y-cos(angle)*outer_radius);
  // рисуем лучи
  for (int i = 1; i <= beam_count; i++)
  {
    Canvas->LineTo(center.x+sin(angle+(i*2-1)*M_PI/beam_count)*inner_radius, center.y-cos(angle+(i*2-1)*M_PI/beam_count)*inner_radius);
    Canvas->LineTo(center.x+sin(angle+(i*2-3)*M_PI/beam_count)*inner_radius, center.y-cos(angle+(i*2-3)*M_PI/beam_count)*inner_radius);
    Canvas->MoveTo(center.x+sin(angle+(i*2-1)*M_PI/beam_count)*inner_radius, center.y-cos(angle+(i*2-1)*M_PI/beam_count)*inner_radius);
    Canvas->LineTo(center.x+sin(angle+i*2*M_PI/beam_count)*outer_radius, center.y-cos(angle+i*2*M_PI/beam_count)*outer_radius);
  }
}
   
void __fastcall TForm1::Button1Click(TObject *Sender)
{
/*Tag = 0;
  Timer1->Tag = 0;
  dir = 1;
  color = 0;
  scale = StrToFloatDef(Edit4->Text, 1) / StrToFloatDef(Edit5->Text, 1);*/
  // скорость движения и масштаб
   //Timer1->Interval = sSpinEdit1->MaxValue - sSpinEdit1->Value + 1;
  //scale = StrToFloatDef(Edit4->Text, 1) / StrToFloatDef(Edit5->Text, 1);

  Timer1->Enabled = 1;

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
   // скорость движения и масштаб
   Timer1->Interval = sSpinEdit1->MaxValue - sSpinEdit1->Value + 1;
  scale = StrToFloatDef(Edit4->Text, 1) / StrToFloatDef(Edit5->Text, 1);

  //  радиусы и кол-во лучей
  int outer_radius = 90, inner_radius = 45, beam_count = 6;
  //  кординаты центра фигуры
  int x = Tag+outer_radius*scale, y = -100*sin(Tag*180./ClientWidth/15/M_PI)+ClientHeight-outer_radius*scale-1;

  // фигура строится вначале в левом нижнем углу, туда и возвращается
  star_in_circle(TPoint(x, y), outer_radius, inner_radius, beam_count, scale, TColor(RGB(color1*1, color1*15, color1*254)), Tag*180./M_PI/ClientWidth/50*sSpinEdit2->Value);

  // проверка на достижение фигурой границ формы
  if (((x+outer_radius*scale >= ClientWidth || y-outer_radius*scale <= 0 || y+outer_radius*scale >= ClientHeight) && dir > 0) || (x-outer_radius*scale <= 0 && dir < 0))
  {
    // меняем направление движения
    dir *= -1;
    Timer1->Enabled = 0;
    // задаем время, через которое фигура начнет двигаться в другую сторону
    Timer2->Interval = sSpinEdit3->Value*1000 + 1;
    Timer2->Enabled = 1;
  }

   // смещаем фигуру
  Tag += dir;
  //Timer1->Tag++;
  // изменяем цвет
  color1++;
 }
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer2Timer(TObject *Sender)
{
  Timer2->Enabled = 0;
  Timer1->Enabled = 1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Timer1->Enabled = 0;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
 Timer1->Enabled = 0;
}

unit1.h

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
#include <ExtCtrls.hpp>
#include "sEdit.hpp"
#include "sSpinEdit.hpp"
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE-managed Components
        TEdit *Edit4;
        TEdit *Edit5;
        TButton *Button1;
        TTimer *Timer1;
        TTimer *Timer2;
        TsSpinEdit *sSpinEdit1;
        TsSpinEdit *sSpinEdit2;
        TsSpinEdit *sSpinEdit3;
        TButton *Button2;
        TLabel *Label1;
        TLabel *Label2;
        TLabel *Label3;
        TLabel *Label4;
        TLabel *Label5;
        void __fastcall Button1Click(TObject *Sender);
        void __fastcall Timer1Timer(TObject *Sender);
        void __fastcall Timer2Timer(TObject *Sender);
        void __fastcall FormCreate(TObject *Sender);
        void __fastcall Button2Click(TObject *Sender);
private:	// User declarations
public:		// User declarations
        __fastcall TForm1(TComponent* Owner);
        void TForm1::star_in_circle (TPoint center, int outer_radius, int inner_radius, int beam_count, double scale, TColor color, double angle);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

[ura_111]

ПЕРЕЙДИ НА СТР.2

[mosvladislav]

Вот

[ura_111]

ПЕРЕЙДИ НА СТР.2

[ura_111]

ПЕРЕЙДИ НА СТР.2

[ura_111]

ПЕРЕЙДИ НА СТР.2

[ura_111]

ПЕРЕЙДИ НА СТР.2

[mosvladislav]

компоненты alpha controls. Пересоздал проект, все компилируются, но после сохранения и попытке скомпилировать, возникают те же ошибки

[ura_111]

ПЕРЕЙДИ НА СТР.2

[mosvladislav]

роцкер :D