annotate src/main/dummy/SDL_dummy_main.c @ 3485:e77a69aae239

Mason Wheeler to sdl I updated SDL, and suddenly my SDL frames stopped working. They'd "initialize" full of gibberish, and I couldn't render anything to them. After a bit of digging, I found a problem: the renderer initialization routine in my SDL frame code wasn't getting called anymore. procedure TSdlFrame.Paint; begin if SDL_SelectRenderer(FWindowID) = -1 then CreateRenderer; SDL_RenderPresent; end; function TSdlFrame.CreateRenderer: boolean; const pf: tagPIXELFORMATDESCRIPTOR = (nSize: sizeof(pf); nVersion: 1; dwFlags: PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or PFD_DOUBLEBUFFER; iPixelType: PFD_TYPE_RGBA; cColorBits: 24; cAlphaBits: 8; iLayerType: PFD_MAIN_PLANE); RENDERERS: array[TRendererType] of AnsiString = ('software', 'gdi', 'opengl', 'd3d'); var pFormat: integer; begin if (SDL_SelectRenderer(FWindowID) = 0) then begin result := true; Exit; end; if FRendererType = rtOpenGL then begin pFormat := ChoosePixelFormat(canvas.Handle, @pf); if not SetPixelFormat(canvas.Handle, pFormat, @pf) then outputDebugString(PChar(SysErrorMessage(GetLastError))); if wglCreateContext(canvas.Handle) = 0 then outputDebugString(PChar(SysErrorMessage(GetLastError))); end; if (SDL_CreateRenderer(FWindowID, SDL_RendererIndex(RENDERERS[FRendererType]), [sdlrPresentFlip3, sdlrAccelerated]) = 0) then begin SDL_ShowWindow(FWindowID); assert(SDL_SetRenderDrawColor(0, 0, 0, 255) = 0); FFlags := SDL_GetWindowFlags(FWindowID); if assigned(FOnAvailable) then FOnAvailable(self); end else outputDebugString(pChar(format('SDL_CreateRenderer failed: %s', [sdl_GetError]))); result := SDL_SelectRenderer(FWindowID) = 0; end; This is a critical issue. The Paint method gets called when the control receives a WM_PAINT message from Windows. I can't create the renderer before then, or it will fail and cause trouble. And when I do create it, it needs to be created with certain parameters. So imagine my surprise when I started debugging into the DLL and found that SDL_SelectRenderer was trying to be "helpful" by creating the renderer for me if it didn't already exist! Now not only does my initialization code not get called, I end up with the wrong renderer and so things don't render as expected when I try to use the window.
author Sam Lantinga <slouken@libsdl.org>
date Tue, 24 Nov 2009 04:48:12 +0000
parents 44b6f09a07d8
children 791b3256fb22
rev   line source
754
623b453a3219 Fixed "dist" make target for newer versions of automake
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
1
623b453a3219 Fixed "dist" make target for newer versions of automake
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
2 /* Include the SDL main definition header */
623b453a3219 Fixed "dist" make target for newer versions of automake
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
3 #include "SDL_main.h"
846
96ba4eab74fb *** empty log message ***
Sam Lantinga <slouken@libsdl.org>
parents: 754
diff changeset
4
754
623b453a3219 Fixed "dist" make target for newer versions of automake
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
5 #ifdef main
623b453a3219 Fixed "dist" make target for newer versions of automake
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
6 #undef main
1895
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head.
Sam Lantinga <slouken@libsdl.org>
parents: 1753
diff changeset
7 int
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head.
Sam Lantinga <slouken@libsdl.org>
parents: 1753
diff changeset
8 main(int argc, char *argv[])
754
623b453a3219 Fixed "dist" make target for newer versions of automake
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
9 {
1895
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head.
Sam Lantinga <slouken@libsdl.org>
parents: 1753
diff changeset
10 return (SDL_main(argc, argv));
754
623b453a3219 Fixed "dist" make target for newer versions of automake
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
11 }
846
96ba4eab74fb *** empty log message ***
Sam Lantinga <slouken@libsdl.org>
parents: 754
diff changeset
12 #else
1753
5b3bb08e7dd8 SDL_dummy_main.c:12: warning: ISO C does not allow extra â;â outside of a function
Sam Lantinga <slouken@libsdl.org>
parents: 846
diff changeset
13 /* Nothing to do on this platform */
1949
44b6f09a07d8 Placate versions of ranlib which complain about empty files (Mac OS X 10.4)
Sam Lantinga <slouken@libsdl.org>
parents: 1895
diff changeset
14 int
44b6f09a07d8 Placate versions of ranlib which complain about empty files (Mac OS X 10.4)
Sam Lantinga <slouken@libsdl.org>
parents: 1895
diff changeset
15 SDL_main_stub_symbol()
44b6f09a07d8 Placate versions of ranlib which complain about empty files (Mac OS X 10.4)
Sam Lantinga <slouken@libsdl.org>
parents: 1895
diff changeset
16 {
44b6f09a07d8 Placate versions of ranlib which complain about empty files (Mac OS X 10.4)
Sam Lantinga <slouken@libsdl.org>
parents: 1895
diff changeset
17 return 0;
44b6f09a07d8 Placate versions of ranlib which complain about empty files (Mac OS X 10.4)
Sam Lantinga <slouken@libsdl.org>
parents: 1895
diff changeset
18 }
846
96ba4eab74fb *** empty log message ***
Sam Lantinga <slouken@libsdl.org>
parents: 754
diff changeset
19 #endif
1949
44b6f09a07d8 Placate versions of ranlib which complain about empty files (Mac OS X 10.4)
Sam Lantinga <slouken@libsdl.org>
parents: 1895
diff changeset
20
1895
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head.
Sam Lantinga <slouken@libsdl.org>
parents: 1753
diff changeset
21 /* vi: set ts=4 sw=4 expandtab: */