48490 (Работа со списками), страница 3
Описание файла
Документ из архива "Работа со списками", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.
Онлайн просмотр документа "48490"
Текст 3 страницы из документа "48490"
p->next->next=NULL;
p->inf=value;
p->name=name;
p=p->next;
}//end function
int count(){
int i=0;
p=top;
while (p->next!=NULL){
i++;
p=p->next;
}//end while
return(i);
}//end queue count
};//end queue class
//==========================================
//4. CLASS LINE
//==========================================
class Tline {
public:
point p1,p2;
TColor color;
bool secondary;
Tline(){color=0;secondary=0;}
~Tline(){}
void setline(point p1,point p2,long int col,bool sec);
point cut(float k);
};//end line class
//------------------------------------------
point Tline::cut(float k){
point p;
p.x=p1.x+k*(p2.x-p1.x);
p.y=p1.y+k*(p2.y-p1.y);
return(p);
}//end function
void Tline::setline(point Point1,point Point2,long int col,bool sec){
p1.x=Point1.x;p1.y=Point1.y;
p2.x=Point2.x;p2.y=Point2.y;
color=col;secondary=sec;
}//end function
//==========================================
//5. CLASS Bezie Curve
//==========================================
class BCurve {
protected:
bool show_secondary;
public:
TColor color;
AnsiString Name;
TColor scol;
float k;
Tline l1,l2;
BCurve(){}
queue Create(float,Tline,Tline,TColor,TColor,bool,AnsiString);
queue Load();
};//end BCurve Class
queue BCurve::Create(float koef,Tline line1,Tline line2,TColor col, TColor colsec, bool sec, AnsiString NameOfCurve)
{
queue L;
point p1,p2;
Tline l;
k=koef; l1=line1,l2=line2;color=col;show_secondary=sec;scol=colsec;
l1.secondary=true;l2.secondary=true;l1.color=colsec;l2.color=colsec;Name=NameOfCurve;
if (show_secondary) {L.add(l1,Name);L.add(l2,Name);}
while (!(l.p1.x==l.p2.x && l.p1.y==l.p2.y)){
p1=l1.cut(k);p2=l2.cut(k);
l.setline(p1,p2,colsec,1);
if (show_secondary) L.add(l,Name);
l2.p1=p2;p2=l.cut(k);p1=l1.p1;
l.setline(p1,p2,color,0);L.add(l,Name);
l1.p1=p2;l1.p2=l2.p1;
}//end while
return (L);
}//end function
queue BCurve::Load(){
return(this->Create(k,l1,l2,color,scol,show_secondary,Name));
}//end function
class TRectangle {
public:
queue Create(int x1,int y1,int x2,int y2,TColor col);
};//end rectangle class
queue TRectangle::Create(int x1,int y1,int x2,int y2,TColor col){
queue Lines;
Tline l1;
l1.p1.x=x1;l1.p1.y=y1;l1.p2.x=x2;l1.p2.y=y1;l1.color=col;l1.secondary=false;
Lines.add(l1,"Rectangle");
l1.p1.x=x2;l1.p1.y=y1;l1.p2.x=x2;l1.p2.y=y2;l1.color=col;l1.secondary=false;
Lines.add(l1,"Rectangle");
l1.p1.x=x2;l1.p1.y=y2;l1.p2.x=x1;l1.p2.y=y2;l1.color=col;l1.secondary=false;
Lines.add(l1,"Rectangle");
l1.p1.x=x1;l1.p1.y=y2;l1.p2.x=x1;l1.p2.y=y1;l1.color=col;l1.secondary=false;
Lines.add(l1,"Rectangle");
return (Lines);
}//end function
//=========
//Переменные
queue LineBufer;
int n=0;
Tline l1,l2;
queue Objects;
//=========
//---------------------------------------------------------------------------
__fastcall TfrmMain::TfrmMain(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void LoadLines(bool sec){
Tline l1;
int checkedItem=frmMain->ListBox1->ItemIndex;
frmMain->ListBox1->Clear();
frmMain->lstObjects->Clear();
for (int i=1;i<=LineBufer.count();i++){
l1=LineBufer.getvalue(i);
frmMain->lblPicture->Canvas->Pen->Color=l1.color;
if ((sec && l1.secondary)||!l1.secondary){
if (l1.secondary) frmMain->lblPicture->Canvas->Pen->Style=2; else frmMain->lblPicture->Canvas->Pen->Style=0;
frmMain->lblPicture->Canvas->MoveTo(l1.p1.x,l1.p1.y);
frmMain->lblPicture->Canvas->LineTo(l1.p2.x,l1.p2.y);
}//end if
frmMain->ListBox1->Items->Add(IntToStr(l1.p1.x)+";"+IntToStr(l1.p1.y)+" - "+IntToStr(l1.p2.x)+";"+IntToStr(l1.p2.y));
}//next i
frmMain->ListBox1->ItemIndex=checkedItem;
for (int i=1;i<=Objects.count();i++){
if (Objects.getvalue(i)==1)frmMain->lstObjects->Items->Add("Line (1 lines)"); else
if (Objects.getvalue(i)==4)frmMain->lstObjects->Items->Add("Rectangle (4 lines)"); else
frmMain->lstObjects->Items->Add("Bezie Curve ("+IntToStr(Objects.getvalue(i))+" lines)");
}//next i
}//end function
//---------------------------------------------------------------------------
void __fastcall TfrmMain::lblPictureMouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
if (cboObject->Text=="Кривая Безье"){
n++;
if (n==1) {l1.p1.x=X;l1.p1.y=Y;}
if (n==2) {l1.p2.x=X;l1.p2.y=Y;l2.p1.x=X;l2.p1.y=Y;}
if (n==3) {
BCurve CurveBufer;
queue Lines;
int firstNumber=0;
l2.p2.x=X;l2.p2.y=Y;
Lines=CurveBufer.Create(0.25,l1,l2,clbColor->Selected,clbSecond->Selected,1,"Bezie");
n=0;
firstNumber=LineBufer.count();
for (int i=0;i<=Lines.count();i++) LineBufer.add(Lines.getvalue(i),"Bezie");
LoadLines(chkSecondary->Checked);
firstNumber=LineBufer.count()-firstNumber;
Objects.add(firstNumber,"Bezie");
lstObjects->Items->Add("Bezie Curve ("+IntToStr(firstNumber)+" lines)");
}//end if n==3
}//end if Curve
if (cboObject->Text=="Линия"){
n++;
frmMain->Canvas->Pen->Color=clbColor->Selected;
if (n==1) {l1.p1.x=X;l1.p1.y=Y;}
if (n==2) {
l1.p2.x=X;l1.p2.y=Y;
LineBufer.add(l1,"");
Objects.add(1,"Line");
LoadLines(chkSecondary->Checked);
n=0;
}//end if n==2
}//End if Line
if (cboObject->Text=="Прямоугольник"){
n++;
queue Lines;
TRectangle Rect;
if (n==1) {l1.p1.x=X;l1.p1.y=Y;}
if (n==2) {
l1.p2.x=X;l1.p2.y=Y;
Lines=Rect.Create(l1.p1.x,l1.p1.y,l1.p2.x,l1.p2.y,clbColor->Selected);
for (int i=0;i<=Lines.count();i++) LineBufer.add(Lines.getvalue(i),"");
Objects.add(4,"Rectangle");
LoadLines(chkSecondary->Checked);
n=0;
}//end if n==2;
}//end if rectangle;
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::chkSecondaryClick(TObject *Sender)
{
frmMain->lblPicture->Refresh();
LoadLines(chkSecondary->Checked);
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::clbColorChange(TObject *Sender)
{
Tline l1;
int begin=0;
for (int i=0;iItemIndex;i++)begin+=Objects.getvalue(i);
for (int i=begin;iItemIndex+1);i++){
l1=LineBufer.getvalue(i);
if (!l1.secondary){
l1.color=clbColor->Selected;
LineBufer.change(i,l1);
}//end if
}//next i
LoadLines(chkSecondary->Checked);
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::clbSecondChange(TObject *Sender)
{
Tline l1;
int begin=0;
for (int i=0;iItemIndex;i++)begin+=Objects.getvalue(i);
for (int i=begin;iItemIndex+1);i++){
l1=LineBufer.getvalue(i);
if (l1.secondary){
l1.color=clbSecond->Selected;
LineBufer.change(i,l1);
}//end if
}//next i
LoadLines(chkSecondary->Checked);
}
//---------------------------------------------------------------------------
int WhichObject (int number) {
int object=0;
int i=0;
while (i if (object==0) object=1; return (object); }//end function //--------------------------------------------------------------------------- void __fastcall TfrmMain::ListBox1Click(TObject *Sender) { Tline l1; l1=LineBufer.getvalue(ListBox1->ItemIndex+1); frmMain->lblPicture->Refresh(); LoadLines(chkSecondary->Checked); for (int i=2;i>0;i--){ frmMain->lblPicture->Canvas->Pen->Color=clbSelect->Selected; frmMain->lblPicture->Canvas->Ellipse(l1.p1.x-i,l1.p1.y-i,l1.p1.x+i,l1.p1.y+i); frmMain->lblPicture->Canvas->Ellipse(l1.p2.x-i,l1.p2.y-i,l1.p2.x+i,l1.p2.y+i); frmMain->lblPicture->Canvas->MoveTo(l1.p1.x,l1.p1.y); frmMain->lblPicture->Canvas->LineTo(l1.p2.x,l1.p2.y); }//next } //--------------------------------------------------------------------------- void __fastcall TfrmMain::ListBox1KeyDown(TObject *Sender, WORD &Key, TShiftState Shift) { if (Key==46){ int object=WhichObject(ListBox1->ItemIndex+1); frmMain->lblPicture->Refresh(); int z=ListBox1->ItemIndex; LineBufer.remove(ListBox1->ItemIndex+1);ListBox1->Items->Delete(ListBox1->ItemIndex); ListBox1->ItemIndex=z; Objects.change(object,Objects.getvalue(object)-1); if (Objects.getvalue(object)==0) {Objects.remove(object);lstObjects->Items->Delete(object-1);} LoadLines(chkSecondary->Checked); }//end if } //--------------------------------------------------------------------------- void __fastcall TfrmMain::lstObjectsClick(TObject *Sender) { int begin=0; for (int i=0;iItemIndex;i++)begin+=Objects.getvalue(i); ListBox1->ItemIndex=begin; } //--------------------------------------------------------------------------- void __fastcall TfrmMain::lblPictureMouseMove(TObject *Sender, TShiftState Shift, int X, int Y) { lblCoords->Caption=IntToStr(X)+"; "+IntToStr(Y); } //---------------------------------------------------------------------------
