DelphiVCL.ColorBox represents a combo box that lets users select a color.
Use ColorBox to provide the user with a drop-down combo box from which to select a color. Use the Style property to specify which colors the color box should list. Each color is displayed next to a small square that is drawn in the corresponding color.
Use the Selected property to access the color that the user selects. The Colors property provides access to the entire list of colors, while the ColorNames property lists their names.
Let’s browse all the properties, methods, and built-in properties of the DelphiVCL.ColorBox using dir() command:
|
1 2 3 |
import DelphiVCL dir(DelphiVCL.ColorBox) |
See the responses in our Windows command prompt:
Here is the working example of the implementation of DelphiVCL.ColorBox:
|
1 2 3 4 |
# Colorbox creation clbSelect = ColorBox(pgOne) clbSelect.SetProps(Parent=pgOne) clbSelect.SetBounds(20,14,100,30) |
To see the result, let’s run the complete script:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 |
from DelphiVCL import * # Create a Class to build a basic Form class MainForm(Form): def __init__(self, Owner): self.Caption = "Introduction to VCL Components" self.Name = "BaseForm" self.SetBounds(10, 10, 500, 450) # Create a Main Panel component pnlMain = CreateComponent('TPanel',Owner) pnlMain.SetProps(Parent=self, Caption="",align = "alClient", Name = "MainPanel") # Page control creation pgConMain = PageControl(pnlMain) pgConMain.Name = "MyPageControl" pgConMain.Parent = pnlMain pgConMain.Align = "alClient" # Tabsheet one pgOne = TabSheet(pnlMain) pgOne.PageControl = pgConMain pgOne.Caption = "Tab 1" # Rectangle shape creation shpRectangle = Shape(pgOne) shpRectangle.SetProps(Parent=pgOne,Shape = 'stRectangle') shpRectangle.SetBounds(140,14,300,200) # Colorbox creation clbSelect = ColorBox(pgOne) clbSelect.SetProps(Parent=pgOne) clbSelect.SetBounds(20,14,100,30) def ColorChangeHandler(Sender): shpRectangle.Brush.Color = clbSelect.Selected clbSelect.Onchange = ColorChangeHandler # Initialize your application def main(): Application.Initialize() Application.Title = "MyDelphiApp" f = MainForm(Application) f.Show() FreeConsole() Application.Run() Application.Destroy() main() |
Check out DelphiVCL which easily allows you to build GUIs for Windows using Python.
