Help

[Razor12911]

Botva2 creates those rounded corners, difficult scripting but there's another easy way of doing it using jpg.

function CreateRoundRectRgn(p1, p2, p3, p4, p5, p6: Integer): THandle; external 'CreateRoundRectRgn@gdi32 stdcall';
function SetWindowRgn(hWnd: HWND; hRgn: THandle; bRedraw: Boolean): Integer; external 'SetWindowRgn@user32 stdcall';

procedure InitializeWizard;
var
FormRegion : tHandle;
begin
WizardForm.BorderStyle := bsNone;
FormRegion := CreateRoundRectRgn(0,0, WizardForm.ClientWidth, WizardForm.ClientHeight, 50, 50);
SetWindowRgn(WizardForm.Handle, FormRegion, True);
end;

[Andre Jesus]

Originally Posted by Razor12911

Botva2 creates those rounded corners, difficult scripting but there's another easy way of doing it using jpg.

function CreateRoundRectRgn(p1, p2, p3, p4, p5, p6: Integer): THandle; external 'CreateRoundRectRgn@gdi32 stdcall';
function SetWindowRgn(hWnd: HWND; hRgn: THandle; bRedraw: Boolean): Integer; external 'SetWindowRgn@user32 stdcall';

procedure InitializeWizard;
var
FormRegion : tHandle;
begin
WizardForm.BorderStyle := bsNone;
FormRegion := CreateRoundRectRgn(0,0, WizardForm.ClientWidth, WizardForm.ClientHeight, 50, 50);
SetWindowRgn(WizardForm.Handle, FormRegion, True);
end;

Thank you very much for your help again.

Capturar.PNG

[y_thelastknight]

Originally Posted by Andre Jesus

Thank you very much for your help again.

Attachment 7509

Botva2 sample script.
Replace the shadow png file with yours