TVirtualStringTree - [-]/[+] düğmelerini nasıl değiştirebilirim?

Question

VST'de varsayılan [-]/[+] düğmelerini değiştirmek için kendi özel düğmelerimi (resimleri) nasıl kullanabilirim?
Bunun yerine okları (, ) kullanmak istiyorum, ancak RTL bidi modunu da destekliyorum (, ).

düzenleme: bsTriangle stilinin (ButtonStyle) farkındayım. RTL'ye uymuyor. Kendi özel resimlerimi kullanmak istiyorum.

Answer 1

Bu görüntüler genellikle Windows Vista ve Windows 7'de değil midir? Temalar etkin olduğunda ağaç kontrolü bu sistemlerde otomatik olarak almalıdır.

Buna yakın bir şey elde etmenin kolay yolu, ButtonStyle özelliğini bsTriangle olarak belirlemektir. Yine de, soruda gösterilen resimler tam olarak olmayacak. "Eksi" oku, köşegen yerine düz bir şekilde işaret edecek ve "artı" oku bir anahat yerine katı olacaktır.

Kendi bitmap'inizi sağlayabilirsiniz. VT_XPBUTTONMINUS ve VT_XPBUTTONPLUS kaynaklarını istediğiniz resimlere göre değiştirin ve ButtonFillMode özelliğini fmShaded olarak ayarlayın.

Görüntüyü bi-di modunu temel alarak değiştirmek için bir imkan görmüyorum. PaintNodeButton'u geçersiz kılan bir alt sınıf oluşturabilir ve istediğiniz her şeyi boyayabilirsiniz. Yerleşim kodunu ebeveyn sınıfından kopyalayın.

Answer 2

ButtonStyle özelliklerine bakın. Emin değil RTL bidi modu düşünce saygı duyar.

Answer 3

IIRC, PaintOptions içinde toUseExplorerTheme'yi ekleyerek bunu elde edersiniz. Ancak bu aynı zamanda seçim görünümünü (daha iyi IMNSHO'ya) ve muhtemelen daha fazla değiştirir.

Örneğin

Ben şu olay işleyicileri bir form üzerinde bir TVirtualStringTree bırakın ve eklerseniz: Form1.BiDiModebdRightToLeft için verim ayarı Maalesef:

procedure TForm1.FormCreate(Sender: TObject); 
begin 
    VT.RootNodeCount := 10; 
    VT.TreeOptions.PaintOptions := VT.TreeOptions.PaintOptions + [toUseExplorerTheme]; 
    VT.OnInitNode := VTInitNode; 
    VT.OnInitChildren := VTInitChildren; 
end; 

procedure TForm1.VTInitChildren(Sender: TBaseVirtualTree; 
    Node: PVirtualNode; var ChildCount: Cardinal); 
begin 
    ChildCount := 3; 
end; 

procedure TForm1.VTInitNode(Sender: TBaseVirtualTree; 
    ParentNode, Node: PVirtualNode; var InitialStates: TVirtualNodeInitStates); 
begin 
    Include(InitialStates, ivsHasChildren); 
end; 

alıyorum

Düzenleme Almanca Windows 7'de. Bunun Arapça veya İbranice sistemlerde daha iyi çalışıp çalışmadığını bilmiyorum.