Winmain / WndProc / DLL question

[Frank Brübach]

hi jose, all.

1) I have a question (perhaps it's a dummy question) about the including of these two functions "WINMAIN" and "WndProc" to start application. (manual help says: winmain: "is a user-defined function called by Windows to begin execution of an application.") it's necessary to do this one in "main.bas" example or I can include WINMAIN and WNDPROC for my DLL example too? I haven't managed it and tried it some hours without success.

2) I am using sdk window for my examples. Have started to build one sdk window with buttons and two different ways of popup dialogs (not perfect yet) but I am wondering if it's not possible to make the main application shorter and push all stuff into "mydll.bas" file ?

if you push "xmen" button you will get new popup window and new functions (e.g. "clone" window). other things will come as soon I have more time for this project.

my "batmandll_main.bas"

Code Select Expand

#COMPILE EXE
#DIM ALL
#INCLUDE "win32api.inc"

DECLARE FUNCTION ShowPopupDialog LIB "BatmanDLL.DLL" ALIAS "ShowPopupDialog" (BYVAL hParent AS DWORD) AS LONG
DECLARE FUNCTION XMEN LIB "BatmanDLL.DLL" ALIAS "XMEN" (BYVAL hParent AS DWORD) AS LONG
DECLARE FUNCTION popupnew LIB "BatmanDLL.DLL" ALIAS "popupnew" (BYVAL hParent AS DWORD) AS LONG

%IDXMEN = 1005

'------------------------------------------------------------------------------------------------------------------------------------------
FUNCTION WINMAIN (BYVAL hInstance AS DWORD, BYVAL hPrevInstance AS DWORD, BYVAL lpszCmdLine AS ASCIIZ PTR, BYVAL nCmdShow AS LONG) AS LONG
'------------------------------------------------------------------------------------------------------------------------------------------

  LOCAL hWndMain    AS DWORD
  LOCAL hCtl        AS DWORD
  LOCAL hFont       AS DWORD
  LOCAL wcex        AS WNDCLASSEX
  LOCAL szClassName AS ASCIIZ * 80
  LOCAL rc          AS RECT
  LOCAL szCaption   AS ASCIIZ * 255
  LOCAL nLeft       AS LONG
  LOCAL nTop        AS LONG
  LOCAL nWidth      AS LONG
  LOCAL nHeight     AS LONG

  hFont = GetStockObject(%ANSI_VAR_FONT)

  szClassName        = "MyClassName"
  wcex.cbSize        = SIZEOF(wcex)
  wcex.style         = %CS_HREDRAW OR %CS_VREDRAW
  wcex.lpfnWndProc   = CODEPTR(WndProc)
  wcex.cbClsExtra    = 0
  wcex.cbWndExtra    = 0
  wcex.hInstance     = hInstance
  wcex.hCursor       = LoadCursor (%NULL, BYVAL %IDC_ARROW)
  wcex.hbrBackground = %COLOR_3DFACE + 1
  wcex.lpszMenuName  = %NULL
  wcex.lpszClassName = VARPTR(szClassName)
  wcex.hIcon         = LoadIcon (%NULL, BYVAL %IDI_APPLICATION)
  wcex.hIconSm       = LoadIcon (%NULL, BYVAL %IDI_APPLICATION)
  RegisterClassEx wcex

  szCaption = "Batmans new SDK Window"

  SystemParametersInfo %SPI_GETWORKAREA, 0, BYVAL VARPTR(rc), 0

  nWidth  = (((rc.nRight - rc.nLeft)) + 2) * 0.75
  nHeight = (((rc.nBottom - rc.nTop)) + 2) * 0.70
  nLeft   = ((rc.nRight - rc.nLeft) \ 2) - nWidth \ 2
  nTop    = ((rc.nBottom - rc.nTop) \ 2) - (nHeight \ 2)

  hWndMain = CreateWindowEx(%WS_EX_CONTROLPARENT, _
                            szClassName, _
                            szCaption, _
                            %WS_OVERLAPPEDWINDOW OR _
                            %WS_CLIPCHILDREN, _
                            nLeft, _
                            nTop, _
                            nWidth, _
                            nHeight, _
                            %NULL, _
                            0, _
                            hInstance, _
                            BYVAL %NULL)

  hCtl = CreateWindowEx(0, "BUTTON", "&OpenMe", %WS_CHILD OR %WS_VISIBLE OR %WS_TABSTOP OR %BS_FLAT, _
         0, 0, 0, 0, hWndMain, %IDOK, hInstance, BYVAL %NULL)
  IF hFont THEN SendMessage hCtl, %WM_SETFONT, hFont, 0

  hCtl = CreateWindowEx(0, "BUTTON", "&Close", %WS_CHILD OR %WS_VISIBLE OR %WS_TABSTOP OR %BS_FLAT, _
         0, 0, 0, 0, hWndMain, %IDCANCEL, hInstance, BYVAL %NULL)
  IF hFont THEN SendMessage hCtl, %WM_SETFONT, hFont, 0

  hCtl = CreateWindowEx(0, "BUTTON", "&XMEN", %WS_CHILD OR %WS_VISIBLE OR %WS_TABSTOP OR %BS_FLAT, _
         10, 470, 80, 24, hWndMain, %IDXMEN, hInstance, BYVAL %NULL)
  IF hFont THEN SendMessage hCtl, %WM_SETFONT, hFont, 0

  ShowWindow hWndMain, nCmdShow
  UpdateWindow hWndMain

  LOCAL uMsg AS tagMsg
  WHILE GetMessage(uMsg, %NULL, 0, 0)
     IF ISFALSE IsDialogMessage(hWndMain, uMsg) THEN
        TranslateMessage uMsg
        DispatchMessage uMsg
     END IF
  WEND

  FUNCTION = uMsg.wParam

END FUNCTION

' ========================================================================================
' Main Window procedure
' ========================================================================================
FUNCTION WndProc (BYVAL hWnd AS DWORD, BYVAL wMsg AS DWORD, BYVAL wParam AS DWORD, BYVAL lParam AS LONG) AS LONG
   LOCAL hDC    AS DWORD
   LOCAL pPaint AS PAINTSTRUCT
   LOCAL tRect  AS RECT
   LOCAL rc AS RECT

  SELECT CASE wMsg

     CASE %WM_CREATE

     CASE %WM_SIZE

        IF wParam <> %SIZE_MINIMIZED THEN
           GetClientRect hWnd, rc
           MoveWindow GetDlgItem(hWnd, %IDOK), (rc.nRight - rc.nLeft) - 185, (rc.nBottom - rc.nTop) - 35, 75, 23, %TRUE
           MoveWindow GetDlgItem(hWnd, %IDCANCEL), (rc.nRight - rc.nLeft) - 95, (rc.nBottom - rc.nTop) - 35, 75, 23, %TRUE
        END IF

     CASE %WM_COMMAND

        SELECT CASE LO(WORD, wParam)

           CASE %IDOK
              IF HI(WORD, wParam) = %BN_CLICKED THEN
                 ShowPopupDialog(hwnd)
                 MSGBOX "hello catwoman, come with me :)", %MB_OK, "my popup Test for new DLL" + DATE$
              END IF

           CASE %IDXMEN
              IF HI(WORD, wParam) = %BN_CLICKED THEN
                 XMEN(hwnd)
                 MSGBOX "hello Magneto, don't come with me :)", %MB_OK, "my popup Test for new DLL" + DATE$
              END IF

           CASE %IDCANCEL
              IF HI(WORD, wParam) = %BN_CLICKED THEN
                 SendMessage hWnd, %WM_CLOSE, 0, 0
                 EXIT FUNCTION
              END IF

        END SELECT

   CASE %WM_CREATE

   CASE %WM_PAINT
       hDC = BeginPaint(hWnd, pPaint)
       GetClientRect hWnd, tRect
       SetBkMode hDC, %TRANSPARENT
       SetTextColor hDC, %YELLOW
       DrawText hDC, "Hello Batman, where are you?", -1, tRect, %DT_SINGLELINE OR %DT_CENTER OR %DT_VCENTER
       EndPaint hWnd, pPaint
       FUNCTION = 1
       EXIT FUNCTION

   CASE %WM_ERASEBKGND
       hDC = wParam
       DrawGradient hDC
       FUNCTION = 1
       EXIT FUNCTION

     CASE %WM_CTLCOLORBTN, %WM_CTLCOLOREDIT, %WM_CTLCOLORLISTBOX, %WM_CTLCOLORSTATIC

     CASE %WM_SYSCOMMAND
        IF (wParam AND &HFFF0) = %SC_CLOSE THEN
           SendMessage hWnd, %WM_CLOSE, 0, 0
           EXIT FUNCTION
        END IF

     CASE %WM_CLOSE

     CASE %WM_DESTROY
        PostQuitMessage 0
        EXIT FUNCTION

  END SELECT

  FUNCTION = DefWindowProc(hWnd, wMsg, wParam, lParam)

END FUNCTION
' ========================================================================================

'==============================================================================
SUB DrawGradient (BYVAL hDC AS DWORD)
'------------------------------------------------------------------------------
   ' Custom draw procedure for gradiend fill
   '--------------------------------------------------------------------------

   LOCAL rectFill AS RECT
   LOCAL rectClient AS RECT
   LOCAL fStep AS SINGLE
   LOCAL hBrush AS DWORD
   LOCAL lOnBand AS LONG

   GetClientRect WindowFromDC(hDC), rectClient
   fStep = rectClient.nbottom / 200

   FOR lOnBand = 0 TO 199
       SetRect rectFill, 0, lOnBand * fStep, rectClient.nright + 1, (lOnBand + 1) * fStep
       hBrush = CreateSolidBrush(RGB(0, 0, 255 - lOnBand))
       Fillrect hDC, rectFill, hBrush
       DeleteObject hBrush
   NEXT

END SUB

more to come, I am sure. / saved exe, dll and "batmandll_main.bas" in zip file.

best regards, frank

[José Roca]

it's necessary to do this one in "main.bas" example or I can include WINMAIN and WNDPROC for my DLL example too?

You can't put them in a DLL, they must be in the main application.

[Frederick J. Harris]

Hi Frank!

     I prefer to keep my WinMain() function as short as possible.  The only window I RegesterClassEx() there or CreateWindow() there is the main program window.  All other windows ( controls, i.e., buttons, edit controls, etc.) I create during the WM_CREATE message.  You can get the hInstance you need to create other windows using CreateWindow without resorting to globals in a multitude of ways.

Fred

[Frank Brübach]

hi fred! thanks for the hint.

do you mean such way of window creating ?

Code Select Expand

CASE %WM_CREATE
      hInstance = GetModuleHandle("")
      ' Create font used by container
      hFont = GetStockObject(%DEFAULT_GUI_FONT)

     ' Create the Name edit control
      hWndChild = CreateWindowEx(%WS_EX_CLIENTEDGE, _                                 'Child ' extended styles
                                 "Edit", _                                            ' class name
                                 "", _                                                ' caption
                                 %WS_CHILD OR %WS_VISIBLE OR %WS_TABSTOP OR _         ' window styles
                                 %ES_LEFT OR %ES_AUTOHSCROLL, _                       ' class styles
                                 230, 30, _                                           ' left, top
                                 358, 21, _                                           ' width, height
                                 hWnd, %IDC_NAME, _                                   ' handle of parent, control ID
                                 hInstance, BYVAL %NULL)                              ' handle of instance, creation parameters
      SendMessage hWndChild, %WM_SETFONT, hFont, %TRUE 'Child

      ' Set the text limit
      SendMessage hWndChild, %EM_SETLIMITTEXT, 64, 0 '   

that's correct ? or do you have any example for showing ? would help.

thanks. nice day, frank

[Frederick J. Harris]

Yea, that's it Frank!  Here's another way to get it.  During the WM_CREATE message the lParam is a pointer to a CREATESTRUCT that contains the various information from the CreateWindow() call down in WinMain().  So you can get it like this too...

Code Select Expand


Type WndEventArgs
 wParam As Long
 lParam As Long
 hWnd   As Dword
 hInst  As Dword
End Type

Function fnWndProc_OnCreate(wea As WndEventArgs) As Long
 Local pCreateStruct As CREATESTRUCT Ptr
 Local hBtn As Dword

 pCreateStruct=wea.lParam
 wea.hInst=@pCreateStruct.hInstance
 hBtn=CreateWindow("button","Click Me!",%WS_CHILD Or %WS_VISIBLE,100,20,120,25,wea.hWnd,%IDC_BUTTON1,wea.hInst,Byval 0)
 hBtn=CreateWindow("button","But Not Me!",%WS_CHILD Or %WS_VISIBLE,100,60,120,25,wea.hWnd,%IDC_BUTTON2,wea.hInst,Byval 0)

 fnWndProc_OnCreate=0
End Function


In addition, there's yet another way to get the hInstance out of the Class Structure with GetWindowLong() I believe.  I'd have to look that one up though.

[Frank Brübach]

thank you fred for your last infos. I will try to use this new kind of createWindow one day, I didn't know this way at all

my little batman.dll project increases.

if you open "xmen" button in my first dialog (left side, bottom) there will open new sdk window with more buttons. Click for example the top button "myHobby!" to see how a new picture will open. "load image" button does work for 50 perCent (this button is already looking for new images) but I will try to build new loading image features to replace and load new picture you like.  - it's a great adventure to build new dll's and popup windows. I like it very mucho and my powerbasic background becomes better and better

"batmanDLL_main2.bas"

Code Select Expand

#COMPILE EXE
#DIM ALL
#INCLUDE "win32api.inc"
#INCLUDE "EditCtrl.inc"

%IDC_TEXT = 200

GLOBAL hViewer AS DWORD
GLOBAL hMemDC AS DWORD
GLOBAL hBitmap AS DWORD


DECLARE FUNCTION ShowPopupDialog LIB "BatmanDLL2.DLL" ALIAS "ShowPopupDialog" (BYVAL hParent AS DWORD) AS LONG
DECLARE FUNCTION XMEN LIB "BatmanDLL2.DLL" ALIAS "XMEN" (BYVAL hParent AS DWORD) AS LONG
DECLARE FUNCTION popupnew LIB "BatmanDLL2.DLL" ALIAS "popupnew" (BYVAL hParent AS DWORD) AS LONG
DECLARE FUNCTION ShowPopupDialox LIB "BatmanDLL2.DLL" ALIAS "ShowPopupDialox" (BYVAL hParent AS DWORD) AS LONG

GLOBAL hListBox   AS DWORD
GLOBAL hStatusbar AS DWORD

%IDXMEN = 1005
%IDC_STATUSBAR = 1006
%IDC_NAME = 1007
%IDOPENX = 1008

'------------------------------------------------------------------------------------------------------------------------------------------
FUNCTION WINMAIN (BYVAL hInstance AS DWORD, BYVAL hPrevInstance AS DWORD, BYVAL lpszCmdLine AS ASCIIZ PTR, BYVAL nCmdShow AS LONG) AS LONG
'------------------------------------------------------------------------------------------------------------------------------------------

  LOCAL hWndMain    AS DWORD
  LOCAL hCtl        AS DWORD
  LOCAL hFont       AS DWORD
  LOCAL wcex        AS WNDCLASSEX
  LOCAL szClassName AS ASCIIZ * 80
  LOCAL rc          AS RECT
  LOCAL szCaption   AS ASCIIZ * 255
  LOCAL nLeft       AS LONG
  LOCAL nTop        AS LONG
  LOCAL nWidth      AS LONG
  LOCAL nHeight     AS LONG

  hFont = GetStockObject(%ANSI_VAR_FONT)

  szClassName        = "MyClassName"
  wcex.cbSize        = SIZEOF(wcex)
  wcex.style         = %CS_HREDRAW OR %CS_VREDRAW
  wcex.lpfnWndProc   = CODEPTR(WndProc)
  wcex.cbClsExtra    = 0
  wcex.cbWndExtra    = 0
  wcex.hInstance     = hInstance
  wcex.hCursor       = LoadCursor (%NULL, BYVAL %IDC_ARROW)
  wcex.hbrBackground = %COLOR_3DFACE + 1
  wcex.lpszMenuName  = %NULL
  wcex.lpszClassName = VARPTR(szClassName)
  wcex.hIcon         = LoadIcon (%NULL, BYVAL %IDI_APPLICATION)
  wcex.hIconSm       = LoadIcon (%NULL, BYVAL %IDI_APPLICATION)
  RegisterClassEx wcex

  szCaption = "Batmans new SDK Window"

  SystemParametersInfo %SPI_GETWORKAREA, 0, BYVAL VARPTR(rc), 0

  nWidth  = (((rc.nRight - rc.nLeft)) + 2) * 0.75
  nHeight = (((rc.nBottom - rc.nTop)) + 2) * 0.70
  nLeft   = ((rc.nRight - rc.nLeft) \ 2) - nWidth \ 2
  nTop    = ((rc.nBottom - rc.nTop) \ 2) - (nHeight \ 2)

  hWndMain = CreateWindowEx(%WS_EX_CONTROLPARENT, _
                            szClassName, _
                            szCaption, _
                            %WS_OVERLAPPEDWINDOW OR _
                            %WS_CLIPCHILDREN, _
                            nLeft, _
                            nTop, _
                            nWidth, _
                            nHeight, _
                            %NULL, _
                            0, _
                            hInstance, _
                            BYVAL %NULL)

  hCtl = CreateWindowEx(0, "BUTTON", "&OpenMe", %WS_CHILD OR %WS_VISIBLE OR %WS_TABSTOP OR %BS_FLAT, _
         0, 0, 0, 0, hWndMain, %IDOK, hInstance, BYVAL %NULL)
  IF hFont THEN SendMessage hCtl, %WM_SETFONT, hFont, 0

  hCtl = CreateWindowEx(0, "BUTTON", "&Close", %WS_CHILD OR %WS_VISIBLE OR %WS_TABSTOP OR %BS_FLAT, _
         0, 0, 0, 0, hWndMain, %IDCANCEL, hInstance, BYVAL %NULL)
  IF hFont THEN SendMessage hCtl, %WM_SETFONT, hFont, 0

  hCtl = CreateWindowEx(0, "BUTTON", "&XMEN", %WS_CHILD OR %WS_VISIBLE OR %WS_TABSTOP OR %BS_FLAT, _
         10, 470, 80, 24, hWndMain, %IDXMEN, hInstance, BYVAL %NULL)
  IF hFont THEN SendMessage hCtl, %WM_SETFONT, hFont, 0

  hCtl = CreateWindowEx(0, "BUTTON", "&NEWO", %WS_CHILD OR %WS_VISIBLE OR %WS_TABSTOP OR %BS_FLAT, _
         90, 470, 80, 24, hWndMain, %IDOPENX, hInstance, BYVAL %NULL)
  IF hFont THEN SendMessage hCtl, %WM_SETFONT, hFont, 0


  ShowWindow hWndMain, nCmdShow
  UpdateWindow hWndMain

  LOCAL uMsg AS tagMsg
  WHILE GetMessage(uMsg, %NULL, 0, 0)
     IF ISFALSE IsDialogMessage(hWndMain, uMsg) THEN
        TranslateMessage uMsg
        DispatchMessage uMsg
     END IF
  WEND

  FUNCTION = uMsg.wParam

END FUNCTION

' ========================================================================================
' Main Window procedure
' ========================================================================================
FUNCTION WndProc (BYVAL hWnd AS DWORD, BYVAL wMsg AS DWORD, BYVAL wParam AS DWORD, BYVAL lParam AS LONG) AS LONG
   LOCAL hDC    AS DWORD
   LOCAL pPaint AS PAINTSTRUCT
   LOCAL tRect  AS RECT
   LOCAL rc AS RECT
 LOCAL hWndChild     AS DWORD    ' handle of child window
 LOCAL hFont         AS DWORD    ' handle of font used by form
 LOCAL hImage        AS DWORD    ' handle of bitmap, icon, cursor or metafile
 LOCAL lMsgResult    AS LONG     ' value returned to message after message is processed
 LOCAL hInstance     AS DWORD
 LOCAL szPath        AS ASCIIZ * %MAX_PATH
 LOCAL szItem AS ASCIIZ * 255
 STATIC hFocus       AS DWORD
  LOCAL strText AS STRING
  LOCAL hCtl    AS DWORD


  SELECT CASE wMsg

     CASE %WM_CREATE

     CASE %WM_SIZE

        IF wParam <> %SIZE_MINIMIZED THEN
           GetClientRect hWnd, rc
           MoveWindow GetDlgItem(hWnd, %IDOK), (rc.nRight - rc.nLeft) - 185, (rc.nBottom - rc.nTop) - 35, 75, 23, %TRUE
           MoveWindow GetDlgItem(hWnd, %IDCANCEL), (rc.nRight - rc.nLeft) - 95, (rc.nBottom - rc.nTop) - 35, 75, 23, %TRUE
        END IF

     CASE %WM_COMMAND

        SELECT CASE LO(WORD, wParam)

           CASE %IDOK
              IF HI(WORD, wParam) = %BN_CLICKED THEN
                 ShowPopupDialog(hwnd)
                 MSGBOX "hello catwoman, come with me :)", %MB_OK, "my popup Test for new DLL" + DATE$
              END IF

           CASE %IDXMEN
              IF HI(WORD, wParam) = %BN_CLICKED THEN
                 XMEN(hwnd)
                 MSGBOX "hello Magneto, don't come with me :)", %MB_OK, "my popup Test for new DLL" + DATE$
              END IF

           CASE %IDCANCEL
              IF HI(WORD, wParam) = %BN_CLICKED THEN
                 SendMessage hWnd, %WM_CLOSE, 0, 0
                 EXIT FUNCTION
              END IF

              CASE %IDOPENX
              IF HI(WORD, wParam) = %BN_CLICKED THEN
                 ShowPopupDialog(hwnd)
                 MSGBOX "hello catwoman, come with me :)", %MB_OK, "my popup Test for new DLL" + DATE$
              END IF

        END SELECT

   CASE %WM_CREATE
     hInstance = GetModuleHandle("")
     ' Create font used by container
     hFont = GetStockObject(%DEFAULT_GUI_FONT)

    ' Create the Name edit control
     hWndChild = CreateWindowEx(%WS_EX_CLIENTEDGE, _                                 'Child ' extended styles
                                "Edit", _                                            ' class name
                                "", _                                                ' caption
                                %WS_CHILD OR %WS_VISIBLE OR %WS_TABSTOP OR _         ' window styles
                                %ES_LEFT OR %ES_AUTOHSCROLL, _                       ' class styles
                                230, 30, _                                           ' left, top
                                358, 21, _                                           ' width, height
                                hWnd, %IDC_NAME, _                                   ' handle of parent, control ID
                                hInstance, BYVAL %NULL)                              ' handle of instance, creation parameters
     SendMessage hWndChild, %WM_SETFONT, hFont, %TRUE 'Child

     ' Set the text limit
     SendMessage hWndChild, %EM_SETLIMITTEXT, 64, 0 '

   CASE %WM_PAINT
       hDC = BeginPaint(hWnd, pPaint)
       GetClientRect hWnd, tRect
       SetBkMode hDC, %TRANSPARENT
       SetTextColor hDC, %YELLOW
       DrawText hDC, "Hello Batman, where are you?", -1, tRect, %DT_SINGLELINE OR %DT_CENTER OR %DT_VCENTER
       EndPaint hWnd, pPaint
       FUNCTION = 1
       EXIT FUNCTION

   CASE %WM_ERASEBKGND
       hDC = wParam
       DrawGradient hDC
       FUNCTION = 1
       EXIT FUNCTION

   CASE %WM_CREATE
       hDC = GetDc(hViewer)
        ' // Create the controls
        hFont = GetStockObject(%ANSI_VAR_FONT)
        hViewer = CreateWindowEx(%WS_EX_CLIENTEDGE, "BitMapViewer", "", _
                    %WS_CHILD OR %WS_VISIBLE OR %WS_TABSTOP, _
                    0, 0, 426, 426, hwnd, 10, GetModuleHandle(""), BYVAL %NULL)
        hCtl = CreateWindowEx(0,"Static","BatmanText" , _ '"Static", "Text:"
                   %WS_CHILD OR %WS_VISIBLE OR %WS_TABSTOP OR %BS_FLAT, _
                   438, 241, 150, 16, hwnd,  -1, GetModuleHandle(""), BYVAL %NULL)
        IF hFont THEN SendMessage hCtl, %WM_SETFONT, hFont, 0
        hCtl = CreateWindowEx(%WS_EX_CLIENTEDGE, "Edit", "LionBASIC", _
                   %WS_CHILD OR %WS_VISIBLE OR %WS_TABSTOP OR %ES_CENTER OR %ES_AUTOHSCROLL, _
                   437, 257, 148, 19, hwnd, %IDC_TEXT, GetModuleHandle(""), BYVAL %NULL)

       GetClientRect hViewer, rc
       ReleaseDc hViewer, hDC
       strText = Edit_GetText(GetDlgItem(hwnd, %IDC_TEXT))
       'ImgDrawText strText
        'EXIT FUNCTION

     CASE %WM_CTLCOLORBTN, %WM_CTLCOLOREDIT, %WM_CTLCOLORLISTBOX, %WM_CTLCOLORSTATIC

     CASE %WM_SYSCOMMAND
        IF (wParam AND &HFFF0) = %SC_CLOSE THEN
           SendMessage hWnd, %WM_CLOSE, 0, 0
           EXIT FUNCTION
        END IF

     CASE %WM_CLOSE

     CASE %WM_DESTROY
        PostQuitMessage 0
        EXIT FUNCTION

  END SELECT

  FUNCTION = DefWindowProc(hWnd, wMsg, wParam, lParam)

END FUNCTION
' ========================================================================================

'==============================================================================
SUB DrawGradient (BYVAL hDC AS DWORD)
'------------------------------------------------------------------------------
   ' Custom draw procedure for gradiend fill
   '--------------------------------------------------------------------------

   LOCAL rectFill AS RECT
   LOCAL rectClient AS RECT
   LOCAL fStep AS SINGLE
   LOCAL hBrush AS DWORD
   LOCAL lOnBand AS LONG

   GetClientRect WindowFromDC(hDC), rectClient
   fStep = rectClient.nbottom / 200

   FOR lOnBand = 0 TO 199
       SetRect rectFill, 0, lOnBand * fStep, rectClient.nright + 1, (lOnBand + 1) * fStep
       hBrush = CreateSolidBrush(RGB(0, 0, 255 - lOnBand))
       Fillrect hDC, rectFill, hBrush
       DeleteObject hBrush
   NEXT

END SUB

test this example, if you like or anybody else. best regards, good evening, frank

[Frank Brübach]

..last not least

I have managed to built in GDIp Features for my DLL, I thought it was impossible to do all in my DLL ! So I have included two complete different ways to open Jpg/PNG/Bmp Images with powerbasic.

open "x-men testdialog": if you push the second new button "photoPix!" you load a jpg picture created a
checkered pattern of black pixels in the bitmap. not so bad, isn't it ?

you can also draw rectangles in this dialog and make black holes.

nice evening, good night, frank
dll, exe and pictures I add here.

[Steve Hutchesson]

Fred,

I learnt a hard lesson recently with the WM_CREATE message. My current editor written in MASM uses a rich edit 2+ control and while it worked perfectly on Win2000 and the XP Sp3 I currently use, a number of different programs appear to use a hook of some type that killed it stone dead in the WM_CREATE message before CreateWindowEx() had returned. It was the call to the rich edit control where it exited with no warning.

Solution was simple, I put the richedit call after the creation of the main window and it works perfectly. Two apps caused the problem, RealVNC and the accessory software that came with my NVIDIA video card.

[Frederick J. Harris]

I've never seen that Hutch.  So you had the CreateWindowEx call to create your RichEdit control in the WM_CREATE handler/message, and the whole app failed, or just that one CreateWindowEx call?  I realize your editor (which I've used and like) can't do much after such a call fails.

So what are you recommending?  You aren't using WM_CREATE to create child windows anymore?  I suppose it doesn't have to be done that way; I do believe that is more or less standard practice though.  What do other folks do?

[José Roca]

 
When I code by hand, I like to create the controls in WinMain, right after the creation of the main window.

[Steve Hutchesson]

Fred,

It was one of those that jumped up and bit you with no warning. The code written in the WM_CREATE handler was correct and worked on a normal installation of Windows but when I put the NVIDIA software in an set an option for a particular effect suddenly my editor did not work so I had to turn it off. When I got the same effect with RealVNC I used 2 computers to solved the problem, used the editor from one computer to edit and change the code and kept testing it on the other where it would not start.

I tracked the crash point with a simple messagebox and kept moving it along the load sequence until it did not appear. It happened in the WM_CREATE handler in the WndProc so I moved the call to CreateWindowEx() for the rich edit control back to the WinMain after the main window was created and it has tested fine ever since. I think its a timing issue down in the guts of the API that was triggered by the characteristics of the installed software, RealVNC and the NVIDIA software.

[Patrice Terrier]

When I code by hand, I like to create the controls in WinMain, right after the creation of the main window.

I am also doing this myself, either diretcly into the Winmain section or in subroutine that is being called, just before showing the main window.

It is my experience that this is the best way to do it, especially when you need to subclass existing controls.

And for some common controls, then you need to act before the processing of the WM_CREATE message to change their dwStyle on the fly! (see also WM_NCCREATE ).

...