|
#5
|
||||
|
||||
|
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 15:44. |
| The Following User Says Thank You to Razor12911 For This Useful Post: | ||
y_thelastknight (05-11-2013) | ||
|
|