Delphi Fill Solid Shapes With .Brush

FireWind

Свой
Регистрация
2 Дек 2005
Сообщения
1,957
Реакции
1,199
Credits
4,009
Fill Solid Shapes With .Brush
By Muhammad Azizul Hakim April 14, 2021

.Brush represents the color and pattern used to fill solid shapes.

Brush encapsulates the Windows brush object (HBRUSH) and is used to fill solid shapes, such as rectangles and ellipses, with a color or pattern.

Here is the working example of the implementation of DelphiVCL.ColorBox:
Python:
# 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:
Python:
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()
1618473781257.png
Для просмотра ссылки Войди или Зарегистрируйся