Examples/Demos/bench/fcBench.cpp - master - stud_22-365/GLXEngine

Examples/Demos/bench/fcBench.cpp
106 строк3 KB
geoblock
Updated to v.2.4.3
17 фев 2024, 18:10
17 фев 2024, 18:10c4360b6
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "fcBench.h"

#pragma link "fCanvasC"
#pragma link "fMegaCubeC"
#pragma link "fMegaglassC"
#pragma link "fSmokingC"
#pragma link "fVolcanoC"
#pragma link "fWhirlC"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFirmBench *FirmBench;
//---------------------------------------------------------------------------
__fastcall TFirmBench::TFirmBench(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFirmBench::FormCreate(TObject *Sender)
{
   // Canvas
  FormCanvas = new TFormCanvas(tsCanvas);
  FormCanvas->Parent = tsCanvas;
  FormCanvas->Align = alClient;
  FormCanvas->BorderStyle = bsNone;
  FormCanvas->GLSceneViewer->Height = 256;
  FormCanvas->GLSceneViewer->Width = 256;
  FormCanvas->Show();

  // Megacube
  FormMegacube = new TFormMegacube(tsMegacube);
  FormMegacube->Parent = tsMegacube;
  FormMegacube->Align = alClient;
  FormMegacube->BorderStyle = bsNone;
  FormMegacube->Show();

  // Megaglasscube
  FormMegaglasscube = new TFormMegaglasscube(tsMegaglasscube);
  FormMegaglasscube->Parent = tsMegaglasscube;
  FormMegaglasscube->Align = alClient;
  FormMegaglasscube->BorderStyle = bsNone;
  FormMegaglasscube->Show();

   // Smoking
  FormSmoking = new TFormSmoking(tsSmoking);
  FormSmoking->Parent = tsSmoking;
  FormSmoking->Align = alClient;
  FormSmoking->BorderStyle = bsNone;
  FormSmoking->Show();

  // Volcano
  FormVolcano = new TFormVolcano(tsVolcano);
  FormVolcano->Parent = tsVolcano;
  FormVolcano->Align = alClient;
  FormVolcano->BorderStyle = bsNone;
  FormVolcano->Show();

  // Whirlwind
  FormWhirl = new TFormWhirl(tsWhirlwind);
  FormWhirl->Parent = tsWhirlwind;
  FormWhirl->Align = alClient;
  FormWhirl->BorderStyle = bsNone;
  FormWhirl->Show();

}

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

void __fastcall TFirmBench::FormShow(TObject *Sender)
{
  PageControl->ActivePage = tsCanvas;
}

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

void __fastcall TFirmBench::tvBenchClick(TObject *Sender)
{
   switch (tvBench->Selected->Index) {
	case 0: {
	  PageControl->ActivePage = tsCanvas; break;
	}
	case 1: {
	  PageControl->ActivePage = tsMegacube; break;
	}
	case 2: {
	  PageControl->ActivePage = tsMegaglasscube; break;
	}
	case 3: {
	  PageControl->ActivePage = tsSmoking; break;
	}
	case 4: {
	  PageControl->ActivePage = tsVolcano; break;
	}
	default: {
	  PageControl->ActivePage = tsWhirlwind; break;
	}
   }

}
//---------------------------------------------------------------------------