Delphi Xe2: Varsayılan Windows nonclient boya stili dışında bir tarzda boyanmış bir istemci olmayan alanınız var mı?

Question

Firemonkey + Delphi XE2 kullanarak yaptığım bir delphi uygulaması örneği.

Gördüğünüz gibi, pencere çerçevesi içindeki çoğu şeyin görünümünü özelleştirmek için Firemonkey'deki "stylebook" görsel stilini kullanabilirsiniz. Bununla birlikte, pencere çerçevesinin dışı, Windows karar verirken hangi stili kullanırsa çizilir. Şimdi Firemonkey yerine VCL kullanıyor olsaydım, koyu renk bir şemada tüm VCL uygulamalarını "VCL Stilleri" ve "cildi" uygulayabilirim.

Tahminimce, bu Delphi XE2 + Firemonkey ile YET DEĞİLDİR. Bunu nasıl yapacaklarını gösterebilir mi? designtime anda

, formunuzun "önizleme" güzel siyah kenarlık gösterir. Ancak, uygulamamı çalıştırdığımda, Windows XP "Luna" tema sınırı (aşağıdaki resimde mavi kısımlar) acımasız görünüyor. İronik olarak, VCL Firemonkey'den daha güzel (stilleri olan XE2'de) ...

Answer 1

Bir VCL oluşturabilir İsterseniz zamanında sizin FireMonkey formunu yüklemek ve ebeveyn olarak sizin VCL formunu set stilleri ile, her zamanki gibi Forms uygulaması: Aşağıdaki ekran görüntüsünde

uses 
    FMX.Platform.Win, FMX.Forms, 
    Unit2; 

procedure TForm1.FormCreate(Sender: TObject); 
var 
    Form2: TForm2; 
begin 
    Form2 := TForm2.Create(nil); 
    Form2.BorderStyle := FMX.Forms.TFmxFormBorderStyle.bsNone; 
    Form2.SetBounds(0, 0, ClientWidth, ClientHeight); 
    Winapi.Windows.SetParent(FmxHandleToHWND(Form2.Handle), Handle); 
    Form2.Show; 
end; 

Form1 olduğunu VCL uygulaması (Karbon tarzı ile) ana form ve düğme ile koyu gri alan gömülü FireMonkey biçimidir: Ben ana penceresinin yeniden boyutlandırma taşıma değilim

Not - bu boyutlandırmak gerekir emebedd Ayrıca, alClient hizalamasını taklit eden form. Bu yaklaşımla ilgili birçok potansiyel sorun var gibi görünüyor - IDE'nin Firemonkey formlarını VCL formlarıyla kolayca karıştırmanıza izin vermemesinin bir nedeni olduğunu düşünüyorum - olası "derleme hataları veya beklenmedik davranışlar hakkında" uyarır.

Answer 2

Eğer BorderStyle formlarını bsNone olarak değiştirirseniz, istediğiniz kromu ekleyebilirsiniz. Tabii ki, en iyi duruma getirme, küçültme, kapatma, yeniden boyutlandırma vb. Işlemleri elle yapmanız gerekir.

Answer 3

Firemonkey çapraz platformdur. Büyük ölçüde, FMX çerçevesinin kendisine bağlı bir platform olan hiçbir şey yapamazsınız. Ancak, platforma özel işlevselliğe erişmek için temel platformda (Windows, OSX veya iOS olsun) arama yapabilirsiniz. Bu koşullu derlenmiş kod içinde yapılmalıdır. Örn.,

örn. Başka bir bakış açısından bakarsak

{$IF DCC} 
    something; 
{$ENDIF} 

{$IF FPC} 
    somethingelse; 
{$ENDIF} 

(örneğin) bir TRectangle üzerinde FMX iş yapmak yapmak için, o mümkün olabilir sonra bir VCL forma, AddObject kullanmak (ya da üst öğesini atamak).