Changeset 68 for trunk/Packages/Common


Ignore:
Timestamp:
Nov 28, 2020, 12:17:21 PM (4 years ago)
Author:
chronos
Message:
  • Fixed: Canvas width and height is not updated correctly on Windows. Use additional CanvasSize parameter in drawing methods.
  • Fixed: Fullscreen was not working on Windows. Form border was not hidden.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Packages/Common/UPersistentForm.pas

    r63 r68  
    317317      Form.RestoredHeight);
    318318    ShowWindow(Form.Handle, SW_SHOWFULLSCREEN);
     319    {$IFDEF WINDOWS}
     320    Form.BorderStyle := bsNone;
     321    {$ENDIF}
    319322  end else begin
    320323    FormFullScreen := False;
     
    323326      //Form.BoundsRect := FormRestoredSize;
    324327    end else if Form.WindowState = wsMaximized then ShowWindow(Form.Handle, SW_SHOWMAXIMIZED);
     328    {$IFDEF WINDOWS}
     329    Form.BorderStyle := bsSizeable;
     330    {$ENDIF}
    325331  end;
    326332end;
Note: See TracChangeset for help on using the changeset viewer.