[C++] Erste Schritte mit GUI-Programmen (Borland)

Ich habe heute meine ersten Schritte in Sachen GUI und C++ gemacht. Bisher waren meine Programme immer noch kleine schwarze Konsolenfensterchen 😉

Jetzt wirds bunt!

Hier mal ein Screenshot von meinem allerersten Windowsprogramm:

Eigentlich hat das Ganze keinen wirklichen Sinn, aber ich wollte mich mal in die Sache einarbeiten. Darum habe ich ein paar Elemente (Buttons, ScrollBars, ProgressBars, Labels, Images, usw.) eingebunden und ein bisschen mit ihnen rumgespielt.

Download
Falls ihr das Teil haben wollt (weil es ja so toll ist :-D), hier ist es:
project1.exe (EXE)
komplett_project.zip (ZIP)
project_exe.zip (ZIP)
source_project.zip (ZIP)

Das Programm sieht so aus (Code):

//---------------------------------------------------------------------------

#include 
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int breite = 500;
int hoehe  = 500;
TColor farbe = RGB(100,100,100);
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  for(int i = 0; i< = breite; i++)
  {
    for(int j = 0; j <= hoehe; j++)
    {
     Image1->Canvas->Pixels[i][j] = farbe;
     ProgressBar2->Position = j;
     Label7->Caption = j;
    }
    Sleep(1);
    Application->ProcessMessages();
    ProgressBar1->Position = i;
    Label6->Caption = i;
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::changeWidth(TObject *Sender)
{

  breite = ScrollBar1->Position;
  Label1->Caption = IntToStr(breite);
  Image1->Width = breite;
  ProgressBar1->Max = breite;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::changeHeight(TObject *Sender)
{
   hoehe = ScrollBar2->Position;
   Label2->Caption = IntToStr(hoehe);
   Image1->Height = hoehe;
   ProgressBar2->Max = hoehe;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::cR(TObject *Sender)
{
farbe = RGB(ScrollBar3->Position,ScrollBar4->Position,ScrollBar5->Position);

  for(int i = 0; i<30; i++)
  {
   for(int j = 0; j<30; j++)
   {
    Image2->Canvas->Pixels[i][j] =  farbe;
   }
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  for(int i = 0; i < 100; i++)
  {
    for(int j = 0; j < 100; j++)
    {
      Image1->Canvas->Pixels[(breite/2)-50+i][(hoehe/2)-50+j] = farbe;
    }
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
  Application->Terminate();        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  randomize();
  if(RadioButton1->Checked)
  {
      farbe = RGB(random(256),random(256),random(256));
  }
}
//---------------------------------------------------------------------------