StyleNames.pas

unit StyleNames;

{$MODE Delphi}

interface

uses Classes;

function GetWindowStyleNames(style: Integer): TStringList;
function GetExtendedWindowStyleNames(style: Integer): TStringList;

implementation

uses Windows;

const
  WindowStyle: array [0..21] of DWORD = (
    WS_BORDER,
    WS_CAPTION,
    WS_CHILD,
    WS_CLIPCHILDREN,
    WS_CLIPSIBLINGS,
    WS_DISABLED,
    WS_DLGFRAME,
    WS_GROUP,
    WS_HSCROLL,
    WS_MAXIMIZE,
    WS_MAXIMIZEBOX,
    WS_MINIMIZE,
    WS_MINIMIZEBOX,
    WS_OVERLAPPED,
    WS_OVERLAPPEDWINDOW,
    WS_POPUP,
    WS_POPUPWINDOW,
    WS_SYSMENU,
    WS_TABSTOP,
    WS_THICKFRAME,
    WS_VISIBLE,
    WS_VSCROLL);

  WindowStyleName: array [0..21] of String = (
    'Border',
    'Caption',
    'Child',
    'Clip children',
    'Clip siblings',
    'Disabled',
    'Dialog frame',
    'Group',
    'Horizontal scroll bar',
    'Maximized',
    'Maximize button',
    'Minimized',
    'Minimize button',
    'Overlapped',
    'Overlapped window',
    'Pop-up',
    'Pop-up window',
    'System menu',
    'Tab stop',
    'Sizing frame',
    'Visible',
    'Vertical scroll bar');

  ExtendedWindowStyle: array [0..20] of Integer = (
    WS_EX_ACCEPTFILES,
    WS_EX_APPWINDOW,
    WS_EX_CLIENTEDGE,
    WS_EX_CONTEXTHELP,
    WS_EX_CONTROLPARENT,
    WS_EX_DLGMODALFRAME,
    WS_EX_LEFT,
    WS_EX_LEFTSCROLLBAR,
    WS_EX_LTRREADING,
    WS_EX_MDICHILD,
    WS_EX_NOPARENTNOTIFY,
    WS_EX_OVERLAPPEDWINDOW,
    WS_EX_PALETTEWINDOW,
    WS_EX_RIGHT,
    WS_EX_RIGHTSCROLLBAR,
    WS_EX_RTLREADING,
    WS_EX_STATICEDGE,
    WS_EX_TOOLWINDOW,
    WS_EX_TOPMOST,
    WS_EX_TRANSPARENT,
    WS_EX_WINDOWEDGE);

  ExtendedWindowStyleName: array [0..20] of String = (
    'Drag drop recepient',
    'Minimize on taskbar',
    'Sunken edge border',
    'Context help',
    'TAB key navigation',
    'Double border',
    'Left aligned (default)',
    'Left vertical scrollbar',
    'Left to Right Text (default)',
    'MDI Child',
    'No parent notify',
    'Client & Window edge',
    'Window & ToolWindow & TopMost edge',
    'Right aligned',
    'Right vertical scrollbar (default)',
    'Right to Left text',
    'Static edge',
    'Tool window',
    'Topmost',
    'Transparent',
    'Raised edge');

function GetWindowStyleNames(style: Integer): TStringList;
var
  list: TStringList;
  i: Integer;
begin
  list := TStringList.Create();
  for i := Low(WindowStyle) to High(WindowStyle) do
    if ((style and WindowStyle[i]) = WindowStyle[i]) then
      list.Add(WindowStyleName[i]);
  Result := list;
end;

function GetExtendedWindowStyleNames(style: Integer): TStringList;
var
  list: TStringList;
  i: Integer;
begin
  list := TStringList.Create();
  for i := Low(ExtendedWindowStyle) to High(ExtendedWindowStyle) do
    if ((style and ExtendedWindowStyle[i]) = ExtendedWindowStyle[i]) then
      list.Add(ExtendedWindowStyleName[i]);
  Result := list;
end;

end.