Warning: file_get_contents(/data/phpspider/zhask/data//catemap/9/delphi/8.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
t Delphi 10.3中的OLBAR波段大小调整问题_Delphi_Vcl - Fatal编程技术网

t Delphi 10.3中的OLBAR波段大小调整问题

t Delphi 10.3中的OLBAR波段大小调整问题,delphi,vcl,Delphi,Vcl,我将TCoolBar组件放入delphi10.3中的一个全新项目中。有一些乐队排成一排。当我调整一个标注栏的大小时,同一行中其右侧的其他标注栏也会调整大小。我可以减小或增大波段大小,右边的其他波段总是根据差值增大。如果我调整窗体的大小,所有的乐队都会疯狂。它们都增大了尺寸 如果使用标注栏编辑器创建标注栏,则不会发生错误。当我将一些战术工具栏下拉到t工具栏中时,就会出现这种情况 未设置CoolBar自动调整大小。bands或TActionToolBar没有这样的属性 pas文件: unit Uni

我将
TCoolBar
组件放入
delphi10.3
中的一个全新项目中。有一些乐队排成一排。当我调整一个标注栏的大小时,同一行中其右侧的其他标注栏也会调整大小。我可以减小或增大波段大小,右边的其他波段总是根据差值增大。如果我调整窗体的大小,所有的乐队都会疯狂。它们都增大了尺寸

如果使用标注栏编辑器创建标注栏,则不会发生错误。当我将一些
战术工具栏
下拉到
t工具栏
中时,就会出现这种情况

未设置CoolBar自动调整大小。bands或TActionToolBar没有这样的属性

pas文件:

unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ToolWin, Vcl.ComCtrls,
  Vcl.PlatformDefaultStyleActnCtrls, System.Actions, Vcl.ActnList, Vcl.ActnMan,
  Vcl.ActnCtrls;

type
  TForm2 = class(TForm)
    ActionManager1: TActionManager;
    CoolBar1: TCoolBar;
    ActionToolBar1: TActionToolBar;
    ActionToolBar2: TActionToolBar;
    ActionToolBar3: TActionToolBar;
    ActionToolBar4: TActionToolBar;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

end.
dpr文件:

object Form2: TForm2
  Left = 0
  Top = 0
  Caption = 'Form2'
  ClientHeight = 405
  ClientWidth = 635
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 635
    Height = 65
    Bands = <
      item
        Control = ActionToolBar1
        ImageIndex = -1
        Width = 148
      end
      item
        Break = False
        Control = ActionToolBar2
        ImageIndex = -1
        Width = 477
      end
      item
        Control = ActionToolBar3
        ImageIndex = -1
        Width = 146
      end
      item
        Break = False
        Control = ActionToolBar4
        ImageIndex = -1
        Width = 479
      end>
    FixedSize = True
    object ActionToolBar1: TActionToolBar
      Left = 11
      Top = 0
      Width = 135
      Height = 25
      Caption = 'ActionToolBar1'
      Color = clMenuBar
      ColorMap.DisabledFontColor = 7171437
      ColorMap.HighlightColor = clWhite
      ColorMap.BtnSelectedFont = clBlack
      ColorMap.UnusedColor = clWhite
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      Spacing = 0
    end
    object ActionToolBar2: TActionToolBar
      Left = 163
      Top = 0
      Width = 468
      Height = 25
      Caption = 'ActionToolBar2'
      Color = clMenuBar
      ColorMap.DisabledFontColor = 7171437
      ColorMap.HighlightColor = clWhite
      ColorMap.BtnSelectedFont = clBlack
      ColorMap.UnusedColor = clWhite
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      Spacing = 0
    end
    object ActionToolBar3: TActionToolBar
      Left = 11
      Top = 27
      Width = 133
      Height = 25
      Caption = 'ActionToolBar3'
      Color = clMenuBar
      ColorMap.DisabledFontColor = 7171437
      ColorMap.HighlightColor = clWhite
      ColorMap.BtnSelectedFont = clBlack
      ColorMap.UnusedColor = clWhite
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      Spacing = 0
    end
    object ActionToolBar4: TActionToolBar
      Left = 161
      Top = 27
      Width = 470
      Height = 25
      Caption = 'ActionToolBar4'
      Color = clMenuBar
      ColorMap.DisabledFontColor = 7171437
      ColorMap.HighlightColor = clWhite
      ColorMap.BtnSelectedFont = clBlack
      ColorMap.UnusedColor = clWhite
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      Spacing = 0
    end
  end
  object ActionManager1: TActionManager
    Left = 248
    Top = 160
    StyleName = 'Platform Default'
  end
end
对象格式2:TForm2
左=0
Top=0
标题='Form2'
ClientHeight=405
ClientWidth=635
颜色=clBtnFace
Font.Charset=默认字符集
Font.Color=clWindowText
字体高度=-11
Font.Name='Tahoma'
Font.Style=[]
OldCreateOrder=False
OnCreate=FormCreate
PixelsPerInch=96
text高度=13
对象CoolBar1:tColbar
左=0
Top=0
宽度=635
高度=65
波段=<
项目
控件=操作工具栏1
ImageIndex=-1
宽度=148
结束
项目
中断=错误
控件=操作工具栏2
ImageIndex=-1
宽度=477
结束
项目
控件=操作工具栏3
ImageIndex=-1
宽度=146
结束
项目
中断=错误
控件=操作工具栏4
ImageIndex=-1
宽度=479
结束>
FixedSize=True
对象操作工具栏1:TActionToolBar
左=11
Top=0
宽度=135
高度=25
标题='ActionToolBar1'
颜色=clMenuBar
ColorMap.DisabledFontColor=7171437
ColorMap.HighlightColor=clWhite
ColorMap.btSelectedFont=clBlack
ColorMap.UnusedColor=clWhite
Font.Charset=默认字符集
Font.Color=clBlack
字体高度=-11
Font.Name='Tahoma'
Font.Style=[]
ParentFont=False
间距=0
结束
对象操作工具栏2:TActionToolBar
左=163
Top=0
宽度=468
高度=25
标题='ActionToolBar2'
颜色=clMenuBar
ColorMap.DisabledFontColor=7171437
ColorMap.HighlightColor=clWhite
ColorMap.btSelectedFont=clBlack
ColorMap.UnusedColor=clWhite
Font.Charset=默认字符集
Font.Color=clBlack
字体高度=-11
Font.Name='Tahoma'
Font.Style=[]
ParentFont=False
间距=0
结束
对象操作工具栏3:TActionToolBar
左=11
Top=27
宽度=133
高度=25
标题='ActionToolBar3'
颜色=clMenuBar
ColorMap.DisabledFontColor=7171437
ColorMap.HighlightColor=clWhite
ColorMap.btSelectedFont=clBlack
ColorMap.UnusedColor=clWhite
Font.Charset=默认字符集
Font.Color=clBlack
字体高度=-11
Font.Name='Tahoma'
Font.Style=[]
ParentFont=False
间距=0
结束
对象操作工具栏4:TActionToolBar
左=161
Top=27
宽度=470
高度=25
标题='ActionToolBar4'
颜色=clMenuBar
ColorMap.DisabledFontColor=7171437
ColorMap.HighlightColor=clWhite
ColorMap.btSelectedFont=clBlack
ColorMap.UnusedColor=clWhite
Font.Charset=默认字符集
Font.Color=clBlack
字体高度=-11
Font.Name='Tahoma'
Font.Style=[]
ParentFont=False
间距=0
结束
结束
对象ActionManager 1:TActionManager
左=248
Top=160
StyleName='平台默认值'
结束
结束
这个问题有什么解决办法吗