//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TCalc *Calc;
//---------------------------------------------------------------------------
__fastcall TCalc::TCalc(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TCalc::B0Click(TObject *Sender)
{
Edit1->Text = Edit1->Text + '0';
}
//---------------------------------------------------------------------------
void __fastcall TCalc::B1Click(TObject *Sender)
{
Edit1->Text = Edit1->Text + '1';
}
//---------------------------------------------------------------------------
void __fastcall TCalc::B2Click(TObject *Sender)
{
Edit1->Text = Edit1->Text + '2';
}
//---------------------------------------------------------------------------
void __fastcall TCalc::B3Click(TObject *Sender)
{
Edit1->Text = Edit1->Text + '3';
}
//---------------------------------------------------------------------------
void __fastcall TCalc::B4Click(TObject *Sender)
{
Edit1->Text = Edit1->Text + '4';
}
//---------------------------------------------------------------------------
void __fastcall TCalc::B5Click(TObject *Sender)
{
Edit1->Text = Edit1->Text + '5';
}
//---------------------------------------------------------------------------
void __fastcall TCalc::B6Click(TObject *Sender)
{
Edit1->Text = Edit1->Text + '6';
}
//---------------------------------------------------------------------------
void __fastcall TCalc::B7Click(TObject *Sender)
{
Edit1->Text = Edit1->Text + '7';
}
//---------------------------------------------------------------------------
void __fastcall TCalc::B8Click(TObject *Sender)
{
Edit1->Text = Edit1->Text + '8';
}
//---------------------------------------------------------------------------
void __fastcall TCalc::B9Click(TObject *Sender)
{
Edit1->Text = Edit1->Text + '9';
}
//---------------------------------------------------------------------------
void __fastcall TCalc::FormKeyDown(TObject *Sender, WORD &Key,
TShiftState Shift)
{
if(Key==VK_NUMPAD0){
//B0->SetFocus();
Edit1->Text=Edit1->Text+"0";
}
if(Key==VK_NUMPAD1){
//B1->SetFocus();
Edit1->Text=Edit1->Text+"1";
}
if(Key==VK_NUMPAD2){
//B2->SetFocus();
Edit1->Text=Edit1->Text+"2";
}
if(Key==VK_NUMPAD3){
//B3->SetFocus();
Edit1->Text=Edit1->Text+"3";
}
if(Key==VK_NUMPAD4){
//B4->SetFocus();
Edit1->Text=Edit1->Text+"4";
}
if(Key==VK_NUMPAD5){
//B5->SetFocus();
Edit1->Text=Edit1->Text+"5";
}
if(Key==VK_NUMPAD6){
//B6->SetFocus();
Edit1->Text=Edit1->Text+"6";
}
if(Key==VK_NUMPAD7){
//B7->SetFocus();
Edit1->Text=Edit1->Text+"7";
}
if(Key==VK_NUMPAD8){
// B8->SetFocus();
Edit1->Text=Edit1->Text+"8";
}
if(Key==VK_NUMPAD9){
//B9->SetFocus();
Edit1->Text=Edit1->Text+"9";
}
if(Key==VK_MULTIPLY){
//BPUTA->SetFocus();
}
if(Key==VK_DIVIDE){
//BPODELJENO->SetFocus();
}
if(Key==VK_ADD){
//BPLUS->SetFocus();
}
if(Key==VK_SUBTRACT){
//BMINUS->SetFocus();
}
}
//---------------------------------------------------------------------------
void __fastcall TCalc::FormActivate(TObject *Sender)
{
BNL->SetFocus();
//Edit1->SetFocus();
//Meni->SetFocus();
}
//---------------------------------------------------------------------------
void __fastcall TCalc::FormKeyUp(TObject *Sender, WORD &Key,
TShiftState Shift)
{
if(Key==VK_RETURN){
//BJEDNAKO->SetFocus();
Edit1->Undo();
}
if(Key==VK_SEPARATOR){
//BZAREZ->SetFocus();
}
}
//---------------------------------------------------------------------------
void __fastcall TCalc::BNLClick(TObject *Sender)
{
Edit1->Clear();
}
//---------------------------------------------------------------------------
Gde se ovde stavljaju globalne promenjive?
Znaci treba mi 3 promenjive tipa double i jedan int.
Gde da definisem promenjive koje cu moci da koristim bilo gde kasnije?
Hvala^^