Dark Theme aber nur die Farben

[FriedrichAT]

Zitat von Phoner:

Hallo,

Dazu gehört eben auch, dass ich keine anderen Symbole für Min/Max/Close haben möchte und auch die gleiche Fensterfarbe für aktives Fenster oder Fenster ohne Fokus.

Für die "Fensterfarbe" hab ich was...

Delphi-Quellcode:

function Get_Color: TColor;
var Frm: TForm;
    CH:TCanvas;
begin
  Frm:= TForm.Create(Application);
  CH:= TCanvas.create;
  try
    Frm.Caption:= '';
    Frm.BorderStyle:= bsToolwindow;
    Frm.SetBounds(0, 0, 80, 50);
    Frm.FormStyle:= fsStayOnTop;
    Application.ShowMainForm:= False;
    Frm.Show;
    CH.Handle:= GetWindowDC(GetDesktopWindow);
    result:= WinApi.Windows.GetPixel(CH.Handle, Frm.Left+12, Frm.Top+12);
  finally
    CH.Free;
    Frm.Free;
    Application.ShowMainForm:= True;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.Color:= Get_Color;
end;