Thread: Help
View Single Post
  #5  
Old 03-11-2013, 14:33
Razor12911's Avatar
Razor12911 Razor12911 is offline
Noob
 
Join Date: Jul 2012
Location: South Africa
Posts: 3,749
Thanks: 2,170
Thanked 11,206 Times in 2,307 Posts
Razor12911 is on a distinguished road
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;

Last edited by Razor12911; 03-11-2013 at 14:44.
The Following User Says Thank You to Razor12911 For This Useful Post:
y_thelastknight (05-11-2013)