Выручайте. При использовании модуля DMWAPI кнопки на форме не хотят нормально отображаться. Как исправить?
Изображения
читать дальше »
library isAero;
uses
Windows,Composition,DWMAPI;
var
ISAeroGlassSourceM: TMargins;
Blur: PDWMBlurBehind;
ISAeroGlassSourceE: longbool;
function isAeroAddGlass(Handle: HWND; Top, Left, Right, Bottom: Integer): Boolean; stdcall;
begin with ISAeroGlassSourceM do begin
cxRightWidth := Top;
cxLeftWidth := Left;
cyTopHeight := Right;
cyBottomHeight := Bottom;
end;
CompositionServices.ExtendFrameIntoClientArea(Handle, @ISAeroGlassSourceM);
DwmEnableBlurBehindWindow(Handle, Blur);
UpdateWindow(Handle);
end;
function isAeroGlassEnabled: Boolean; stdcall;
begin
DwmIsCompositionEnabled(@ISAeroGlassSourceE);
result:= ISAeroGlassSourceE;
end;
exports isAeroAddGlass;
exports isAeroGlassEnabled;
begin
end.
