SDL2 Window resize
lazarus / 39-Graphics

----------------------------------------------------------------------
Pe3s · 2024-12-31 13:35

Hi to all forumers, I continue to learn SDL,
Could I please get some help in solving the problem
Nowhere in the tutorials did I find what to do when we scale a window
and the content in this case the background does not scale.
What do I need to do to fix this ?

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i program
project1; {$APPTYPE GUI} uses  sdl2, sdl2_image, Windows; var 
SDLWindow: PSDL_Window;  SDLRenderer: PSDL_Renderer;  Running:
Boolean;  Event: TSDL_Event;   Rect: TSDL_Rect;   WindowWidth,
WindowHeight: Integer; begin  // Inicjalizacja SDL  if
SDL_Init(SDL_INIT_VIDEO) < 0 then  begin    MessageBox(0, 'SDL could
not initialize!', 'Error', MB_ICONERROR or MB_OK);    Halt(1);  end;  
// Ustawienia początkowe okna  WindowWidth := 800;  WindowHeight :=
600;   // Tworzenie okna SDL  SDLWindow := SDL_CreateWindow('SDL
window', SDL_WINDOWPOS_CENTERED, SDL_WINDOWPOS_CENTERED, WindowWidth,
WindowHeight, SDL_WINDOW_SHOWN or SDL_WINDOW_RESIZABLE);  if SDLWindow
= nil then  begin    MessageBox(0, 'Window could not be created!',
'Error', MB_ICONERROR or MB_OK);    SDL_Quit;    Halt(1);  end;   //
Tworzenie renderera  SDLRenderer := SDL_CreateRenderer(SDLWindow, -1,
SDL_RENDERER_ACCELERATED or SDL_RENDERER_PRESENTVSYNC);  if
SDLRenderer = nil then  begin    MessageBox(0, 'Renderer could not be
created!', 'Error', MB_ICONERROR or MB_OK);   
SDL_DestroyWindow(SDLWindow);    SDL_Quit;    Halt(1);  end;    //
Pętla główna aplikacji  Running := True;  while Running do  begin   
// Obsługa zdarzeń    while SDL_PollEvent(@Event) <> 0 do    begin   
 case Event.type_ of        SDL_QUITEV:          Running := False;   
   SDL_KEYDOWN:          if Event.key.keysym.sym = SDLK_ESCAPE then  
        Running := False;        SDL_WINDOWEVENT:          case
Event.window.event of            SDL_WINDOWEVENT_RESIZED:            
begin                WindowWidth := Event.window.data1;              
WindowHeight := Event.window.data2;                end;          end; 
    end;    end;      // Czyszczenie ekranu   
SDL_SetRenderDrawColor(SDLRenderer, 0, 0, 0, SDL_ALPHA_OPAQUE);   
SDL_RenderClear(SDLRenderer);     // Obliczanie i rysowanie
prostokąta    SDL_SetRenderDrawColor(SDLRenderer, 72, 69, 71,
SDL_ALPHA_OPAQUE);    SDL_RenderFillRect(SDLRenderer, nil);   
SDL_RenderPresent(SDLRenderer);    SDL_RenderFillRect(SDLRenderer,
@Rect);     // Aktualizacja ekranu    SDL_RenderPresent(SDLRenderer); 
end;   // Sprzątanie zasobów  SDL_DestroyRenderer(SDLRenderer); 
SDL_DestroyWindow(SDLWindow);  SDL_Quit;end.