Interface update
This commit is contained in:
Michał Jurgo
parent
838c132a74
commit
636dd5f512
Binary file not shown.
Binary file not shown.
BIN
interface/Project2.tds
Normal file
BIN
interface/Project2.tds
Normal file
Binary file not shown.
66
interface/ProjektCrane.cpp
Normal file
66
interface/ProjektCrane.cpp
Normal file
@ -0,0 +1,66 @@
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
#include <vcl.h>
|
||||
#include <iostream.h>
|
||||
#include <fstream.h>
|
||||
#include <String>
|
||||
#include <windows.h>
|
||||
#include "ProjektCrane.h"
|
||||
//---------------------------------------------------------------------------
|
||||
#pragma package(smart_init)
|
||||
#pragma resource "*.dfm"
|
||||
TForm1 *Form1;
|
||||
|
||||
//---------------------------------------------------------------------------
|
||||
__fastcall TForm1::TForm1(TComponent* Owner)
|
||||
: TForm(Owner)
|
||||
{
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
|
||||
void __fastcall TForm1::StringGrid1Click(TObject *Sender)
|
||||
{
|
||||
StringGrid1->Cells[0][1] = "1";
|
||||
StringGrid1->Cells[0][2] = "2";
|
||||
StringGrid1->Cells[0][3] = "3";
|
||||
StringGrid1->Cells[0][4] = "4";
|
||||
StringGrid1->Cells[0][5] = "5";
|
||||
StringGrid1->Cells[0][6] = "6";
|
||||
StringGrid1->Cells[0][7] = "7";
|
||||
StringGrid1->Cells[0][8] = "8";
|
||||
StringGrid1->Cells[0][9] = "9";
|
||||
StringGrid1->Cells[0][10] = "10";
|
||||
StringGrid1->Cells[1][0] = "A";
|
||||
StringGrid1->Cells[2][0] = "B";
|
||||
StringGrid1->Cells[3][0] = "C";
|
||||
StringGrid1->Cells[4][0] = "D";
|
||||
StringGrid1->Cells[5][0] = "E";
|
||||
StringGrid1->Cells[6][0] = "F";
|
||||
StringGrid1->Cells[7][0] = "G";
|
||||
StringGrid1->Cells[8][0] = "H";
|
||||
StringGrid1->Cells[9][0] = "I";
|
||||
StringGrid1->Cells[10][0] = "J";
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
void __fastcall TForm1::Button1Click(TObject *Sender)
|
||||
{
|
||||
String mystr = Edit1->Text;
|
||||
ofstream myfile;
|
||||
myfile.open("instructions.txt");
|
||||
myfile << mystr.c_str();
|
||||
myfile.close();
|
||||
Edit1->Clear();
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
void __fastcall TForm1::Button2Click(TObject *Sender)
|
||||
{
|
||||
Application->Terminate();
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
void __fastcall TForm1::Button3Click(TObject *Sender)
|
||||
{
|
||||
Application->Terminate();
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
97
interface/ProjektCrane.dfm
Normal file
97
interface/ProjektCrane.dfm
Normal file
@ -0,0 +1,97 @@
|
||||
object Form1: TForm1
|
||||
Left = 376
|
||||
Top = 142
|
||||
Width = 800
|
||||
Height = 600
|
||||
Caption = 'Form1'
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object Label1: TLabel
|
||||
Left = 296
|
||||
Top = 8
|
||||
Width = 187
|
||||
Height = 33
|
||||
Caption = 'Crane alpha 0.0.4'
|
||||
Font.Charset = EASTEUROPE_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -29
|
||||
Font.Name = 'Arial Narrow'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 256
|
||||
Top = 536
|
||||
Width = 268
|
||||
Height = 13
|
||||
Caption = 'Copyrights: Chlebzmaslem 2016-2017. All rights reserved.'
|
||||
end
|
||||
object StringGrid1: TStringGrid
|
||||
Left = 104
|
||||
Top = 64
|
||||
Width = 257
|
||||
Height = 257
|
||||
ColCount = 11
|
||||
DefaultColWidth = 22
|
||||
DefaultRowHeight = 22
|
||||
RowCount = 11
|
||||
TabOrder = 0
|
||||
OnClick = StringGrid1Click
|
||||
end
|
||||
object RadioGroup1: TRadioGroup
|
||||
Left = 448
|
||||
Top = 64
|
||||
Width = 217
|
||||
Height = 257
|
||||
Caption = 'Storage Data:'
|
||||
TabOrder = 1
|
||||
end
|
||||
object ScrollBox1: TScrollBox
|
||||
Left = 104
|
||||
Top = 328
|
||||
Width = 561
|
||||
Height = 65
|
||||
TabOrder = 2
|
||||
end
|
||||
object Edit1: TEdit
|
||||
Left = 104
|
||||
Top = 392
|
||||
Width = 561
|
||||
Height = 21
|
||||
TabOrder = 3
|
||||
end
|
||||
object Button1: TButton
|
||||
Left = 560
|
||||
Top = 416
|
||||
Width = 105
|
||||
Height = 25
|
||||
Caption = 'Submit'
|
||||
TabOrder = 4
|
||||
OnClick = Button1Click
|
||||
end
|
||||
object Button2: TButton
|
||||
Left = 528
|
||||
Top = 472
|
||||
Width = 145
|
||||
Height = 41
|
||||
Caption = 'Save and exit'
|
||||
TabOrder = 5
|
||||
OnClick = Button2Click
|
||||
end
|
||||
object Button3: TButton
|
||||
Left = 104
|
||||
Top = 472
|
||||
Width = 145
|
||||
Height = 41
|
||||
Caption = 'Exit'
|
||||
TabOrder = 6
|
||||
OnClick = Button3Click
|
||||
end
|
||||
end
|
||||
36
interface/ProjektCrane.h
Normal file
36
interface/ProjektCrane.h
Normal file
@ -0,0 +1,36 @@
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
#ifndef ProjektCraneH
|
||||
#define ProjektCraneH
|
||||
//---------------------------------------------------------------------------
|
||||
#include <Classes.hpp>
|
||||
#include <Controls.hpp>
|
||||
#include <StdCtrls.hpp>
|
||||
#include <Forms.hpp>
|
||||
#include <ExtCtrls.hpp>
|
||||
#include <Grids.hpp>
|
||||
//---------------------------------------------------------------------------
|
||||
class TForm1 : public TForm
|
||||
{
|
||||
__published: // IDE-managed Components
|
||||
TLabel *Label1;
|
||||
TLabel *Label2;
|
||||
TStringGrid *StringGrid1;
|
||||
TRadioGroup *RadioGroup1;
|
||||
TScrollBox *ScrollBox1;
|
||||
TEdit *Edit1;
|
||||
TButton *Button1;
|
||||
TButton *Button2;
|
||||
TButton *Button3;
|
||||
void __fastcall StringGrid1Click(TObject *Sender);
|
||||
void __fastcall Button1Click(TObject *Sender);
|
||||
void __fastcall Button2Click(TObject *Sender);
|
||||
void __fastcall Button3Click(TObject *Sender);
|
||||
private: // User declarations
|
||||
public: // User declarations
|
||||
__fastcall TForm1(TComponent* Owner);
|
||||
};
|
||||
//---------------------------------------------------------------------------
|
||||
extern PACKAGE TForm1 *Form1;
|
||||
//---------------------------------------------------------------------------
|
||||
#endif
|
||||
BIN
interface/ProjektCrane.obj
Normal file
BIN
interface/ProjektCrane.obj
Normal file
Binary file not shown.
73
interface/ProjektCrane.~cpp
Normal file
73
interface/ProjektCrane.~cpp
Normal file
@ -0,0 +1,73 @@
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
#include <vcl.h>
|
||||
#pragma hdrstop
|
||||
#include <iostream.h>
|
||||
#include <fstream.h>
|
||||
#include <String>
|
||||
#include <windows.h>
|
||||
#include "ProjektCrane.h"
|
||||
//---------------------------------------------------------------------------
|
||||
#pragma package(smart_init)
|
||||
#pragma resource "*.dfm"
|
||||
TForm1 *Form1;
|
||||
|
||||
|
||||
int writefile(String A)
|
||||
{
|
||||
ofstream myfile;
|
||||
myfile.open("example.txt");
|
||||
myfile << A;
|
||||
myfile.close();
|
||||
return 0;
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
__fastcall TForm1::TForm1(TComponent* Owner)
|
||||
: TForm(Owner)
|
||||
{
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
|
||||
void __fastcall TForm1::StringGrid1Click(TObject *Sender)
|
||||
{
|
||||
StringGrid1->Cells[0][1] = "1";
|
||||
StringGrid1->Cells[0][2] = "2";
|
||||
StringGrid1->Cells[0][3] = "3";
|
||||
StringGrid1->Cells[0][4] = "4";
|
||||
StringGrid1->Cells[0][5] = "5";
|
||||
StringGrid1->Cells[0][6] = "6";
|
||||
StringGrid1->Cells[0][7] = "7";
|
||||
StringGrid1->Cells[0][8] = "8";
|
||||
StringGrid1->Cells[0][9] = "9";
|
||||
StringGrid1->Cells[0][10] = "10";
|
||||
StringGrid1->Cells[1][0] = "A";
|
||||
StringGrid1->Cells[2][0] = "B";
|
||||
StringGrid1->Cells[3][0] = "C";
|
||||
StringGrid1->Cells[4][0] = "D";
|
||||
StringGrid1->Cells[5][0] = "E";
|
||||
StringGrid1->Cells[6][0] = "F";
|
||||
StringGrid1->Cells[7][0] = "G";
|
||||
StringGrid1->Cells[8][0] = "H";
|
||||
StringGrid1->Cells[9][0] = "I";
|
||||
StringGrid1->Cells[10][0] = "J";
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
void __fastcall TForm1::Button1Click(TObject *Sender)
|
||||
{
|
||||
String mystr = Edit1
|
||||
writefile(mystr);
|
||||
Edit1->Clear();
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
void __fastcall TForm1::Button2Click(TObject *Sender)
|
||||
{
|
||||
Application->Terminate();
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
void __fastcall TForm1::Button3Click(TObject *Sender)
|
||||
{
|
||||
Application->Terminate();
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
97
interface/ProjektCrane.~dfm
Normal file
97
interface/ProjektCrane.~dfm
Normal file
@ -0,0 +1,97 @@
|
||||
object Form1: TForm1
|
||||
Left = 376
|
||||
Top = 142
|
||||
Width = 800
|
||||
Height = 600
|
||||
Caption = 'Form1'
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object Label1: TLabel
|
||||
Left = 296
|
||||
Top = 8
|
||||
Width = 187
|
||||
Height = 33
|
||||
Caption = 'Crane alpha 0.0.4'
|
||||
Font.Charset = EASTEUROPE_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -29
|
||||
Font.Name = 'Arial Narrow'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 256
|
||||
Top = 536
|
||||
Width = 268
|
||||
Height = 13
|
||||
Caption = 'Copyrights: Chlebzmaslem 2016-2017. All rights reserved.'
|
||||
end
|
||||
object StringGrid1: TStringGrid
|
||||
Left = 104
|
||||
Top = 64
|
||||
Width = 257
|
||||
Height = 257
|
||||
ColCount = 11
|
||||
DefaultColWidth = 22
|
||||
DefaultRowHeight = 22
|
||||
RowCount = 11
|
||||
TabOrder = 0
|
||||
OnClick = StringGrid1Click
|
||||
end
|
||||
object RadioGroup1: TRadioGroup
|
||||
Left = 448
|
||||
Top = 64
|
||||
Width = 217
|
||||
Height = 257
|
||||
Caption = 'Storage Data:'
|
||||
TabOrder = 1
|
||||
end
|
||||
object ScrollBox1: TScrollBox
|
||||
Left = 104
|
||||
Top = 328
|
||||
Width = 561
|
||||
Height = 65
|
||||
TabOrder = 2
|
||||
end
|
||||
object Edit1: TEdit
|
||||
Left = 104
|
||||
Top = 392
|
||||
Width = 561
|
||||
Height = 21
|
||||
TabOrder = 3
|
||||
end
|
||||
object Button1: TButton
|
||||
Left = 560
|
||||
Top = 416
|
||||
Width = 105
|
||||
Height = 25
|
||||
Caption = 'Submit'
|
||||
TabOrder = 4
|
||||
OnClick = Button1Click
|
||||
end
|
||||
object Button2: TButton
|
||||
Left = 528
|
||||
Top = 472
|
||||
Width = 145
|
||||
Height = 41
|
||||
Caption = 'Save and exit'
|
||||
TabOrder = 5
|
||||
OnClick = Button2Click
|
||||
end
|
||||
object Button3: TButton
|
||||
Left = 104
|
||||
Top = 472
|
||||
Width = 145
|
||||
Height = 41
|
||||
Caption = 'Exit'
|
||||
TabOrder = 6
|
||||
OnClick = Button3Click
|
||||
end
|
||||
end
|
||||
36
interface/ProjektCrane.~h
Normal file
36
interface/ProjektCrane.~h
Normal file
@ -0,0 +1,36 @@
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
#ifndef ProjektCraneH
|
||||
#define ProjektCraneH
|
||||
//---------------------------------------------------------------------------
|
||||
#include <Classes.hpp>
|
||||
#include <Controls.hpp>
|
||||
#include <StdCtrls.hpp>
|
||||
#include <Forms.hpp>
|
||||
#include <ExtCtrls.hpp>
|
||||
#include <Grids.hpp>
|
||||
//---------------------------------------------------------------------------
|
||||
class TForm1 : public TForm
|
||||
{
|
||||
__published: // IDE-managed Components
|
||||
TLabel *Label1;
|
||||
TLabel *Label2;
|
||||
TStringGrid *StringGrid1;
|
||||
TRadioGroup *RadioGroup1;
|
||||
TScrollBox *ScrollBox1;
|
||||
TEdit *Edit1;
|
||||
TButton *Button1;
|
||||
TButton *Button2;
|
||||
TButton *Button3;
|
||||
void __fastcall StringGrid1Click(TObject *Sender);
|
||||
void __fastcall Button1Click(TObject *Sender);
|
||||
void __fastcall Button2Click(TObject *Sender);
|
||||
void __fastcall Button3Click(TObject *Sender);
|
||||
private: // User declarations
|
||||
public: // User declarations
|
||||
__fastcall TForm1(TComponent* Owner);
|
||||
};
|
||||
//---------------------------------------------------------------------------
|
||||
extern PACKAGE TForm1 *Form1;
|
||||
//---------------------------------------------------------------------------
|
||||
#endif
|
||||
1
interface/instructions.txt
Normal file
1
interface/instructions.txt
Normal file
@ -0,0 +1 @@
|
||||
I want you to go to A4
|
||||
Loading…
Reference in New Issue
Block a user