U_main, .
Unit1.h
//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Menus.hpp>
#include <ExtCtrls.hpp>
//---------------------------------------------------------------------------
class TForm1: public TForm
{
__published: // IDE-managed Components
TImage *Image1;
TImage *Image2;
TLabel *Label1;
TImage *Image3;
TImage *Image4;
TImage *Image5;
TImage *Image6;
TImage *Image7;
TImage *Image8;
TImage *Image9;
TImage *Image10;
TImage *Image11;
TImage *Image12;
TImage *Image13;
TImage *Image14;
TImage *Image15;
TImage *Image16;
TImage *Image17;
TImage *Image18;
TImage *Image19;
TImage *Image20;
TImage *Image21;
TImage *Image22;
TImage *Image101;
TImage *Image102;
TImage *Image103;
TImage *Image104;
TImage *Image201;
TImage *Image202;
TImage *Image203;
TImage *Image301;
TImage *Image302;
TImage *Image303;
TImage *Image304;
TImage *Image305;
TImage *Image306;
TImage *Image307;
TImage *Image308;
TImage *Image309;
void __fastcall N2Click(TObject *Sender);
void __fastcall N3Click(TObject *Sender);
void __fastcall N7Click(TObject *Sender);
void __fastcall N8Click(TObject *Sender);
void __fastcall N9Click(TObject *Sender);
void __fastcall N10Click(TObject *Sender);
void __fastcall N12Click(TObject *Sender);
void __fastcall N13Click(TObject *Sender);
void __fastcall N14Click(TObject *Sender);
void __fastcall N15Click(TObject *Sender);
void __fastcall N16Click(TObject *Sender);
void __fastcall N6Click(TObject *Sender);
void __fastcall Image2MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y);
void __fastcall Image1MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y);
void __fastcall Image3MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y);
void __fastcall Image4MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y);
void __fastcall Image5MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y);
void __fastcall Image6MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y);
void __fastcall Image7MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y);
void __fastcall Image8MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y);
void __fastcall Image9MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y);
void __fastcall Image11MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y);
void __fastcall Image10MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y);
void __fastcall Image12MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y);
|
|
void __fastcall Image14MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y);
void __fastcall Image13MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y);
void __fastcall N17Click(TObject *Sender);
void __fastcall N18Click(TObject *Sender);
void __fastcall Image15MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y);
void __fastcall Image17MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y);
void __fastcall Image18MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y);
void __fastcall Image19MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y);
void __fastcall Image20MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y);
void __fastcall Image21MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y);
void __fastcall Image22MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y);
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
Unit1.cpp
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
DoubleBuffered=true;
Image16->Picture->LoadFromFile("Pict/Title.bmp");
//Label2->Caption=" 3";
//Label3->Caption=" ";
//Label4->Caption=" ";
//Label5->Caption=" ";
//Label6->Caption=" MainMenu";
//Label7->Caption=" ";
//Label8->Caption=" ";
//Label9->Caption=" ++ 2- ";
//Label10->Caption=" -91";
//Label11->Caption=" ϲ 2010";
//Form1->ShowModal();
}
/////////////////////////////////////////////////////////////////////////////
// .
/////////////////////////////////////////////////////////////////////////////
void __fastcall TForm1::N2Click(TObject *Sender)
{
Caption=" ";
//Image16->Visible=false;
//Label1->Visible=false;
//Label2->Visible=false;
//Label3->Visible=false;
//Label4->Visible=false;
//Label5->Visible=false;
//Label6->Visible=false;
//Label7->Visible=false;
//Label8->Visible=false;
//Label9->Visible=false;
//Label10->Visible=false;
//Label11->Visible=false;
//Image1->Picture->LoadFromFile("Pict/MemoPlan.bmp");
|
|
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N3Click(TObject *Sender)
{
Form2->Caption="";
Form2->RichEdit1->Lines->LoadFromFile("Text/Info.txt");
Form2->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N17Click(TObject *Sender)
{
Form2->Caption="";
Form2->RichEdit1->Lines->LoadFromFile("Text/Produse.txt");
Form2->ShowModal();
}
/////////////////////////////////////////////////////////////////////////////
// 1
/////////////////////////////////////////////////////////////////////////////
void __fastcall TForm1::N7Click(TObject *Sender)
{
Form3->Caption=": ";
Form3->Image1->Picture->LoadFromFile("Pict/Holodilnik.bmp");
Form3->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N8Click(TObject *Sender)
{
Form2->Caption=": ";
Form2->RichEdit1->Lines->LoadFromFile("Text/1_Holodilnik.txt");
Form2->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N9Click(TObject *Sender)
{
Form4->Caption=": 1";
Form4->Image1->Picture->LoadFromFile("Pict/Diagramm.bmp");
Form4->ShowModal();
}
/////////////////////////////////////////////////////////////////////////////
// 2
/////////////////////////////////////////////////////////////////////////////
void __fastcall TForm1::N10Click(TObject *Sender)
{
Form3->Caption=": ";
Form3->Image1->Picture->LoadFromFile("Pict/Tr.pech.bmp");
Form3->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N12Click(TObject *Sender)
{
Form2->Caption=": ";
Form2->RichEdit1->Lines->LoadFromFile("Text/2_Tr.pech.txt");
Form2->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N13Click(TObject *Sender)
{
Form4->Caption=": ";
Form4->Image1->Picture->LoadFromFile("Pict/Diagramm.bmp");
Form4->ShowModal();
}
/////////////////////////////////////////////////////////////////////////////
// 3
/////////////////////////////////////////////////////////////////////////////
void __fastcall TForm1::N14Click(TObject *Sender)
{
Form3->Caption=": ";
Form3->Image1->Picture->LoadFromFile("Pict/Stab.kolona.bmp");
Form3->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N15Click(TObject *Sender)
{
Form2->Caption=": ";
Form2->RichEdit1->Lines->LoadFromFile("Text/3_Stab.kolona.txt");
Form2->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N16Click(TObject *Sender)
{
Form4->Caption=": ";
Form4->Image1->Picture->LoadFromFile("Pict/Diagramm.bmp");
Form4->ShowModal();
}
/////////////////////////////////////////////////////////////////////////////
//
/////////////////////////////////////////////////////////////////////////////
|
|
/////////////////////////////////////////////////////////////////////////////
//
/////////////////////////////////////////////////////////////////////////////
void __fastcall TForm1::N6Click(TObject *Sender)
{
Form5->Caption=" ";
Form5->RichEdit1->Lines->LoadFromFile("Text/About_1.txt");
Form5->RichEdit2->Lines->LoadFromFile("Text/About_2.txt");
//Form5->Image1->Picture->LoadFromFile("Pict/Ava.bmp");
Form5->ShowModal();
}
/////////////////////////////////////////////////////////////////////////////
//
/////////////////////////////////////////////////////////////////////////////
void __fastcall TForm1::Image2MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
Label1->Caption="";
Image1->Picture->LoadFromFile("Pict/MemoPlan_16.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
Label1->Caption=" ";
Image1->Picture->LoadFromFile("Pict/MemoPlan.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image3MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
Label1->Caption="";
Image1->Picture->LoadFromFile("Pict/MemoPlan_11.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image4MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
Label1->Caption="";
Image1->Picture->LoadFromFile("Pict/MemoPlan_5.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image5MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
Label1->Caption="";
Image1->Picture->LoadFromFile("Pict/MemoPlan_10.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image6MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
Label1->Caption="";
Image1->Picture->LoadFromFile("Pict/MemoPlan_15.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image7MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
Label1->Caption=" ";
Image1->Picture->LoadFromFile("Pict/MemoPlan_17.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image8MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
Label1->Caption=" ";
Image1->Picture->LoadFromFile("Pict/MemoPlan_1.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image9MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
Label1->Caption=" ";
Image1->Picture->LoadFromFile("Pict/MemoPlan_2-4.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image11MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y)
{
Label1->Caption=" ";
|
|
Image1->Picture->LoadFromFile("Pict/MemoPlan_7.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image10MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y)
{
Label1->Caption="";
Image1->Picture->LoadFromFile("Pict/MemoPlan_6.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image12MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y)
{
Label1->Caption="44";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image14MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y)
{
Label1->Caption="";
Image1->Picture->LoadFromFile("Pict/MemoPlan_8.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image13MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y)
{
Label1->Caption=" "; \
Image1->Picture->LoadFromFile("Pict/MemoPlan_12.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image15MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y)
{
Label1->Caption="";
Image1->Picture->LoadFromFile("Pict/MemoPlan_13.bmp");
}
void __fastcall TForm1::N18Click(TObject *Sender)
{
Close();
}
void __fastcall TForm1::Image17MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y)
{
Label1->Caption=" ";
Image1->Picture->LoadFromFile("Pict/MemoPlan_9.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image18MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y)
{
Label1->Caption="";
Image1->Picture->LoadFromFile("Pict/MemoPlan_21.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image19MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y)
{
Label1->Caption="";
Image1->Picture->LoadFromFile("Pict/MemoPlan_20.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image20MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y)
{
Label1->Caption=" ";
Image1->Picture->LoadFromFile("Pict/MemoPlan_19.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image21MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y)
{
Label1->Caption=" ";
Image1->Picture->LoadFromFile("Pict/MemoPlan_18.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image22MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y)
{
Label1->Caption="";
Image1->Picture->LoadFromFile("Pict/MemoPlan_14.bmp");
}
//---------------------------------------------------------------------------
//////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////
//////////////////////////////////2///////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
int C_30=0; // ""
int C_31=0; // ""
int C_32=0; // ""
int C_34=0; // ""+" 1"
int C_35=0; // ""+" 2"
int C_36=0; // ""+" 3"
////////////////////////////////////////////////////////////////////////
////////// "" ////////////////////////////
////////////////////////////////////////////////////////////////////////
void __fastcall TForm1::Image101Click(TObject *Sender)
|
|
{
C_30=1; // ""
C_31=0;
C_32=0;
Image201->Visible=true;
Image202->Visible=true;
Image203->Visible=true;
Image201->Picture->LoadFromFile("Buttons/201-1.bmp");
Image202->Picture->LoadFromFile("Buttons/202-1.bmp");
Image203->Picture->LoadFromFile("Buttons/203-1.bmp");
Image301->Visible=false;
Image302->Visible=false; // 30-23 38-31
Image303->Visible=false; // 31-24 39-32
Image304->Visible=false; // 32-25 40-33
Image305->Visible=false; // 33-26 41-34
Image306->Visible=false; // 34-27 42-35
Image307->Visible=false; // 35-28 43-36
Image308->Visible=false; // 36-29 44-37
Image309->Visible=false; // 37-30 45-38
}
//---------------------------------------------------------------------------
////////////////////////////////////////////////////////////////////////
////////// "" ///////////////////////////////
////////////////////////////////////////////////////////////////////////
void __fastcall TForm1::Image102Click(TObject *Sender)
{
C_30=0;
C_31=1; // ""
C_32=0;
Image201->Visible=true;
Image202->Visible=true;
Image203->Visible=true;
Image201->Picture->LoadFromFile("Buttons/201-2.bmp");
Image202->Picture->LoadFromFile("Buttons/202-2.bmp");
Image203->Picture->LoadFromFile("Buttons/203-3.bmp");
Image301->Visible=false;
Image302->Visible=false;
Image303->Visible=false;
Image304->Visible=false;
Image305->Visible=false;
Image306->Visible=false;
Image307->Visible=false;
Image308->Visible=false;
Image309->Visible=false;
}
//---------------------------------------------------------------------------
////////////////////////////////////////////////////////////////////////
////////// "" ////////////////////////////
////////////////////////////////////////////////////////////////////////
void __fastcall TForm1::Image103Click(TObject *Sender)
{
C_30=0;
C_31=0;
C_32=1; // ""
Image201->Visible=true;
Image202->Visible=true;
Image203->Visible=false;
Image201->Picture->LoadFromFile("Buttons/201-3.bmp");
Image202->Picture->LoadFromFile("Buttons/202-3.bmp");
Image301->Visible=false;
Image302->Visible=false;
Image303->Visible=false;
Image304->Visible=false;
Image305->Visible=false;
Image306->Visible=false;
Image307->Visible=false;
Image308->Visible=false;
Image309->Visible=false;
}
//---------------------------------------------------------------------------
////////////////////////////////////////////////////////////////////////
////////// "" /////////////////////////////////
////////////////////////////////////////////////////////////////////////
void __fastcall TForm1::Image104Click(TObject *Sender)
{Close();}
//---------------------------------------------------------------------------
////////////////////////////////////////////////////////////////////////
////////// 1 //////////////////////////
////////////////////////////////////////////////////////////////////////
void __fastcall TForm1::Image201Click(TObject *Sender)
{
if(C_30==1) // "" - ""
{
Caption=" ";
Image1->Picture->LoadFromFile("Pict/MemoPlan.bmp");
Image16->Visible=false;
//Label2->Visible=false;
//Label3->Visible=false;
//Label4->Visible=false;
//Label5->Visible=false;
//Label6->Visible=false;
//Label7->Visible=false;
//Label8->Visible=false;
//Label9->Visible=false;
//Label10->Visible=false;
//Label11->Visible=false;
//Label12->Visible=false;
//Label13->Visible=false;
//Label14->Visible=false;
Image301->Visible=false;
Image302->Visible=false;
Image303->Visible=false;
Image304->Visible=false;
Image305->Visible=false;
Image306->Visible=false;
Image307->Visible=false;
Image308->Visible=false;
Image309->Visible=false;
}
else{};
if(C_31==1) // "" - "1"
{
C_34=1; // " 1"
C_35=0;
C_36=0;
Image301->Visible=true;
Image302->Visible=true;
Image303->Visible=true;
Image304->Visible=false;
Image305->Visible=false;
Image306->Visible=false;
Image307->Visible=false;
Image308->Visible=false;
Image309->Visible=false;
Image301->Picture->LoadFromFile("Buttons/301.bmp");
Image302->Picture->LoadFromFile("Buttons/302.bmp");
Image303->Picture->LoadFromFile("Buttons/303.bmp");
}
if(C_32==1){
Form2->Caption=" ";
Form2->RichEdit1->Lines->LoadFromFile("Text/Literature.txt");
Form2->ShowModal();
}
}
//---------------------------------------------------------------------------
////////////////////////////////////////////////////////////////////////
////////// 2 //////////////////////////
////////////////////////////////////////////////////////////////////////
void __fastcall TForm1::Image28Click(TObject *Sender)
{
if(C_30==1){
Form2->Caption="";
Form2->RichEdit1->Lines->LoadFromFile("Text/Info.txt");
Form2->ShowModal();
}
if(C_31==1){
C_34=0;
C_35=1; // " 2"
C_36=0;
Image301->Visible=false;
Image302->Visible=false;
Image303->Visible=false;
Image304->Visible=true;
Image305->Visible=true;
Image306->Visible=true;
Image307->Visible=false;
Image308->Visible=false;
Image309->Visible=false;
Image304->Picture->LoadFromFile("Buttons/301.bmp");
Image305->Picture->LoadFromFile("Buttons/302.bmp");
Image306->Picture->LoadFromFile("Buttons/303.bmp");
}
if(C_32==1){
Form5->Caption=" ";
Form5->RichEdit1->Lines->LoadFromFile("Text/About_1.txt");
Form5->RichEdit2->Lines->LoadFromFile("Text/About_2.txt");
Form5->Image1->Picture->LoadFromFile("Pict/Ava.bmp");
Form5->ShowModal();
}
}
//---------------------------------------------------------------------------
////////////////////////////////////////////////////////////////////////
////////// 3 //////////////////////////
////////////////////////////////////////////////////////////////////////
void __fastcall TForm1::Image203Click(TObject *Sender)
{
if(C_30==1){
Form2->Caption="";
Form2->RichEdit1->Lines->LoadFromFile("Text/Produse.txt");
Form2->ShowModal();
}
if(C_31==1){
C_34=0;
C_35=0;
C_36=1; // " 3"
Image301->Visible=false;
Image302->Visible=false;
Image303->Visible=false;
Image304->Visible=false;
Image305->Visible=false;
Image306->Visible=false;
Image307->Visible=true;
Image308->Visible=true;
Image309->Visible=true;
Image307->Picture->LoadFromFile("Buttons/301.bmp");
Image308->Picture->LoadFromFile("Buttons/302.bmp");
Image309->Picture->LoadFromFile("Buttons/303.bmp");
}
//if(C_32==1){
//Close();
//}
}
//---------------------------------------------------------------------------
/////////////////////////////////////////////////////////////////////////////
// 1
/////////////////////////////////////////////////////////////////////////////
void __fastcall TForm1::Image301Click(TObject *Sender)
{
if(C_34==1){
Form3->Caption=": ";
Form3->Image1->Picture->LoadFromFile("Pict/Holodilnik.bmp");
Form3->ShowModal();
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image302Click(TObject *Sender)
{
if(C_34==1){
Form2->Caption=": ";
Form2->RichEdit1->Lines->LoadFromFile("Text/1_Holodilnik.txt");
Form2->ShowModal();
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image303Click(TObject *Sender)
{
if(C_34==1){
Form4->Caption=": ";
Form4->Image1->Picture->LoadFromFile("Pict/Diagramm.bmp");
Form4->ShowModal();
}
}
//---------------------------------------------------------------------------
/////////////////////////////////////////////////////////////////////////////
// 2
/////////////////////////////////////////////////////////////////////////////
void __fastcall TForm1::Image304Click(TObject *Sender)
{
if(C_35==1){
Form3->Caption=": ";
Form3->Image1->Picture->LoadFromFile("Pict/Tr.pech.bmp");
Form3->ShowModal();
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image305Click(TObject *Sender)
{
if(C_35==1){
Form2->Caption=": ";
Form2->RichEdit1->Lines->LoadFromFile("Text/2_Tr.pech.rtf");
Form2->ShowModal();
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image306Click(TObject *Sender)
{
if(C_35==1){
Form4->Caption=": ";
Form4->Image1->Picture->LoadFromFile("Pict/Diagramm.bmp");
Form4->ShowModal();
}
}
//---------------------------------------------------------------------------
/////////////////////////////////////////////////////////////////////////////
// 3
/////////////////////////////////////////////////////////////////////////////
void __fastcall TForm1::Image307Click(TObject *Sender)
{
if(C_36==1){
Form3->Caption=": ";
Form3->Image1->Picture->LoadFromFile("Pict/Stab.kolona.bmp");
Form3->ShowModal();
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image308Click(TObject *Sender)
{
if(C_36==1){
Form2->Caption=": ";
Form2->RichEdit1->Lines->LoadFromFile("Text/3_Stab.kolona.rtf");
Form2->ShowModal();
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image309Click(TObject *Sender)
{
if(C_36==1){
Form4->Caption=": ";
Form4->Image1->Picture->LoadFromFile("Pict/Diagramm.bmp");
Form4->ShowModal();
}
}
//---------------------------------------------------------------------------
Unit5.h
//---------------------------------------------------------------------------
#ifndef Unit5H
#define Unit5H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Chart.hpp>
#include <ExtCtrls.hpp>
#include <Series.hpp>
#include <TeEngine.hpp>
#include <TeeProcs.hpp>
//---------------------------------------------------------------------------
class TForm5: public TForm
{
__published: // IDE-managed Components
TChart *Chart1;
TChart *Chart2;
TFastLineSeries *Series2;
TFastLineSeries *Series1;
TChart *Chart3;
TFastLineSeries *Series3;
void __fastcall FormCreate(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm5(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm5 *Form5;
//---------------------------------------------------------------------------
#endif
Unit5.cpp
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit5.h"
#include "Math.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm5 *Form5;
//---------------------------------------------------------------------------
__fastcall TForm5::TForm5(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm5::FormCreate(TObject *Sender)
{
for (int i=0; i<=25; i++)
{
Series1->Add(200+(sin(i)*(2.7*i))/(sin(2*i*i)+10),i,clRed);
Series2->Add(((2.7*i)/(sin(2*i*i)+10))*10, i,clRed);
Series3->Add(0.1,i,clRed);
}
}
//---------------------------------------------------------------------------
Unit6.h
//---------------------------------------------------------------------------
#ifndef Unit6H
#define Unit6H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Chart.hpp>
#include <ExtCtrls.hpp>
#include <Series.hpp>
#include <TeEngine.hpp>
#include <TeeProcs.hpp>
//---------------------------------------------------------------------------
class TForm6: public TForm
{
__published: // IDE-managed Components
TChart *Chart1;
TFastLineSeries *Series1;
TChart *Chart2;
TFastLineSeries *Series2;
TChart *Chart3;
TLineSeries *Series3;
void __fastcall FormCreate(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm6(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm6 *Form6;
//---------------------------------------------------------------------------
#endif
Unit6.cpp
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit6.h"
#include "Math.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm6 *Form6;
//---------------------------------------------------------------------------
__fastcall TForm6::TForm6(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm6::FormCreate(TObject *Sender)
{
for (int i=0; i<=10; i++)
{
Series1->AddXY(i+sin(i),13*i*i,"",clRed);
Series2->AddXY(14*i+25*i*sin(i), cos(i)*i*i*i+15*i,"",clRed);
}
}
Unit7.h
//---------------------------------------------------------------------------
#ifndef Unit7H
#define Unit7H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Chart.hpp>
#include <ExtCtrls.hpp>
#include <Series.hpp>
#include <TeEngine.hpp>
#include <TeeProcs.hpp>
//---------------------------------------------------------------------------
class TForm7: public TForm
{
__published: // IDE-managed Components
TChart *Chart1;
TFastLineSeries *Series1;
TChart *Chart2;
TFastLineSeries *Series2;
TChart *Chart3;
TLineSeries *Series3;
void __fastcall FormCreate(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm7(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm7 *Form7;
//---------------------------------------------------------------------------
#endif
Unit7.cpp
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit7.h"
#include "Math.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm7 *Form7;
//---------------------------------------------------------------------------
__fastcall TForm7::TForm7(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm7::FormCreate(TObject *Sender)
{
for (int i=0; i<=10; i++)
{
Series1->AddXY(i+tan(i),13*i*i,"",clRed);
Series2->AddXY(13*i+25*tan(i), exp(i)*i*i+15*i,"",clRed);
}
}
//---------------------------------------------------------------------------
Unit8.h
//---------------------------------------------------------------------------
#ifndef Unit8H
#define Unit8H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm8: public TForm
{
__published: // IDE-managed Components
TButton *Button1;
TButton *Button2;
TLabel *Label1;
void __fastcall Button1Click(TObject *Sender);
void __fastcall Button2Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm8(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm8 *Form8;
//---------------------------------------------------------------------------
#endif
Unit8.cpp
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit8.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm8 *Form8;
//---------------------------------------------------------------------------
__fastcall TForm8::TForm8(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm8::Button1Click(TObject *Sender)
{
Form1->Close();
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm8::Button2Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
˳:
1. . . .
2. . .
3. . . .
4. . . .
5. . . .
6. .. ++ builder 6. 2- . -, 2005
++
++