Delphi-PRAXiS - Delphi BeOS Titelbar

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)

- - Delphi BeOS Titelbar (https://www.delphipraxis.net/58372-beos-titelbar.html)

Hi,
wie kann ich die Titelleiste so umbauen das sie aussieht wie unter BeOS (siehe Anhang). Dachte mir ich mach es mit nen Panel und die Form schalte ich Transparent. leider geht das mit der Komponente JvTransparentForm nicht. AlphaBlend zeigt alle Objekte transparent an. Also wie könnte ich sowas hinbekommen? Gibt es eine Komponente? Ich denke da an etwas wie "Use Panel as Caption". Suche bei torry und hier bringt nix.

Weiß jemand weiter?

Vielen Dank

edit: Eventuell könnte man ja ein XP theme (oder auch für win 2k???) benutzen. Brauch das Fenster-Layout für meine Shell.... Da wäre durch die Themes der Vorteil das auch sämtlich normale windows apps einigermaßen aussehen wie die shell... Kennt jemand so ein Theme oder wie macht man sowas selber?

Re: BeOS Titelbar

hi onlinehome,

setze die eigenschaft Delphi-Referenz durchsuchen

TForm.TransparentColor auf eine beliebige farbe (ich nehme immer clFuchsia) und setze Delphi-Referenz durchsuchen

TForm.Transparent auf true. nun wird jeder bereich im form, was die angegebene transparentColor hat, "ausgeschnitten".
einfach mal rumprobieren ;)

aenogym

Re: BeOS Titelbar

klasse. Werds gleich ausprobieren... Danke ;-)

Re: BeOS Titelbar

Fast :)

Delphi-Quellcode:

			procedure TForm1.FormCreate(Sender: TObject);

begin

  Form1.TransparentColorValue := clFuchsia;

  Form1.TransparentColor := True;

end;

Re: BeOS Titelbar

Funktioniert. Danke...