diff options
| -rw-r--r-- | src/corelib/gdi/fpg_gdi.pas | 36 |
1 files changed, 18 insertions, 18 deletions
diff --git a/src/corelib/gdi/fpg_gdi.pas b/src/corelib/gdi/fpg_gdi.pas index d065bb4c..4b3a9ab3 100644 --- a/src/corelib/gdi/fpg_gdi.pas +++ b/src/corelib/gdi/fpg_gdi.pas @@ -724,7 +724,7 @@ var dy := 0; IntfWidth := AWidth; IntfHeight := AHeight; - + GetWindowBorderDimensions(w, dx, dy); Inc(IntfWidth, dx); Inc(IntfHeight, dy); @@ -852,7 +852,7 @@ begin msgp.keyboard.keychar := UTF8Encode(tmpW); fpgSendMessage(nil, w, FPGM_KEYCHAR, msgp); end; - + // Allow Alt+F4 and other system key combinations if (uMsg = WM_SYSKEYUP) or (uMsg = WM_SYSKEYDOWN) then Result := Windows.DefWindowProc(hwnd, uMsg, wParam, lParam); @@ -964,7 +964,7 @@ begin end; mcode := FPGM_MOUSEDOWN; end; - + WM_LBUTTONUP, WM_MBUTTONUP, WM_RBUTTONUP: @@ -1002,7 +1002,7 @@ begin WM_LBUTTONDOWN, WM_LBUTTONUP: msgp.mouse.Buttons := MOUSE_LEFT; - + WM_MBUTTONDOWN, WM_MBUTTONUP: msgp.mouse.Buttons := MOUSE_MIDDLE; @@ -1031,8 +1031,8 @@ begin begin if w.FSkipResizeMessage then Exit; - - // note that WM_SIZING allows some control on sizeing + + // note that WM_SIZING allows some control on sizing //writeln('WM_SIZE: wp=',IntToHex(wparam,8), ' lp=',IntToHex(lparam,8)); msgp.rect.Width := smallint(lParam and $FFFF); msgp.rect.Height := smallint((lParam and $FFFF0000) shr 16); @@ -1622,7 +1622,7 @@ begin CurrentWindowHndl := WindowFromPoint(spt); CursorInDifferentWindow := (CurrentWindowHndl <> uLastWindowHndl); - + if CursorInDifferentWindow then begin FillChar(msgp, sizeof(msgp), 0); @@ -1642,7 +1642,7 @@ begin fpgSendMessage(nil, CurrentWindow, FPGM_MOUSEENTER, msgp); end; end; - + uLastWindowHndl := CurrentWindowHndl; end; @@ -1665,18 +1665,18 @@ begin FNonFullscreenRect.Left := 0; if FNonFullscreenRect.Top < 0 then FNonFullscreenRect.Top := 0; - + Left := 0; Top := 0; Width := wapplication.GetScreenWidth; Height := wapplication.GetScreenHeight; - + if aUpdate then UpdateWindowPosition; FWinStyle := WS_POPUP or WS_SYSMENU; FWinStyle := FWinStyle and not(WS_CAPTION or WS_THICKFRAME); - + if aUpdate then begin {$IFDEF CPU64} @@ -1706,7 +1706,7 @@ begin Top := FNonFullscreenRect.Top; Width := FNonFullscreenRect.Width; Height := FNonFullscreenRect.Height; - + if aUpdate then UpdateWindowPosition; end; @@ -1729,7 +1729,7 @@ var begin if FWinHandle > 0 then Exit; //==> - + FSkipResizeMessage := True; FWinStyle := WS_OVERLAPPEDWINDOW; @@ -1785,7 +1785,7 @@ begin FWinStyle := FWinStyle and not (WS_SIZEBOX or WS_MAXIMIZEBOX); FWinStyle := FWinStyle or WS_CLIPCHILDREN or WS_CLIPSIBLINGS; - + if waFullScreen in FWindowAttributes then WindowSetFullscreen(True, False); @@ -2239,7 +2239,7 @@ begin DeleteObject(FClipRegion); TryFreeBackBuffer; - + Windows.ReleaseDC(FDrawWindow.FWinHandle, FWingc); FDrawing := False; @@ -2497,7 +2497,7 @@ begin if FBufferBitmap > 0 then DeleteObject(FBufferBitmap); FBufferBitmap := 0; - + if FBufgc > 0 then DeleteDC(FBufgc); FBufgc := 0; @@ -2922,7 +2922,7 @@ var drvs: string; begin FSpecialDirs.Clear; - + // making drive list if Copy(aDirectory, 2, 1) = ':' then begin @@ -3207,7 +3207,7 @@ initialization GetVersionEx(WinVersion); UnicodeEnabledOS := (WinVersion.dwPlatformID = VER_PLATFORM_WIN32_NT) or (WinVersion.dwPlatformID = VER_PLATFORM_WIN32_CE); - + if SystemParametersInfo(SPI_GETFONTSMOOTHINGTYPE, 0, @FontSmoothingType, 0) and (FontSmoothingType = FE_FONTSMOOTHINGCLEARTYPE) then FontSmoothingType := CLEARTYPE_QUALITY |