From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: ***
X-Spam-Status: No, score=3.8 required=5.0 tests=BAYES_00,INVALID_MSGID,
	RATWARE_MS_HASH,RATWARE_OUTLOOK_NONAME autolearn=no autolearn_force=no
	version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,43b82eaef8b53b27,start
X-Google-Attributes: gid103376,public
From: "Colson E." <colson13@club-internet.fr>
Subject: WIN32 DialogBox and  OPENGL
Date: 1998/08/14
Message-ID: <01bdc7a1$dee0abd0$023da8c2@eric>#1/1
X-Deja-AN: 381136473
X-Trace: front3.grolier.fr 903109556 11833 194.158.121.209 (14 Aug 1998
 15:45:56 GMT)
Organization: .
NNTP-Posting-Date: 14 Aug 1998 15:45:56 GMT
Newsgroups: comp.lang.ada
Date: 1998-08-14T15:45:56+00:00
List-Id: <comp.lang.ada>

Hello,

I try desesperately to display a modal dialog box in an OpenGL application.
The problem  is that I don't see the frame of the box, just the controls
(edit, buttons,...).
But it's not systematic : when I use a DLGPROC procedure, I don't see the
frame, but without 
procedure, there's no problem because I can see all controls and box frame.

There's the code which is write with Ada95 :

with ada.text_io;

    
	procedure la_porte is
		ok:win32.INT;
		Lresultat:win32.LONG;
	begin
		ok:=winuser.DialogBox(hInstance, 
				          LPCSTR(winuser.MAKEINTRESOURCE
						(PACK_RESSOURCES.IDD_MOT_DE_PASSE)),
				         hFenetre,
				         DlgProc'access);

	end la_porte;
    
	function DlgProc	(hwnd:   Win32.Windef.HWND;
        				 message:    Win32.UINT;
		                         wParam: Win32.WPARAM;
                        		 lParam: Win32.LPARAM)
		                         return Win32.BOOL is 
		use type Interfaces.C.UNSIGNED_SHORT;                             
		ok:win32.INT;
	begin
		Case message is 
			when winuser.WM_INITDIALOG =>
		                    resultat:=win32.TRUE;                                
                 
		            when Winuser.WM_COMMAND =>
		            declare
				cmdId: Win32.WORD; 
			begin
				cmdID:=windef.LOWORD(win32.DWORD(wparam));
				if cmdID=PACK_RESSOURCES.ID_ANNULER then
					resultat:=winuser.EndDialog(hwnd,0);
		                    	end if;
		            end ;
			when others =>
		            	null;
	        end case;

        	        return win32.TRUE;

    end DlgProc;
    
If someone have an idea...

By advance

Colson Eric