DelphiWindowStyle.Types.pas

unit DelphiWindowStyle.Types;

{$ALIGN ON}
{$MINENUMSIZE 4}
{$SCOPEDENUMS ON}
{$WARN SYMBOL_PLATFORM OFF}

interface

type
  TDwmWindowAttribute = (                             //
    DWMWA_NCRENDERING_ENABLED = 1,                    //
    DWMWA_NCRENDERING_POLICY,                         //
    DWMWA_TRANSITIONS_FORCEDISABLED,                  //
    DWMWA_ALLOW_NCPAINT,                              //
    DWMWA_CAPTION_BUTTON_BOUNDS,                      // avoid drawing app content under the caption buttons
    DWMWA_NONCLIENT_RTL_LAYOUT,                       //
    DWMWA_FORCE_ICONIC_REPRESENTATION,                //
    DWMWA_FLIP3D_POLICY,                              //
    DWMWA_EXTENDED_FRAME_BOUNDS,                      //
    DWMWA_HAS_ICONIC_BITMAP,                          //
    DWMWA_DISALLOW_PEEK,                              //
    DWMWA_EXCLUDED_FROM_PEEK,                         //
    DWMWA_CLOAK,                                      //
    DWMWA_CLOAKED,                                    //
    DWMWA_FREEZE_REPRESENTATION,                      //
    DWMWA_PASSIVE_UPDATE_MODE,                        //
    DWMWA_USE_HOSTBACKDROPBRUSH,                      //17
    DWMWA_USE_IMMERSIVE_DARK_MODE_BEFORE_20H1 = 19,   //
    DWMWA_USE_IMMERSIVE_DARK_MODE = 20,               //
    DWMWA_WINDOW_CORNER_PREFERENCE = 33,              //
    DWMWA_BORDER_COLOR,                               //
    DWMWA_CAPTION_COLOR,                              //
    DWMWA_TEXT_COLOR,                                 //
    DWMWA_VISIBLE_FRAME_BORDER_THICKNESS,             //
    DWMWA_SYSTEMBACKDROP_TYPE,                        //
    DWMWA_LAST);                                      //

  TWindowCornerPreference = (    //
    DWMWCP_DEFAULT = 0,          // Default
    DWMWCP_DONOTROUND = 1,       // Rectangular
    DWMWCP_ROUND = 2,            // Default
    DWMWCP_ROUNDSMALL = 3);      // Semi-rounded

  TImmersiveHCCacheMode = (IHCM_USE_CACHED_VALUE, IHCM_REFRESH);

  TPreferredAppMode = (DefaultMode, AllowDarkMode, ForceDarkMode, ForceLightMode, ModeMax);

  TWindowCompositionAttribute = (           //
    WCA_UNDEFINED = 0,                      //
    WCA_NCRENDERING_ENABLED = 1,            //
    WCA_NCRENDERING_POLICY = 2,             //
    WCA_TRANSITIONS_FORCEDISABLED = 3,      //
    WCA_ALLOW_NCPAINT = 4,                  //
    WCA_CAPTION_BUTTON_BOUNDS = 5,          //
    WCA_NONCLIENT_RTL_LAYOUT = 6,           //
    WCA_FORCE_ICONIC_REPRESENTATION = 7,    //
    WCA_EXTENDED_FRAME_BOUNDS = 8,          //
    WCA_HAS_ICONIC_BITMAP = 9,              //
    WCA_THEME_ATTRIBUTES = 10,              //
    WCA_NCRENDERING_EXILED = 11,            //
    WCA_NCADORNMENTINFO = 12,               //
    WCA_EXCLUDED_FROM_LIVEPREVIEW = 13,     //
    WCA_VIDEO_OVERLAY_ACTIVE = 14,          //
    WCA_FORCE_ACTIVEWINDOW_APPEARANCE = 15, //
    WCA_DISALLOW_PEEK = 16,                 //
    WCA_CLOAK = 17,                         //
    WCA_CLOAKED = 18,                       //
    WCA_ACCENT_POLICY = 19,                 //
    WCA_FREEZE_REPRESENTATION = 20,         //
    WCA_EVER_UNCLOAKED = 21,                //
    WCA_VISUAL_OWNER = 22,                  //
    WCA_HOLOGRAPHIC = 23,                   //
    WCA_EXCLUDED_FROM_DDA = 24,             //
    WCA_PASSIVEUPDATEMODE = 25,             //
    WCA_USEDARKMODECOLORS = 26,             //
    WCA_LAST = 27);

  TWindowCompositionAttrib = TWindowCompositionAttribute;

  WINDOWCOMPOSITIONATTRIBDATA = record
    Attrib: TWindowCompositionAttribute;
    pvData: Pointer;
    cbData: NativeUInt;
  end;

  TWindowCompositionAttribData = WINDOWCOMPOSITIONATTRIBDATA;

  PWindowCompositionAttribData = ^TWindowCompositionAttribData;

  TAccentPolicy = packed record
    AccentState: Cardinal;
    AccentFlags: Cardinal;
    GradientColor: Cardinal;
    AnimationId: Cardinal;
  end;

type
  TSystemBackdropType = (       //
    DWMSBT_AUTO = 0,            // Auto
    DWMSBT_DISABLE = 1,         // None
    DWMSBT_MAINWINDOW = 2,      // Mica
    DWMSBT_TRANSIENTWINDOW = 3, // Acrylic
    DWMSBT_TABBEDWINDOW = 4);   // Tabbed

const
  AW_HOR_POSITIVE = $00000001; // Àíèìèðóåò îêíî ñëåâà íàïðàâî. Ýòîò ôëàã ìîæíî èñïîëüçîâàòü ñ àíèìàöèåé íàêàòà èëè ñëàéäà. Îí èãíîðèðóåòñÿ ïðè èñïîëüçîâàíèè ñ AW_CENTER èëè AW_BLEND.
  AW_HOR_NEGATIVE = $00000002; // Àíèìèðóåò îêíî ñïðàâà íàëåâî. Ýòîò ôëàã ìîæíî èñïîëüçîâàòü ñ àíèìàöèåé íàêàòà èëè ñëàéäà. Îí èãíîðèðóåòñÿ ïðè èñïîëüçîâàíèè ñ AW_CENTER èëè AW_BLEND.
  AW_VER_POSITIVE = $00000004; // Àíèìèðóåò îêíî ñâåðõó âíèç. Ýòîò ôëàã ìîæíî èñïîëüçîâàòü ñ àíèìàöèåé íàêàòà èëè ñëàéäà. Îí èãíîðèðóåòñÿ ïðè èñïîëüçîâàíèè ñ AW_CENTER èëè AW_BLEND.
  AW_VER_NEGATIVE = $00000008;  // Àíèìèðóåò îêíî ñíèçó ââåðõ. Ýòîò ôëàã ìîæíî èñïîëüçîâàòü ñ àíèìàöèåé íàêàòà èëè ñëàéäà. Îí èãíîðèðóåòñÿ ïðè èñïîëüçîâàíèè ñ AW_CENTER èëè AW_BLEND.
  AW_CENTER = $00000010;       // Äåëàåò îêíî ñâîðà÷èâàòüñÿ âîâíóòðü, åñëè èñïîëüçóåòñÿ AW_HIDE , èëè ðàçâîðà÷èâàòüñÿ íàðóæó, åñëè AW_HIDE íå èñïîëüçóåòñÿ. Ðàçëè÷íûå ôëàãè íàïðàâëåíèÿ íå îêàçûâàþò íèêàêîãî âëèÿíèÿ.
  AW_HIDE = $00010000;         // Ñêðûâàåò îêíî. Ïî óìîë÷àíèþ îòîáðàæàåòñÿ îêíî .
  AW_ACTIVATE = $00020000;     // Àêòèâèðóåò îêíî. Íå èñïîëüçóéòå ýòî çíà÷åíèå ñ AW_HIDE.
  AW_SLIDE = $00040000;        // Èñïîëüçóåò àíèìàöèþ ñëàéäîâ. Ïî óìîë÷àíèþ èñïîëüçóåòñÿ àíèìàöèÿ íàêàòà. Ýòîò ôëàã èãíîðèðóåòñÿ ïðè èñïîëüçîâàíèè ñ AW_CENTER.
  AW_BLEND = $00080000;        // Èñïîëüçóåò ýôôåêò èñ÷åçàíèÿ. Ýòîò ôëàã ìîæíî èñïîëüçîâàòü òîëüêî â òîì ñëó÷àå, åñëè hwnd ÿâëÿåòñÿ îêíîì âåðõíåãî óðîâíÿ.

const
  DWMWA_COLOR_DEFAULT = $FFFFFFFF;
  DWMWA_COLOR_NONE = $FFFFFFFE;

implementation

end.