Luna-Design unterbinden

[malo]

Zitat:

Zitat von Knotti2005

Mir is das ja eigentlich egal wie das unter Luna aussieht

Wenn das wirklich so wäre, hättest du den Thread nicht aufgemacht.

Verwende doch einfach die richtigen Konstanten, dann passiert so ein Design-Fehler auch nicht.

[Knotti2005]

Das war die klassische AboutBox (C:\Programme\Borland\Delphi7\Objrepos\about.pas) da hab ich nichts geändert....

Der Code

Delphi-Quellcode:

uses

..., UxTheme;

procedure TForm1.FormCreate(Sender: TObject);
var

s: integer;
begin
   for s := 0 to ControlCount-1 do begin
  if Controls[s] is TWinControl then begin
    SetWindowTheme((ControlsF[s] as TWinControl).Handle, '', '');
  end;
end;

Funktioniert zwar für die Komponten aber nicht für die Form...

[Elvis]

Zitat:

Zitat von Knotti2005

funktioniert zwar für die Komponten aber nicht für die Form...

Weil du es nur für die Controls ausführst? :gruebel:

[Knotti2005]

wie mach ich das :gruebel: der code ist ja für control ausgelegt..

[SirThornberry]

Versuch doch einfach mal den Source zu verstehen (und/oder schau in die Hilfe), dann dürfte sich die Frage erledigt haben.

[Waldteufel]

Hi.

Darf man fragen, warum du die Panel-Farbe nicht einfach auf clBtnFace änderst, anstatt mit den verschiedenen Windows-Themes zu jonglieren?