Delphi Python GUI: Create A ComboBox To Select A Color With DelphiVCL.ColorBox

[FireWind]

Python GUI: Create A ComboBox To Select A Color With DelphiVCL.ColorBox
By Muhammad Azizul Hakim March 26, 2021

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:

import DelphiVCL
 
dir(DelphiVCL.ColorBox)

See the responses in our Windows command prompt:

Here is the working example of the implementation of DelphiVCL.ColorBox:

# 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:

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()

Для просмотра ссылки Войди или Зарегистрируйся