Stiler, Styles

Stiler, «Styles», er vel også greit nok forklart i dokumentasjonen, her et bildet i Design modus:

Firemonkey Styles I
Firemonkey Styles I

Du legger på en «Style»-komponent fra biblioteket, og så kan du laste en stil opp i denne. Jeg har tenkt å vise hvordan du kan gjøre dette ved «Run»-time.

Jeg la inn en mulighet for dette i «Unit1.cpp» som er implementeringen av «TForm»-klassen hos meg. Den får alltid dette navnet som standard 🙂

//---------------------------------------------------------------------------
//
void __fastcall TForm1::OnFormCreate(TObject *Sender)
{
	//TStyleManager::SetStyleFromFile(L"Transparent.style");      //  2
	//TStyleManager::SetStyleFromFile(L"MetropolisUIBlack.style");
	//TStyleManager::SetStyleFromFile(L"GoldenGraphite.style");
	//TStyleManager::SetStyleFromFile(L"EmeraldDark.Win.style");
	//TStyleManager::SetStyleFromFile(L"Diamond.Win.style");
	TStyleManager::SetStyleFromFile(L"Dark.style");               //  1
	//TStyleManager::SetStyleFromFile(L"CalypsoSE_Win.style");    //  3
	//TStyleManager::SetStyleFromFile(L"Calypso_Win.style");
	//TStyleManager::SetStyleFromFile(L"Blend.style");            //  4
	//TStyleManager::SetStyleFromFile(L"AquaGraphite.style");     //  5
	//TStyleManager::SetStyleFromFile(L"Amakrits.style");         //  6
	//TStyleManager::SetStyleFromFile(L"gamlisensteststyle.style");
....
....
....

I bildet ovenfor ser du at jeg ar testet et antall ulike stiler, og jeg har nummerert dem etter hvilken som passer meg best 🙂

Så et lite bilde fra runtime for å vise at det funker:

Firemonkey Styles II
Firemonkey Styles II

Legg igjen en kommentar

Din e-postadresse vil ikke bli publisert. Obligatoriske felt er merket med *

Dette nettstedet bruker Akismet for å redusere spam. Lær om hvordan dine kommentar-data prosesseres.