Адаптация кодировки Delphi XE для Delphi 2007 и older

Delphi , Рабочий стол , ПУСК

Адаптация кода Delphi XE для Delphi 2007 и более старых версий

Вопрос пользователя заключается в необходимости адаптации исходного кода для создания закругленных углов окон в формах Delphi XE для работы с Delphi 2007 и более старыми версиями. Также важным является сохранение совместимости с операционными системами Windows 7 и 8.

Шаг 1: Адаптация исходного кода

Исходный код использует префикс Winapi. для типов и функций, который был введен в Delphi XE2. В более старых версиях Delphi этот префикс не используется, поэтому его необходимо удалить. Также следует заменить тип Cardinal на Windows.DWORD, так как в более старых версиях Delphi Cardinal не рекомендуется использовать.

unit delphi_rounded_corners;

interface

uses
  Windows;

type
  TRoundedWindowCornerType = (RoundedCornerDefault, RoundedCornerOff, RoundedCornerOn, RoundedCornerSmall);

procedure SetRoundedCorners(const TheHandle: HWND; const CornerType: TRoundedWindowCornerType);

implementation

uses
  Dwmapi;

const
  DWMWCP_DEFAULT    = 0;
  DWMWCP_DONOTROUND = 1;
  DWMWCP_ROUND      = 2;
  DWMWCP_ROUNDSMALL = 3;
  DWMWA_WINDOW_CORNER_PREFERENCE = 33;

procedure SetRoundedCorners(const TheHandle: HWND; const CornerType: TRoundedWindowCornerType);
var
  DWM_WINDOW_CORNER_PREFERENCE: DWORD;
begin
  case CornerType of
    RoundedCornerOff:     DWM_WINDOW_CORNER_PREFERENCE := DWMWCP_DONOTROUND;
    RoundedCornerOn:      DWM_WINDOW_CORNER_PREFERENCE := DWMWCP_ROUND;
    RoundedCornerSmall:   DWM_WINDOW_CORNER_PREFERENCE := DWMWCP_ROUNDSMALL;
  else
    DWM_WINDOW_CORNER_PREFERENCE := DWMWCP_DEFAULT;
  end;
  Dwmapi.DwmSetWindowAttribute(TheHandle, DWMWA_WINDOW_CORNER_PREFERENCE, @DWM_WINDOW_CORNER_PREFERENCE, sizeof(DWM_WINDOW_CORNER_PREFERENCE));
end;

end.

Шаг 2: Совместимость с Windows 7 и 8

Функция DwmSetWindowAttribute из библиотеки DwmApi автоматически обрабатывает совместимость с различными версиями Windows. Если функция не поддерживается текущей версией Windows, она вернет код ошибки E_NOTIMPL, что позволяет избежать нежелательного поведения.

Шаг 3: Проблема изменения размера окна

Пользователь столкнулся с проблемой, когда высота маленького окна увеличивалась после вызова SetRoundedCorners. Это может быть связано с тем, как система обрабатывает закругленные углы и дополнительное пространство, необходимое для их отображения. Для решения этой проблемы можно попробовать изменить размеры окна перед вызовом функции, учитывая дополнительные пиксели, необходимые для закругления углов.

Заключение

Адаптация кода под более старые версии Delphi требует внимательного изучения изменений в синтаксисе и типах данных. Функция DwmSetWindowAttribute автоматически обеспечивает совместимость с различными версиями Windows, но разработчикам следует быть в курсе возможных побочных эффектов, таких как изменение размера окна.

Создано по материалам из источника по ссылке.

### Описание контекста: Краткое описание контекста заключается в необходимости адаптации кода Delphi XE для совместимости с более старыми версиями Delphi, включая Delphi 2007, и обеспечении работы с операционными системами Windows 7 и 8, включая создание

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: ПУСК ::