There is an issue with TToolBar

[fansxs]

When the property PixelsPerInch of Form is 96, TToolBar can display normally. However, when it is not 96, such as 120, the program will encounter an error.

[lmbelo]

Can you share your code, please?

[fansxs]

Sure.

object Form1: TForm Left = 0 Top = 0 Caption = 'Form1' ClientHeight = 205 ClientWidth = 382 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False PixelsPerInch = 120 ///HERE//// TextHeight = 16 object ToolBar1: TToolBar Left = 0 Top = 0 Width = 382 Height = 29 Caption = 'ToolBar1' TabOrder = 0 ExplicitLeft = 160 ExplicitTop = 120 ExplicitWidth = 150 end end

Generate it to pydfm file, then load it from python code.

import os from delphivcl import *

class Form1(Form):

def __init__(self, owner):
    self.ToolBar1 = ToolBar(self)
    self.LoadProps(os.path.join(os.path.dirname(os.path.abspath(__file__)), "Unit1.pydfm"))

def main(): Application.Initialize() Application.Title = 'Project1' MainForm = Form1(Application) MainForm.Show() FreeConsole() Application.Run()

if name == 'main': main()