//---------------------------------------------------------------------------
void __fastcall TfrmMain::New1Click(TObject *Sender)
{
TForm* p = new TfrmView(this);
p->Caption = "Untitled";
p->FreeOnRelease();
p->Show();
this->Tile();
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::CreateExample1Click(TObject *Sender)
{
g_painterType = GDI1->Checked ? PAINTER_GDI : PAINTER_OPENGL;
g_viewType = VIEW_EXAMPLE;
TForm* p = new TfrmView(this);
p->Caption = "Example Window";
p->FreeOnRelease();
p->Show();
fLayers->Caption = "Example Window";
fPropertiesMain->Caption = "Example Window";
this->Tile();
}
void __fastcall TfrmMain::LayerExample1Click(TObject *Sender)
{
this->Properties1->Enabled = true;
g_painterType = GDI1->Checked ? PAINTER_GDI : PAINTER_OPENGL;
g_viewType = VIEW_LAYEREX;
TForm* p = new TfrmView(this);
p->Caption = "Layer Example";
p->FreeOnRelease();
p->Show();
fLayers->Caption = "Layer Example";
fPropertiesMain->Caption = "Layer Example";
this->Tile();
}
