1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.Style1Click(Sender: TObject);
begin //normal hell
  TStyleManager.Setstyle('');
end;

procedure TForm1.Style2Click(Sender: TObject);
begin  //dunkel
  TStyleManager.Setstyle('Windows10 Dark');
end;                    

1:
2:
3:
4:
5:

procedure TForm1.Style2Click(Sender: TObject);
var s :string;
begin
  s:= TStyleManager.Setstyle;
end;                    

1:
2:
3:
4:

  public
    { Public-Deklarationen }
    class procedure SetStyle(const Name: string); overload;
  end;                    

1:
2:
3:

class procedure SetStyle(const Name: string); overload;
class procedure SetStyle(Style: TCustomStyleServices); overload;
class procedure SetStyle(Handle: TStyleServicesHandle); overload;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

Procedure PutAlarm(Fehlertext: string; Col: TColor);
{ Programm- oder Bedien-Fehlermeldungen anzeigen }
var Rect : TRect;
begin
  with Form1 do
  begin
    if bell then exit; // keine zweite Meldung solange erste aktiv
    Shape1.Brush.Color := col;
    Shape1.Brush.Style := bsSolid; //bsDiagCross;
    if Col = clRed
      then LabelFehler.Font.Color := clWhite
      else LabelFehler.Font.Color := clblack;
    LabelFehler.Caption := Fehlertext;
    bell := true; // Anzeige aktiv, (immer nur die erste)
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

Procedure PutAlarm(Fehlertext: string; Col: TColor);
{ Programm- oder Bedien-Fehlermeldungen anzeigen }
var Rect : TRect;
begin
  with Form1 do
  begin
    if bell then exit; // keine zweite Meldung solange erste aktiv
    Canvas.Pen.Width := 1;
    Canvas.Font.Size:=11;
    Shape1.Brush.Color := col;
    Shape1.Brush.Style := bsSolid; //bsDiagCross;
    if Col = clRed
      then Canvas.Pen.Color := clWhite
      else Canvas.Pen.Color := clBlack;  
// dieser Text erscheint nicht (ist zumindest nicht sichtbar)
    Canvas.textout(Panelfehler.Left + 2, Panelfehler.Top+2, Fehlertext);
    bell := true; // Anzeige aktiv, (immer nur die erste)
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TStyleHook.DrawControlText(Canvas: TCanvas; Details: TThemedElementDetails;
  const S: string; var R: TRect; Flags: Cardinal);
[...]
begin
[...]
  if LStyle.GetElementColor(Details, ecTextColor, ThemeTextColor) then
  begin
    if not Control.Enabled or (seFont in Control.StyleElements) then
      Canvas.Font.Color := ThemeTextColor;
    LStyle.DrawText(Canvas.Handle, Details, S, R, TextFormat, Canvas.Font.Color);
[...]                    

1:

ListView1.ItemIndex := i; // setzt Fokus auf Item i - wenn i=0, dann erstes Item