At design time, the form looks like the one shown in the following screenshot:
When the form is created, the list of available styles is loaded in the Radio group using code similar to the following:
RadioGroup1.Items.Clear; RadioGroup1.Columns := Length(TStyleManager.StyleNames); for LStyleName in TStyleManager.StyleNames do RadioGroup1.Items.Add(LStyleName); RadioGroup1.ItemIndex := 0; TStyleManager.SetStyle('Windows');
Then, a list of TLampInfo objects is created and initialized using the information contained in the Zones array. After that, the draw grid is initialized according ...