GLScene/Examples/Demos/utilities/ScreenSaver/fScreenSaver2C.cpp

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

#include <vcl.h>
#pragma hdrstop

#include "fScreenSaver2C.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "GLS.BaseClasses"
#pragma link "GLS.Behaviours"
#pragma link "GLS.Cadencer"
#pragma link "GLS.Coordinates"

#pragma link "GLS.GeomObjects"
#pragma link "GLS.Objects"
#pragma link "GLS.Scene"
#pragma link "GLS.SpaceText"
#pragma link "GLS.SceneViewer"

#pragma resource "*.dfm"
TForm2* Form2;

const String cSaverRegistryKey =
    "Software\\GLScene\\Demos\\utilities\\ScreenSaver";
const String cSaverRegistryMeshResolutions = "MeshResolutions";

//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner) : TForm(Owner) {}
//---------------------------------------------------------------------------
int __fastcall GetMeshResolutions()
{
    TRegistry* reg;
    reg = new TRegistry;
    reg->OpenKey(cSaverRegistryKey, true);
    // If the value cannot be found, we default to hi-resolution
    if (reg->ValueExists(cSaverRegistryMeshResolutions))
        return reg->ReadInteger(cSaverRegistryMeshResolutions);
    else
        return 1;
    delete reg;
}
//---------------------------------------------------------------------------
void __fastcall SetMeshResolutions(int MeshResolutions)
{
    TRegistry* reg;
    reg = new TRegistry;
    reg->OpenKey(cSaverRegistryKey, true);
    reg->WriteInteger(cSaverRegistryMeshResolutions, MeshResolutions);
    delete reg;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::FormCreate(TObject* Sender)
{
    // we highlight the current resolution
    SetSelected(GetMeshResolutions());
    SetHot(-1);
}
//---------------------------------------------------------------------------

void __fastcall TForm2::SetSelected(int nb)
{
    switch (nb) {
        case 0:
            Torus1->Material->FrontProperties->Emission->AsWinColor = clNavy;
        case 1:
            Torus2->Material->FrontProperties->Emission->AsWinColor = clBlue;
            break;
        default:;
    }
}
//---------------------------------------------------------------------------

void __fastcall TForm2::SetHot(int nb)
{
    switch (nb) {
        case 0:
            Torus1->Material->FrontProperties->Diffuse->AsWinColor = clGray;
        case 1:
            Torus2->Material->FrontProperties->Diffuse->AsWinColor = clWhite;
            break;
        default:;
    }
}
void __fastcall TForm2::GLSceneViewer1MouseMove(
    TObject* Sender, TShiftState Shift, int X, int Y)
{
    TGLBaseSceneObject* bso;

    // Here I used the trick of setting Torus1.Tag=1 and Torus.Tag=2
    // other objects have a Tag of 0
    bso = GLSceneViewer1->Buffer->GetPickedObject(X, Y);
    if (bso && (bso->Tag > 0))
        SetHot(bso->Tag - 1);
    else
        SetHot(-1);
}
//---------------------------------------------------------------------------
void __fastcall TForm2::GLSceneViewer1MouseDown(
    TObject* Sender, TMouseButton Button, TShiftState Shift, int X, int Y)
{
    if (FLastHotNb >= 0) {
        SetSelected(FLastHotNb);
        SetMeshResolutions(FLastHotNb);
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button2Click(TObject* Sender)
{
    // a call to "Form1.ScreenSaver1.SetPassword;" would have done the same
    SetScreenSaverPassword;
}
//---------------------------------------------------------------------------