2

デルファイ XE-6

TGroupBox コントロール用に独自のスタイルを作成しようとしています。

多数のデモとチュートリアルを見ましたが、これを理解できないようです。

コントロールからのテキストを空白にして、代わりにスタイルのテキスト コントロールに表示するにはどうすればよいですか?

StyleNameに関係していることは知っていますが、何が間違っているのかわかりません。

誰かが簡単な例を提供できますか? たとえば、TGroupbox - 上部にキャプションがありますが、バナーの上部から少し下にキャプションを配置したい場合はどうすればよいでしょうか。バナーを作成することはできますが、バナーのテキスト項目をコントロールのキャプション プロパティにリンクするにはどうすればよいですか?

ありがとう

4

1 に答える 1

4

リンクを自分で行う必要はありません。

FireMonkey コントロールがそれを行います。

function TPresentedTextControl.FindTextObject: TFmxObject;
begin
  Result := FindStyleResource('text'); // Do not localize
end;

StyleBook のテキスト コントロールの名前が であることを確認してくださいtext。

次のような小さな例を作成しました。

ここに画像の説明を入力

object TStyleContainer
  object TLayout
    StyleName = 'grouboxstylebottom'
    Padding.Left = 2.000000000000000000
    Padding.Top = 8.000000000000000000
    Padding.Right = 2.000000000000000000
    Padding.Bottom = 2.000000000000000000
    Position.X = 410.000000000000000000
    Position.Y = 360.000000000000000000
    Size.Width = 120.000000000000000000
    Size.Height = 100.000000000000000000
    Size.PlatformDefault = False
    Visible = False
    TabOrder = 0
    object TStyleObject
      StyleName = 'background'
      Align = Client
      CapMode = Tile
      Locked = True
      SourceLookup = 'Windows 10 Desktopstyle.png'
      Size.Width = 116.000000000000000000
      Size.Height = 90.000000000000000000
      Size.PlatformDefault = False
      WrapMode = Tile
      SourceLink = <
        item
          CapInsets.Left = 2.000000000000000000
          CapInsets.Top = 2.000000000000000000
          CapInsets.Right = 2.000000000000000000
          CapInsets.Bottom = 2.000000000000000000
          SourceRect.Left = 166.000000000000000000
          SourceRect.Top = 83.000000000000000000
          SourceRect.Right = 213.000000000000000000
          SourceRect.Bottom = 130.000000000000000000
        end>
      object TPanel
        StyleName = 'banner'
        Align = Bottom
        Position.Y = 70.000000000000000000
        Size.Width = 116.000000000000000000
        Size.Height = 20.000000000000000000
        Size.PlatformDefault = False
        TabOrder = 0
      end
      object TText
        StyleName = 'text'
        Align = Bottom
        ClipParent = True
        Locked = True
        HitTest = False
        Margins.Left = 1.000000000000000000
        Margins.Top = 2.000000000000000000
        Margins.Right = 1.000000000000000000
        Margins.Bottom = -15.000000000000000000
        Position.X = 1.000000000000000000
        Position.Y = 70.146484375000000000
        Size.Width = 114.000000000000000000
        Size.Height = 14.853515625000000000
        Size.PlatformDefault = False
        Text = 'Groupbox'
        TextSettings.Font.Family = 'Showcard Gothic'
        TextSettings.WordWrap = False
      end
    end
  end
end

したがって、最終的なコントロールは次のようになります。

ここに画像の説明を入力

groupboxstylebottomこの場合、GroupBox の StyleLookup を に設定します。

于 2016-03-08T19:21:36.243 に答える