如何在 Delphi 11.3 FMX中自定义Combobox列表背景(transparet并使其四舍五入)

yc0p9oo0 于 12个月前发布在其他

关注(0)|答案(1)|浏览(99)

我特灵使一个圆形的combobox和一个transparent（和圆形，如果posibole）
到目前为止，我所能想到的是，我可以把它放在一个矩形和编辑的组合框的背景风格，以transparent，但.该列表的背景是不transparent，从我从这篇文章https://blog.andreamagni.eu/2021/11/customizing-tcombobox-dropdown-in-fmx/读到它的bien handel由另一种风格的列表框，我尝试了他说，在后，但它不工作，所以有什么我失踪或它的dephi版本问题（我在FMX弗拉姆中使用最新版本的 Delphi 11.3）

delphi

来源：https://stackoverflow.com/questions/75878380/how-to-customize-combobox-dropdown-list-background-trasparet-and-make-it-rounde

1条答案

按热度按时间

slsn1g291#

它对我来说仍然很好用，请参阅附件的屏幕截图。你错过了combopopupstyle部分。下面是.style文件的内容：

object TStyleContainer
  object TRectangle
    StyleName = 'ListBoxstyle'
    Align = Center
    Fill.Color = x3060BBFF
    HitTest = False
    Margins.Bottom = 2.000000000000000000
    Size.Width = 200.000000000000000000
    Size.Height = 200.000000000000000000
    Size.PlatformDefault = False
    Stroke.Kind = None
    Stroke.Thickness = 0.000000000000000000
    Visible = False
    XRadius = 12.500000000000000000
    YRadius = 12.500000000000000000
    object TScrollBar
      StyleName = 'vscrollbar'
      Align = Right
      SmallChange = 0.000000000000000000
      Orientation = Vertical
      Margins.Top = 7.000000000000000000
      Margins.Right = 3.000000000000000000
      Margins.Bottom = 7.000000000000000000
      Position.X = 189.000000000000000000
      Position.Y = 7.000000000000000000
      Size.Width = 8.000000000000000000
      Size.Height = 186.000000000000000000
      Size.PlatformDefault = False
      StyleLookup = 'ListBoxstyleScrollBarStyle'
      TabOrder = 1
    end
    object TLayout
      StyleName = 'content'
      Align = Client
      ClipChildren = True
      Margins.Left = 3.000000000000000000
      Margins.Top = 3.000000000000000000
      Margins.Right = 4.000000000000000000
      Margins.Bottom = 3.000000000000000000
      Size.Width = 182.000000000000000000
      Size.Height = 194.000000000000000000
      Size.PlatformDefault = False
      TabOrder = 2
      object TRoundRect
        StyleName = 'selection'
        Fill.Color = x40AAAAFF
        HitTest = False
        Size.Width = 50.000000000000000000
        Size.Height = 50.000000000000000000
        Size.PlatformDefault = False
        Stroke.Kind = None
      end
    end
  end
  object TRoundRect
    StyleName = 'ComboBoxStyle'
    Align = Center
    Fill.Color = x60000000
    HitTest = False
    Size.Width = 150.000000000000000000
    Size.Height = 24.000000000000000000
    Size.PlatformDefault = False
    Stroke.Kind = None
    Stroke.Thickness = 0.000000000000000000
    Visible = False
    object TPath
      StyleName = 'arrow'
      Align = Right
      Data.Path = {
        26000000000000007F0A8D43A2059942010000006DE78543B7F3784202000000
        F8F38443F95371420200000086DB83432C876D4202000000779E82432C876D42
        020000002D6281432C876D4202000000DB498043F953714202000000CDAC7E43
        B7F37842010000004C770E43E5702E43010000009318F241C9F6784202000000
        3BDFE2410B577142020000001C5AD1413E8A6D42020000005C8FBD413E8A6D42
        020000008FC2A9413E8A6D4202000000703D98410B5771420200000025068941
        C9F6784201000000B4C83640AE079942020000003333733F81D59C4202000000
        00000000C936A1420200000000000000FC29A6420200000000000000291CAB42
        02000000CFF7733F717DAF4202000000B4C83640444BB3420100000025E60743
        69B15E43020000000ECD09439498604302000000F4FD0B43098C614302000000
        4C770E43098C614302000000A4F01043098C6143020000008320134394986043
        020000002B07154369B15E43010000007F0A8D43444BB34202000000F4FD8D43
        EE7CAF4202000000E9768E43A61BAB4202000000E9768E43FC29A64202000000
        E9768E43C936A14202000000F4FD8D4381D59C42020000007F0A8D43A2059942
        030000007F0A8D43A2059942}
      Fill.Color = claWhite
      HitTest = False
      Margins.Top = 9.000000000000000000
      Margins.Right = 9.000000000000000000
      Margins.Bottom = 9.000000000000000000
      Position.X = 131.000000000000000000
      Position.Y = 9.000000000000000000
      Size.Width = 10.000000000000000000
      Size.Height = 6.000000000000000000
      Size.PlatformDefault = False
      Stroke.Color = claNull
      Stroke.Thickness = 0.000000000000000000
      WrapMode = Fit
    end
    object TLayout
      StyleName = 'content'
      Align = Client
      Locked = True
      Margins.Left = 3.000000000000000000
      Margins.Top = 3.000000000000000000
      Margins.Bottom = 3.000000000000000000
      Size.Width = 128.000000000000000000
      Size.Height = 18.000000000000000000
      Size.PlatformDefault = False
      TabOrder = 1
    end
  end
  object TLayout
    StyleName = 'combopopupstyle'
    Align = Center
    Size.Width = 50.000000000000000000
    Size.Height = 50.000000000000000000
    Size.PlatformDefault = False
    Visible = False
    TabOrder = 12
  end
  object TLayout
    StyleName = 'ListBoxItemstyle'
    Align = Center
    Size.Width = 150.000000000000000000
    Size.Height = 24.000000000000000000
    Size.PlatformDefault = False
    Visible = False
    TabOrder = 16
    object TActiveStyleTextObject
      StyleName = 'text'
      Align = Client
      Margins.Left = 8.000000000000000000
      Margins.Top = 1.000000000000000000
      Margins.Right = 8.000000000000000000
      Margins.Bottom = 1.000000000000000000
      Size.Width = 134.000000000000000000
      Size.Height = 22.000000000000000000
      Size.PlatformDefault = False
      Text = 'Text'
      TextSettings.WordWrap = False
      TextSettings.HorzAlign = Leading
      ShadowVisible = False
      ActiveTrigger = Selected
      ActiveColor = claBlack
    end
  end
  object TLayout
    StyleName = 'ListBoxstyleScrollBarStyle'
    Align = Center
    Size.Width = 200.000000000000000000
    Size.Height = 200.000000000000000000
    Size.PlatformDefault = False
    Visible = False
    TabOrder = 3
    object TTrack
      StyleName = 'vtrack'
      Align = Client
      Locked = True
      Orientation = Horizontal
      Margins.Left = 1.000000000000000000
      Size.Width = 199.000000000000000000
      Size.Height = 200.000000000000000000
      Size.PlatformDefault = False
      StyleLookup = 'vscrollbarscrollbarvtrackstyle'
    end
  end
  object TRoundRect
    StyleName = 'vscrollbarscrollbarvtrackstyle'
    Align = Center
    Fill.Color = x15000000
    HitTest = False
    Size.Width = 6.000000000000000000
    Size.Height = 316.000000000000000000
    Size.PlatformDefault = False
    Stroke.Kind = None
    Stroke.Thickness = 0.000000000000000000
    Visible = False
    object TThumb
      StyleName = 'thumb'
      Locked = True
      Size.Width = 6.000000000000000000
      Size.Height = 50.000000000000000000
      Size.PlatformDefault = False
      TabOrder = 0
      object TRoundRect
        StyleName = 'scrollthumb'
        Align = Contents
        Fill.Color = x30000000
        HitTest = False
        Size.Width = 6.000000000000000000
        Size.Height = 50.000000000000000000
        Size.PlatformDefault = False
        Stroke.Kind = None
        Stroke.Thickness = 0.000000000000000000
      end
    end
  end
end

字符串
100d1x

的字符串

赞(0）回复(0）举报 12个月前

我来回答

如何在 Delphi 11.3 FMX中自定义Combobox列表背景(transparet并使其四舍五入)

1条答案

相关问题

热门标签

最新问答