"FORM_TABCONTROL_FRMGENERAL_CLASS"

[Patrice Terrier]

Paul,

You are using the "FORM_TABCONTROL_FRMGENERAL_CLASS" as page container for TAB control.
While PowerBASIC is using the Dialog "#32770" class for the same purpose.

Before i change the WinLIFT's code to support and detect the FF3 "FORM_TABCONTROL_FRMGENERAL_CLASS", i would like to make sure that you won't change this class name in a next release 

...

[Patrice Terrier]

Well after looking at your code, i found that you use a different class name for each of your TAB page.

Also you do not set the wce.cbSize member before callig the GetClassInfoEx thus it would always return zero.

You should use it like this:

Code Select Expand


    wc.cbSize = SIZEOF(wc)
    IsInitialized = GetClassInfoEx(skInstance(), zClass, wc)
    IF IsInitialized    = 0 THEN
       wc.cbSize        = SIZEOF(wc)
       wc.style         = %CS_HREDRAW OR %CS_VREDRAW
       wc.lpfnWndProc   = CODEPTR(WinprocDW)
       wc.cbClsExtra    = 0
       wc.cbWndExtra    = 0 '// %EXTEND_EXTRA * 4
       wc.hInstance     = skInstance()
       wc.hIcon         = %NULL ' LoadIcon(wc.hInstance, "PROGRAM")
       wc.hCursor       = LoadCursor(%NULL, BYVAL %IDC_WAIT)
       wc.hbrBackground = GetStockObject(4) '// BlackBrush
       wc.lpszMenuName  = %NULL
       wc.lpszClassName = VARPTR(zClass)
       wc.hIconSm       = wc.hIcon
       IF RegisterClassEx(wc) THEN IsInitialized = %TRUE
    END IF

[Paul Squires]

Thanks Patrice - I appreciate the tip.

[Paul Squires]

I made the change to the generated source code. Seems to be working perfectly. Thanks.