Projekt całościowy – C++
Projekt: całościowy przedstawiający aplikację uniwersalną. Możliwości aplikacji (podprogramy w niej zawarte):
Obliczenia:
1. Kalkulator – zawierający podstawowy oraz drugi naukowy możliwy do włączenia poprzez pasek narzędzi
Podstawowy:
- dodawanie,
- odejmowanie,
- mnożenie,
- dzielenie.
Naukowy:
- wszystko co w podstawowym,
- pierwiastki,
- potęgi,
- logarytm naturalny,
- logarytm o podstawie 10,
- silnię,
- modulo (reszta z dzielenia),
- abs (wartość bezwzględna),
- funkcje trygonometryczne korzystając ze stopni jak i radianów.
2. Arkusz kalkulacyjny
- losowanie wartości arkusza,
- sumowanie wartości,
- czyszczenie,
- sortowanie wartości wg kolumn, wierszy jak i całościowe.
3. Arkusz kalkulacyjny 2
- możliwości poprzedniego podprogramu,
- możliwość zapamiętania danych jak i wczytania po czyszczeniu,
- czyszczenie kolumn jak i wierszy.
Pliki:
4. Memo
- możliwość otwarcia pliku tekstowego,
- możliwość zapisu pliku tekstowego,
- możliwość utworzenia nowego pliku,
- zmianę czcionki okienka
- zmianę tła okienka,
- zmianę koloru czcionki,
- kopiowanie tekstu,
- wycięcie tekstu,
- wklejenie tekstu,
- usunięcie wyznaczonego wiersza,
- przeniesienie tekstu do sąsiedniego okienka.
5. Ole Container
- możliwość otwarcia pliku tekstowego, a nawet Wordowskich (doc/docx),
- możliwość zapisu pliku tekstowego, a nawet Wordowskich (doc/docx),
- możliwość utworzenia nowego pliku,
- zmianę czcionki okienka
- zmianę tła okienka,
- zmianę koloru czcionki,
- możliwość cofania (ostatni ruch),
- zaznaczanie wszystkiego,
- kopiowanie tekstu,
- wycięcie tekstu,
- wklejenie tekstu,
- funkcję statystyczną zliczającą liczbę linii, długość jak i aktualne położenie,
- wyrównanie akapitu,
- wyszukiwanie frazy,
- wypunktowanie,
- ustawienie tabulacji jak i usunięcie,
- ustalenie marginesów.
Grafika:
6. Grafika 1 (działanie na obszarze roboczym)
- rysowanie mrówek (losowych punktów na obszarze roboczym zwykłych (czarnych) jak i kolorowych,
- wypisanie tekstu w wyznaczonym miejscu pod kątem 45 stopni oraz jego usunięcie,
- napisanie tekstu pod kątem wybranym przez użytkownika oraz wyczyszczenie,
- narysowanie linii o wyznaczonym przez użytkownika położeniu,
- włączenie trybu ciągłej linii,
- czyszczenie ekranu,
- wypisanie rozdzielczości,
- zmiana grubości linii,
- wypisanie własnego tekstu w wyznaczonym przez siebie miejscu, pod własnym kątem,
- zmiana tła obszaru,
- zmiana koloru czcionki,
- zmiana koloru czcionki przycisków.
7. Grafika 2 (działanie na pliku)
- otwarcie pliku bit mapowego, jak i jego zapis,
- zamknięcie pliku,
- rozjaśnienie obrazu,
- przyciemnienie obrazu,
- odczytanie trybu kolorów, rozdzielczości ekranu jak i aktywny kolor (kursor),
- ustawienie obrazu jako tapety,
- obrót o 90 stopni,
- odbicie w pionie jak i poziomie,
- włączenie przeźroczystości,
- tworzenie negatywu,
- usunięcie wybranego koloru z palety RGB.
Kod programu:
Menu główne:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
#include "Unit6.h"
#include "Unit7.h"
#include "Unit8.h"
#include "Unit9.h"
#include "Unit10.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Kalkulator1Click(TObject *Sender)
{
Form3->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ArkuszKalkulacyjny1Click(TObject *Sender)
{
Form4->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Memo1Click(TObject *Sender)
{
Form5->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::AllContainer1Click(TObject *Sender)
{
Form6->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Arkuszkalkulacyjny21Click(TObject *Sender)
{
Form7->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Grafika11Click(TObject *Sender)
{
Form8->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Grafika21Click(TObject *Sender)
{
Form9->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Pomoc1Click(TObject *Sender)
{
Form10->ShowModal();
}
//---------------------------------------------------------------------------Pomoc:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit10.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm10 *Form10;
//---------------------------------------------------------------------------
__fastcall TForm10::TForm10(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------Formy:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("Unit1.cpp", Form1);
USEFORM("Unit2.cpp", Form2);
USEFORM("Unit3.cpp", Form3);
USEFORM("Unit4.cpp", Form4);
USEFORM("Unit5.cpp", Form5);
USEFORM("Unit6.cpp", Form6);
USEFORM("Unit7.cpp", Form7);
USEFORM("Unit8.cpp", Form8);
USEFORM("Unit9.cpp", Form9);
USEFORM("Unit10.cpp", Form10);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->CreateForm(__classid(TForm1), &Form1);
Application->CreateForm(__classid(TForm2), &Form2);
Application->CreateForm(__classid(TForm3), &Form3);
Application->CreateForm(__classid(TForm4), &Form4);
Application->CreateForm(__classid(TForm5), &Form5);
Application->CreateForm(__classid(TForm6), &Form6);
Application->CreateForm(__classid(TForm7), &Form7);
Application->CreateForm(__classid(TForm8), &Form8);
Application->CreateForm(__classid(TForm9), &Form9);
Application->CreateForm(__classid(TForm10), &Form10);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
catch (...)
{
try
{
throw Exception("");
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
}
return 0;
}
//---------------------------------------------------------------------------Kalkulator podstawowy:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "math.h"
#include "Unit2.h"
#include "Unit3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
int znak=0,czysc=0,blad=0;
char dzialanie;
float Liczba1=0,Liczba2=0,Wynik=0;
void __fastcall TForm2::Button1Click(TObject *Sender)
{
if(czysc==1)
{
Edit1->Text=" ";
Edit1->Text=Edit1->Text+FloatToStr(1);
czysc=0;
}
else
{
Edit1->Text=Edit1->Text+FloatToStr(1);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button2Click(TObject *Sender)
{
if(czysc==1)
{
Edit1->Text=" ";
Edit1->Text=Edit1->Text+FloatToStr(2);
czysc=0;
}
else
{
Edit1->Text=Edit1->Text+FloatToStr(2);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button3Click(TObject *Sender)
{
if(czysc==1)
{
Edit1->Text=" ";
Edit1->Text=Edit1->Text+FloatToStr(3);
czysc=0;
}
else
{
Edit1->Text=Edit1->Text+FloatToStr(3);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button4Click(TObject *Sender)
{
if(czysc==1)
{
Edit1->Text=" ";
Edit1->Text=Edit1->Text+FloatToStr(4);
czysc=0;
}
else
{
Edit1->Text=Edit1->Text+FloatToStr(4);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button5Click(TObject *Sender)
{
if(czysc==1)
{
Edit1->Text=" ";
Edit1->Text=Edit1->Text+FloatToStr(5);
czysc=0;
}
else
{
Edit1->Text=Edit1->Text+FloatToStr(5);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button6Click(TObject *Sender)
{
if(czysc==1)
{
Edit1->Text=" ";
Edit1->Text=Edit1->Text+FloatToStr(6);
czysc=0;
}
else
{
Edit1->Text=Edit1->Text+FloatToStr(6);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button7Click(TObject *Sender)
{
if(czysc==1)
{
Edit1->Text=" ";
Edit1->Text=Edit1->Text+FloatToStr(7);
czysc=0;
}
else
{
Edit1->Text=Edit1->Text+FloatToStr(7);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button8Click(TObject *Sender)
{
if(czysc==1)
{
Edit1->Text=" ";
Edit1->Text=Edit1->Text+FloatToStr(8);
czysc=0;
}
else
{
Edit1->Text=Edit1->Text+FloatToStr(8);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button9Click(TObject *Sender)
{
if(czysc==1)
{
Edit1->Text=" ";
Edit1->Text=Edit1->Text+FloatToStr(9);
czysc=0;
}
else
{
Edit1->Text=Edit1->Text+FloatToStr(9);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button10Click(TObject *Sender)
{
if(czysc==1)
{
Edit1->Text=" ";
Edit1->Text=Edit1->Text+FloatToStr(0);
czysc=0;
}
else
{
Edit1->Text=Edit1->Text+FloatToStr(0);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button11Click(TObject *Sender)
{
if(czysc==1)
{
Edit1->Text=" ";
Edit1->Text=Edit1->Text+',';
czysc=0;
}
else
{
Edit1->Text=Edit1->Text+',';
}
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button12Click(TObject *Sender)
{
if(znak!=1)
{
Liczba1=StrToFloat(Edit1->Text);
Edit1->Text=" ";
dzialanie='+';
Edit2->Text=Edit2->Text+Liczba1+" + ";
}
else
{
Edit1->Text=" ";
dzialanie='+';
Edit2->Text=Edit2->Text+" + ";
}
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button13Click(TObject *Sender)
{
Liczba2=StrToFloat(Edit1->Text);
Edit2->Text=Edit2->Text+Liczba2+" ";
znak=1;
switch(dzialanie)
{
case '+':
Wynik=Liczba1+Liczba2;
break;
case '-':
Wynik=Liczba1-Liczba2;
break;
case '*':
Wynik=Liczba1*Liczba2;
break;
case 'P':
Wynik=pow(Liczba1,Liczba2);
break;
case 'M':
Wynik=fmod(Liczba1,Liczba2);
break;
case '/':
if(Liczba2==0)
{
blad=1;
}
else
{
Wynik=Liczba1/Liczba2;
}
break;
}
if(blad==1)
{
Edit1->Text="BLAD!! Tak nie wolno";
blad=0;
Edit2->Text=Edit2->Text+" ERROR ";
}
else
{
Edit1->Text=FloatToStr(Wynik);
}
Liczba1=Wynik;
znak=1;
czysc=1;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button14Click(TObject *Sender)
{
if(znak!=1)
{
Liczba1=StrToFloat(Edit1->Text);
Edit1->Text=" ";
dzialanie='-';
Edit2->Text=Edit2->Text+Liczba1+" - ";
}
else
{
Edit1->Text=" ";
dzialanie='-';
Edit2->Text=Edit2->Text+" - ";
}
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button15Click(TObject *Sender)
{
if(znak!=1)
{
Liczba1=StrToFloat(Edit1->Text);
Edit1->Text=" ";
dzialanie='*';
Edit2->Text=Edit2->Text+Liczba1+" * ";
}
else
{
Edit1->Text=" ";
dzialanie='*';
Edit2->Text=Edit2->Text+" * ";
}
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button16Click(TObject *Sender)
{
if(znak!=1)
{
Liczba1=StrToFloat(Edit1->Text);
Edit1->Text=" ";
dzialanie='/';
Edit2->Text=Edit2->Text+Liczba1+" / ";
}
else
{
Edit1->Text=" ";
dzialanie='/';
Edit2->Text=Edit2->Text+" / ";
}
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button17Click(TObject *Sender)
{
Liczba1=StrToFloat(Edit1->Text);
if(znak==0)
{
Edit2->Text=Edit2->Text+Liczba1;
}
Wynik=sqrt(Liczba1);
Liczba1=Wynik;
znak=1;
Edit1->Text=FloatToStr(Wynik);
Edit2->Text=Edit2->Text+" sqrt "+Wynik;
czysc=1;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button18Click(TObject *Sender)
{
if(znak!=1)
{
Liczba1=StrToFloat(Edit1->Text);
Edit1->Text=" ";
dzialanie='P';
Edit2->Text=Edit2->Text+Liczba1+" sqr ";
}
else
{
Edit1->Text=" ";
dzialanie='P';
Edit2->Text=Edit2->Text+" sqr ";
}
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button19Click(TObject *Sender)
{
Edit1->Text=" ";
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button20Click(TObject *Sender)
{
Edit1->Text=" ";
Edit2->Text=" ";
znak=0;
czysc=0;
blad=0;
Liczba1=0;
Liczba2=0;
Wynik=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button21Click(TObject *Sender)
{
Liczba1=StrToFloat(Edit1->Text);
if(znak==0)
{
Edit2->Text=Edit2->Text+Liczba1;
}
Wynik=log(Liczba1);
Liczba1=Wynik;
znak=1;
Edit1->Text=FloatToStr(Wynik);
Edit2->Text=Edit2->Text+" ln "+Wynik;
czysc=1;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button22Click(TObject *Sender)
{
Liczba1=StrToFloat(Edit1->Text);
if(znak==0)
{
Edit2->Text=Edit2->Text+Liczba1;
}
Wynik=log10(Liczba1);
Liczba1=Wynik;
znak=1;
Edit1->Text=FloatToStr(Wynik);
Edit2->Text=Edit2->Text+" log(10) "+Wynik;
czysc=1;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button23Click(TObject *Sender)
{
Liczba1=StrToFloat(Edit1->Text);
if(znak==0)
{
Edit2->Text=Edit2->Text+Liczba1;
}
if(Liczba1==0 || Liczba1==1)
{
Wynik=1;
}
else
{
Wynik=1;
for(int i=2;i<=Liczba1;i++)
{
Wynik=Wynik*i;
}
}
Liczba1=Wynik;
znak=1;
Edit1->Text=FloatToStr(Wynik);
Edit2->Text=Edit2->Text+" ! "+Wynik;
czysc=1;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button24Click(TObject *Sender)
{
Liczba1=StrToFloat(Edit1->Text);
if(znak==0)
{
Edit2->Text=Edit2->Text+Liczba1;
}
Wynik=sin(Liczba1);
Liczba1=Wynik;
znak=1;
Edit1->Text=FloatToStr(Wynik);
Edit2->Text=Edit2->Text+" sin "+Wynik;
czysc=1;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button25Click(TObject *Sender)
{
Liczba1=StrToFloat(Edit1->Text);
if(znak==0)
{
Edit2->Text=Edit2->Text+Liczba1;
}
Wynik=cos(Liczba1);
Liczba1=Wynik;
znak=1;
Edit1->Text=FloatToStr(Wynik);
Edit2->Text=Edit2->Text+" cos "+Wynik;
czysc=1;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button26Click(TObject *Sender)
{
Liczba1=StrToFloat(Edit1->Text);
if(znak==0)
{
Edit2->Text=Edit2->Text+Liczba1;
}
Wynik=tan(Liczba1);
Liczba1=Wynik;
znak=1;
Edit1->Text=FloatToStr(Wynik);
Edit2->Text=Edit2->Text+" tg "+Wynik;
czysc=1;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button27Click(TObject *Sender)
{
Liczba1=StrToFloat(Edit1->Text);
if(znak==0)
{
Edit2->Text=Edit2->Text+Liczba1;
}
if(Liczba1==0)
{
blad=1;
}
else
{
Wynik=1/tan(Liczba1);
}
if(blad==1)
{
Edit1->Text="BLAD!! Tak nie wolno";
blad=0;
Edit2->Text=Edit2->Text+" ERROR ";
}
else
{
Edit1->Text=FloatToStr(Wynik);
Edit2->Text=Edit2->Text+" ctg "+Wynik;
}
Liczba1=Wynik;
znak=1;
czysc=1;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button28Click(TObject *Sender)
{
Liczba1=StrToFloat(Edit1->Text);
if(znak==0)
{
Edit2->Text=Edit2->Text+Liczba1;
}
Wynik=sin((Liczba1*M_PI)/180);
Liczba1=Wynik;
znak=1;
Edit1->Text=FloatToStr(Wynik);
Edit2->Text=Edit2->Text+" sin "+Wynik;
czysc=1;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button29Click(TObject *Sender)
{
Liczba1=StrToFloat(Edit1->Text);
if(znak==0)
{
Edit2->Text=Edit2->Text+Liczba1;
}
Wynik=cos((Liczba1*M_PI)/180);
Liczba1=Wynik;
znak=1;
Edit1->Text=FloatToStr(Wynik);
Edit2->Text=Edit2->Text+" cos "+Wynik;
czysc=1;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button30Click(TObject *Sender)
{
Liczba1=StrToFloat(Edit1->Text);
if(znak==0)
{
Edit2->Text=Edit2->Text+Liczba1;
}
Wynik=tan((Liczba1*M_PI)/180);
Liczba1=Wynik;
znak=1;
Edit1->Text=FloatToStr(Wynik);
Edit2->Text=Edit2->Text+" tg "+Wynik;
czysc=1;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button31Click(TObject *Sender)
{
Liczba1=StrToFloat(Edit1->Text);
if(znak==0)
{
Edit2->Text=Edit2->Text+Liczba1;
}
if(Liczba1==0)
{
blad=1;
}
else
{
Wynik=1/tan((Liczba1*M_PI)/180);
}
if(blad==1)
{
Edit1->Text="BLAD!! Tak nie wolno";
blad=0;
Edit2->Text=Edit2->Text+" ERROR ";
}
else
{
Edit1->Text=FloatToStr(Wynik);
Edit2->Text=Edit2->Text+" ctg "+Wynik;
}
Liczba1=Wynik;
znak=1;
czysc=1;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button32Click(TObject *Sender)
{
if(znak!=1)
{
Liczba1=StrToFloat(Edit1->Text);
Edit1->Text=" ";
dzialanie='M';
Edit2->Text=Edit2->Text+Liczba1+" mod ";
}
else
{
Edit1->Text=" ";
dzialanie='M';
Edit2->Text=Edit2->Text+" mod ";
}
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button33Click(TObject *Sender)
{
Liczba1=StrToFloat(Edit1->Text);
if(znak==0)
{
Edit2->Text=Edit2->Text+Liczba1;
}
Wynik=abs(Liczba1);
Liczba1=Wynik;
znak=1;
Edit1->Text=FloatToStr(Wynik);
Edit2->Text=Edit2->Text+" abs "+Wynik;
czysc=1;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button34Click(TObject *Sender)
{
if(czysc==1)
{
Edit1->Text=" ";
Edit1->Text=Edit1->Text+FloatToStr(M_PI);
czysc=0;
}
else
{
Edit1->Text=Edit1->Text+FloatToStr(M_PI);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Kalkulatorpodstawowy1Click(TObject *Sender)
{
Form3->ShowModal();
}
//---------------------------------------------------------------------------Kalkulator zaawansowany:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit2.h"
#include "Unit3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Kalkulatorzaawansowany1Click(TObject *Sender)
{
Form2->ShowModal();
}
//---------------------------------------------------------------------------
int znakA=0,czyscA=0,bladA=0;
char dzialanieA;
float Liczba1A=0,Liczba2A=0,WynikA=0;
void __fastcall TForm3::Button1Click(TObject *Sender)
{
if(czyscA==1)
{
Edit1->Text=" ";
Edit1->Text=Edit1->Text+FloatToStr(1);
czyscA=0;
}
else
{
Edit1->Text=Edit1->Text+FloatToStr(1);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button2Click(TObject *Sender)
{
if(czyscA==1)
{
Edit1->Text=" ";
Edit1->Text=Edit1->Text+FloatToStr(2);
czyscA=0;
}
else
{
Edit1->Text=Edit1->Text+FloatToStr(2);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button3Click(TObject *Sender)
{
if(czyscA==1)
{
Edit1->Text=" ";
Edit1->Text=Edit1->Text+FloatToStr(3);
czyscA=0;
}
else
{
Edit1->Text=Edit1->Text+FloatToStr(3);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button4Click(TObject *Sender)
{
if(czyscA==1)
{
Edit1->Text=" ";
Edit1->Text=Edit1->Text+FloatToStr(4);
czyscA=0;
}
else
{
Edit1->Text=Edit1->Text+FloatToStr(4);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button5Click(TObject *Sender)
{
if(czyscA==1)
{
Edit1->Text=" ";
Edit1->Text=Edit1->Text+FloatToStr(5);
czyscA=0;
}
else
{
Edit1->Text=Edit1->Text+FloatToStr(5);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button6Click(TObject *Sender)
{
if(czyscA==1)
{
Edit1->Text=" ";
Edit1->Text=Edit1->Text+FloatToStr(6);
czyscA=0;
}
else
{
Edit1->Text=Edit1->Text+FloatToStr(6);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button7Click(TObject *Sender)
{
if(czyscA==1)
{
Edit1->Text=" ";
Edit1->Text=Edit1->Text+FloatToStr(7);
czyscA=0;
}
else
{
Edit1->Text=Edit1->Text+FloatToStr(7);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button8Click(TObject *Sender)
{
if(czyscA==1)
{
Edit1->Text=" ";
Edit1->Text=Edit1->Text+FloatToStr(8);
czyscA=0;
}
else
{
Edit1->Text=Edit1->Text+FloatToStr(8);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button9Click(TObject *Sender)
{
if(czyscA==1)
{
Edit1->Text=" ";
Edit1->Text=Edit1->Text+FloatToStr(9);
czyscA=0;
}
else
{
Edit1->Text=Edit1->Text+FloatToStr(9);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button10Click(TObject *Sender)
{
if(czyscA==1)
{
Edit1->Text=" ";
Edit1->Text=Edit1->Text+FloatToStr(0);
czyscA=0;
}
else
{
Edit1->Text=Edit1->Text+FloatToStr(0);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button11Click(TObject *Sender)
{
if(czyscA==1)
{
Edit1->Text=" ";
Edit1->Text=Edit1->Text+',';
czyscA=0;
}
else
{
Edit1->Text=Edit1->Text+',';
}
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button17Click(TObject *Sender)
{
Edit1->Text=" ";
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button18Click(TObject *Sender)
{
Edit1->Text=" ";
Edit2->Text=" ";
znakA=0;
czyscA=0;
bladA=0;
Liczba1A=0;
Liczba2A=0;
WynikA=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button13Click(TObject *Sender)
{
if(znakA!=1)
{
Liczba1A=StrToFloat(Edit1->Text);
Edit1->Text=" ";
dzialanieA='+';
Edit2->Text=Edit2->Text+Liczba1A+" + ";
}
else
{
Edit1->Text=" ";
dzialanieA='+';
Edit2->Text=Edit2->Text+" + ";
}
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button14Click(TObject *Sender)
{
if(znakA!=1)
{
Liczba1A=StrToFloat(Edit1->Text);
Edit1->Text=" ";
dzialanieA='-';
Edit2->Text=Edit2->Text+Liczba1A+" - ";
}
else
{
Edit1->Text=" ";
dzialanieA='-';
Edit2->Text=Edit2->Text+" - ";
}
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button15Click(TObject *Sender)
{
if(znakA!=1)
{
Liczba1A=StrToFloat(Edit1->Text);
Edit1->Text=" ";
dzialanieA='*';
Edit2->Text=Edit2->Text+Liczba1A+" * ";
}
else
{
Edit1->Text=" ";
dzialanieA='*';
Edit2->Text=Edit2->Text+" * ";
}
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button16Click(TObject *Sender)
{
if(znakA!=1)
{
Liczba1A=StrToFloat(Edit1->Text);
Edit1->Text=" ";
dzialanieA='/';
Edit2->Text=Edit2->Text+Liczba1A+" / ";
}
else
{
Edit1->Text=" ";
dzialanieA='/';
Edit2->Text=Edit2->Text+" / ";
}
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button12Click(TObject *Sender)
{
Liczba2A=StrToFloat(Edit1->Text);
Edit2->Text=Edit2->Text+Liczba2A+" ";
znakA=1;
switch(dzialanieA)
{
case '+':
WynikA=Liczba1A+Liczba2A;
break;
case '-':
WynikA=Liczba1A-Liczba2A;
break;
case '*':
WynikA=Liczba1A*Liczba2A;
break;
case '/':
if(Liczba2A==0)
{
bladA=1;
}
else
{
WynikA=Liczba1A/Liczba2A;
}
break;
}
if(bladA==1)
{
Edit1->Text="BLAD!! Tak nie wolno";
bladA=0;
Edit2->Text=Edit2->Text+" ERROR ";
}
else
{
Edit1->Text=FloatToStr(WynikA);
}
Liczba1A=WynikA;
znakA=1;
czyscA=1;
}
//---------------------------------------------------------------------------Arkusz kalkulacyjny:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit4.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "CSPIN"
#pragma resource "*.dfm"
TForm4 *Form4;
//---------------------------------------------------------------------------
__fastcall TForm4::TForm4(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm4::Button6Click(TObject *Sender)
{
for(int i=1;i<=15;i++)
for(int j=1;j<=15;j++)
StringGrid1->Cells[j][i]=(rand()%100)-50;
}
//---------------------------------------------------------------------------
void __fastcall TForm4::Button5Click(TObject *Sender)
{
int n,m;
float suma;
n=CSpinEdit1->Value;
m=CSpinEdit2->Value;
suma=0;
for(int i=1;i<=n;i++)
for(int j=1;j<=m;j++)
suma=suma+StrToFloat(StringGrid1->Cells[j][i]);
Edit1->Text=FloatToStr(suma);
}
//---------------------------------------------------------------------------
void __fastcall TForm4::Button2Click(TObject *Sender)
{
int n,m;
n=CSpinEdit1->Value;
m=CSpinEdit2->Value;
for(int i=1;i<=n;i++)
for(int j=1;j<=m;j++)
StringGrid1->Cells[j][i]=" ";
Edit1->Text=" ";
}
//---------------------------------------------------------------------------
void __fastcall TForm4::Button1Click(TObject *Sender)
{
for(int i=1;i<=15;i++)
for(int j=1;j<=15;j++)
StringGrid1->Cells[j][i]=" ";
Edit1->Text=" ";
}
//---------------------------------------------------------------------------
void __fastcall TForm4::Button3Click(TObject *Sender)
{
int n,m;
n=CSpinEdit1->Value;
m=CSpinEdit2->Value;
for(int i=1;i<=n;i++)
for(int j=1;j<=m;j++)
StringGrid1->Cells[j][i]=(rand()%100)-50;
}
//---------------------------------------------------------------------------
void __fastcall TForm4::Button8Click(TObject *Sender)
{
int n,m,z,x,y;
String temp;
n=CSpinEdit1->Value;
m=CSpinEdit2->Value;
do{
z=0;
for(int i=1;i<=n;i++){
for(int j=1;j<=m;j++){
if(j!=m){
x=StrToInt(StringGrid1->Cells[j][i]);
y=StrToInt(StringGrid1->Cells[j+1][i]);
if(x>y){
temp=StringGrid1->Cells[j][i];
StringGrid1->Cells[j][i]=StringGrid1->Cells[j+1][i];
StringGrid1->Cells[j+1][i]=temp;
z++;}}
else{ if(i!=n){
x=StrToInt(StringGrid1->Cells[j][i]);
y=StrToInt(StringGrid1->Cells[1][i+1]);
if(x>y){
temp=StringGrid1->Cells[j][i];
StringGrid1->Cells[j][i]=StringGrid1->Cells[1][i+1];
StringGrid1->Cells[1][i+1]=temp;
z++;}} }
}}}while(z!=0);
}
//---------------------------------------------------------------------------
void __fastcall TForm4::Button7Click(TObject *Sender)
{
int n,m,z,x,y;
String temp;
n=CSpinEdit1->Value;
m=CSpinEdit2->Value;
do{
z=0;
for(int i=1;i<=n;i++){
for(int j=1;j<=m;j++){
if(j!=m){
x=StrToInt(StringGrid1->Cells[j][i]);
y=StrToInt(StringGrid1->Cells[j+1][i]);
if(x>y){
temp=StringGrid1->Cells[j][i];
StringGrid1->Cells[j][i]=StringGrid1->Cells[j+1][i];
StringGrid1->Cells[j+1][i]=temp;
z++;}}
}}}while(z!=0);
}
//---------------------------------------------------------------------------
void __fastcall TForm4::Button4Click(TObject *Sender)
{
int n,m,z,x,y;
String temp;
n=CSpinEdit1->Value;
m=CSpinEdit2->Value;
do{
z=0;
for(int i=1;i<=m-1;i++){
for(int j=1;j<=n-1;j++){
if(j!=n){
x=StrToInt(StringGrid1->Cells[j][i]);
y=StrToInt(StringGrid1->Cells[j][i+1]);
if(x>y){
temp=StringGrid1->Cells[j][i];
StringGrid1->Cells[j][i]=StringGrid1->Cells[j][i+1];
StringGrid1->Cells[j][i+1]=temp;
z++;}}
}}}while(z!=0);
}
//---------------------------------------------------------------------------
void __fastcall TForm4::Button9Click(TObject *Sender)
{
float suma;
suma=0;
for(int i=1;i<=15;i++)
for(int j=1;j<=15;j++)
suma=suma+StrToFloat(StringGrid1->Cells[j][i]);
Edit1->Text=FloatToStr(suma);
}
//---------------------------------------------------------------------------
void __fastcall TForm4::Button12Click(TObject *Sender)
{
int z,x,y;
String temp;
do{
z=0;
for(int i=1;i<=15;i++){
for(int j=1;j<=15;j++){
if(j!=15){
x=StrToInt(StringGrid1->Cells[j][i]);
y=StrToInt(StringGrid1->Cells[j+1][i]);
if(x>y){
temp=StringGrid1->Cells[j][i];
StringGrid1->Cells[j][i]=StringGrid1->Cells[j+1][i];
StringGrid1->Cells[j+1][i]=temp;
z++;}}
else{ if(i!=15){
x=StrToInt(StringGrid1->Cells[j][i]);
y=StrToInt(StringGrid1->Cells[1][i+1]);
if(x>y){
temp=StringGrid1->Cells[j][i];
StringGrid1->Cells[j][i]=StringGrid1->Cells[1][i+1];
StringGrid1->Cells[1][i+1]=temp;
z++;}} }
}}}while(z!=0);
}
//---------------------------------------------------------------------------
void __fastcall TForm4::Button10Click(TObject *Sender)
{
int z,x,y;
String temp;
do{
z=0;
for(int i=1;i<=15;i++){
for(int j=1;j<=15;j++){
if(j!=15){
x=StrToInt(StringGrid1->Cells[j][i]);
y=StrToInt(StringGrid1->Cells[j+1][i]);
if(x>y){
temp=StringGrid1->Cells[j][i];
StringGrid1->Cells[j][i]=StringGrid1->Cells[j+1][i];
StringGrid1->Cells[j+1][i]=temp;
z++;}}
}}}while(z!=0);
}
//---------------------------------------------------------------------------
void __fastcall TForm4::Button11Click(TObject *Sender)
{
int z,x,y;
String temp;
do{
z=0;
for(int i=1;i<=14;i++){
for(int j=1;j<=14;j++){
if(j!=15){
x=StrToInt(StringGrid1->Cells[j][i]);
y=StrToInt(StringGrid1->Cells[j][i+1]);
if(x>y){
temp=StringGrid1->Cells[j][i];
StringGrid1->Cells[j][i]=StringGrid1->Cells[j][i+1];
StringGrid1->Cells[j][i+1]=temp;
z++;}}
}}}while(z!=0);
}
//---------------------------------------------------------------------------Arkusz kalkulacyjny 2:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include <FStream.h>
#include "Unit7.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "CSPIN"
#pragma resource "*.dfm"
TForm7 *Form7;
//---------------------------------------------------------------------------
__fastcall TForm7::TForm7(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm7::Button1Click(TObject *Sender)
{
char *Buf;
AnsiString Set;
int M,N;
M=StrToInt(CSpinEdit1->Value);
N=StrToInt(CSpinEdit2->Value);
ofstream outfile;
outfile.open("My_Plik.txt");
for(int i=1;i<=M;i++)
{
for(int j=1;j<=N;j++)
{
Set=StringGrid1->Cells[j][i];
Buf=Set.c_str();
outfile<<Buf<<endl;
}
}
outfile.close();
}
//---------------------------------------------------------------------------
void __fastcall TForm7::Button2Click(TObject *Sender)
{
char Buf[255];
AnsiString Set;
int M,N;
M=StrToInt(CSpinEdit1->Value);
N=StrToInt(CSpinEdit2->Value);
ifstream infile;
infile.open("My_Plik.txt");
for(int i=1;i<=M;i++)
{
for(int j=1;j<=N;j++)
{
infile.getline(Buf,255);
Set=(AnsiString)Buf;
//Buf=Set.c_str();
//outfile<<Buf<<endl;
StringGrid1->Cells[j][i]=Set;
}
}
infile.close();
}
//---------------------------------------------------------------------------
void __fastcall TForm7::Button3Click(TObject *Sender)
{
int M,N;
M=StrToInt(CSpinEdit1->Value);
N=StrToInt(CSpinEdit2->Value);
for(int i=1;i<=M;i++)
{
for(int j=1;j<=N;j++)
{
StringGrid1->Cells[j][i]=" ";
}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm7::Button4Click(TObject *Sender)
{
int n,m;
n=CSpinEdit1->Value;
m=CSpinEdit2->Value;
for(int i=1;i<=n;i++)
for(int j=1;j<=m;j++)
StringGrid1->Cells[j][i]=(rand()%100)-50;
}
//---------------------------------------------------------------------------
void __fastcall TForm7::Button5Click(TObject *Sender)
{
for(int i=1;i<=10;i++)
for(int j=1;j<=10;j++)
StringGrid1->Cells[j][i]=(rand()%100)-50;
}
//---------------------------------------------------------------------------
void __fastcall TForm7::Button6Click(TObject *Sender)
{
for(int i=1;i<=10;i++)
{
for(int j=1;j<=10;j++)
{
StringGrid1->Cells[j][i]=" ";
}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm7::Button7Click(TObject *Sender)
{
char *Buf;
AnsiString Set;
ofstream outfile;
outfile.open("My_Plik.txt");
for(int i=1;i<=10;i++)
{
for(int j=1;j<=10;j++)
{
Set=StringGrid1->Cells[j][i];
Buf=Set.c_str();
outfile<<Buf<<endl;
}
}
outfile.close();
}
//---------------------------------------------------------------------------
void __fastcall TForm7::Button8Click(TObject *Sender)
{
char Buf[255];
AnsiString Set;
ifstream infile;
infile.open("My_Plik.txt");
for(int i=1;i<=10;i++)
{
for(int j=1;j<=10;j++)
{
infile.getline(Buf,255);
Set=(AnsiString)Buf;
//Buf=Set.c_str();
//outfile<<Buf<<endl;
StringGrid1->Cells[j][i]=Set;
}
}
infile.close();
}
//---------------------------------------------------------------------------
void __fastcall TForm7::Button9Click(TObject *Sender)
{
int M;
M=StrToInt(CSpinEdit2->Value);
for(int i=1;i<=10;i++)
{
StringGrid1->Cells[M][i]=" ";
}
}
//---------------------------------------------------------------------------
void __fastcall TForm7::Button10Click(TObject *Sender)
{
int M;
M=StrToInt(CSpinEdit1->Value);
for(int i=1;i<=10;i++)
{
StringGrid1->Cells[i][M]=" ";
}
}
//---------------------------------------------------------------------------
void __fastcall TForm7::BitBtn1Click(TObject *Sender)
{
int n,m,z,x,y;
String temp;
n=CSpinEdit1->Value;
m=CSpinEdit2->Value;
do{
z=0;
for(int i=1;i<=n;i++){
for(int j=1;j<=m;j++){
if(j!=m){
x=StrToInt(StringGrid1->Cells[j][i]);
y=StrToInt(StringGrid1->Cells[j+1][i]);
if(x>y){
temp=StringGrid1->Cells[j][i];
StringGrid1->Cells[j][i]=StringGrid1->Cells[j+1][i];
StringGrid1->Cells[j+1][i]=temp;
z++;}}
}}}while(z!=0);
}
//---------------------------------------------------------------------------
void __fastcall TForm7::BitBtn2Click(TObject *Sender)
{
int z,x,y;
String temp;
do{
z=0;
for(int i=1;i<=9;i++){
for(int j=1;j<=9;j++){
if(j!=9){
x=StrToInt(StringGrid1->Cells[j][i]);
y=StrToInt(StringGrid1->Cells[j+1][i]);
if(x>y){
temp=StringGrid1->Cells[j][i];
StringGrid1->Cells[j][i]=StringGrid1->Cells[j+1][i];
StringGrid1->Cells[j+1][i]=temp;
z++;}}
else{ if(i!=9){
x=StrToInt(StringGrid1->Cells[j][i]);
y=StrToInt(StringGrid1->Cells[1][i+1]);
if(x>y){
temp=StringGrid1->Cells[j][i];
StringGrid1->Cells[j][i]=StringGrid1->Cells[1][i+1];
StringGrid1->Cells[1][i+1]=temp;
z++;}} }
}}}while(z!=0);
}
//---------------------------------------------------------------------------
void __fastcall TForm7::Button11Click(TObject *Sender)
{
int n,m;
float suma;
n=CSpinEdit1->Value;
m=CSpinEdit2->Value;
suma=0;
for(int i=1;i<=n;i++)
for(int j=1;j<=m;j++)
suma=suma+StrToFloat(StringGrid1->Cells[j][i]);
Edit1->Text=FloatToStr(suma);
}
//---------------------------------------------------------------------------
void __fastcall TForm7::Button12Click(TObject *Sender)
{
float suma;
suma=0;
for(int i=1;i<=9;i++)
for(int j=1;j<=9;j++)
suma=suma+StrToFloat(StringGrid1->Cells[j][i]);
Edit1->Text=FloatToStr(suma);
}
//---------------------------------------------------------------------------Memo:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit5.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "CSPIN"
#pragma link "CGRID"
#pragma resource "*.dfm"
TForm5 *Form5;
//---------------------------------------------------------------------------
__fastcall TForm5::TForm5(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm5::BitBtn1Click(TObject *Sender)
{
Memo1->CopyToClipboard();
}
//---------------------------------------------------------------------------
void __fastcall TForm5::BitBtn3Click(TObject *Sender)
{
Memo2->CopyToClipboard();
}
//---------------------------------------------------------------------------
void __fastcall TForm5::BitBtn2Click(TObject *Sender)
{
Memo1->CutToClipboard();
}
//---------------------------------------------------------------------------
void __fastcall TForm5::BitBtn4Click(TObject *Sender)
{
Memo2->CutToClipboard();
}
//---------------------------------------------------------------------------
void __fastcall TForm5::Otworz1Click(TObject *Sender)
{
if(OpenDialog1->Execute()){
Memo1->Lines->LoadFromFile(OpenDialog1->FileName);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm5::Otworz2Click(TObject *Sender)
{
if(OpenDialog1->Execute()){
Memo2->Lines->LoadFromFile(OpenDialog1->FileName);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm5::Zapisz1Click(TObject *Sender)
{
if( SaveDialog1->Execute()){
Memo1->Lines->SaveToFile(SaveDialog1->FileName);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm5::Zapisz2Click(TObject *Sender)
{
if( SaveDialog1->Execute()){
Memo2->Lines->SaveToFile(SaveDialog1->FileName);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm5::BitBtn5Click(TObject *Sender)
{
Memo1->PasteFromClipboard();
}
//---------------------------------------------------------------------------
void __fastcall TForm5::BitBtn6Click(TObject *Sender)
{
Memo2->PasteFromClipboard();
}
//---------------------------------------------------------------------------
void __fastcall TForm5::Czcionka1Click(TObject *Sender)
{
if(FontDialog1->Execute()){
Memo1->Font=FontDialog1->Font;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm5::Czcionka2Click(TObject *Sender)
{
if(FontDialog1->Execute()){
Memo2->Font=FontDialog1->Font;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm5::BitBtn7Click(TObject *Sender)
{
int x;
x=CSpinEdit1->Value-1;
Memo1->Lines->Delete(x);
}
//---------------------------------------------------------------------------
void __fastcall TForm5::BitBtn8Click(TObject *Sender)
{
int x;
x=CSpinEdit1->Value-1;
Memo2->Lines->Delete(x);
}
//---------------------------------------------------------------------------
void __fastcall TForm5::Nowy1Click(TObject *Sender)
{
Memo1->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm5::Nowy2Click(TObject *Sender)
{
Memo2->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm5::BitBtn9Click(TObject *Sender)
{
Memo1->Lines->Text = Memo2->Lines->Text;
Memo2->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm5::Kolorczcionki2Click(TObject *Sender)
{
if(ColorDialog1->Execute())
Memo1->Font->Color = ColorDialog1->Color;
}
//---------------------------------------------------------------------------
void __fastcall TForm5::Kolorczcionki3Click(TObject *Sender)
{
if(ColorDialog1->Execute())
Memo2->Font->Color = ColorDialog1->Color;
}
//---------------------------------------------------------------------------
void __fastcall TForm5::Kolorczcionki1Click(TObject *Sender)
{
if(ColorDialog1->Execute())
Memo1->Color = ColorDialog1->Color;
}
//---------------------------------------------------------------------------
void __fastcall TForm5::Kolortla1Click(TObject *Sender)
{
if(ColorDialog1->Execute())
Memo2->Color = ColorDialog1->Color;
}
//---------------------------------------------------------------------------
void __fastcall TForm5::BitBtn10Click(TObject *Sender)
{
Memo2->Lines->Text = Memo1->Lines->Text;
Memo1->Clear();
}
//---------------------------------------------------------------------------OleContainer:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit6.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm6 *Form6;
//---------------------------------------------------------------------------
__fastcall TForm6::TForm6(TComponent* Owner)
: TForm(Owner)
{
ComboBox1->Items->Add("Lewej");
ComboBox1->Items->Add("Prawej");
ComboBox1->Items->Add("Środka");
}
//---------------------------------------------------------------------------
void __fastcall TForm6::BitBtn5Click(TObject *Sender)
{
Label5->Caption = RichEdit1->Lines->Count;
}
//---------------------------------------------------------------------------
void __fastcall TForm6::BitBtn6Click(TObject *Sender)
{
String Szukaj;
Szukaj=Edit1->Text;
int Pozycja = RichEdit1->Text.Pos(Szukaj) - 1;
RichEdit1->SelStart = Pozycja;
RichEdit1->SelLength = Szukaj.Length();
RichEdit1->SetFocus();
}
//---------------------------------------------------------------------------
void __fastcall TForm6::BitBtn7Click(TObject *Sender)
{
TRect R;
R = RichEdit1->ClientRect;
R.Left = R.Left + 20;
R.Top = R.Top + 20;
R.Bottom = R.Bottom - 20;
R.Right = R.Right - 20;
SendMessage(RichEdit1->Handle, EM_SETRECT, 0, Longint(&R));
}
//---------------------------------------------------------------------------
void __fastcall TForm6::RichEdit1SelectionChange(TObject *Sender)
{
int Kolumna = SendMessage(RichEdit1->Handle, EM_LINEFROMCHAR, RichEdit1->SelStart, 0);
int Linia = SendMessage(RichEdit1->Handle, EM_LINEINDEX, Kolumna, 0);
int DlugoscLinii = SendMessage(RichEdit1->Handle, EM_LINELENGTH, Linia, 0);
Label3->Caption = "Długosc linii: " + IntToStr(DlugoscLinii);
int xPos = RichEdit1->Perform(EM_EXLINEFROMCHAR, 0, RichEdit1->SelStart) + 1;
int yPos = RichEdit1->SelStart - RichEdit1->Perform(EM_LINEINDEX, -1, 0) +1;
Label4->Caption = "Aktualne polozenie - " + IntToStr(xPos) + " : " + IntToStr(yPos);
}
//---------------------------------------------------------------------------
void __fastcall TForm6::BitBtn8Click(TObject *Sender)
{
RichEdit1->Perform(EM_UNDO, 0, 0);
}
//---------------------------------------------------------------------------
void __fastcall TForm6::BitBtn9Click(TObject *Sender)
{
RichEdit1->Paragraph->FirstIndent = RichEdit1->Paragraph->FirstIndent + 20;
}
//---------------------------------------------------------------------------
void __fastcall TForm6::BitBtn10Click(TObject *Sender)
{
RichEdit1->Paragraph->FirstIndent = RichEdit1->Paragraph->FirstIndent - 20;
}
//---------------------------------------------------------------------------
void __fastcall TForm6::Nowy1Click(TObject *Sender)
{
RichEdit1->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm6::BitBtn11Click(TObject *Sender)
{
RichEdit1->SelectAll();
}
//---------------------------------------------------------------------------
void __fastcall TForm6::BitBtn12Click(TObject *Sender)
{
RichEdit1->CopyToClipboard();
}
//---------------------------------------------------------------------------
void __fastcall TForm6::BitBtn13Click(TObject *Sender)
{
RichEdit1->CutToClipboard();
}
//---------------------------------------------------------------------------
void __fastcall TForm6::BitBtn14Click(TObject *Sender)
{
RichEdit1->PasteFromClipboard();
}
//---------------------------------------------------------------------------
void __fastcall TForm6::Otworz1Click(TObject *Sender)
{
if(OpenDialog1->Execute())
RichEdit1->Lines->LoadFromFile(OpenDialog1->FileName);
}
//---------------------------------------------------------------------------
void __fastcall TForm6::Zapisz1Click(TObject *Sender)
{
if(SaveDialog1->Execute())
RichEdit1->Lines->SaveToFile(SaveDialog1->FileName);
}
//---------------------------------------------------------------------------
void __fastcall TForm6::BitBtn1Click(TObject *Sender)
{
RichEdit1->SelAttributes->Style=RichEdit1->SelAttributes->Style << fsBold;
}
//---------------------------------------------------------------------------
void __fastcall TForm6::BitBtn15Click(TObject *Sender)
{
RichEdit1->SelAttributes->Style=RichEdit1->SelAttributes->Style << fsItalic;
}
//---------------------------------------------------------------------------
void __fastcall TForm6::BitBtn17Click(TObject *Sender)
{
RichEdit1->SelAttributes->Style=RichEdit1->SelAttributes->Style << fsUnderline;
}
//---------------------------------------------------------------------------
void __fastcall TForm6::BitBtn19Click(TObject *Sender)
{
RichEdit1->SelAttributes->Style=RichEdit1->SelAttributes->Style << fsStrikeOut;
}
//---------------------------------------------------------------------------
void __fastcall TForm6::BitBtn2Click(TObject *Sender)
{
String znak;
znak = ComboBox1->Items->Strings[ComboBox1->ItemIndex];
if(znak=="Lewej")
{
RichEdit1->Paragraph->Alignment = taLeftJustify;
}
else if(znak=="Prawej")
{
RichEdit1->Paragraph->Alignment = taRightJustify;
}
else
{
RichEdit1->Paragraph->Alignment = taCenter;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm6::BitBtn16Click(TObject *Sender)
{
RichEdit1->Paragraph->Numbering = nsBullet;
}
//---------------------------------------------------------------------------
void __fastcall TForm6::BitBtn18Click(TObject *Sender)
{
RichEdit1->Paragraph->Numbering = nsNone;
}
//---------------------------------------------------------------------------
void __fastcall TForm6::Czcionka1Click(TObject *Sender)
{
if(FontDialog1->Execute()){
RichEdit1->Font=FontDialog1->Font;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm6::Kolortla1Click(TObject *Sender)
{
if(ColorDialog1->Execute())
RichEdit1->Color = ColorDialog1->Color;
}
//---------------------------------------------------------------------------
void __fastcall TForm6::Kolorczcionki1Click(TObject *Sender)
{
if(ColorDialog1->Execute())
RichEdit1->Font->Color = ColorDialog1->Color;
}
//---------------------------------------------------------------------------
void __fastcall TForm6::Otworz2Click(TObject *Sender)
{
int b=true;
if(OpenDialog1->Execute()){
OleContainer1->CreateObjectFromFile(OpenDialog1->FileName,b);
OleContainer1->DoVerb(ovShow);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm6::Zapisz2Click(TObject *Sender)
{
if(SaveDialog1->Execute()){
OleContainer1->SaveAsDocument(SaveDialog1->FileName);
OleContainer1->DoVerb(ovShow);
}
}
//---------------------------------------------------------------------------Grafika 1:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit8.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "CSPIN"
#pragma resource "*.dfm"
TForm8 *Form8;
//---------------------------------------------------------------------------
__fastcall TForm8::TForm8(TComponent* Owner)
: TForm(Owner)
{
Form8->Canvas->Font->Name="Arial";
Form8->Canvas->Font->Size=24;
Form8->Canvas->Font->Color=clBlue;
Form8->Canvas->Brush->Color=Form8->Color;
}
//---------------------------------------------------------------------------
int sw=0;
void __fastcall TForm8::BitBtn1Click(TObject *Sender)
{
int num_stars =100000;
TColor kolor;
randomize();
for(int i=1;i<=num_stars;i++)
{
int odcien = random(256);
kolor = TColor(RGB(odcien,odcien,odcien));
Canvas->Pixels[random(ClientWidth)][random(ClientHeight)]=kolor;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm8::BitBtn2Click(TObject *Sender)
{
LOGFONT LogFont;
GetObject(Form8->Canvas->Font->Handle,sizeof(LOGFONT),&LogFont);
LogFont.lfEscapement=450;
LogFont.lfOrientation=450;
Form8->Canvas->Font->Handle = CreateFontIndirect(&LogFont);
Form8->Canvas->TextOut(100,200,"Tekst pod katem 45 stopni");
}
//---------------------------------------------------------------------------
void __fastcall TForm8::BitBtn3Click(TObject *Sender)
{
LOGFONT LogFont;
GetObject(Form8->Canvas->Font->Handle,sizeof(LOGFONT),&LogFont);
LogFont.lfEscapement=450;
LogFont.lfOrientation=450;
Form8->Canvas->Font->Handle = CreateFontIndirect(&LogFont);
Form8->Canvas->TextOut(100,200," ");
}
//---------------------------------------------------------------------------
void __fastcall TForm8::BitBtn4Click(TObject *Sender)
{
LOGFONT LogFont;
GetObject(Form8->Canvas->Font->Handle,sizeof(LOGFONT),&LogFont);
int M=StrToInt(CSpinEdit1->Value);
LogFont.lfEscapement=M*10;
LogFont.lfOrientation=M*10;
Form8->Canvas->Font->Handle = CreateFontIndirect(&LogFont);
Form8->Canvas->TextOut(StrToFloat(Edit1->Text),StrToFloat(Edit2->Text)," stopni");
Form8->Canvas->TextOut(StrToFloat(Edit1->Text),StrToFloat(Edit2->Text),M);
}
//---------------------------------------------------------------------------
void __fastcall TForm8::BitBtn5Click(TObject *Sender)
{
LOGFONT LogFont;
GetObject(Form8->Canvas->Font->Handle,sizeof(LOGFONT),&LogFont);
int M=StrToInt(CSpinEdit1->Value);
LogFont.lfEscapement=M*10;
LogFont.lfOrientation=M*10;
Form8->Canvas->Font->Handle = CreateFontIndirect(&LogFont);
Form8->Canvas->TextOut(StrToFloat(Edit1->Text),StrToFloat(Edit2->Text)," ");
}
//---------------------------------------------------------------------------
void __fastcall TForm8::BitBtn7Click(TObject *Sender)
{
ColorDialog1->Execute();
int num_stars =500000;
TColor kolor;
for(int i=1;i<=num_stars;i++)
{
kolor = ColorDialog1->Color;
Canvas->Pixels[random(ClientWidth)][random(ClientHeight)]=kolor;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm8::TrackBar1Change(TObject *Sender)
{
ProgressBar1->Position=TrackBar1->Position;
Label1->Caption = TrackBar1->Position;
}
//---------------------------------------------------------------------------
void __fastcall TForm8::BitBtn8Click(TObject *Sender)
{
LOGFONT LogFont;
GetObject(Form8->Canvas->Font->Handle,sizeof(LOGFONT),&LogFont);
int M=StrToInt(TrackBar1->Position);
LogFont.lfEscapement=M*10;
LogFont.lfOrientation=M*10;
Form8->Canvas->Font->Handle = CreateFontIndirect(&LogFont);
Form8->Canvas->TextOut(StrToFloat(Edit1->Text),StrToFloat(Edit2->Text),Edit3->Text);
}
//---------------------------------------------------------------------------
void __fastcall TForm8::BitBtn9Click(TObject *Sender)
{
LOGFONT LogFont;
GetObject(Form8->Canvas->Font->Handle,sizeof(LOGFONT),&LogFont);
int M=StrToInt(TrackBar1->Position);
LogFont.lfEscapement=M*10;
LogFont.lfOrientation=M*10;
Form8->Canvas->Font->Handle = CreateFontIndirect(&LogFont);
Form8->Canvas->TextOut(StrToFloat(Edit1->Text),StrToFloat(Edit2->Text)," ");
}
//---------------------------------------------------------------------------
void __fastcall TForm8::TrackBar2Change(TObject *Sender)
{
Form8->Canvas->TextOut(StrToFloat(Edit1->Text),StrToFloat(Edit2->Text)," ");
Edit1->Text = TrackBar2->Position;
LOGFONT LogFont;
GetObject(Form8->Canvas->Font->Handle,sizeof(LOGFONT),&LogFont);
Form8->Canvas->Font->Handle = CreateFontIndirect(&LogFont);
Form8->Canvas->TextOut(StrToFloat(Edit1->Text),StrToFloat(Edit2->Text),Edit3->Text);
}
//---------------------------------------------------------------------------
void __fastcall TForm8::TrackBar3Change(TObject *Sender)
{
Form8->Canvas->TextOut(StrToFloat(Edit1->Text),StrToFloat(Edit2->Text)," ");
Edit2->Text = TrackBar3->Position;
LOGFONT LogFont;
GetObject(Form8->Canvas->Font->Handle,sizeof(LOGFONT),&LogFont);
Form8->Canvas->Font->Handle = CreateFontIndirect(&LogFont);
Form8->Canvas->TextOut(StrToFloat(Edit1->Text),StrToFloat(Edit2->Text),Edit3->Text);
}
//---------------------------------------------------------------------------
void __fastcall TForm8::Button1Click(TObject *Sender)
{
if(FontDialog1->Execute()){
Form8->Font=FontDialog1->Font;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm8::Button2Click(TObject *Sender)
{
if(ColorDialog1->Execute())
Form8->Color=ColorDialog1->Color;
}
//---------------------------------------------------------------------------
void __fastcall TForm8::Button3Click(TObject *Sender)
{
if(ColorDialog1->Execute())
Form8->Font->Color=ColorDialog1->Color;
}
//---------------------------------------------------------------------------
void __fastcall TForm8::BitBtn6Click(TObject *Sender)
{
Canvas->Pen->Color = clBlue;
for(int i=0;i<TrackBar8->Position;i++)
{
Canvas->MoveTo(TrackBar4->Position+i,TrackBar5->Position+i);
Canvas->LineTo(TrackBar6->Position+i,TrackBar7->Position+i);
}
// Canvas->Brush->Color = clBtnFace;
}
//---------------------------------------------------------------------------
void __fastcall TForm8::TrackBar6Change(TObject *Sender)
{
if(sw==1)
{
Canvas->Pen->Color = clBlue;
Canvas->MoveTo(TrackBar4->Position,TrackBar5->Position);
Canvas->LineTo(TrackBar6->Position,TrackBar7->Position);
};
}
//---------------------------------------------------------------------------
void __fastcall TForm8::BitBtn10Click(TObject *Sender)
{
if(sw==0)
sw=1;
else
sw=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm8::TrackBar7Change(TObject *Sender)
{
if(sw==1)
{
Canvas->Pen->Color = clBlue;
Canvas->MoveTo(TrackBar4->Position,TrackBar5->Position);
Canvas->LineTo(TrackBar6->Position,TrackBar7->Position);
};
}
//---------------------------------------------------------------------------
void __fastcall TForm8::TrackBar5Change(TObject *Sender)
{
if(sw==1)
{
Canvas->Pen->Color = clBlue;
Canvas->MoveTo(TrackBar4->Position,TrackBar5->Position);
Canvas->LineTo(TrackBar6->Position,TrackBar7->Position);
};
}
//---------------------------------------------------------------------------
void __fastcall TForm8::TrackBar4Change(TObject *Sender)
{
if(sw==1)
{
Canvas->Pen->Color = clBlue;
Canvas->MoveTo(TrackBar4->Position,TrackBar5->Position);
Canvas->LineTo(TrackBar6->Position,TrackBar7->Position);
};
}
//---------------------------------------------------------------------------
void __fastcall TForm8::BitBtn11Click(TObject *Sender)
{
Form8->Refresh();
}
//---------------------------------------------------------------------------
void __fastcall TForm8::BitBtn12Click(TObject *Sender)
{
Label11->Caption = IntToStr(Screen->Width) + "x" + IntToStr(Screen->Height);
}
//---------------------------------------------------------------------------
void __fastcall TForm8::Timer1Timer(TObject *Sender)
{
TCanvas *Canvas = new TCanvas();
Canvas->Handle = GetDC(0);
TPoint Point;
GetCursorPos(&Point);
TColor Color = Canvas->Pixels[Point.x][Point.y];
delete Canvas;
int RGB = ColorToRGB(Color);
TVarRec args[3] = {GetRValue(RGB), GetGValue(RGB), GetBValue(RGB)};
Label12->Caption = Format("#%.2x%.2x%.2x", args, 3);
}
//---------------------------------------------------------------------------Grafika 2:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit9.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm9 *Form9;
//---------------------------------------------------------------------------
__fastcall TForm9::TForm9(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm9::Button1Click(TObject *Sender)
{
int BytesPerScan = abs(int(Image1->Picture->Bitmap->ScanLine[1])-
int(Image1->Picture->Bitmap->ScanLine[0]));
for (int i = 1; i <= 256; i++)
{
for (int lineNr = 0;lineNr <= Image1->Picture->Bitmap->Height-1;lineNr++)
{ Byte* p = (Byte*)Image1->Picture->Bitmap->ScanLine[lineNr];
for (int x = 0; x <= BytesPerScan - 1; x++)
if (p[x] < 255) p[x] = ++p[x];
Application->ProcessMessages();
}
Sleep(50);
Image1->Refresh();
}
}
//---------------------------------------------------------------------------
void __fastcall TForm9::Button2Click(TObject *Sender)
{
int BytesPerScan = abs(int(Image1->Picture->Bitmap->ScanLine[1]) -
int(Image1->Picture->Bitmap->ScanLine[0]));
for (int i = 1; i <= 256; i++)
{
for (int lineNr = 0; lineNr <= Image1->Picture->Bitmap->Height-1; lineNr++)
{ Byte* p = (Byte*)Image1->Picture->Bitmap->ScanLine[lineNr];
for (int x = 0; x <= BytesPerScan - 1; x++)
if (p[x] > 0) p[x] = --p[x];
Application->ProcessMessages();
}
Sleep(50);
Image1->Refresh();
}
}
//---------------------------------------------------------------------------
void __fastcall TForm9::BitBtn1Click(TObject *Sender)
{
int x, y;
int width, height;
Graphics::TBitmap* tmpBMP = new Graphics::TBitmap;
tmpBMP->Height = Image1->Width;
tmpBMP->Width = Image1->Height;
width = Image1->Width-1;
height = Image1->Height-1;
for (y = 0; y <= height; y++)
for (x = 0; x <= width; x++)
{
tmpBMP->Canvas->Pixels[y][width-x] = Image1->Canvas->Pixels[x][y];
Application->ProcessMessages();
}
Image1->Width = tmpBMP->Width;
Image1->Height = tmpBMP->Height;
Image1->Picture->Bitmap->Assign(tmpBMP);
delete tmpBMP;
}
//---------------------------------------------------------------------------
void __fastcall TForm9::BitBtn2Click(TObject *Sender)
{
if(OpenDialog1->Execute())
Image1->Picture->LoadFromFile(OpenDialog1->FileName);
Image1->AutoSize;
Image1->Center;
Image1->Stretch;
}
//---------------------------------------------------------------------------
void __fastcall TForm9::BitBtn3Click(TObject *Sender)
{
if(SaveDialog1->Execute())
Image1->Picture->SaveToFile(SaveDialog1->FileName);
}
//---------------------------------------------------------------------------
void __fastcall TForm9::BitBtn4Click(TObject *Sender)
{
Image1->Transparent = true;
Image1->Picture->Bitmap->TransparentColor = clBlue;
}
//---------------------------------------------------------------------------
void __fastcall TForm9::BitBtn5Click(TObject *Sender)
{
for (int i=0; i<=Image1->Height-1; i++)
for (int j=0; j<=Image1->Width-1; j++)
{
TColor Kolor = Image1->Picture->Bitmap->Canvas->Pixels[j][i];
byte r,g,b;
if (CheckBox1->Checked)
{
r = 0;
g = GetGValue(Kolor);
b = GetBValue(Kolor);
}
else if (CheckBox2->Checked)
{
r = GetRValue(Kolor);
g = 0;
b = GetBValue(Kolor);
}
else
{
r = GetRValue(Kolor);
g = GetGValue(Kolor);
b = 0;
}
Image1->Picture->Bitmap->Canvas->Pixels[j][i] = RGB(r,g,b);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm9::BitBtn6Click(TObject *Sender)
{
for (int i=0; i<=Image1->Height-1; i++)
for (int j=0; j<=Image1->Width-1; j++)
{
TColor Kolor = Image1->Picture->Bitmap->Canvas->Pixels[j][i];
byte r,g,b;
r = 255 - GetRValue(Kolor);
g = 255 - GetGValue(Kolor);
b = 255 - GetBValue(Kolor);
Image1->Picture->Bitmap->Canvas->Pixels[j][i] = RGB(r,g,b);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm9::BitBtn7Click(TObject *Sender)
{
Graphics::TBitmap *bg = new Graphics::TBitmap;
if(OpenDialog1->Execute())
bg->LoadFromFile(OpenDialog1->FileName);
Form9->Canvas->Brush->Bitmap = bg;
Form9->Canvas->FillRect(GetClientRect());
delete bg;
}
//---------------------------------------------------------------------------
void __fastcall TForm9::BitBtn8Click(TObject *Sender)
{
int x, y;
int width, height;
Graphics::TBitmap* tmpBMP = new Graphics::TBitmap;
tmpBMP->Height = Image1->Height;
tmpBMP->Width = Image1->Width;
width = Image1->Width-1;
height = Image1->Height-1;
for (y = 0; y <= height; y++)
for (x = 0; x <= width; x++)
{
tmpBMP->Canvas->Pixels[x][y] = Image1->Canvas->Pixels[x][height-y];
Application->ProcessMessages();
}
Image1->Picture->Bitmap->Assign(tmpBMP);
delete tmpBMP;
}
//---------------------------------------------------------------------------
void __fastcall TForm9::BitBtn9Click(TObject *Sender)
{
int x, y;
int width, height;
Graphics::TBitmap* tmpBMP = new Graphics::TBitmap;
tmpBMP->Height = Image1->Height;
tmpBMP->Width = Image1->Width;
width = Image1->Width-1;
height = Image1->Height-1;
for (y = 0; y <= height; y++)
for (x = 0; x <= width; x++)
{
tmpBMP->Canvas->Pixels[width-x][y] = Image1->Canvas->Pixels[x][y];
Application->ProcessMessages();
}
Image1->Picture->Bitmap->Assign(tmpBMP);
delete tmpBMP;
}
//---------------------------------------------------------------------------
void __fastcall TForm9::BitBtn10Click(TObject *Sender)
{
Image1->Picture = NULL;
}
//---------------------------------------------------------------------------
void __fastcall TForm9::BitBtn11Click(TObject *Sender)
{
HDC DC;
DC = GetDC(0);
switch (GetDeviceCaps(DC, PLANES) * GetDeviceCaps(DC, BITSPIXEL))
{
case 1: Label1->Caption = "Monochrome"; break;
case 4: Label1->Caption = "16 kolorów"; break;
case 8: Label1->Caption = "256 kolorów"; break;
case 16: Label1->Caption = "True Color 16 bitów"; break;
case 24: Label1->Caption = "True Color 24 bity"; break;
case 32: Label1->Caption = "True Color 32 bity"; break;
}
ReleaseDC(0, DC);
}
//---------------------------------------------------------------------------
void __fastcall TForm9::Timer1Timer(TObject *Sender)
{
TCanvas *Canvas = new TCanvas();
Canvas->Handle = GetDC(0);
TPoint Point;
GetCursorPos(&Point);
TColor Color = Canvas->Pixels[Point.x][Point.y];
delete Canvas;
int RGB = ColorToRGB(Color);
TVarRec args[3] = {GetRValue(RGB), GetGValue(RGB), GetBValue(RGB)};
Label2->Caption = Format("#%.2x%.2x%.2x", args, 3);
}
//---------------------------------------------------------------------------
void __fastcall TForm9::BitBtn12Click(TObject *Sender)
{
Label4->Caption = IntToStr(Screen->Width) + "x" + IntToStr(Screen->Height);
}
//---------------------------------------------------------------------------Filmy
Menu główne:
Obliczenia:
Pliki:
Grafika: