Eigener EditStyle lässt Text verschwinden

[Darlo]

Ist das jetzt so wie du es haben willst?

Delphi-Quellcode:

object TStyleContainer
  object TLayout
    StyleName = 'myeditstyle'
    DesignVisible = False
    Height = 50.000000000000000000
    Position.X = 556.000000000000000000
    Position.Y = 476.000000000000000000
    Width = 50.000000000000000000
    object TLayout
      StyleName = 'background'
      Align = alContents
      Height = 50.000000000000000000
      Width = 50.000000000000000000
      object TLayout
        StyleName = 'leftside'
        Align = alLeft
        Height = 50.000000000000000000
        Width = 4.000000000000000000
        object TSubImage
          StyleName = 'topleftcorner'
          Align = alTop
          Height = 4.000000000000000000
          HitTest = False
          SourceLookup = 'Style.png'
          SourceRect.LeftI = 5
          SourceRect.RightI = 9
          SourceRect.TopI = 5
          SourceRect.BottomI = 9
          Width = 4.000000000000000000
          BitmapScale = 2.000000000000000000
        end
        object TSubImage
          StyleName = 'bottomleftcorner'
          Align = alBottom
          Height = 3.000000000000000000
          HitTest = False
          Position.Y = 47.000000000000000000
          SourceLookup = 'Style.png'
          SourceRect.LeftI = 5
          SourceRect.RightI = 9
          SourceRect.TopI = 24
          SourceRect.BottomI = 27
          Width = 4.000000000000000000
          BitmapScale = 2.000000000000000000
        end
        object TSubImage
          StyleName = 'leftclient'
          Align = alClient
          Height = 43.000000000000000000
          HitTest = False
          SourceLookup = 'Style.png'
          SourceRect.LeftI = 5
          SourceRect.RightI = 9
          SourceRect.TopI = 9
          SourceRect.BottomI = 24
          Width = 4.000000000000000000
          BitmapScale = 2.000000000000000000
        end
      end
      object TLayout
        StyleName = 'rightside'
        Align = alRight
        Height = 50.000000000000000000
        Position.X = 46.000000000000000000
        Width = 4.000000000000000000
        object TSubImage
          StyleName = 'toprightcorner'
          Align = alTop
          Height = 4.000000000000000000
          HitTest = False
          SourceLookup = 'Style.png'
          SourceRect.LeftI = 143
          SourceRect.RightI = 147
          SourceRect.TopI = 5
          SourceRect.BottomI = 9
          Width = 4.000000000000000000
          BitmapScale = 2.000000000000000000
        end
        object TSubImage
          StyleName = 'bottomrightcorner'
          Align = alBottom
          Height = 3.000000000000000000
          HitTest = False
          Position.Y = 47.000000000000000000
          SourceLookup = 'Style.png'
          SourceRect.LeftI = 143
          SourceRect.RightI = 147
          SourceRect.TopI = 24
          SourceRect.BottomI = 27
          Width = 4.000000000000000000
          BitmapScale = 2.000000000000000000
        end
        object TSubImage
          StyleName = 'rightclient'
          Align = alClient
          Height = 43.000000000000000000
          HitTest = False
          SourceLookup = 'Style.png'
          SourceRect.LeftI = 143
          SourceRect.RightI = 147
          SourceRect.TopI = 9
          SourceRect.BottomI = 24
          Width = 4.000000000000000000
          BitmapScale = 2.000000000000000000
        end
      end
      object TLayout
        StyleName = 'middle'
        Align = alClient
        Height = 50.000000000000000000
        Width = 42.000000000000000000
        object TSubImage
          StyleName = 'top'
          Align = alTop
          Height = 4.000000000000000000
          HitTest = False
          SourceLookup = 'Style.png'
          SourceRect.LeftI = 9
          SourceRect.RightI = 144
          SourceRect.TopI = 5
          SourceRect.BottomI = 9
          Width = 42.000000000000000000
          BitmapScale = 2.000000000000000000
        end
        object TSubImage
          StyleName = 'bottomrightcorner'
          Align = alBottom
          Height = 3.000000000000000000
          HitTest = False
          Position.Y = 47.000000000000000000
          SourceLookup = 'Style.png'
          SourceRect.LeftI = 9
          SourceRect.RightI = 144
          SourceRect.TopI = 24
          SourceRect.BottomI = 27
          Width = 42.000000000000000000
          BitmapScale = 2.000000000000000000
        end
        object TSubImage
          StyleName = 'rightclient'
          Align = alClient
          Height = 43.000000000000000000
          HitTest = False
          SourceLookup = 'Style.png'
          SourceRect.LeftI = 9
          SourceRect.RightI = 144
          SourceRect.TopI = 9
          SourceRect.BottomI = 24
          Width = 42.000000000000000000
          BitmapScale = 2.000000000000000000
        end
      end
    end
    object TLayout
      StyleName = 'content'
      Align = alClient
      Locked = True
      Height = 50.000000000000000000
      Padding.Left = 4.000000000000000000
      Padding.Top = 1.000000000000000000
      Padding.Right = 4.000000000000000000
      Padding.Bottom = 2.000000000000000000
      Width = 0.000000000000000000
      object TFontObject
        StyleName = 'font'
      end
    end
    object TLayout
      StyleName = 'buttons'
      Align = alRight
      Locked = True
      Height = 50.000000000000000000
      Padding.Top = 2.000000000000000000
      Padding.Right = 2.000000000000000000
      Padding.Bottom = 2.000000000000000000
      Width = 50.000000000000000000
    end
    object TBrushObject
      StyleName = 'foreground'
    end
    object TBrushObject
      StyleName = 'selection'
      Brush.Color = x7F67A8D3
    end
  end
end